主题：TopicBar角色权限

窗口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