标题: 这个登陆语法有什么问题？？求高人给指点。 [打印本页] 作者: 125394305 时间: 2010-6-28 15:22 标题: 这个登陆语法有什么问题？？求高人给指点。 Private Sub cmdLogin_Click()
On Error GoTo ERR_CmdLOGIN_CLICK
Dim rs As New ADODB.Recordset
Dim str As String
Dim num As Integer
str = "select COUNT(Person.ID) from Person where Person.ID='" & Me.userName
str = str & "'and Person.PassWord='" & Me.PASSWORD & "'"
Set rs = getrs(str)
num = rs(0)
If IsNull(Me.userName) Then
MsgBox ("请输入用户姓名！")
ElseIf IsNull(Me.PASSWORD) Then
MsgBox ("请输入用户密码！")
ElseIf num <> 1 Then
MsgBox ("没有这个用户,或者密码错误!")
Me.userName = ""
Me.PASSWORD = ""
Me.userName.SetFocus
Exit Sub
Else
Me.Visible = False
DoCmd.OpenForm "人事管理系统主窗体"
End If
EXIT_CMDLOGIN_CLICK:
Exit Sub
ERR_CmdLOGIN_CLICK:
MsgBox (Err.Description)
Resume EXIT_CMDLOGIN_CLICK
End Sub
Private Sub FORM_LOAD()
Me.USENAME.SetFocus
Me.userName = ""
Me.PASSWORD = ""
End Sub作者: 125394305 时间: 2010-6-28 15:26
报错：子过程函数未定义（本人是新手，照书操作，但是怎么也过去了）本人建了个PERSON的表，里面有字段NAME和PASSWORD字段。希望各位大侠帮我解答下谢谢。作者: 125394305 时间: 2010-6-28 16:47
百度了很长时间有高人说将 Set rs = getrs(str) 改成以下这段话，改后果然好用（原因不明请大侠指点）
rs.Open str, CurrentProject.Connection