主题：BUG修改

此主题相关图片如下：qq截图20110825134521.png

 

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")

With Ctype(tpb.BaseControl, C1Command.C1TopicBar)

    If System.Environment.OSVersion.Version.Major < 6 Then

        .VisualStyle = C1Command.VisualStyle.WindowsXP

    Else

        .VisualStyle = C1Command.VisualStyle.Office2010Blue

    End If

    .Padding = New Windows.Forms.Padding(4)

End With

tpb.Animation = False

If user.IsRole = "管理员" Then

    e.Form.Controls("TopicBar1").Pages("系统设置").Visible = True

    e.Form.Controls("TopicBar1").Pages("基础数据").Visible = True

    e.Form.Controls("TopicBar1").Pages("员工管理").Visible = True

Else e.Form.Controls("TopicBar1").Pages("系统设置").Visible = False

     e.Form.Controls("TopicBar1").Pages("基础数据").Visible = False

     e.Form.Controls("TopicBar1").Pages("员工管理").Visible = False

End If

 

 

窗口AFTERLOAD中运行出现如图错误，不是太明白

要如何修改

User.Name = "管理没" 不行吗？

判断用户具备某个角色：

 

If User.IsRole("审核") Then
     MessageBox.Show("当前用户具备审核功能!")
End If

User.Name = "管理没" 不行吗？

这样不行

我要实现的是部门之间的权限管理啊

人员多了

按人员来设置太麻烦啊

呵呵，我落伍了，我还没安装最新版，还没有角色功能。

那就不用判断直接这样好了。

 

e.Form.Controls("TopicBar1").Pages("系统设置").Visible = User.IsRole("管理员")
e.Form.Controls("TopicBar1").Pages("基础数据").Visible = User.IsRole("管理员")
e.Form.Controls("TopicBar1").Pages("员工管理").Visible = User.IsRole("管理员")