价格查询.aspx.vb

本系统是航空公司的查询系统 所用的代码是ASP希望大家给点意见

        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_地区ID", System.Data.SqlDbType.VarChar, 5, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "地区ID", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_商业舱价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "商业舱价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_飞行地区", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "飞行地区", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_经济舱价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "经济舱价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_头等舱价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "头等舱价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@地区ID", System.Data.SqlDbType.VarChar, 5, "地区ID"))
        '
        'DataSet21
        '
        Me.DataSet21.DataSetName = "DataSet2"
        Me.DataSet21.Locale = New System.Globalization.CultureInfo("zh-CN")
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet21, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Protected WithEvents DataSet11 As 灏巽软件_航空定票系统_乘客查询.DataSet1
    Protected WithEvents DropDownList3 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar
    Protected WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents DataSet21 As 灏巽软件_航空定票系统_乘客查询.DataSet2
    Protected WithEvents Button4 As System.Web.UI.WebControls.Button
    Protected WithEvents Button3 As System.Web.UI.WebControls.Button
    Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink2 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink3 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
    Protected WithEvents Image1 As System.Web.UI.WebControls.Image
    Protected WithEvents Image3 As System.Web.UI.WebControls.Image
    Protected WithEvents Image4 As System.Web.UI.WebControls.Image
    Protected WithEvents ImageButton1 As System.Web.UI.WebControls.ImageButton
    Protected WithEvents ImageButton2 As System.Web.UI.WebControls.ImageButton


    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region
    Dim dr As DataRow
    Dim dt As DataTable
    Private Sub Page_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load

        SqlDataAdapter2.Fill(DataSet21, "SECTOR")
        DataGrid1.DataSource = DataSet21
        DataGrid1.DataBind()

        'Put user code to initialize the page here
        With DataGrid1
            ' Enable paging.
            .AllowPaging = True
            ' Display 5 page numbers at a time.
            .PagerStyle.Mode = PagerMode.NumericPages
            .PagerStyle.PageButtonCount = 5
            .PageSize = 5
        End With

        If Not Page.IsPostBack Then
            DataGrid1.DataBind()
        End If
  
    End Sub



    '指定的路线
    Private Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
        Dim diquID As String
        If DropDownList1.SelectedValue = DropDownList3.SelectedValue Then
            DataSet11.Clear()
            Label1.Text = "查询消息：请在不同地区进行选择 ！"
        ElseIf DropDownList1.SelectedValue <> "New York" And DropDownList3.SelectedValue <> "New York" Then
            DataSet11.Clear()
            Label1.Text = "查询消息：您指定的路线" + " " + DropDownList1.SelectedValue + "-" + DropDownList3.SelectedValue + " " + "无本公司直达航班，需到 New York 中转 ！"
            SqlDataAdapter1.SelectCommand.Parameters("@param").Value = DropDownList1.SelectedValue + " " + "-" + " " + "New York"
            ' SqlDataAdapter1.SelectCommand.Parameters("@param").Value = "New York" + " " + "-" + " " + DropDownList3.SelectedValue
            SqlDataAdapter1.Fill(DataSet11, "SECTOR")
            DataGrid1.DataSource = DataSet11
            DataGrid1.DataBind()
            SqlDataAdapter1.SelectCommand.Parameters("@param").Value = "New York" + " " + "-" + " " + DropDownList3.SelectedValue
            SqlDataAdapter1.Fill(DataSet11, "SECTOR")
            DataGrid1.DataSource = DataSet11
            DataGrid1.DataBind()
        Else


            SqlDataAdapter1.SelectCommand.Parameters("@param").Value = DropDownList1.SelectedValue + " " + "-" + " " + DropDownList3.SelectedValue
            SqlDataAdapter1.Fill(DataSet11, "SECTOR")
            DataGrid1.DataSource = DataSet11
            DataGrid1.DataBind()
            Label1.Text = "查询消息：您指定路线的航班价格已在下表中显示 ！ "
        End If
        With DataGrid1
            ' Enable paging.
            .AllowPaging = True
            ' Display 5 page numbers at a time.
            .PagerStyle.Mode = PagerMode.NumericPages
            .PagerStyle.PageButtonCount = 2
            .PageSize = 2
        End With

        If Not Page.IsPostBack Then
            DataGrid1.DataBind()
        End If
    End Sub

    '全部路线
    Private Sub ImageButton2_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton2.Click
        SqlDataAdapter2.Fill(DataSet21, "SECTOR")
        DataGrid1.DataSource = DataSet21
        DataGrid1.DataBind()
        Label1.Text = "查询消息：全部路线的航班价格已在下表中显示 ！"
        With DataGrid1
            ' Enable paging.
            .AllowPaging = True
            ' Display 5 page numbers at a time.
            .PagerStyle.Mode = PagerMode.NumericPages
            .PagerStyle.PageButtonCount = 5
            .PageSize = 5
        End With

        If Not Page.IsPostBack Then
            DataGrid1.DataBind()
        End If
    End Sub
    Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, _
ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) _
Handles DataGrid1.PageIndexChanged
        DataGrid1.CurrentPageIndex = e.NewPageIndex
        DataGrid1.DataBind()
    End Sub
End Class