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

标题：[求助]不同的用户登录系统，显示不同的菜单

1楼

akzzwj 发表于：2011/10/18 13:53:00

菜单"页面1"下有“任务11”、“任务12”、“任务13”、“任务14”四个菜单，请问如何做出这样的效果：

用户1登录系统，显示“任务11”、“任务12”两个菜单，“任务13”、“任务14”两个菜单隐藏(不显示)；用户2登录系统，显示“任务13”、“任务14”两个菜单，“任务11”、“任务12”两个菜单隐藏(不显示)。这个效果如何实现，请狐爸爸及各位朋友指点一下，谢谢！

此主题相关图片如下：未命名.jpg

2楼

狐狸爸爸 发表于：2011/10/18 14:01:00

很简单，不同的人进去，隐藏或显示不同的命令，例如在窗口的AfterLoad设置代码：

Dim bar As WinForm.TopicBar = e.Form.Controls("TopicBar1")
Select Case User.name
    Case "张三"
        bar.Pages("页面1").Links("任务2").Visible = False
        bar.Pages("页面1").Links("任务3").Visible = False
    Case "李四"
        bar.Pages("页面2").Links("任务4").Visible = False
        bar.Pages("页面1").Links("任务1").Visible = False
End Select

这样张三看不到页面1的任务2和任务3，李四看不到页面1的任务1和页面2的任务4

3楼

akzzwj 发表于：2011/10/18 14:03:00

狐狸爸爸谢谢！你真好！

4楼

akzzwj 发表于：2011/10/18 14:07:00

狐狸爸爸使用上面的代码，会出现这样的一个错误！如上面的图片所示！
图片点击可在新窗口打开查看

此主题相关图片如下：未命名1.jpg

5楼

akzzwj 发表于：2011/10/18 14:11:00

狐狸爸爸帮我看一下、怎么出现上面那样的错误！

6楼

狐狸爸爸 发表于：2011/10/18 14:19:00

看看代码中的页面1、任务1这样的名称，和你实际的名称是否一致

7楼

akzzwj 发表于：2011/10/18 14:22:00

是一致的，我用账号测试，点击菜单，就会出现上面的错误提示

8楼

akzzwj 发表于：2011/10/18 14:28:00

我试了好多次，都次出现这样的错误，狐狸爸爸，帮我解决一下啊。

9楼

狐狸爸爸 发表于：2011/10/18 14:29:00

第一次打开文件用张三登陆，第二次打开文件用李四登陆：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目139.table

10楼

akzzwj 发表于：2011/10/18 14:37:00

奇怪，狐狸爸爸你做的刚才我测试了一下确实是对的

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