跟据帮助中"自定义用户与权限管理之二"做的实例.
第九步"用户登录"窗口.
点击确定以后,始终是提示密码错误.
MessageBox.Show("表中密码[" & dr("Password") & "]")
MessageBox.Show("输入的密码[" & e.Form.Controls("PassWord").Value & "]")
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
此主题相关图片如下:2021-01-14 2-17-57.jpg
此主题相关图片如下:2021-01-14 2-18-17.jpg
调试发现表中密码多出很多空格出来(约255个字符,后面全是空格).检查增加用户和更改用户的代码,也不知问题在哪.
[此贴子已经被作者于2021/1/14 2:29:13编辑过]