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

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

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

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

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









   

你可能感兴趣的:(数据库,vb)