前几天敲《学生信息管理系统》,在模块中有如下代码:
Sub Main()
'定义登陆窗口
Dim fLogin As New frmLogin
'显示登录窗体,并设置为模式窗体
fLogin.Show vbModal '可以用1代替vbModal
'如果登陆不成功,退出程序
If Not fLogin.OK Then
End
End If
'卸载登陆窗口
Unload fLogin
'定义主窗口
Set fMainForm = New frmMain
'显示主窗口
fMainForm.Show
End Sub
代码中“如果登陆不成功,退出程序”
If Not fLogin.OK Then
End
End If
这部分我一直不理解为何这么写,代码对用户名或密码错误已经做了处理,怎么还多此一举处理登陆不成功呢?当我把这段代码去掉似乎也没什么影响,后来把登陆窗体的代码看了一遍,突然下面的一段代码引起了我的注意
'如果登陆次数超过限定次数,关闭程序
If MaxLogTimes = 3 Then
MsgBox "登陆次数超过允许范围,程序将关闭!", vbOKOnly + vbExclamation, "警告"
Unload Me
End If
是不是超过允许登陆次数就算登陆不成功呢?我赶紧去试验,果然,当密码错误三次之后奇迹发生了,程序并没有终止,而是直接进去了。哇,小小的一段代码作用原来如此之大。
每一段代码都有它存在的价值,不容忽视,需要我们用心去体会。