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

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

admin2020-11-25  36
问题 "用户表"中包含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 Not rs.EOF Then
        fd1 = fd1 + 1
        MsgBox "用户已经登录：" & fd1 & "次" & Chr(13) & Chr(13) & "上次登录时间：" & fd2
        fd2 = Now()
        【    】
    Else
        MsgBox "用户名或密码错误。"
    End If
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub
选项 A、rs.Update
B、Update
C、rs.Change
D、Change
答案A
解析 根据题意，每次登录都要检查用户名和密码，检查正确后才能登录成功，然后登录次数（fd1）加1，最近登录时间（fd2）更新为本次登录的日期和时间。在程序空白处，fd1和fd2都已经完成更新，则所填代码句的功能应该是将fd1和fd2更新后的数据更新到数据库中，即更新结果集rs的内容，更新结果集可用命令rs.Update，因此选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/ubSp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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