共27 条记录, 每页显示 10 条, 页签: [1] [2][3]

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

1楼

akzzwj 发表于：2012/1/3 18:59:00

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:赵龙信息管理系统(开发).rar

2楼

akzzwj 发表于：2012/1/4 8:46:00

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

3楼

akzzwj 发表于：2012/1/4 9:03:00

狐狸爸爸在吗？

4楼

狐狸爸爸 发表于：2012/1/4 9:14:00

任务栏的页面和任务，都有visible属性：

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

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

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

5楼

akzzwj 发表于：2012/1/4 9:17:00

能给出一段代码吗？

6楼

akzzwj 发表于：2012/1/4 9:22:00

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

7楼

akzzwj 发表于：2012/1/4 9:29:00

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

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

8楼

akzzwj 发表于：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

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

9楼

akzzwj 发表于：2012/1/4 9:40: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

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

10楼

狐狸爸爸 发表于：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.

共27 条记录, 每页显示 10 条, 页签: [1] [2][3]