VB的编程问题

来源：百度知道 编辑：UC知道 时间：2024/05/12 19:42:50
Public OK As Boolean
Dim miCount As Integer
Private Sub Form_load()
OK = False
miCount = 0
End Sub

Private Sub Command1_Click()
'To Do-创建测试密码是否正确
'检查正确密码
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
'判断输入用户名是否为空
If Trim(Text1.Text = "") Then
'判断用户名输入是否为空
MsgBox "没有这个用户，请重新输入用户名", vbOKOnly + vbExclamation, "警告"
Text2.SetFocus
txtSQL = "select * from cnc_manager where ID='" & Text1.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'记录是否为空
If mrc.EOF = True Then
MsgBox "没有这个用户，请再重新输入！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else '登录成功

'判断用户密码是否正确
If Trim(mrc.Fields(1)) = Trim(Text2.Text) Then
OK = Ture
mrc.Close
Me.Hide
Else
MsgBox "密码错误，再试一次！", vbOKOnly + vbExclamation, "警告"

txtSQL = "select * from cnc_manager where ID='" & Text1.Text & "'"

1.Text1.Text 替换成 Trim(text1.text) 试试。
2.如果ID是数字类型，去掉ID＝后面的两个“'”

你连链接都没有，当然不对了
Public OK As Boolean

Private Sub Form_Load()
OK = False
miCount = 0
End Sub

Private Sub BtnOK_Click()
Set rs = Conn.Execute("select ID,Username,Userpass,Truename,Power from Userinfo where Username='" & Trim(Txtuser) & "' and state=1")
If rs.EOF Then
MSG ("没有此用户！")
Txtuser.SetFocus
Txtuser.SelStart = 0
Txtuser.SelLength = Len(Txtuser)
Else
If TxtPass = rs("Userpass") Then
Conn.Execute "update Userinfo set LoginNums=LoginNums + 1 where ID=" & rs(0)
OK = True
UserID = rs("ID")
UserPower = rs("Power")