1Imports System.Data.SqlClient
  2
  3Public Class searchTrainsClass searchTrains
  4    Inherits System.Web.UI.UserControl
  5
  6Web 窗体设计器生成的代码#Region " Web 窗体设计器生成的代码 "
  7
  8    '该调用是 Web 窗体设计器所必需的。
  9    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
 10
 11    End Sub
 12    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
 13    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
 14    Protected WithEvents btnSearch As System.Web.UI.WebControls.Button
 15    Protected WithEvents ddlStartstation As System.Web.UI.WebControls.DropDownList
 16    Protected WithEvents ddlEndstation As System.Web.UI.WebControls.DropDownList
 17    Protected WithEvents ddlstartPro As System.Web.UI.WebControls.DropDownList
 18    Protected WithEvents ddlendPro As System.Web.UI.WebControls.DropDownList
 19
 20    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
 21    '不要删除或移动它。
 22    Private designerPlaceholderDeclaration As System.Object
 23
 24    Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
 25        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
 26        '不要使用代码编辑器修改它。
 27        InitializeComponent()
 28    End Sub
 29
 30#End Region
 31    Dim cnnstr As String = ConfigurationSettings.AppSettings("ConnectionStr")
 32    Dim cnn As New SqlConnection(cnnstr)
 33    Dim cmd As New SqlCommand
 34    Dim dr, dr2 As SqlDataReader
 35    Dim str As String
 36
 37    Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 38
 39        If Not Page.IsPostBack Then
 40            '起发站省份绑定
 41            str = "select provinceID,provinceName from tbl_train_province"
 42            CommonWay(ddlstartPro, dr, "provinceName", "provinceID", str)
 43            '目的站省份绑定
 44            CommonWay(ddlendPro, dr, "provinceName", "provinceID", str)
 45
 46            ddlstartPro.SelectedIndex = 13
 47            ddlendPro.SelectedIndex = 1
 48
 49            '以下将车站与所属省份绑定到一起
 50            str = "select stationID,stationName from tbl_train_station where provinceID=25"
 51            CommonWay(ddlStartstation, dr, "stationName", "stationID", str)
 52            str = "select stationID,stationName from tbl_train_station where provinceID=1"
 53            CommonWay(ddlEndstation, dr, "stationName", "stationID", str)
 54
 55            ddlStartstation.SelectedIndex = 33
 56            ddlEndstation.SelectedIndex = 1
 57
 58        End If
 59
 60
 61    End Sub
 62
 63    Private Sub ddlstartPro_SelectedIndexChanged()Sub ddlstartPro_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlstartPro.SelectedIndexChanged
 64
 65        '起发站绑定
 66        str = "select stationID,stationName from tbl_train_station where provinceID=" & ddlstartPro.SelectedValue
 67        CommonWay(ddlStartstation, dr, "stationName", "stationID", str)
 68
 69    End Sub
 70
 71    Private Sub ddlendPro_SelectedIndexChanged()Sub ddlendPro_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlendPro.SelectedIndexChanged
 72
 73        '目的站绑定
 74        str = "select stationID,stationName from tbl_train_station where provinceID=" & ddlendPro.SelectedValue
 75        CommonWay(ddlEndstation, dr, "stationName", "stationID", str)
 76    End Sub
 77
 78    Public Sub CommonWay()Sub CommonWay(ByVal control As DropDownList, ByVal drr As SqlDataReader, ByVal name As String, ByVal stationID As String, ByVal commandText As String)
 79
 80        '简化了以上原本分开绑定的方法,使相同方法相同处理.
 81        cmd.Connection = cnn
 82        cmd.CommandText = commandText
 83
 84        cnn.Open()
 85        drr = cmd.ExecuteReader
 86        control.DataSource = drr
 87        control.DataTextField = name
 88        control.DataValueField = stationID
 89        control.DataBind()
 90        cnn.Close()
 91
 92        Session("tig") = 1
 93    End Sub
 94
 95    Private Sub btnSearch_Click()Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
 96
 97        Session("stratStation") = ddlStartstation.SelectedItem.Text
 98        Session("endStation") = ddlEndstation.SelectedItem.Text
 99        Response.Redirect("searchTrains.aspx?startID=" & ddlStartstation.SelectedValue & "&endID=" & ddlEndstation.SelectedValue)
100
101    End Sub
102End Class
103