If e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = dr("Group")
e.Form.Close
If Forms("测试窗口").Opened Then
Else
Forms("测试窗口").Open
End If
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
此主题相关图片如下:用户登录窗口.jpg