P66. 用户表中包含价字段:用户名(文本,主关键字),密码(文本),登录次数〔数字),最近登录时间(日期/时间)。在登录界面的窗体中有两个名为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