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

iteye_4639

于 2013-08-21 11:16:00 发布

阅读量116

点赞数

本文介绍了一个使用Visual Basic编写的权限管理系统，该系统通过定义全局变量来记录用户的登录信息，并在窗体加载时根据用户的不同级别自动分配相应的菜单权限。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

’在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