- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何根据可视化授权，显示不同的菜单？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15620)
-- 发布时间：2012/1/3 18:59:00
-- 如何根据可视化授权，显示不同的菜单？
我做了一个目录树形式的授权，那如何实现：根据目录树授权 授权给不同的用户 授权给用户什么权限 然后该用户登录时 就显示已授权的任务栏菜单 没授权的就不显示。请狐狸爸爸帮我看一下。详情请见附件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:赵龙信息管理系统(开发).rar |
-- 发布时间：2012/1/4 8:46:00
--
狐狸爸爸 在吗？这个问题困扰了我好几天了，能帮我看一下吗？
-- 发布时间：2012/1/4 9:03:00
--
狐狸爸爸 在吗？
-- 发布时间：2012/1/4 9:14:00
--
任务栏的页面和任务，都有visible属性：
http://www.foxtable.com/help/topics/0851.htm
http://www.foxtable.com/help/topics/0858.htm
在窗口的AfterLoad事件中设置代码，根据登录用户，隐藏他没有权利使用的页面和任务即可。
-- 发布时间：2012/1/4 9:17:00
--
能给出一段代码吗？
-- 发布时间：2012/1/4 9:22:00
--
狐狸爸爸 能给出 一段代码吗？
-- 发布时间：2012/1/4 9:29:00
--
-- 发布时间：2012/1/4 9:38:00
--
我在窗口的AfterLoad事件中加了下面的这段代码：
For Each tb As RibbonMenu.Tab In RibbonTabs
Dim dr As DataRow
dr = DataTables("授权").find("分组 =\'" & tb.Name & "\'")
If dr IsNot Nothing Then
tb.Visible =True
End If
Next
没有任何效果啊。狐狸爸爸 帮我看一下嘛
-- 发布时间：2012/1/4 9:40:00
--
-- 发布时间：2012/1/4 9:42:00
--
例如：
Dim tp As WinForm.TopicBar = e.Form.Controls("TopicBar1")
If user.name = "张三" Then
tp.Pages("页面1").Visible = False
tp.Pages("页面2").Links("任务1").Visible = False
End If
这样张三打开窗口，看不到页面1，以及页面2中的任务1.