memberrole.aspx.vb

电子合同管理系统C#

Imports System.Web
Public Class MemberRole1
    Inherits System.Web.UI.Page
    Protected WithEvents MemberDBGrd As System.Web.UI.WebControls.DataGrid

#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 obj As DBController = New DBController()
        Dim sqlstr As String = "select * from MemberInfo"
        obj.BindDBGrd(sqlstr, MemberDBGrd)
        obj.Close()
    End Sub
    Public Function MakeUrl(ByVal MemberId As String) As String
        Return "AddMemberInfo.aspx?MemberId=" + MemberId
    End Function
    Public Function EditRole(ByVal Role As Integer) As String
        Select Case Role
            Case 1 : Return "系统管理员"
            Case 2 : Return "部门领导"
            Case 3 : Return "一般员工"
        End Select
    End Function


    Private Sub MemberDBGrd_UpdateCommand(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs)

        Dim DpRoleList As DropDownList = CType(MemberDBGrd.Items(e.Item.ItemIndex).Cells(4).FindControl("DpRoleList"), DropDownList)
        Dim MemberId As String = MemberDBGrd.Items(e.Item.ItemIndex).Cells(2).Text.ToString.Trim
        Dim sqlstr As String = "update MemberInfo set Role=" + DpRoleList.Items(DpRoleList.SelectedIndex).Value + " where MemberId='" + MemberId + "'"
        Dim obj As DBController = New DBController()
        Dim objLog As SysLog = New SysLog()
        Dim UserInfo As MemberInfo = CType(Session("UserInfo"), MemberInfo)
        Try
            obj.ExecNonSql(sqlstr)
            objLog.AddLog(UserInfo, "更新" + MemberId + "的角色", Request.UserHostAddress.ToString, "成功")
        Catch
            objLog.AddLog(UserInfo, "更新" + MemberId + "的角色", Request.UserHostAddress.ToString, "失败")
            Response.Write(sqlstr)
            Response.End()
        End Try

        obj.Close()
        MemberDBGrd.EditItemIndex = -1
        BindData()
    End Sub

    Private Sub MemberDBGrd_CancelCommand(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs)
        MemberDBGrd.EditItemIndex = -1
        BindData()
    End Sub


    Private Sub MemberDBGrd_PageIndexChanged(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs)
        MemberDBGrd.CurrentPageIndex = e.NewPageIndex
        BindData()
    End Sub

    Private Sub MemberDBGrd_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles MemberDBGrd.EditCommand
        MemberDBGrd.EditItemIndex = e.Item.ItemIndex
        BindData()
    End Sub
End Class