UC知道Trim(rs_log.Fields(1)) = Trim(password.Text) 谁能给我一个完整的解释？
来源：百度知道 编辑：UC知道 时间：2024/06/06 13:36:01
Else
sql = "select * from 管理员表 where userID='" & username.Text & "'"
rs_log.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_log.EOF = True Then
MsgBox "用户或密码错误!!!", vbOKOnly + vbExclamation, ""
username.SetFocus
Else '检验密码是否正确 用户名和密码通过后，要关闭本窗体并打开主窗体。
If Trim(rs_log.Fields(1)) = Trim(password.Text) Then
userID = username.Text
userpow = rs_log.Fields(1)
rs_log.Close
Unload Me
main.Show
Else
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
password.SetFocus
End If
sql = "select * from 管理员表 where userID='" & username.Text & "'"
rs_log.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_log.EOF = True Then
MsgBox "用户或密码错误!!!", vbOKOnly + vbExclamation, ""
username.SetFocus
Else '检验密码是否正确 用户名和密码通过后，要关闭本窗体并打开主窗体。
If Trim(rs_log.Fields(1)) = Trim(password.Text) Then
userID = username.Text
userpow = rs_log.Fields(1)
rs_log.Close
Unload Me
main.Show
Else
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
password.SetFocus
End If
sql = "select * from 管理员表 where userID='" & username.Text & "'" '这个就不说了生成SQL语句。
rs_log.Open sql, conn, adOpenKeyset, adLockPessimistic
‘打开游标
If rs_log.EOF = True Then
MsgBox "用户或密码错误!!!", vbOKOnly + vbExclamation, "" ’如果游标为空，即没有找到userid为username.Text 的用户
username.SetFocus '把光标移到username
Else '检验密码是否正确 用户名和密码通过后，要关闭本窗体并打开主窗体。
If Trim(rs_log.Fields(1)) = Trim(password.Text) Then
userID = username.Text '赋值
userpow = rs_log.Fields(1) '赋值
rs_log.Close '关闭游标
Unload Me
main.Show
Else
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
password.SetFocus
End If