帮我看看吧!!!
Private Sub cmdOK_Click()
If Trim(cboUsername.Text) <> "" Then
UserRst.MoveFirst
'在myRecordset中找出与用户名组合框中显示的用户名相符的一条记录信息
UserRst.Find "用户名='" & cboUsername.Text & "'"
'判断是否存在该用户名
If UserRst.EOF = False Then
'判断此条记录中的"密码"字段信息与密码框中的写入信息是否相同,并且屏蔽了大小写以及有无空格的区别
If UCase(Trim(UserRst.Fields("密码").Value)) <> UCase(Trim(txtPassword.Text)) Then
MsgBox "密码或用户名有误,请重新输入!", vbExclamation, "提示"
txtPassword = ""
txtPassword.SetFocus
Else
Username = cboUsername.Text
Me.Hide
frmMain.Show
End If
Else
MsgBox "该用户名不存在,请重新输入!", vbExclamation, "警告"
cboUsername.SetFocus
End If
Else
MsgBox "用户名不可为空值,请重新输入!", vbExclamation, "提示"
cboUsername.SetFocus
End If
End Sub
为什么“If UserRst.EOF = False Then”这个语句可以判断出UserRst记录集中是否存在cboUsername.Text 中显示的用户名呢?还有到底find的用法是怎么样的呢?请不吝赐教!!谢谢!!