以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎样细设菜单与权限管理?求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48592)

--  作者:383745458
--  发布时间:2014/4/1 16:24:00
--  [求助]怎样细设菜单与权限管理?求助

在帮助里有这样一段

 

菜单与权限管理

菜单的功能区、功能组以及所有的菜单组件,都有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

 

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

 

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


--  作者:Bin
--  发布时间:2014/4/1 16:25:00
--  
不要把整个 项目管理菜单隐藏了  RibbonTabs("Project").Visible = False

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

--  作者:383745458
--  发布时间:2014/4/1 17:04:00
--  
保留切换用户功能组我该怎么设啊,麻烦高手指教
--  作者:有点甜
--  发布时间:2014/4/1 17:06:00
--  

 看一下帮助文档

 

http://www.foxtable.com/help/topics/1526.htm

 


--  作者:Bin
--  发布时间:2014/4/1 17:08:00
--  
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