指定日期查询.aspx.vb

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

Public Class WebForm4
    Inherits System.Web.UI.Page

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

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
        Me.DataSet41 = New 灏巽软件_航空定票系统_乘客查询.DataSet4
        CType(Me.DataSet41, 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", "SECTOR", 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("到达时间", "到达时间")})})
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT Flights.FlightNo AS 航班号, SECTOR.Description AS 飞行地区, Flights.DepTime AS 起飞" & _
        "时间, Flights.ArrTime AS 到达时间 FROM SECTOR INNER JOIN Flights ON SECTOR.SectorID = " & _
        "Flights.SectorID WHERE (SECTOR.WeekDay1 = @week1) OR (SECTOR.WeekDay2 = @week2)"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@week1", System.Data.SqlDbType.VarChar, 3, "WeekDay1"))
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@week2", System.Data.SqlDbType.VarChar, 3, "WeekDay2"))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=JANY;packet size=4096;user id=sa;initial catalog=HorizonAirways;pe" & _
        "rsist security info=False"
        '
        'DataSet41
        '
        Me.DataSet41.DataSetName = "DataSet4"
        Me.DataSet41.Locale = New System.Globalization.CultureInfo("zh-CN")
        CType(Me.DataSet41, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub
    Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents icmdDate As System.Web.UI.WebControls.ImageButton
    Protected WithEvents Calendar2 As System.Web.UI.WebControls.Calendar
    Protected WithEvents Imagebutton1 As System.Web.UI.WebControls.ImageButton
    Protected WithEvents Image1 As System.Web.UI.WebControls.Image
    Protected WithEvents Image4 As System.Web.UI.WebControls.Image
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Image3 As System.Web.UI.WebControls.Image
    Protected WithEvents Image6 As System.Web.UI.WebControls.Image
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Protected WithEvents DataSet41 As 灏巽软件_航空定票系统_乘客查询.DataSet4
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand

    '注意: 以下占位符声明是 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
        '在此处放置初始化页的用户代码
        Calendar2.Visible = False

    End Sub

    Private Sub icmdDate_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles icmdDate.Click
        Calendar2.Visible = True


    End Sub

    Private Sub Calendar2_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calendar2.SelectionChanged


        TextBox1.Text = Calendar2.SelectedDate.ToString
        Calendar2.Visible = False
    End Sub


    Private Sub Imagebutton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Imagebutton1.Click
        Dim weekday1 As Integer
        Dim weekday2 As String

        weekday1 = Weekday(CDate(TextBox1.Text))
        If weekday1 = 1 Then
            weekday2 = "Sun"
        ElseIf weekday1 = 2 Then
            weekday2 = "Mon"
        ElseIf weekday1 = 3 Then
            weekday2 = "Tue"
        ElseIf weekday1 = 4 Then
            weekday2 = "Wed"
        ElseIf weekday1 = 5 Then
            weekday2 = "Thu"
        ElseIf weekday1 = 6 Then
            weekday2 = "Fri"
        ElseIf weekday1 = 7 Then
            weekday2 = "Sat"
        End If
        SqlDataAdapter1.SelectCommand.Parameters("@week1").Value = weekday2
        SqlDataAdapter1.SelectCommand.Parameters("@week2").Value = weekday2
        SqlDataAdapter1.Fill(DataSet41, "SECTOR")
        DataGrid1.DataSource = DataSet41
        DataGrid1.DataBind()
        Me.Label1.Text = "查询消息：尊敬的乘客本公司" + " " + Mid(TextBox1.Text, 1, 10).ToString + " " + "的航班已在下表中显示！"
    End Sub

  
   
    Private Sub Calendar2_VisibleMonthChanged(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MonthChangedEventArgs) Handles Calendar2.VisibleMonthChanged
        Calendar2.Visible = True
    End Sub
End Class