operatorform.aspx.vb

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

'文件名:OperatorForm.aspx.vb
Partial Class SystemManage_OperatorForm
    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("E1") > 1) Then
            Server.Transfer("~/SystemManage/AllErrorHelp.aspx")
        End If
        Me.Page.Title = "当前位置：系统管理->分配用户权限"
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        '新增管理系统操作用户信息
        Me.SqlDataSource1.Insert()
    End Sub
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        '修改管理系统操作用户信息
        Me.SqlDataSource1.Update()
    End Sub
    Protected Sub GridView1_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowCreated
        '弹出删除操作确认对话框
        If (e.Row.RowType = DataControlRowType.DataRow) Then
            Dim MyButton As Button = e.Row.FindControl("Button1")
            MyButton.OnClientClick = "return confirm('是否确认删除当前选择的记录？')"
        End If
    End Sub
    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
        '在控件中显示选择的记录
        Me.DropDownList1.Text = Me.GridView1.SelectedRow.Cells(2).Text.ToString()
        Me.TextBox1.Text = Me.GridView1.SelectedRow.Cells(3).Text.ToString()
        Me.TextBox2.Text = Me.GridView1.SelectedRow.Cells(4).Text.ToString()
        Me.TextBox3.Text = Me.GridView1.SelectedRow.Cells(5).Text.ToString()
        Me.TextBox4.Text = Me.GridView1.SelectedRow.Cells(6).Text.ToString()
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(7).Text.ToString()) = 1) Then
            Me.CheckBox1.Checked = True
        Else
            Me.CheckBox1.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(8).Text.ToString()) = 1) Then
            Me.CheckBox2.Checked = True
        Else
            Me.CheckBox2.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(9).Text.ToString()) = 1) Then
            Me.CheckBox3.Checked = True
        Else
            Me.CheckBox3.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(10).Text.ToString()) = 1) Then
            Me.CheckBox4.Checked = True
        Else
            Me.CheckBox4.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(11).Text.ToString()) = 1) Then
            Me.CheckBox5.Checked = True
        Else
            Me.CheckBox5.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(12).Text.ToString()) = 1) Then
            Me.CheckBox6.Checked = True
        Else
            Me.CheckBox6.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(13).Text.ToString()) = 1) Then
            Me.CheckBox7.Checked = True
        Else
            Me.CheckBox7.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(14).Text.ToString()) = 1) Then
            Me.CheckBox8.Checked = True
        Else
            Me.CheckBox8.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(15).Text.ToString()) = 1) Then
            Me.CheckBox9.Checked = True
        Else
            Me.CheckBox9.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(16).Text.ToString()) = 1) Then
            Me.CheckBox10.Checked = True
        Else
            Me.CheckBox10.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(17).Text.ToString()) = 1) Then
            Me.CheckBox11.Checked = True
        Else
            Me.CheckBox11.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(18).Text.ToString()) = 1) Then
            Me.CheckBox12.Checked = True
        Else
            Me.CheckBox12.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(19).Text.ToString()) = 1) Then
            Me.CheckBox13.Checked = True
        Else
            Me.CheckBox13.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(20).Text.ToString()) = 1) Then
            Me.CheckBox14.Checked = True
        Else
            Me.CheckBox14.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(21).Text.ToString()) = 1) Then
            Me.CheckBox15.Checked = True
        Else
            Me.CheckBox15.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(22).Text.ToString()) = 1) Then
            Me.CheckBox16.Checked = True
        Else
            Me.CheckBox16.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(23).Text.ToString()) = 1) Then
            Me.CheckBox17.Checked = True
        Else
            Me.CheckBox17.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(24).Text.ToString()) = 1) Then
            Me.CheckBox18.Checked = True
        Else
            Me.CheckBox18.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(25).Text.ToString()) = 1) Then
            Me.CheckBox19.Checked = True
        Else
            Me.CheckBox19.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(26).Text.ToString()) = 1) Then
            Me.CheckBox20.Checked = True
        Else
            Me.CheckBox20.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(27).Text.ToString()) = 1) Then
            Me.CheckBox21.Checked = True
        Else
            Me.CheckBox21.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(28).Text.ToString()) = 1) Then
            Me.CheckBox22.Checked = True
        Else
            Me.CheckBox22.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(29).Text.ToString()) = 1) Then
            Me.CheckBox23.Checked = True
        Else
            Me.CheckBox23.Checked = False
        End If
        If (Convert.ToInt16(Me.GridView1.SelectedRow.Cells(30).Text.ToString()) = 1) Then
            Me.CheckBox24.Checked = True
        Else
            Me.CheckBox24.Checked = False
        End If
    End Sub
End Class