- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]权限与菜单管理，权限已经设置用户分组显示菜单，但是不会显示出来菜单 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30124)
-- 发布时间：2013/3/21 13:24:00
-- [求助]权限与菜单管理，权限已经设置用户分组显示菜单，但是不会显示出来菜单
[求助]权限与菜单管理，权限已经设置用户分组显示菜单，但是不会显示出来菜单
此主题相关图片如下：21.png
-- 发布时间：2013/3/21 14:29:00
--
用MesageBox.show跟踪一下相关代码是否执行了，如果没有执行，看看是否代码逻辑有误，一直不符合执行的条件：
http://www.foxtable.com/help/topics/1485.htm
-- 发布时间：2013/3/21 14:36:00
--
这个菜单 适合开发以表为主界面的程序 非常给力 非常好用
但是以窗口模块为主界面的程序 这个菜单就显得很繁琐了。
狐爸应该考虑一下。
-- 发布时间：2013/3/21 14:58:00
--
使用以下链接地址代码后
: http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=30075&skin=0 即时这个要显示菜单的用户分组，但也不会显示的 ，而且设置不显示用户分组的，也会把菜单 Groups 都全部显示出来了。 |
-- 发布时间：2013/3/21 22:59:00
--
此主题相关图片如下：201110212339295099.png
只要按照你的需要勾选就可以了，是不是非常方便，修改也很方便，不用每次改代码了。
程序代码一个放在表的PrepareEdit
一个放在AfterOpenProject中，如果大家用自定义用户登录的话，这个事件放在你的用户登录
窗体的确定按钮的click事件中
For Each rt As RibbonMenu.Tab In RibbonTabs
rt.Visible = True
rt.Enabled = True
For Each rg As RibbonMenu.Group In rt.Groups
rg.Visible = True
rg.Enabled = True
For Each itm As RibbonMenu.RibbonItem In rg.Items
itm.Visible = True
itm.Enabled = True
Next
Next
Next
For Each dr As DataRow In DataTables("菜单权限表").Select("分组 = \'" & User.Group & "\'" )
If dr.IsNull("分组名") Then
RibbonTabs(dr("菜单名")).Visible = Not dr("不可见")
RibbonTabs(dr("菜单名")).Enabled = Not dr("不可用")
ElseIf dr.IsNull("按钮名") Then
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Visible = Not dr("不可见")
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Enabled = Not dr("不可用")
Else
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Visible = Not dr("不可见")
RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Enabled = Not dr("不可用")
End If
Next
大家可以用A经理 和 B员工登录看看 密码888
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.rar |
-- 发布时间：2013/3/22 8:40:00
--
呵呵，给你个精华。
-- 发布时间：2013/5/11 11:45:00
--
好！不知道对自定义菜单是否同样可用呢？测试一下