机房收费系统之不同用户系别享有不同权限

最新推荐文章于 2021-10-14 17:35:19 发布

屈文哲

最新推荐文章于 2021-10-14 17:35:19 发布

阅读量1k

点赞数

分类专栏：【编程语言】

本文链接：https://blog.csdn.net/quwenzhe/article/details/10138209

版权

【编程语言】专栏收录该内容

61 篇文章 1 订阅

订阅专栏

’在SubMain窗体中定义全局变量strUserName
Public strUserName As String 

'在frmMain窗体加载时进行权限设置
Private Sub Form_Load()
   
    Dim strSQL As String
    Dim strMsg As String
    Dim strLevel As String
    Dim rstMrc As ADODB.Recordset

    '判断用户登录级别
    strSQL = "select * from User_Info where UserName='" & strUserName & "'"
    Set rstMrc = ExecuteSQL(strSQL, strMsg)
    
    '获得当前用户名的用户级别
    strLevel = rstMrc!Level
    
    '对获得的级别进行权限设置
    Select Case Trim(strLevel)

    Case "管理员"

    Case "操作员"
        '管理员权限不可用
        mnuAdmin.Enabled = False
    Case "一般用户"
        '管理员和操作员权限不可用
        mnuAdmin.Enabled = False
        mnuOperator.Enabled = False
    End Select

End Sub