以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]自定义登录权限  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83790)

--  作者：husl --  发布时间：2016/4/17 5:49:00 --  [求助]自定义登录权限 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编辑过]

--  作者：Hyphen --  发布时间：2016/4/17 13:52:00 --   主菜单 LOAD 事件确实是 在AfterOpenProject之前，把全局的权限控制都放在AfterOpenProject就可以

--  作者：husl --  发布时间：2016/4/17 20:05:00 --   多谢~~~~~~~这样代码集中在一处方便管理~~谢谢了！