rolecontrol.aspx.vb

电子合同管理系统C#

Public Class RoleControl
    Inherits System.Web.UI.Page
    Protected WithEvents RoleDBGrd As System.Web.UI.WebControls.DataGrid
    Protected WithEvents UpdateBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents AllBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents OpperBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents ClearBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents txtControllName As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtControllWeb As System.Web.UI.WebControls.TextBox
    Protected WithEvents AddBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents RoleList As System.Web.UI.WebControls.DropDownList

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

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

    End Sub

    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
            BindData()
        End If
    End Sub
    Private Sub BindData()
        Dim sqlstr As String = "select RoleId,ControllName,ControllWeb,Role" + RoleList.Items(RoleList.SelectedIndex).Value.ToString + " as CheckOn from RoleInfo"
        Dim obj As DBController = New DBController()
        obj.BindDBGrd(sqlstr, RoleDBGrd)
        obj.Close()
    End Sub
    Private Sub RoleList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RoleList.SelectedIndexChanged
        BindData()
    End Sub

    Private Sub AllBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllBtn.Click
        Dim obj As DBController = New DBController()
        obj.CheckAllGrd("ChBox", True, RoleDBGrd)
        obj.Close()
    End Sub

    Private Sub ClearBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ClearBtn.Click
        Dim obj As DBController = New DBController()
        obj.CheckAllGrd("ChBox", False, RoleDBGrd)
        obj.Close()
    End Sub

    Private Sub OpperBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpperBtn.Click
        Dim obj As DBController = New DBController()
        obj.CheckOpperGrd("ChBox", RoleDBGrd)
        obj.Close()
    End Sub

    Private Sub RoleDBGrd_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles RoleDBGrd.DeleteCommand
        Dim RoleId As String = RoleDBGrd.Items(e.Item.ItemIndex).Cells(2).Text
        Dim sqlstr As String = "delete from RoleInfo where RoleId=" + RoleId
        Dim obj As DBController = New DBController()
        obj.ExecNonSql(sqlstr)
        obj.Close()
        RoleDBGrd.CurrentPageIndex = 0
        BindData()
    End Sub

    Private Sub RoleDBGrd_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles RoleDBGrd.UpdateCommand
        Dim RoleId As String = RoleDBGrd.Items(e.Item.ItemIndex).Cells(2).Text
        Dim txtBox As TextBox = CType(RoleDBGrd.Items(e.Item.ItemIndex).Cells(3).FindControl("txtControllName"), TextBox)
        Dim ControllName As String = txtBox.Text.ToString.Trim
        txtBox = CType(RoleDBGrd.Items(e.Item.ItemIndex).Cells(4).FindControl("txtControllWeb"), TextBox)
        Dim ControllWeb As String = txtBox.Text.ToString.Trim
        Dim sqlstr As String = "update RoleInfo set ControllName='" + ControllName + "',ControllWeb='" + ControllWeb + "' where RoleId=" + RoleId
        Dim obj As DBController = New DBController()
        Try
            obj.ExecNonSql(sqlstr)
        Catch
            Response.Write(sqlstr)
            Response.End()
        End Try
        obj.Close()
        RoleDBGrd.EditItemIndex = -1
        BindData()
    End Sub

    Private Sub RoleDBGrd_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles RoleDBGrd.CancelCommand
        RoleDBGrd.EditItemIndex = -1
        BindData()
    End Sub

    Private Sub RoleDBGrd_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles RoleDBGrd.EditCommand
        RoleDBGrd.EditItemIndex = e.Item.ItemIndex
        BindData()
    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 (ControllName,ControllWeb) Values('" + txtControllName.Text.ToString.Trim + "','" + txtControllWeb.Text.ToString.Trim + "')"
        Dim obj As DBController = New DBController()
        obj.ExecNonSql(sqlstr)
        obj.Close()
        BindData()
    End Sub

    Private Sub UpdateBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateBtn.Click
        Dim myCheckBox As CheckBox
        Dim Role As String = RoleList.Items(RoleList.SelectedIndex).Value
        Dim i As Integer = 0
        Dim sqlstr As String = ""
        Dim RoleId As String
        For i = 0 To RoleDBGrd.Items.Count - 1
            myCheckBox = CType(RoleDBGrd.Items(i).FindControl("ChBox"), CheckBox)
            RoleId = RoleDBGrd.Items(i).Cells(2).Text
            If myCheckBox.Checked = True Then
                sqlstr += " update RoleInfo set Role" + Role + "=1 where RoleId=" + RoleId
            Else
                sqlstr += " update RoleInfo set Role" + Role + "=0 where RoleId=" + RoleId
            End If
        Next
        Dim obj As DBController = New DBController()
        obj.ExecNonSql(sqlstr)
        obj.Close()
        BindData()
    End Sub

    Private Sub RoleDBGrd_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles RoleDBGrd.PageIndexChanged
        RoleDBGrd.CurrentPageIndex = e.NewPageIndex
        BindData()
    End Sub
End Class