[求助]怎样细设菜单与权限管理？求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在帮助里有这样一段

菜单与权限管理

菜单的功能区、功能组以及所有的菜单组件，都有Visible和Enabled属性，这样我们可以根据登录用户的不同，隐藏和禁用某些菜单项目，实现菜单的授权。

示例一

我们增加一个用户“录入员”，如果该用户登录，隐藏“数据表”和“管理项目”两个功能区，并禁用杂项功能区的“执行SQL”和 “命令窗口”两个按钮。

第一步当然是增加一个名为“录入员”的用户，然后在菜单系统事件LoadUserSetting加入如下代码：

If User.Name = "录入员" Then
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
Else
    RibbonTabs("Table").Visible = True
    RibbonTabs("Project").Visible = True
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End If

设计完成后，请切换到录入员用户，看看是否已经实现设计要求。

在实际应用时想让用户那格可以显示，该怎么设呢，求助！

不要把整个项目管理菜单隐藏了 RibbonTabs("Project").Visible = False

改为隐藏里面的功能组保留切换用户功能组

保留切换用户功能组我该怎么设啊，麻烦高手指教

If User.Name = "录入员" Then
RibbonTabs("Table").Visible = False
RibbonTabs("Project").Groups("Project").Visible = False

RibbonTabs("Project").Groups("Design").Visible = False

RibbonTabs("Project").Groups("Timers").Visible = False

RibbonTabs("Project").Groups("Watcher").Visible = False

    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
Else
    RibbonTabs("Table").Visible = True
  RibbonTabs("Project").Groups("Project").Visible = true

RibbonTabs("Project").Groups("Design").Visible = true

RibbonTabs("Project").Groups("Timers").Visible = true

RibbonTabs("Project").Groups("Watcher").Visible = true
RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True

RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End If

主题：[求助]怎样细设菜单与权限管理？求助