Foxtable(狐表)用户栏目专家坐堂 → 请教:自定义用户管理,一直提示密码错误,无法登录


  共有6006人关注过本帖平板打印复制链接

主题:请教:自定义用户管理,一直提示密码错误,无法登录

帅哥哟,离线,有人找我吗?
kevin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
请教:自定义用户管理,一直提示密码错误,无法登录  发帖心情 Post By:2013/3/15 2:06:00 [只看该作者]

我使用SQL2005为数据库.数据源名称"sys",用户用名称:"Users"
增加用户,删除用户,更改用户均正常
以下代码是用户登录窗口的"确定"按钮中的代码.我是按照例子中照样做的,不知道会不会是SQL数据库有其它什么需要注意的没有.
Dim UserName As String = e.Form.Controls("UserName").Value
Dim
cmd As New SQLCommand
Dim
dt As DataTable
Dim
dr As DataRow
cmd
.ConnectionName = "sys" '数据源名称
If
UserName = "" Then
Messagebox.show("
请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return

End
If
cmd
.CommandText = "Select * From {Users} Where [Name] = '" & UserName & "'"
dt
= cmd.ExecuteReader
If
dt.DataRows.Count = 0 Then
Messagebox.show("
此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return

End
If
dr
= dt.DataRows(0)
If
e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = dr("Group")
e.Form.Close
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

以上代码,一直提示密码错误,请高手帮忙看一下代码.

 回到顶部