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

我知道 这样 只能显示某个人的啊。可我的是目录树形式的授权，那如何实现：根据目录树授权 授权给不同的用户 授权给用户什么权限 然后该用户登录时 就显示已授权的任务栏菜单 没授权的就不显示啊。请狐狸爸爸帮我看一下。

在窗口的AfterLoad事件 的代码 又该怎么写呢？

多少个用户都一样：

 

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
ElseIf user.name = "李四" Then
    tp.Pages("页面3").Visible = False
    tp.Pages("页面1").Links("任务1").Visible = False
End If

那这个 怎么和目录式授权结合在一起呢

 

那这个 怎么和目录式授权结合在一起呢

?

如何根据可视化授权的“授权”表，授权用户登录后，显示不同的菜单？

如何根据可视化授权的“授权”表，授权用户登录后，显示不同的菜单？

遍历每个页面也每个任务，从授权表中找出当前用户是否具备此任务或页面的权限，如果不具备，就隐藏此页面或任务。

狐狸爸爸 这个 能给个代码吗

 

狐狸爸爸 代码 我不知道 怎么写？狐狸爸爸 能给个代码参考吗？