用select case实现用户分级别登录

在敲机房收费系统的时候，我没有像大部分同学一样先敲登录窗体，因为当时就觉得无从下手，不知道该怎么做。大家都说定义一个公有变量，然后在登录的时候进行判断。于是，我有了这样一个模糊的概念。但是，直到昨天，我依然没有着手敲这个窗体，因为总是觉得太麻烦了。



今天突然觉得自己可以敲了，然后，就敲出来了，自我感觉没那么复杂。下面就来看看我是怎么实现的吧。



我没有按照原系统的登录窗体的界面来设计，而是加了一个combobox控件，运行后界面是这样的效果：



在登录的时候直接进行用户级别的选择。然后，根据用户级别来判断在所选级别之下是否有我所输入的用户名，假如没有的话，就会弹出相应的提示：





然后在登录窗体中定义了两个变量L和U，L用来存放登录用户的级别，U用来存放登录的用户名。

在frmMain加载的时候，就可以根据存放登录用户级别的变量来判断窗体加载的用户权限，假如是一般用户登录的话，加载的窗体就只有“一般用户”权限，其他两个（操作员和管理员）动态隐藏，即visible属性为false。



判断用户级别的时候我用的是select case语句。



PrivateSub Form_Load()

Select Case frmlogin.L

Case "管理员"

frmMain.Show

Case "操作员"

frmMain.Manager.Visible = False

Case "一般用户"

frmMain.Operator.Visible = False

frmMain.Manager.Visible = False



End Select



这样就实现了用户分级别登录。



作者信息