2. 计算机
  3. 在"用户表"中有4个字段：用户名（文本型，主关键字），密码（文本型），登录次数（数字型），最近登录时间（日期/时间型）。在"登录界面"的窗体中有两个名为tUser和tPassword的文本框，一个登录按钮　Command0。进入登录界面后，用户输入用户名和

在"用户表"中有4个字段：用户名（文本型，主关键字），密码（文本型），登录次数（数字型），最近登录时间（日期/时间型）。在"登录界面"的窗体中有两个名为tUser和tPassword的文本框，一个登录按钮　Command0。进入登录界面后，用户输入用户名和

admin2015-07-10  26
问题 在"用户表"中有4个字段：用户名（文本型，主关键字），密码（文本型），登录次数（数字型），最近登录时间（日期/时间型）。在"登录界面"的窗体中有两个名为tUser和tPassword的文本框，一个登录按钮　Command0。进入登录界面后，用户输入用户名和密码，点击登录按钮后，程序查找"用户表"。如果输入的用户名和密码全部正确，则登录次数加 1，显示上次的登录时间，并记录本次登录的当前日期和时间；否则，显示出错提示信息。为完成上述功能，请在程序中【  】处填入适当语句。
Private Sub Command0_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim fd1 As ADODB.Field
    Dim fd2 As ADODB.Field
    Dim strSQL As String
    Set cn = CurrentProject.Connection
    strSQL = "Select 登录次数, 最近登录时间 From 用户表 Where 用户名=’" & Me!tUser &
"’ And 密码=’" & Me!tPassword & "’"
    rs.Open strSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
    Set fd1 = rs.Fields("登录次数")
    Set fd2 = rs.Fields("最近登录时间")
    If 【    】Then
        fd1 = fd1 + 1
        MsgBox "用户已经登录：" & fd1 & "次" & Chr(13) & Chr(13) & "上次登录时间：" & fd2
        fd2 = Now()
        rs.Update
    Else
        MsgBox "用户名或密码错误。"
    End If
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub
选项 A、Not rs.EOF
B、rs.EOF
C、Not EOF
D、EOF
答案A
解析 EOF函数的作用是判断是否到达记录的结尾，在到达结尾前，该函数的返回值都是False，所以本空rs.EOF前需要加Not 。If Not rs.EOF Then表明记录指针还没有到达最后便已找到符合要求的记录。因此选项A正确。
转载请注明原文地址:https://kaotiyun.com/show/EQgp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)