【应用说明】
某应用的登录界面如下：
登录界面中的文本框txtUserID和txtPassword分别用于接受用户输入的用户名和口令，命令按钮为“确定(cmdOk)”和“取消(cmdCancel)”。ADO数据控件Adodc1与数据库EmployeeData连接。在EmployeeData中，表“Users”的字段“UserID”和“Pswd”分别记录了所有的合法用户名和口令。
在登录界面中，输入正确的用户名和口令并单击“确定”按钮后，就会打开应用程序的主窗口fxmApp。用户名或密码输入错误时，给出提示信息并返回登录界面。
【Visual Basic程序代码】
Private Sub cmdOK Click()
Adodcl.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\data\EmployeeData.mdb;Persist Security Info=False"
Adodcl.RecordSource = "select * (1) "
Adodcl.Refresh
Do
usrname = (2)
pwd = Adodc1.Recordset("Pswd")
Adodc1.Recordset.MoveNext
Loop Until (usrname = (3) ) Or (Adodc1.Recordset.EOF)
If usrname ＜＞ txtUserID.Text Then
MsgBox "无效的用户ID, 请重新输入!", , "提示信息"
Else
If (4) Then
MsgBox "欢迎进入系统主界面!", , "提示信息"
Unload me
(5)
Else
MsgBox "无效的用户密码, 请重新输入!", , "提示信息"
End If
End If
End Sub
