queryguestform.aspx.vb

旅客信息管理、酒店客房管理、各种信息查询

'文件名:QueryGuestForm.aspx.vb
Imports System.Data.SqlClient
Imports System.Data
Partial Class QueryManage_QueryGuestForm
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim MyForbidString As String = Session("MyForbid").ToString()
        If (MyForbidString.IndexOf("C1") > 1) Then
            Server.Transfer("~/SystemManage/AllErrorHelp.aspx")
        End If
        Me.Page.Title = "当前位置：查询管理->查询旅客信息"
        Me.Button2.OnClientClick = "return confirm('请检查旅客登记信息是否正确，是否确认修改？')"
    End Sub
    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
        '显示选择的客人入住登记信息
        Dim My入住编号 As String = Me.GridView1.SelectedRow.Cells(1).Text.ToString()
        Dim MySQLConnectionString As String = ConfigurationManager.ConnectionStrings("MyHotelDBConnectionString").ConnectionString
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyCommand As SqlCommand = MyConnection.CreateCommand()
        MyCommand.CommandText = "Select * From 客房入住单 Where 入住编号='" + My入住编号 + "'"
        Dim MyAdapter As New SqlDataAdapter(MyCommand)
        Dim MyTable As New DataTable()
        MyAdapter.Fill(MyTable)
        Me.TextBox1.Text = MyTable.Rows(0)(0).ToString()
        Me.TextBox2.Text = MyTable.Rows(0)(1).ToString()
        Me.TextBox3.Text = MyTable.Rows(0)(2).ToString()
        Me.TextBox4.Text = MyTable.Rows(0)(3).ToString()
        Me.TextBox5.Text = MyTable.Rows(0)(4).ToString()
        Me.TextBox6.Text = MyTable.Rows(0)(5).ToString()
        Me.TextBox7.Text = MyTable.Rows(0)(6).ToString()
        Me.DropDownList2.Text = MyTable.Rows(0)(7).ToString()
        Me.TextBox9.Text = MyTable.Rows(0)(8).ToString()
        Me.TextBox10.Text = MyTable.Rows(0)(9).ToString()
        Me.TextBox11.Text = MyTable.Rows(0)(10).ToString()
        Me.DropDownList4.Text = MyTable.Rows(0)(11).ToString()
        Me.TextBox13.Text = MyTable.Rows(0)(12).ToString()
        Me.TextBox14.Text = MyTable.Rows(0)(13).ToString()
        Me.TextBox15.Text = MyTable.Rows(0)(14).ToString()
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
    End Sub
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        '修改客人入住登记信息
        Me.SqlDataSource2.Update()
        Me.GridView1.DataBind()
    End Sub
End Class