Private Sub EBYes_Click()
'============================================================
'判断用户输入的名称和口令是否合法
'首先判断输入的用户名是否存在,如果不存在,给出提示
'如果用户名存在,判断输入口令是否正确,如果错误,给出提示
'如果用户名和口令输入正确,卸载本窗体
'否则,判断是否用完3次机会,并给出相应提示。
'============================================================
Dim Isuser As Boolean
Dim pwd As String
Dim Uname As String
Static sign As Integer '3次机会记录
Uname = Trim(TUname.Text)
pwd = Trim(TPWD.Text)
Isuser = False
'判断用户名和密码是否正确
Do While Not Data1.Recordset.EOF
If Uname = Data1.Recordset.Fields(0) Then '若当前用户名存在
If pwd = Data1.Recordset.Fields("密码") Then
Unload Me
MDIFrm.Show
Exit Sub '若用户名和密码都正确,直接卸载登陆窗体
Else
If Count < 2 Then '如果口令输入错误,给出提示信息
MsgBox "密码错误,请重新输入"
TPWD.Text = ""
TPWD.SetFocus
End If
Isuser = True '标示为合法用户
Exit Do
End If
Data1.Recordset.MoveNext ' 移动到下一条记录
Loop
Count = Count + 1
If Count = 3 Then
MsgBox "由于多次错误,请联系管理员"
End If
If Not Isuser Then
MsgBox "该用户不存在,请确认用户名是否正确"
TUname.Text = ""
TUname.SetFocus
End If
Data1.Recordset.MoveFirst
End Sub
为什么编译时提示 编译错误,loop缺少do?
谢谢哦~