如何使用多值字段的用户分组来控制用户菜单显示
此主题相关图片如下:如何使用多值字段的用户分组来控制用户菜单显示.png
以下代码可以实现内置用户权限管理的单个用户分组来控制用户菜单显示,
如何修成成自定义用户权限管理的多值字段的用户分组来控制用户菜单显示。
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
附件程序的用户名为:admin 密码:admin
[此贴子已经被作者于2013-3-23 10:01:51编辑过]