用户登录有问题，麻烦帮忙看一下哪里有问题，谢谢？

warge 2010-03-09 09:56:45

我的用户登录无论输入哪个用户名，程序只认第一条用户的密码，帮忙看看我代码错在哪里,麻烦了
登陆界面代码
Public OK As Boolean

Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub

Private Sub cmdOK_Click()
Static try_times As Byte
Dim strusername As String
Dim strpassword As String
strusername = txtUserName.Text
strpassword = txtPassword.Text
If strusername = "" Then
MsgBox "请输入用户名", vbOKOnly + vbCritical, "警告"
txtUserName.SetFocus
Exit Sub
End If
If strpassword = "" Then
MsgBox "请输入密码", vbOKOnly + vbCritical, "警告"
txtPassword.SetFocus
Exit Sub
End If
strusername = makestr(strusername)
strpassword = makestr(strpassword)
If myuser.existuser(strusername) = False Then
MsgBox "用户名不存在", vbOKOnly + vbCritical, "警告"
txtUserName = ""
txtUserName.SetFocus
try_times = try_times + 1
If try_times >= 3 Then
MsgBox "对不起，您已经尝试三次进入系统，均不成功，系统将关闭!", vbOKOnly + vbCritical, "警告"
disconnect
OK = False
Me.Hide
Exit Sub
Else
Exit Sub
End If
End If
myuser.getinfo (strusername)
If myuser.strpwd <> strpassword Then
MsgBox "密码错误", vbOKOnly + vbCritical, "警告"
txtPassword.Text = ""
txtPassword.SetFocus
try_times = try_times + 1
If try_times = try_times >= 3 Then
MsgBox "对不起，您已经尝试三次进入系统，均不成功，系统将关闭!", vbOKOnly + vbCritical, "警告"
disconnect
OK = False
Me.Hide
Exit Sub
Else
Exit Sub
End If
End If
curuser.iuserclass = myuser.iuserclass
curuser.strname = myuser.strname
curuser.strpwd = myuser.strpwd
OK = True
Me.Hide
End Sub

...全文

143 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

帝企鹅已被占用 2010-03-09

打赏
举报

strSQL = "select * from [用户登录] where name ='" & Trim(username) = "'"

warge 2010-03-09

打赏
举报

引用 4 楼 flesu 的回复:

VB codestrSQL="select*from [用户登录] where name+'"+Trim(username)="'"'加这个试试msgbox strSQLSet rs= queryext(strSQL)

没用啊，不过谢谢你

flesu 2010-03-09

打赏
举报

strSQL = "select*from [用户登录] where name+'" + Trim(username) = "'" 

'加这个试试

msgbox strSQL

Set rs = queryext(strSQL)

guoshaoning 2010-03-09

打赏
举报

估计肯定不行。。。。。。。

帝企鹅已被占用 2010-03-09

打赏
举报

没看出来。
不过这句话能行么？
strSQL = "select*from [用户登录] where name+'" + Trim(username) = "'"

warge 2010-03-09

打赏
举报

类模块clsuser的代码
Public strname As String
Public strpwd As String
Public iuserclass As Integer
Public Sub init() '初始化数据
strname = ""
strpwd = ""
iuserclass = 0
End Sub

Public Function getinfo(ByVal username As String) As Boolean '定义记录集对象变量
Dim rs As New ADODB.Recordset
strname = username
strSQL = "select*from [用户登录] where name+'" + Trim(username) = "'"
Set rs = queryext(strSQL)
If rs.EOF Then
init
getinfo = False
Exit Function
Else
strpwd = Trim(rs.Fields(1))
iuserclass = rs.Fields(2)
getinfo = True
End If
End Function
Public Function existuser(ByVal username As String) As Boolean '是否存在用户
Dim rs As New ADODB.Recordset
strSQL = "select*from [用户登录] where name+'" + Trim(username) = "'"
Set rs = queryext(strSQL)
If Not rs.EOF Then
existuser = True
Else
existuser = False
End If
End Function
Public Sub AddUser()
strSQL = "insert into [用户登录] values('" + Trim(strname) + "','" _
+ Trim(strpwd) + "'," + Trim(str(iuserclass)) + ")"
sqlext (strSQL)
End Sub
Public Sub UpDateUser(ByVal username As String)
strSQL = "update [用户登录] set name='" + Trim(strname) + "',pwd='" + Trim(strpwd) _
+ "',userclass=" + Trim(str(iuserclass)) + "where name='" + Trim(username) + "'"
sqlext (strSQL)
End Sub
Public Sub UpDatePassword(ByVal username As String)
strSQL = "update [用户登录] set pwd='" + Trim(strpwd) + _
"'where name='" + Trim(username) + "'"
sqlext (strSQL)
End Sub