机房收费系统 —— 登录窗体

#前言
登录窗体大多数和学生信息管理系统相似，不过有一个判断用户级别的代码需要注意！
#正文
登录窗体如图，非常的简洁。

因为机房收费系统是分为一般用户，管理员，操作员三个level的，各个level的功能和权限是不同的，如果能够设计权限就更好了。代码如下

'判断用户级别
       Dim Userlevel As String
        txtsql = "select * from User_Info Where userID ='" & Trim(txtUserName.Text) & "'"
        Set mrc = executeSQL(txtsql, msgtext)
        If mrc.EOF = False Then
        Userlevel = Trim(mrc.Fields(2))
   '如果是用户名时一般用户，则其他两个level不可见，不可操作
            If Trim(Userlevel) = "一般用户" Then
                frmain.yibanyonghu.Enabled = True
                frmain.yibanyonghu.Visible = True
                frmain.caozuoyuan.Enabled = False
                frmain.caozuoyuan.Visible = False
                frmain.guanliyuan.Enabled = False
                frmain.guanliyuan.Visible = False
            End If
             
             If Trim(Userlevel) = "管理员" Then
                frmain.yibanyonghu.Enabled = True
                frmain.yibanyonghu.Visible = True
                frmain.guanliyuan.Enabled = True
                frmain.guanliyuan.Visible = True
                frmain.caozuoyuan.Enabled = False
                frmain.caozuoyuan.Visible = False
              End If
              
              If Trim(Userlevel) = "操作员" Then
                frmain.yibanyonghu.Enabled = True
                frmain.yibanyonghu.Visible = True
                frmain.guanliyuan.Enabled = True
                frmain.guanliyuan.Visible = True
                frmain.caozuoyuan.Enabled = True
                frmain.caozuoyuan.Visible = True
              End If
     

举个栗子：当我输入的用户名时一般用户时，则用户界面如下：

#后记
考虑用户体验