主题：[求助]权限与菜单管理，权限已经设置用户分组显示菜单，但是不会显示出来菜单

此主题相关图片如下：201110212339295099.png

只要按照你的需要勾选就可以了，是不是非常方便，修改也很方便，不用每次改代码了。

程序代码一个放在表的PrepareEdit

一个放在AfterOpenProject中，如果大家用自定义用户登录的话，这个事件放在你的用户登录

窗体的确定按钮的click事件中

For Each rt As RibbonMenu.Tab In RibbonTabs

    rt.Visible = True

    rt.Enabled = True

    For Each rg As RibbonMenu.Group In rt.Groups

        rg.Visible = True

        rg.Enabled = True

        For Each itm As RibbonMenu.RibbonItem In rg.Items

            itm.Visible = True

            itm.Enabled = True

        Next

    Next

Next

For Each dr As DataRow In DataTables("菜单权限表").Select("分组 = '" & User.Group & "'" )

    If dr.IsNull("分组名") Then

        RibbonTabs(dr("菜单名")).Visible = Not dr("不可见")

        RibbonTabs(dr("菜单名")).Enabled = Not dr("不可用")

    ElseIf dr.IsNull("按钮名") Then

        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Visible = Not dr("不可见")

        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Enabled = Not dr("不可用")

    Else

        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Visible = Not dr("不可见")

        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Enabled = Not dr("不可用")

    End If

Next

大家可以用A经理 和 B员工登录看看 密码888

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar