登录按钮：Dim yh As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim mm As WinForm.TextBox = e.Form.Controls("TextBox2")
If yh.text = "" Then
MessageBox.Show("请输入用户名!","提醒")
Return
End If
Dim dr As DataRow = DataTables("用户管理").Find("用户名 = '" & yh.text & "' and 密码 = '" & mm.text & "'")
If dr Is Nothing Then
MessageBox.Show("用户名或密码不对!","提醒")
Return
End If
Vars("_用户名") = dr("用户名")
Vars("_权限") = dr("权限")
For Each dt As DataTable In DataTables
dt.load
Next
e.Form.Close
Forms("Main").Open
DataTables("表B").LoadFilter = "用户名 = '" & _UserName & "'"
DataTables("表B").Load()
全局代码赋值：
Public _UserName As
String
'用户名
Public _UserGroup As
String
'用户分组
[此贴子已经被作者于2023/7/11 15:55:43编辑过]
加好友 
发短信
Post By：2023/7/11 14:37:00 [显示全部帖子]
