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

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

admin2021-09-06  25
问题 已知在"用户表"中包含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.EOFThen
        fd1 = fd1 + 1
        MsgBox "用户已经登录：" & fd1 & "次" & Chr(13) & Chr(13) & "上次登录时间：" & fd2
        fd2 = 【    】
        rs.Update
    Else
        MsgBox "用户名或密码错误。"
    End If
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub
选项 A、Now()
B、Date()
C、Time()
D、Day()
答案A
解析 根据题意，每次登录要检查用户名和密码，检查正确后登录成功，登录次数（fd1）加1，最近登录时间（fd2）更新为本次登录的日期和时间。在程序空白处，fd1已经完成更新，且空白处之后立即更新了结果集rs，则所填代码句的功能应该是为fd2赋予当前时间值，可用Now（）函数获得系统日期和时间。Date（）函数只能获得日期，不包含具体时间，Time（）函数只能获得具体时间，不包括日期，Day（）函数只能获得某一日期中的天数，都不符合题意，因此选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/tkvp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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