以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  隐藏部分菜单怎么实现  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=47077)
--  作者：zjyyc
--  发布时间：2014/3/4 11:03:00
--  隐藏部分菜单怎么实现

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

 

我在菜单系统事件LoadUserSetting加入上述代码。要实现某用户登录后，隐藏“数据表”和“管理项目”两个功能区，并禁用杂项功能区的“执行SQL”和 “命令窗口”两个按钮。可切换用户后不生效，怎么办？

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:学院学生资料数据检索系统.foxdb
--  作者：Bin
--  发布时间：2014/3/4 11:11:00
--  
打开项目有效,但是切换用户? 你隐藏了管理项目如何切换?
--  作者：blackzhu
--  发布时间：2014/3/4 12:08:00
--  
可以见:

http://www.foxtable.com/bbs/dispbbs.asp?boardid=23&id=47083&page=1&star=1
--  作者：zjyyc
--  发布时间：2014/3/5 9:34:00
--  
还在等待哪位客服提示。
--  作者：Bin
--  发布时间：2014/3/5 9:35:00
--  
请看2楼.
--  作者：zjyyc
--  发布时间：2014/3/5 10:21:00
--  
这个是付费的开发功能，我不是想买个什么功能，我是想按系统帮助文件里说的实现功能，这该不是什么难事，只是我在哪个地方缺了什么设置，需要得到客服的提示。请客服提示。
--  作者：Bin
--  发布时间：2014/3/5 10:29:00
--  
能否先看一下2楼的回复呢? 你的代码没有任何问题.
--  作者：zjyyc
--  发布时间：2014/3/6 19:49:00
--  
我的问题还是没有答案啊
--  作者：有点酸
--  发布时间：2014/3/6 22:19:00
--  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目215.rar

应该放在项目的LoadUserSetting事件。

[此贴子已经被作者于2014-3-6 22:19:49编辑过]
--  作者：zjyyc
--  发布时间：2014/3/12 15:29:00
--  
我知道怎么解决了。