如何可视化授权的实现用户分组是否显示指定的菜单？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如何可视化授权的实现用户分组是否显示指定的菜单？

用户权限控制代码：

------------------------------------------------------------------------------------------------------------------------------

If e.DataTable .Name <> "权限管理" Then

If _userGroup <> Nothing Then

Dim roles () As String = _userGroup .Split( ",")

Dim fdr As DataRow

For Each role As String In roles

fdr = DataTables ("权限管理").Find ("表名称 = '" & e. DataTable.Name & "' And (列名称 is null or 列名称 = '" & e.DataCol .Name & "' or 列名称 like '" & e.DataCol .Name & ",*' or 列名称 like '*," & e.DataCol .Name & ",*' or 列名称 like '*," & e.DataCol .Name & "') And (编辑行 = '" & role & "' or 编辑行 like '" & role & ",*' or 编辑行 like '*," & role & ",*' Or 编辑行 like '*," & role & "')")

If fdr IsNot Nothing Then

Exit For

End If

If fdr Is Nothing Then

e.Cancel = True '没有对应的权限

Messagebox.Show("你没有修改的权限" ,"提示", MessageBoxButtons.OK,MessageBoxIcon .Information)

End If

----------------------------------------------------------------------------------------------------------------------------------------------------------

菜单隐藏和显示控制代码：

----------------------------------------------------------------------------------------------------------------------------------------------------------

If User.Name = "录入员" Then
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Visible = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Visible = False
Else
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Visible = True
    RibbonTabs("Other").Groups("Execute").Items("Command").Visible = True
End If

-------------------------------------------------------------------------------------------------------------------

老大们帮忙看看能不能结合【用户权限控制代码】和【菜单隐藏和显示控制代码】，以及根据以下【菜单名称】数据表，修改一段代码可以可视化授权的实现用户分组是否显示指定的菜单。

此主题相关图片如下：用户分组显示菜单.png

权限与菜单管理.foxdb

用户名:admin

密码:admin

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

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/3/20 14:45:00 [只看该作者] 用户已被锁定

muhua	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/5/13 8:09:00 [只看该作者] 用户已被锁定

主题：如何可视化授权的实现用户分组是否显示指定的菜单？