Dim mrc As ADODB.Recordset
txtsql = "select * from oper where 用户名='" & Trim$(Text(0).Text) & "'" & "And 号令='" & Trim$(Text1(1).Text) + "'"
Set mrc = exesql(txtsql)——————这里报子程序或者函数未定义
If mrc.RecordCount = 0 Then
n = n + 1
If n < 3 Then
MsgBox "没有这个用户,继续簦录", vbOKOnly + vbExclamation, "信息提示"
Text1(0).Text = ""
Text1(1).Text = ""
Text1(0).SetFocus
Else
MsgBox "已经簦录三次,退出系统", vbOKOnly + vbExclamation, "信息提示"
mrc.Close
Unload Me
End If
Else
userlevel = Trim(mrc.Fields("级别"))
mrc.Close
Unload Me
menu.Show
End If
|