我使用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
以上代码,一直提示密码错误,请高手帮忙看一下代码.