主题：菜单栏可视化授权问题

代码写到登陆按钮的click事件即可。

If _UserGroup <> "总经办" Then
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Visible = False
    RibbonTabs("Common").Visible = False
    RibbonTabs("Print").Visible = False
    Dim rcgz As DataRow
    rcgz = DataTables("菜单权限").Find("部门 = '" & _UserGroup & "' And 栏目 = '日常工作'")
    If rcgz("使用权限") = True Then
        RibbonTabs("Common").Visible = True
    End If
    Dim sjb As DataRow
    sjb = DataTables("菜单权限").Find("部门 = '" & _UserGroup & "' And 栏目 = '数据表'")
    If sjb("使用权限") = True Then
        RibbonTabs("Table").Visible = True
    End If
    Dim glxm As DataRow
    glxm = DataTables("菜单权限").Find("部门 = '" & _UserGroup & "' And 栏目 = '管理项目'")
    If glxm("使用权限") = True Then
        RibbonTabs("Project").Visible = True
    End If
    Dim dysc As DataRow
    dysc = DataTables("菜单权限").Find("部门 = '" & _UserGroup & "' And 栏目 = '打印输出'")
    If dysc("使用权限") = True Then
        RibbonTabs("Print").Visible = True
    End If
    Dim zx As DataRow
    zx = DataTables("菜单权限").Find("部门 = '" & _UserGroup & "' And 栏目 = '杂项'")
    If zx("使用权限") = True Then
        RibbonTabs("Other").Visible = True
    End If
End If