VB制作的登录界面

来源：百度知道 编辑：UC知道 时间：2024/07/14 22:17:30
这个我有点看不懂，高手帮帮忙，请一一作解

If lrRec.eof = true Then
'这个时候 用户名根本不存在
MsgBox "对不起，用户名不存在！", vbOKOnly + vbQuestion, "警告"
Combo1.SetFocus
Combo1.Text = ""
Text1.Text = ""
exit sub
end if

If lrRec.Fields("password") = Text1.Text Then
Unload Me
frm_main.Show
Else
MsgBox "对不起，密码错误！", vbOKOnly + vbQuestion, "警告"
Combo1.SetFocus
Combo1.Text = ""
Text1.Text = ""
End If
补充一下，判断用户名是否存在是哪条

'上面还有是打开数据库
If lrRec.eof = true Then '如果查询的记录集为空
'这个时候 用户名根本不存在
MsgBox "对不起，用户名不存在！", vbOKOnly + vbQuestion, "警告" '弹出警告
Combo1.SetFocus 'combo1得到焦点
Combo1.Text = "" '清空combo1的值
Text1.Text = "" '清空text1的值
exit sub '退出本循环
end if '结束IF

If lrRec.Fields("password") = Text1.Text Then '如果查询的密码等于text1的值,那么..
Unload Me '卸载当前form
frm_main.Show 'frm_main显示
Else '否则
MsgBox "对不起，密码错误！", vbOKOnly + vbQuestion, "警告" '弹出警告
Combo1.SetFocus
Combo1.Text = ""
Text1.Text = ""
End If

If lrRec.eof = true Then '如果为真!
'这个时候 用户名根本不存在
MsgBox "对不起，用户名不存在！", vbOKOnly + vbQuestion, "警告" '输出
Combo1.SetFocus
Combo1.Text = "" 文本框内输进字
Text1.Text = "