请帮我检查一下代码,谢谢!
我用VB做了一个登录界面,但是一运行总说“对象变量或WITH变量未设置”,我并没有用到这个变量。请帮我检查以下代码有错吗?另外我想当管理员登录时所有内容都可以修改,普通用户进入时只可以操作某几个菜单,请问怎么实现?代码放在主窗体还是登录窗体?
Dim a As Integer '记录输入密码的次数
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_click()
UserName = ""
Dim txtsql, msgtext As String
Dim cnn As ADODB.Connection
Dim RS As ADODB.Recordset
Set cnn = New ADODB.Connection
mysql = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= c:\图书管理系统\libary.mdb"
cnn.Open mysql
txtsql = "select * from yh "
Set RS = ExecuteSQL(txtsql, msgtext)
If RS.EOF = False Then
MsgBox "没有这个用户,请从新输入!", vbExclamation
txtusername.SetFocus
Else
If Trim(RS.Fields(1)) = Trim(txtpassword.Text) Then
RS.Close
Me.Hide
UserName = Trim(txtusername.Text)
txtusername.AddItem RS.Fields(1)
End If
End If
a = a + 1
If a = 3 Then
Unload Me
End If
End Sub