登陆窗体为什么用OK标记是否登陆成功

来源:互联网 发布:软件安全漏洞检测技术 编辑:程序博客网 时间:2024/06/06 16:30

       前几天敲《学生信息管理系统》,在模块中有如下代码:

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

       是不是超过允许登陆次数就算登陆不成功呢?我赶紧去试验,果然,当密码错误三次之后奇迹发生了,程序并没有终止,而是直接进去了。哇,小小的一段代码作用原来如此之大。

      每一段代码都有它存在的价值,不容忽视,需要我们用心去体会。

	
				
		
原创粉丝点击