goodsform.aspx.vb

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

'文件名:GoodsForm.aspx.vb
Partial Class SystemManage_GoodsForm
    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("E4") > 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.TextBox1.Text = Me.GridView1.SelectedRow.Cells(2).Text.ToString()
        Me.TextBox2.Text = Me.GridView1.SelectedRow.Cells(3).Text.ToString()
        Me.TextBox3.Text = Me.GridView1.SelectedRow.Cells(4).Text.ToString()
        Me.TextBox4.Text = Me.GridView1.SelectedRow.Cells(5).Text.ToString()
        Me.TextBox5.Text = Me.GridView1.SelectedRow.Cells(6).Text.ToString()
        Me.TextBox6.Text = Me.GridView1.SelectedRow.Cells(7).Text.ToString()
    End Sub
End Class