题库 题库

【简答题】

试题五(共15 分)
  阅读以下应用说明以及用 Visual Basic 开发过程中所编写的程序代码,将应填入_(n)处的字句写在答题纸的对应栏内。
[应用说明]
  某应用的登录界面如下:
   
  登录界面中的文本框 txtUserID 和 txtPassword 分别用于接受用户输入的用户名和口令,命令按钮为确定(cmdOk)和取消(cmdCancel) 。ADO 数据控件 Adodc1 与数据库EmployeeData 连接。在 EmployeeData 中,表“Users”的字段“UserID”和“Pswd”分别记录了所有的合法用户名和口令。
  在登录界面中,输入正确的用户名和口令并单击“确定”按钮后,就会打开应用程序的主窗口 frmApp。用户名或密码输入错误时,给出提示信息并返回登录界面。
[Visual Basic 程序代码]
Private Sub cmdOK_Click()
 Adodc1.C_dj="Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\data\EmployeeData.mdb;Persist Security Info=False"
  Adodc1.RecordSource = "select *(1) "
  Adodc1.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) form Users
 (2) Adodc1.Recordset("UserID")
 (3) txtUserID.Text
 (4) txtPassword.Text = pwd
 (5) frmApp.Show

相关试题