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

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

admin2018-12-05  30
问题 已知在“用户表”中包含4个字段：用户名(文本，主关键字)，密码(文本)，登录次数(数字)，最近登录时间(日期／时间)。在“登录界面”的窗体中有两个名为“tUser”和“tPassword”的文本框，一个登录按钮“CommandO”。进入登录界面后，用户输入用户名和密码，点击登录按钮后，程序查找“用户表”。如果用户名和密码全部正确，则登录次数加1，显示上次的登录时间，并记录本次登录的当前日期和时间；否则，显示出错提示信息。
为完成上述功能，请在程序【    】处填入适当语句。
Private Sub Command0_Click()
Dim cn As New ADODB．Connection
Dim r sAs 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("最近登录时间")
IfNot rs．EOF Then
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 on=Nothing
End Sub
选项 A、Now()
B、Date()
C、Time()
D、Day()
答案A
解析 记录本次登录的当前日期和时间使用Now函数，所以选项A正确。
转载请注明原文地址:https://kaotiyun.com/show/lgMp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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