[求助]狐爸，现在编写通过多值字段的用户分组来控制用户菜单显示太难了，希望能下次更新时，能增加这个功能 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如何使用多值字段的用户分组来控制用户菜单显示

此主题相关图片如下：如何使用多值字段的用户分组来控制用户菜单显示.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

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

附件程序的用户名为:admin 密码:admin

下载信息 [文件大小：下载次数： ]
点击浏览该文件:权限与菜单管理.table

[此贴子已经被作者于2013-3-23 10:01:51编辑过]

主题：[求助]狐爸，现在编写通过多值字段的用户分组来控制用户菜单显示太难了，希望能下次更新时，能增加这个功能