机房收费系统——权限判断

在下面的机房收费系统结构图中可以看到☟☟

本系统中有三种权限用户，即一般用户、操作员、管理员

一般用户（学生）

固定用户和临时用户：有自己的账号信息，并且能够查看自己的余额，上机记录以及充值记录，还能够对自己的密码进行修改

操作员（值班人员）

可对用户进行充值、注册和退卡操作，并且能够查询自己的工作记录，查询和统计用户上机记录等

管理员（值班主管）

可对上机的基本参数进行设定，对操作员进行结账、查看打印日账单和周账单，以及可对中级权限用户进行添加、删除、修改及查看工作状态

进行权限判断的代码如下：

'权限判断
Private Sub level()
    Dim onworksql As String '存储SQL语句
    Dim onwormrc As adodb.Recordset '数据集
    Dim onmsgtext As String '记录信息
    '等级判断
    onworksql = "select * from user_info where userid='" & UserName & "'"
    Set onwormrc = ExecuteSQL(onworksql, onmsgtext)
    
    Userlevel = Trim(onwormrc.Fields(2))
    
    If Trim(Userlevel = "操作员") Then
        '只有一般用户和操作员功能可用
         Me.Admin.Enabled = False
         Call onupdate '更新表
    ElseIf Trim(Userlevel = "一般用户") Then
        '只有一般用户可
        Me.Operator.Enabled = False
        Me.Admin.Enabled = False
    End If
End Sub