setrole.aspx.vb

图书借阅系统！ASP.NET实现的

Public Class SetRole
    Inherits System.Web.UI.Page

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

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents AddBtn As System.Web.UI.WebControls.Button
    Protected WithEvents txtRoleStyle As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtBookNum As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtBookDate As System.Web.UI.WebControls.TextBox
    Protected WithEvents ChReLend As System.Web.UI.WebControls.CheckBox
    Protected WithEvents ChIsSysManager As System.Web.UI.WebControls.CheckBox
    Protected WithEvents ChIsBookManager As System.Web.UI.WebControls.CheckBox
    Protected WithEvents CompareValidator1 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents CompareValidator2 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents StyleDGrd As System.Web.UI.WebControls.DataGrid
    Protected WithEvents ChAllowBooking As System.Web.UI.WebControls.CheckBox

    '注意: 以下占位符声明是 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
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            BindDBGrid()
        End If
    End Sub
    Private Sub BindDBGrid()
        Dim sqlstr As String = "select * from RoleInfo"
        Dim obj As DBController = New DBController
        obj.BindDBGrd(sqlstr, StyleDGrd)
    End Sub

    Private Sub AddBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddBtn.Click
        Dim sqlstr As String = "insert into RoleInfo(RoleStyle,BookNum,BookDate,AllowBooking,ReLend,IsBookManager,IsSysManager)values("
        sqlstr += "'" + txtRoleStyle.Text.ToString.Trim + "',"
        sqlstr += txtBookNum.Text.ToString.Trim + ","
        sqlstr += txtBookDate.Text.ToString.Trim + ","
        If ChAllowBooking.Checked = True Then
            sqlstr += "1,"
        Else
            sqlstr += "0,"
        End If
        If ChReLend.Checked = True Then
            sqlstr += "1,"
        Else
            sqlstr += "0,"
        End If
        If ChIsBookManager.Checked = True Then
            sqlstr += "1,"
        Else
            sqlstr += "0,"
        End If
        If ChIsSysManager.Checked = True Then
            sqlstr += "1)"
        Else
            sqlstr += "0)"
        End If

        Dim obj As DBController = New DBController
        obj.ExecNonSql(sqlstr)
        Response.Write("<script>javascript:alert('添加成功！！！');</script>")
        txtRoleStyle.Text = ""
        txtBookNum.Text = ""
        txtBookDate.Text = ""
        ChReLend.Checked = False
        ChIsBookManager.Checked = False
        ChIsSysManager.Checked = False
        BindDBGrid()
    End Sub

    Private Sub StyleDGrd_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles StyleDGrd.CancelCommand
        StyleDGrd.EditItemIndex = -1
        BindDBGrid()
    End Sub

    Private Sub StyleDGrd_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles StyleDGrd.EditCommand
        StyleDGrd.EditItemIndex = e.Item.ItemIndex
        BindDBGrid()
    End Sub

    Private Sub StyleDGrd_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles StyleDGrd.UpdateCommand
        Dim strRoleID As String = StyleDGrd.Items(e.Item.ItemIndex).Cells(2).Text
        Dim strRoleStyle As String = CType(StyleDGrd.Items(e.Item.ItemIndex).FindControl("txtBoxRoleStyle"), TextBox).Text.ToString.Trim
        Dim strBookNum As String = CType(StyleDGrd.Items(e.Item.ItemIndex).FindControl("txtBoxBookNum"), TextBox).Text.ToString.Trim
        Dim strBookDate As String = CType(StyleDGrd.Items(e.Item.ItemIndex).FindControl("txtBoxBookDate"), TextBox).Text.ToString.Trim
        Dim sqlstr As String = "update RoleInfo set RoleStyle='" + strRoleStyle + "',"
        sqlstr += "BookNum=" + strBookNum + ","
        sqlstr += "BookDate=" + strBookDate + ","
        Dim chBox As CheckBox = CType(StyleDGrd.Items(e.Item.ItemIndex).FindControl("ChCkAllowBooking"), CheckBox)
        If chBox.Checked = True Then
            sqlstr += "AllowBooking=1,"
        Else
            sqlstr += "AllowBooking=0,"
        End If
        chBox = CType(StyleDGrd.Items(e.Item.ItemIndex).FindControl("ChCkReLend"), CheckBox)
        If chBox.Checked = True Then
            sqlstr += "ReLend=1,"
        Else
            sqlstr += "ReLend=0,"
        End If

        chBox = CType(StyleDGrd.Items(e.Item.ItemIndex).FindControl("ChCkIsBookManager"), CheckBox)
        If chBox.Checked = True Then
            sqlstr += "IsBookManager=1,"
        Else
            sqlstr += "IsBookManager=0,"
        End If

        chBox = CType(StyleDGrd.Items(e.Item.ItemIndex).FindControl("ChCkIsSysManager"), CheckBox)
        If chBox.Checked = True Then
            sqlstr += "IsSysManager=1"
        Else
            sqlstr += "IsSysManager=0"
        End If

        sqlstr += " where RoleID=" + strRoleID

        Dim obj As DBController = New DBController
        obj.ExecNonSql(sqlstr)
        StyleDGrd.EditItemIndex = -1
        Me.BindDBGrid()

    End Sub

    Private Sub StyleDGrd_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles StyleDGrd.PageIndexChanged
        StyleDGrd.CurrentPageIndex = e.NewPageIndex
        BindDBGrid()
    End Sub

    Private Sub StyleDGrd_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles StyleDGrd.DeleteCommand
        Dim strRoleID As String = StyleDGrd.Items(e.Item.ItemIndex).Cells(2).Text
        Dim sqlstr As String = "delete from RoleInfo where RoleID=" + strRoleID
        Dim obj As DBController = New DBController
        obj.ExecNonSql(sqlstr)
        BindDBGrid()
    End Sub
End Class