- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何可视化授权的实现用户分组是否显示指定的菜单？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30075)
-- 发布时间：2013/3/20 14:28:00
-- 如何可视化授权的实现用户分组是否显示指定的菜单？
如何可视化授权的实现用户分组是否显示指定的菜单？
用户权限控制代码：
------------------------------------------------------------------------------------------------------------------------------
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
Next
If fdr Is Nothing Then
e.Cancel = True \'没有对应的权限
Messagebox.Show("你没有修改的权限" ,"提示", MessageBoxButtons.OK,MessageBoxIcon .Information)
End If
End If
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
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 |
-- 发布时间：2013/3/20 15:43:00
--
万分感谢【muhua】两位老大帮忙写代码
-- 发布时间：2013/5/11 12:02:00
--
小白闻味道，这个代码放在哪个参数下？放在登陆窗口的 确定 那里不行哦
-- 发布时间：2013/5/11 12:06:00
--
LoadUserSetting
-- 发布时间：2013/5/11 17:56:00
--
我后面也没有搞定的呀！FB在用户权限，菜单显示控制上，是个老大难问题！
[此贴子已经被作者于2013-5-11 17:56:08编辑过]
-- 发布时间：2013/5/13 22:12:00
--
出来的结果不是我们需求的结果！总会出错，去掉又好了。
-- 发布时间：2013/5/14 8:38:00
--
1、User.Name应该改为_UserName
2、代码应该写在登陆窗口的登录按钮中：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目68.foxdb |
-- 发布时间：2013/5/14 23:50:00
--
谢谢 狐爸 帮我发现问题！