以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  TopicBar角色权限  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111731)
--  作者：yifan3429
--  发布时间：2017/12/28 14:42:00
--  TopicBar角色权限
管理员          可以见到全部
录入员和检查员  可以看到增加，修改
跟单员          可以看到移动，增加 主页等

三个角色权限不一样  
下面的代码怎么控制


Select Case e.Link.Name

Case "增加"
\'在此加入相应的代码
Case "修改"
\'在此加入相应的代码
Case "移动"
\'在此加入相应的代码
Case "删除"
\'在此加入相应的代码
Case "主页"
\'在此加入相应的代码
End Select
\'MessageBox.Show(e.Page.Name & "|" & e.Link.Name)
[此贴子已经被作者于2017/12/28 14:41:49编辑过]
--  作者：有点甜
--  发布时间：2017/12/28 14:56:00
--  

窗口AfterLoad事件，参考代码

 

Dim p = Forms("窗口1").Controls("TopicBar1").Pages(0)

If user.Roles = "跟单员" Then
    Dim tl1 As WinForm.TopicLink
    tl1 = p.Links("增加")
    tl1.Visible = True
    tl1 = p.Links("删除")
    tl1.Visible = False
ElseIf user.Roles = "录入员" OrElse user.roles = "检查员" Then
    Dim tl1 As WinForm.TopicLink
    tl1 = p.Links("增加")
    tl1.Visible = False
    tl1 = p.Links("删除")
    tl1.Visible = False
End If