
此主题相关图片如下:qq图片20170819154657.png

登录成功跳转主窗口 登录窗口的边框还在有 不知道怎么解决了
代码
Dim UserName As String = e.Form.Controls("TextBox1").Value
Dim dr As DataRow
If UserName = "" Then
MessageBox.Show("请输入用户账号!!!!","错误提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Error)
End If
dr = _UserTable.SQLFind("用户账号 = '" & UserName & "'")
If dr Is Nothing Then
Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
If e.Form.Controls("TextBox2").Value = dr("用户密码") Then
_UserName = UserName
_UserGroup = dr("用户组别")
_UserXm = dr("用户姓名")
' MessageBox.Show("用户登录成功!!!!!!!!!!!","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
e.Form.Close()
Forms("主窗口").open
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
[此贴子已经被作者于2017/8/19 16:19:08编辑过]