状态查询.aspx.vb

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

Public Class WebForm3
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
        Me.DataSet31 = New 灏巽软件_航空定票系统_乘客查询.DataSet3
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
        CType(Me.DataSet31, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Passengers", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("航班号", "航班号"), New System.Data.Common.DataColumnMapping("飞行日期", "飞行日期"), New System.Data.Common.DataColumnMapping("乘客的姓", "乘客的姓"), New System.Data.Common.DataColumnMapping("乘客的名", "乘客的名"), New System.Data.Common.DataColumnMapping("乘客状态", "乘客状态")})})
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=JANY;packet size=4096;user id=sa;initial catalog=HorizonAirways;pe" & _
        "rsist security info=False"
        '
        'DataSet31
        '
        Me.DataSet31.DataSetName = "DataSet3"
        Me.DataSet31.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT FlightNo AS 航班号, TravelDate AS 飞行日期, FName AS 乘客的姓, LName AS 乘客的名, Status " & _
        "AS 乘客状态 FROM Passengers WHERE (FName = @f) AND (LName = @l)"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@f", System.Data.SqlDbType.VarChar, 20, "乘客的姓"))
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@l", System.Data.SqlDbType.VarChar, 20, "乘客的名"))
        CType(Me.DataSet31, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub
    Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar
    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 Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Protected WithEvents DataSet31 As 灏巽软件_航空定票系统_乘客查询.DataSet3
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Image6 As System.Web.UI.WebControls.Image
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    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

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
    End Sub

    Private Sub ImageButton2_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton2.Click
        If Me.TextBox1.Text = "" Or Me.TextBox2.Text = "" Then
            Label2.Text = "查询消息：尊敬的乘客, 请您完整的输入您的姓名 ！ "
        Else : SqlDataAdapter1.SelectCommand.Parameters("@f").Value = Me.TextBox1.Text
            SqlDataAdapter1.SelectCommand.Parameters("@l").Value = Me.TextBox2.Text
            SqlDataAdapter1.Fill(DataSet31, "Passengers")
            If DataSet31.Tables("Passengers").Rows.Count - 1 < 0 Then
                Label2.Text = "查询消息：尊敬的乘客，您输入的姓名不存在，请重新输入 ！ "
                Me.TextBox1.Text = ""
                Me.TextBox2.Text = ""
                Me.DataGrid1.Visible = False
            Else
                Me.DataGrid1.Visible = True
                DataGrid1.DataSource = DataSet31
                DataGrid1.DataBind()
                Label2.Text = "查询消息：尊敬的乘客, 您的信息已在下表中显示 ！ "
            End If

        End If



    End Sub
End Class