【应用说明】
某应用的登录界面如下：
登录界面中的文本框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
参考答案：
(1)from Users
(2)Adodc1.Recordset("UserID")
(3)txtUserID.Text
(4)txtPassword.Text=pwd
(5)frmApp.Show
解析：
本题考查VB开发数据库应用能力。 代码中的空(1)处是典型的SQL查询语句，应填入“from Users”。 一般情况下，用户登录某系统时，都要输入用户名和口令，与系统记录的用户名和口令进行比较，通过后才能登录系统。参照“pwd=Adodc1.Recordset("Pswd")”，空(2)处应填入“Adodc1.Recordset("UserlD")”，从数据库中取出用户名与用户在登录界面输入的用户名txtUserlD.Text进行比较，若相同，则再取出该用户的口令进行比对，因此空(3)处应填入“txtUserID.Text"。空(4)处用于比较口令，填入“txtPassword.Text= pwd"，空(5)处填入“frmApp.Show"。