主题：如何根据可视化授权，显示不同的菜单？

我做了一个目录树形式的授权，那如何实现：根据目录树授权 授权给不同的用户 授权给用户什么权限 然后该用户登录时 就显示已授权的任务栏菜单 没授权的就不显示。请狐狸爸爸帮我看一下。详情请见附件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:赵龙信息管理系统(开发).rar

狐狸爸爸 在吗？这个问题困扰了我好几天了，能帮我看一下吗？

狐狸爸爸 在吗？

任务栏的页面和任务，都有visible属性：
 
http://www.foxtable.com/help/topics/0851.htm

http://www.foxtable.com/help/topics/0858.htm

 

在窗口的AfterLoad事件中设置代码，根据登录用户，隐藏他没有权利使用的页面和任务即可。
 
 

能给出一段代码吗？

 

狐狸爸爸 能给出 一段代码吗？

 

狐狸爸爸 能给出 一段代码吗？

我买了开发版 发给别人看 别人都打不开 所以只有狐狸爸爸 你帮我看一下了

我在窗口的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

没有任何效果啊。狐狸爸爸 帮我看一下嘛

我在窗口的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 没有任何效果啊。狐狸爸爸 帮我看一下嘛

例如：

 

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.