哈,一直都是上班的呀
已婚男人!没事请勿打扰·老婆格言:①不准對她耍酷 ②不准讓她吃醋 ③吵架我要讓步 ④揍我我要挺住⊙⊙
我的是这样写的.已经测试过了
Private Sub cmdok_Click()
Dim txtsql As String
Dim rs1 As ADODB.Recordset
If Len(atxtUserName) = 0 Then '判断输入是否为空
MsgBox "请输入用户名!", vbOKOnly + vbExclamation
ElseIf Len(atxtPWD) = 0 Then
MsgBox "请输入密码!", vbOKOnly + vbExclamation
Else
txtsql = "select * from 用户 where 用户名 = '" & Trim(atxtUserName.Text) & "'" '检验输入用户名是否存在
Set rs1 = ExecuteSQL(txtsql)
If rs1.RecordCount = False Then
MsgBox "该用户名不存在,请重新输入!", vbOKOnly + vbExclamation
Exit Sub
End If
txtsql = "select * from 用户 where 密码 = '" & Trim(atxtPWD.Text) & "'" '检验输入的密码是否正确
Set rs1 = ExecuteSQL(txtsql)
If rs1.RecordCount = 0 Then
MsgBox "密码不正确,请重新输入!", vbOKOnly + vbExclamation
Exit Sub
Else
Unload Me
frmmain.Show
End If
End If
End Sub