addmemberinfo.aspx.vb

电子合同管理系统C#

Imports System.Data.SqlClient
Public Class AddMemberInfo
    Inherits System.Web.UI.Page
    Protected WithEvents DPDeptList As System.Web.UI.WebControls.DropDownList
    Protected WithEvents TxtMemberId As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtMemberName As System.Web.UI.WebControls.TextBox
    Protected WithEvents Add_Btn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents Cancel_Btn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents Update_btn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents Delete_Btn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents DpRoleList As System.Web.UI.WebControls.DropDownList
    Protected WithEvents MemberDBGrd As System.Web.UI.WebControls.DataGrid
    Protected WithEvents lbSign As System.Web.UI.WebControls.Label

#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()
            If Not Request.QueryString("MemberId") Is Nothing Then
                '有传递参数，说明是对用户信息进行修改
                TxtMemberId.Text = Request.QueryString("MemberId")
                LoadMemberInfo()
                Update_btn.Visible = True
                Delete_Btn.Visible = True
                Add_Btn.Visible = False
                Cancel_Btn.Visible = False
            End If
        End If
    End Sub
    '=============================================================
    ' 函 数 名：BindData
    ' 功能描述：加载部门下拉列表
    ' 输入参数：无
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：通过权限判断用户允许添加或修改的部门列表。系统管理员可
    '           以添加所有部门的用户而其他用户只允许添加本部门的用户
    '==============================================================
    Private Sub BindData()
        Dim obj As MemberInfo = CType(Session("UserInfo"), MemberInfo)
        '判断是否系统管理员
        If obj.Role <> 1 Then
            DPDeptList.Items.Insert(0, obj.DepartmentName)
            DPDeptList.Items(0).Value = obj.DepartmentId
        Else
            Dim objDB As DBController = New DBController()
            '通过DBController对象的BindDrpDownList方法对列表进行绑定
            objDB.BindDrpDownList("DepartmentName", "DepartmentId", "select * from DepartmentInfo", DPDeptList)
            objDB.Close()
        End If
        '在DataGrid显示数据
        BindMemberGrd()
    End Sub
    '=============================================================
    ' 函 数 名：BindMemberGrd()
    ' 功能描述：绑定用户信息的DataGrid
    ' 输入参数：无
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：通过权限判断用户可以查看的用户列表。系统管理员可
    '           以查看所有部门的用户而其他用户只允许看到本部门的用户
    '==============================================================
    Private Sub BindMemberGrd()
        Dim sqlstr As String = "select * from MemberInfo,DepartmentInfo where MemberInfo.DepartmentId=DepartmentInfo.DepartmentId "
        Dim obj As MemberInfo = CType(Session("UserInfo"), MemberInfo)
        If obj.Role <> 1 Then
            sqlstr += " and MemberInfo.DepartmentId=" + obj.DepartmentId
        End If
        Dim objDB As DBController = New DBController()
        objDB.BindDBGrd(sqlstr, MemberDBGrd)
        objDB.Close()
    End Sub
    '=============================================================
    ' 函 数 名：MakeUrl
    ' 功能描述：编辑DataGrid“修改”的链接。
    ' 输入参数：数据绑定的用户ID
    ' 返 回 值：链接字符串
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：Html中NavigateUrl='<%# MakeUrl(DataBinder.Eval(Container.DataItem, "MemberId")) %>'需要此函数
    '==============================================================
    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
    '=============================================================
    ' 函 数 名：LoadMemberInfo
    ' 功能描述：当修改用户信息时，在TextBox中显示用户具体信息
    ' 输入参数：数据绑定的用户ID
    ' 返 回 值：链接字符串
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Private Sub LoadMemberInfo()
        lbSign.Text = "编辑用户信息"
        Dim sqlstr As String = "select * from MemberInfo where MemberId='" + TxtMemberId.Text.ToString.Trim + "'"
        Dim obj As DBController = New DBController()
        Dim dataReader As SqlDataReader = obj.ExecReaderSql(sqlstr)
        TxtMemberId.Enabled = False
        If dataReader.Read Then

            If Not IsDBNull(dataReader("MemberName")) Then
                txtMemberName.Text = dataReader("MemberName")
            End If
            '部门
            If Not IsDBNull(dataReader("DepartmentId")) Then
                'txtContractTitle.Text = dataReader("ContractTitle")
            End If
            '角色,
            If Not IsDBNull(dataReader("Role")) Then
                Dim Role As Integer = CType(dataReader("Role"), Integer)
                DpRoleList.SelectedIndex = 3 - Role
            End If
        End If
        obj.Close()
    End Sub
    Private Sub Add_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add_Btn.Click
        Dim obj As DBController = New DBController()
        Dim sqlstr As String = "insert into MemberInfo(MemberId,MemberName,DepartmentId,Role) values("
        sqlstr += "'" + TxtMemberId.Text.ToString.Trim + "','" + txtMemberName.Text.ToString.Trim + "'," + DPDeptList.Items(DPDeptList.SelectedIndex).Value.ToString.Trim + "," + DpRoleList.Items(DpRoleList.SelectedIndex).Value.ToString.Trim + ")" 'DpList
        Dim objLog As SysLog = New SysLog()
        Dim UserInfo As MemberInfo = CType(Session("UserInfo"), MemberInfo)
        Try
            obj.ExecNonSql(sqlstr)
            '添加日志消息
            objLog.AddLog(UserInfo, "添加用户：" + txtMemberName.Text.ToString.Trim, Request.UserHostAddress.ToString, "成功")
        Catch
            '添加日志消息
            objLog.AddLog(UserInfo, "添加用户：" + txtMemberName.Text.ToString.Trim, Request.UserHostAddress.ToString, "失败")
        End Try

        obj.Close()
    End Sub

    Private Sub Cancel_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Btn.Click
        Response.Redirect("AddMemberInfo.aspx")
    End Sub

    Private Sub Update_btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Update_btn.Click
        Dim sqlstr As String = "Update MemberInfo set MemberName='" + txtMemberName.Text.ToString.Trim + "',"
        sqlstr += "DepartmentId=" + DPDeptList.Items(DPDeptList.SelectedIndex).Value
        sqlstr += ",Role=" + DpRoleList.Items(DpRoleList.SelectedIndex).Value.ToString
        sqlstr += " where MemberId='" + TxtMemberId.Text.ToString.Trim + "'"
        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, "更新用户：" + txtMemberName.Text.ToString.Trim, Request.UserHostAddress.ToString, "成功")
        Catch
            objLog.AddLog(UserInfo, "更新用户：" + txtMemberName.Text.ToString.Trim, Request.UserHostAddress.ToString, "失败")
        End Try
        obj.Close()
        Response.Redirect("AddMemberInfo.aspx")
    End Sub

    Private Sub Delete_Btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Delete_Btn.Click
        Dim sqlstr As String = "Delete from MemberInfo where MemberId='" + TxtMemberId.Text.ToString.Trim + "'"
        Dim obj As DBController = New DBController()
        Dim objLog As SysLog = New SysLog()
        Dim UserInfo As MemberInfo = CType(Session("UserInfo"), MemberInfo)
        Try
            obj.ExecNonSql(sqlstr)
            obj.Close()
            objLog.AddLog(UserInfo, "删除用户：" + txtMemberName.Text.ToString.Trim, Request.UserHostAddress.ToString, "成功")
        Catch
            objLog.AddLog(UserInfo, "删除用户：" + txtMemberName.Text.ToString.Trim, Request.UserHostAddress.ToString, "失败")
        End Try

        Response.Redirect("AddMemberInfo.aspx")
    End Sub

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