机房收费系统（五）-登录权限

最新推荐文章于 2019-11-28 19:03:37 发布

原创最新推荐文章于 2019-11-28 19:03:37 发布 · 294 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

机房收费管理系统

本文详细介绍了机房管理系统中登录权限的设计，包括一般用户、操作员和管理员三种角色的权限分配，以及相应的代码实现，展示了如何根据不同用户角色进行权限控制。

【前言】
刚开始做机房的时候，感觉机房登录和学生是一样的，就直接将学生中的登录代码复制过来了，后来做着做着就感觉少点什么，原来是登录有权限设置的。知道了这些，机房思路就清晰了许多。
【内容】
登录权限
3种，分别是：一般用户、操作员和管理员。
一般用户：上机、下机、查看余额、上机记录、充值记录、上机状态查询。
操作员：注册、充值、退卡、查账（收取和返还）、学生上机信息查询和自己的工作记录。
管理员：结账（给操作员）、添加删除用户、查看值班教师、查账（日结、周结）。
代码部分

'判断用户级别
    If Trim(mrcUser.Fields(2)) = Trim("一般用户") Then   '一般用户的权限
        OnWorkSQL = "select * from OnWork_Info"          '获取到OnWork表
        Set mrcOnWork = ExecuteSQL(OnWorkSQL, MsgText)
        Me.Hide
        UserName = Trim(txtUserName.Text)                '将用户名给UserName
        frmMDIForm1.Show
        frmMDIForm1.GeneralUser.Enabled = True
        frmMDIForm1.Operator.Enabled = False
        frmMDIForm1.Admin.Enabled = False
                 
        '更新到OnWork表
        mrcOnWork.AddNew
        mrcOnWork.Fields(0) = Trim(UserName)
        mrcOnWork.Fields(1) = Trim(mrcUser.Fields(2))
        mrcOnWork.Fields(2) = Trim(Date)
        mrcOnWork.Fields(3) = Trim(Time)
        mrcOnWork.Fields(4) = VBA.Environ("computername")
        mrcOnWork.Update
        mrcOnWork.Close
        
    ElseIf Trim(mrcUser.Fields(2)) = Trim("操作员") Then  '操作员的权限
        OnWorkSQL = "select * from OnWork_Info"           '获取到OnWork表
        Set mrcOnWork = ExecuteSQL(OnWorkSQL, MsgText)
        Me.Hide
        UserName = Trim(txtUserName.Text)                 '将用户名给username
        frmMDIForm1.Show
        frmMDIForm1.Operator.Enabled = True
        frmMDIForm1.GeneralUser.Enabled = False
        frmMDIForm1.Admin.Enabled = False
        
        '更新到OnWork表
        mrcOnWork.AddNew
        mrcOnWork.Fields(0) = Trim(UserName)
        mrcOnWork.Fields(1) = Trim(mrcUser.Fields(2))
        mrcOnWork.Fields(2) = Trim(Date)
        mrcOnWork.Fields(3) = Trim(Time)
        mrcOnWork.Fields(4) = VBA.Environ("computername")
        mrcOnWork.Update
        mrcOnWork.Close
        
    ElseIf Trim(mrcUser.Fields(2)) = Trim("管理员") Then  '管理员的权限
        OnWorkSQL = "select * from OnWork_Info"           '获取到正在上机表
        Set mrcOnWork = ExecuteSQL(OnWorkSQL, MsgText)
        Me.Hide
        UserName = Trim(txtUserName.Text)                 '将用户名给username
        frmMDIForm1.Show
        frmMDIForm1.Admin.Enabled = True
        frmMDIForm1.GeneralUser.Enabled = True
        frmMDIForm1.Operator.Enabled = True
        
        '更新到OnWork表
        mrcOnWork.AddNew
        mrcOnWork.Fields(0) = Trim(UserName)
        mrcOnWork.Fields(1) = Trim(mrcUser.Fields(2))
        mrcOnWork.Fields(2) = Trim(Date)
        mrcOnWork.Fields(3) = Trim(Time)
        mrcOnWork.Fields(4) = VBA.Environ("computername")
        mrcOnWork.Update
        mrcOnWork.Close
                
    Else
        '判断输入密码是否正确
        If Trim(mrcUser.Fields(1)) = Trim(txtPassword.Text) Then
            OK = True
            mrcUser.Close
            Me.Hide
            UserName = Trim(txtUserName.Text)
            frmMDIForm1.Show
        Else
            MsgBox "输入密码不正确，请重新输入！", 48, "警告"
            txtPassword.SetFocus
            txtUserName.Text = ""
            txtPassword.Text = ""
        End If
    End If

标签

#VB