帮忙看看这段vb代码，关于用户登录

显示全部楼层 · 2010-6-4 18:29:30

这个是用户登录的一段代码，跟数据库的链接是在ado控件的属性里设置的，数据库中已经有相应的表，可是为什么不管输入什么，都提示“无此用户，请重新登录”
Private Sub Command1_Click()
Dim IsUser As Boolean
'用户是否存在
Dim Pwd As String
Dim uname As String
Static count As Integer
'记录输入口令次数
Pwd = Trim(Text2.Text)
uname = Trim(Text1.Text)
IsUser = False
'比较用户名称和口令的正确与否

Do While Not Adodc1.Recordset.EOF

If uname = Adodc1.Recordset.Fields("用户名") Then

'当用户名和当前记录名称相同时的处理

If Pwd = Adodc1.Recordset.Fields("密码") Then

'如果口令输入正确，卸载窗体

Unload Me

Exit Sub

Else

If count < 2 Then
'如果口令输入错误，给出提示信息

MsgBox "口令错误，请重新输入"

Text2.Text = ""

Text2.SetFocus

End If

IsUser = True
'标志为合法用户

Exit Do

End If

End If

Adodc1.Recordset.MoveNext
'移动到下一条记录

Loop

count = count + 1
'输入口令次数加1

If count = 3 Then
'输入3次口令，且口令错误，退出程序

MsgBox "非法用户，不能使用本系统"

End

End If

If Not IsUser Then
'如果没有此用户，显示提示信息

MsgBox "无此用户，请重新登录"

Text1.Text = ""

Text1.SetFocus

End If

Adodc1.Recordset.MoveFirst
End Sub
确认有啊，所以才问这个问题的

千问 · 2010-6-4 18:29:30

你的代码写的乱啊，确认你的数据库有你输入的用户名吗?