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

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

admin2017-10-24  44
问题 已知在“用户表”中包含4个字段：用户名(文本，主关键字)，密码(文本)，登录次数(数字)，最近登录时间(日期／时间)。在“登录界面”的窗体中有两个名为“tUser”和“tPassword”的文本框，一个登录按钮“Command0"。进入登录界面后，用户输入用户名和密码，点击登录按钮后，程序查找“用户表”。如果用户名和密码全部正确，则登录次数加1，显示上次的登录时间，并记录本次登录的当前日期和时间；否则，显示出错提示信息。
    为完成上述功能，请在程序[]处填入适当语句。
    PrivateSub 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 en=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("最近登录时间")
    IfNot rs．EOF Then
    fdl=fdl+1
    MsgBox"用户已经登录："＆fdl＆"次"＆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
解析 记录本次登录的当前日期和时间使用Now函数，所以选项A正确。
转载请注明原文地址:https://kaotiyun.com/show/ALMp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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