主题：任务栏权限设置

窗口中有一个任务栏，任务栏上有一些任务，对这些任务该如何进行权限控制呢？不同的用户登录后只能进行某些任务操作。

 你可以把任务栏隐藏。

 

 如

 

Dim tl1 As WinForm.TopicLink
tl1 = Forms("窗口1").Controls("TopicBar1").Pages("项目").Links("打开")
tl1.Visible = False

老师，主窗口上有个任务栏，还有个权限表，我想通过权限表来控制任务栏中各个link的权限。就像控制窗口中的按钮的权限一样。

For Each dr As DataRow In DataTables("权限表").Select("用户名 = '" & user.Name & "' and 按钮不可用 = true")
    For Each bn As String In dr("按钮名称").split(",")
        If bn = e.sender.Name Then
          MessageBox.show("你无权操作!")
          return
        End If
    Next
Next
 
'其余代码
If  e.sender.Name = "button1" then
    Forms("窗口1").Open
ElseIf  e.sender.Name = "button2" then
    Forms("窗口2").Open
end If

如果要控制任务栏中link的权限，应该如何控制。

你在TopicBar控件的 TopicLinkClick事件中做权限判断比较好点

已经做过权限判断了，但那样的话直接就是死的，不是灵活的，我就想通过权限表来控制任务栏的权限。

 

任务栏的权限，只能写在 TopicLinkClick 事件，但没有全局的这个事件。

 

最简单的方法，就是隐藏对应的link

嗯嗯，好的，老师。

老师，我的用户表中有一列是任务，任务这列是多值字段，比如像11,12,21,25等之类的数字。然后在任务栏的

TopicLinkClick中写了下面事件。

我的想法是当前登录的用户去查询用户表中的任务列，当任务列中有包含11的话就能打开修改密码的窗口，否则的话就弹出你无权操作的提示！目前的代码既能打开窗口，又能弹出提示！老师帮我看看下面的代码吧。

For Each dra As DataRow In DataTables("用户表").Select("部门= '" & _bm & "' and 岗位名称 ='"& _gwmc & "' ")
    For Each bn As String In dra("任务").split(",")
        Select Case e.Link.Name
            Case "修改密码"
                If  bn.Contains("11") Then
                    Forms("修改密码").Open
                Else
                    MessageBox.show("你无权执行此项操作!")
                   
                End If

              

        End Select
       
       
    Next
 
Next

         Case "修改密码"
                If  bn.Contains("11") Then
                    Forms("修改密码").Open

                    Exit For
                Else
                    MessageBox.show("你无权执行此项操作!")
                   
                End If