返回信息流登陆代码如下;
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim User As New DBuser(Trim(comboUserName.Text),Trim(PasswordTextBox.Text))
If User.LoginConfirm Then
mdiMain.Privilege = User.Privilege.Trim()
mdiMain.UserName = comboUserName.Text
mdiMain.Show()
Finalize()
Else
MsgBox("用户名或密码输入不正确，请重试", MsgBoxStyle.Exclamation, "用户登陆")
Exit Sub
End If
End Sub
Public Function LoginConfirm() As Boolean
Dim SQLString As String = "SELECT * FROM tbUser WHERE 姓名='" & _UserName & "' AND 密码='" _& Encrypt(_Password) & "'"
Dim ds As DBDataTable = New DBDataTable(ConnStr)
Dim UserTable As DataTable = ds.CreateDataTable(SQLString, "tbUser")
'判断用户名和密码是否正确
If UserTable.Rows.Count = 0 Then
Return False
Else
'返回用户的权限信息
_Privilege = UserTable.Rows(0)("权限")
Return True
End If
End Function
单步调试没有错误，就是输入正确的密码，却返回消息“用户名或密码输入不正确，请重试”
请各位看看，到底是怎么了呢？
这是一条镜像帖。来源：北邮人论坛 / dot-net / #2973同步于 2011/5/16
该镜像源已超过 30 天没有更新，可能在源站已被删除。
dotNET机器人发帖
【请教】vb.net编写的登录窗口，输入密码后返回“密码输入错误
zhanru
2011/5/16镜像同步1 回复
订阅后，新回复会通过你的通知中心匿名送达。
1 条回复