用vb做管理信息系统的登陆界面时为何循环3次却不能跳出
最近在学习使用vb做一个管理信息系统。在做登陆界面时,想要做个循环,若连续3次密码或用户名输入错误,便强迫跳出系统。可是我做了好几次却怎么也跳不出去,请各位帮忙看看,我的程序到底是哪里出错了。如果我想要在程序中加入判断用户的使用权限,我又要加点什么进去呢?麻烦了!谢谢大家!
登陆界面的程序如下:
'登陆的用户名
Public UserName As String
'登陆的用户密码
Private UserPwd As String
Private Sub btnClear_Click()
'关闭登陆对话框
Me.Visible = False
'关闭整个程序
End
End Sub
Private Sub btnSubmit_Click()
Dim texttime As Integer
texttime = 0
'判断用户输入密码的合法性
If StrComp(Trim(UserPwd), Trim(txbPwd.Text)) = 0 And UserPwd <> "" Then
'合法用户
bResult = True
UserName = Me.txbName.Text
Unload Me
Else
'密码错误
bResult = False
MsgBox "请确认你的用户名或密码是否正确"
texttime = texttime + 1
If texttime = 3 Then
Dim rpt As Integer
rpt = MsgBox("连续3次输入错误!", vbOK, "退出")
If rpt = vbOK Then
bResult = False
Unload Me
End
End If
End If
End If
End Sub
参考答案:Dim texttime As Integer
texttime = 0
这个应该放在窗体的公共部份,不然你每按一次按钮都从0开始,永远也不会出那个提示框了。
把if rpt=vbOK then 和下面的end if去掉,不管在提示框里面按什么,都会退出。