Dim UserName As String = e.Form.Controls("UserName").Value
Dim dr As DataRow
If UserName = "" Then
Messagebox.show("请输入用户名!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
dr = _UserTable.SQLFind("[Name] = '" & UserName & "'")
If dr Is Nothing Then
Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
If e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = dr("Group")
If _UserGroup = "客户查询" Then
DataTables("库存表").AllowEdit = False
End If
If _UserGroup ="仓库管理" Then
DataTables("库存表").Load
End If
e.Form.Close
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
老师好，请问下 我按照上面代码执行，为什么 客户查询 账户登录之后 库存表不锁定？ 如果代码不能执行的话 怎么换了 仓库管理 账号之后 库存表 却可以加载呢？？
另外请问下关于 _UserGroup 变量的 问题 。。如果我在 菜单按钮的点击事件设置 了 If _UserGroup = "客户查询" Then 权限，功能是可以实现的，在主菜单的Load 设置 就不行了 。 是因为主菜单 LOAD 事件 在AfterOpenProject之前吗？
到底在哪里设置全局权限比较好呢？一个个菜单设置的话好像太麻烦了点。。
[此贴子已经被作者于2016/4/17 5:49:59编辑过]
加好友 
发短信
Post By：2016/4/17 5:49:00 [显示全部帖子]
