机房收费系统——登录界面的人员选择

    机房收费系统差不多都快做完了，过程中遇到了不少的问题，可能是由于自己没有养成及时总结的习惯，遇到问题就把它们攒了起来，当然问题都已经解决了，接下来就把他们一起总结一下吧。

   

    做机房界面操作时遇到的第一问题就是用户的登录界面，有三种用户，分别是管理员，操作员还有一般用户，分别对应不同的权限。下面是代码的思路。

 

    首先，当让是输入用户名，判断是否为已注册的用户，这里就不在详细解释了。

    然后，根据用户名判断用户的级别，再根据用户级别设置不同的使用权限。

    思路很简单，下面就是编辑代码了。

 

    我在模块里定义了一个Check_UserType()的自定义函数，用来判断用户的级别。

	Public Function Check_UserType() As Byte

    	If UserLevel = "一般用户" Then
         Check_UserType = 0
    	Else
    
         If UserLevel = "操作员" Then
            Check_UserType = 1
         Else
            Check_UserType = 2
         End If
        
    	End If
    
	End Function

                  然后就可以在主界面窗体加载时调用上面的过程来设置用户的访问权限了。

  代码如下：

    Select Case Check_UserType
        Case 0
        generaluser.Enabled = True
        operator.Enabled = False
        administrator.Enabled = False
        Case 1
        generaluser.Enabled = True
        operator.Enabled = True
        administrator.Enabled = False
        Case 2
        generaluser.Enabled = True
        operator.Enabled = True
        administrator.Enabled = True
        
    End Select

    然后就可以实现不同级别的用户拥有不同的刚问权限了。

  登录结果如下：

    
 管理员：

   

    操作员：

   

      一般用户：