机房收费系统运行时上来第一步就是要登录,今天我们来说一下登录窗体
一、登录窗体的流程梳理:
二、错误集:
逻辑错误
这个窗体中的语法错误,运行错误倒是没有什么,就是在逻辑上面有些问题,刚开始忘记了不同级别登录的权限设置。在设置权限登录时所列代码被直接跳过,无运行
错误的代码:
If mrc.Fields(2) = "一般用户" Then '判断用户级别
frmmain.admin.Enabled = False '冻结相应的菜单栏
frmmain.operator.Enabled = False
End If
If mrc.Fields(2)= "操作员" Then
frmmain.admin.Enabled = False
End If
在经过多次调试后发现问题所在,是因为mrc.fields(2)的值里面有很多空格,条件不满足所以就一直跳转,后来加上了Trim函数后就OK了^_^
正确的代码:
If Trim(mrc.Fields(2)) = "一般用户" Then '判断用户级别
frmmain.admin