P28.在”用户表”中有4个字段:用户名(文本型,主关键字),密码(文本型),登录次数(数字型),最近登录时间(日期时间型),在登录界面的窗体中有两个名为tUser和Password的文本框,一个登录按钮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 Sting Set cn=Currentproject.Connection strSQL = “’Select登录次数,最近登录时间From用户表Where用户名=’”&MeltUser&”’And密码=’”&MeltPassword&”’” Rs.Open strSQL,cn,adOpenDynamic,adL.ockOptimistic,adCmdText Set fd1=rs.Fields(“登录次数”) Set fd2=rs.Fields(“最近登录时间”) If【】Then Fd1=fd1+1 MsgBox”用户已经登录:”&fd1&”次”&Chr(13)&Chr(13)&”上次登录时间:”&fd2 Fd2=Now() Rs.Update Else MsgBox”用户名或密码错误。” End If Rs.Close Cn.Close Set rs=Nothing Set cn=Nothing End Sub