代码如下: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(ID)from Person where ID='" & Me.username.Text
str = str & "'and Password='" & Me.password.Text & ""
Set rs = getrs(str)
num = rs(0)
If IsNull(Me.username) Then
MsgBox ("请输入用户名称!")
ElseIf IsNull(Me.password) Then
MsgBox ("请输入用户密码!")
ElseIf num <> 1 Then
MsgBox ("用户名或密码不正确,请重新输入!")
Else
Me.Visible = fales
loginflag = True
MDIForm1.Show
End If
exit_cmdlogin_click:
Exit Sub
err_cmdlogin_click:
MsgBox (Err.Description)
Resume exit_cmdlogin_click
End Sub
On Error GoTo err_cmdlogin_click
Dim rs As New ADODB.Recordset
Dim str As String
Dim num As Integer
str = "select count(ID)from Person where ID='" & Me.username.Text
str = str & "'and Password='" & Me.password.Text & ""
Set rs = getrs(str)
num = rs(0)
If IsNull(Me.username) Then
MsgBox ("请输入用户名称!")
ElseIf IsNull(Me.password) Then
MsgBox ("请输入用户密码!")
ElseIf num <> 1 Then
MsgBox ("用户名或密码不正确,请重新输入!")
Else
Me.Visible = fales
loginflag = True
MDIForm1.Show
End If
exit_cmdlogin_click:
Exit Sub
err_cmdlogin_click:
MsgBox (Err.Description)
Resume exit_cmdlogin_click
End Sub
首先要有command控件
重建后,拷代码
问题以解决!!
原因是:label1控件的没有命名为usermane
label2控件没有命名为password