以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  菜单隐藏  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46540)
--  作者：zjyyc
--  发布时间：2014/2/25 13:19:00
--  菜单隐藏
图片点击可在新窗口打开查看编好一个系统，当交给用户时“数据表”、“管理项目”等这些属于开发类的菜单，是不让用户改动的，但我隐藏不下去。我按帮助文件给出的代码做了，还是没有实现隐藏。只是实现了用户不可用那些功能了。我想，既然不让其用，就不要显示在那里。请提示。
--  作者：653006728
--  发布时间：2014/2/25 13:47:00
--  
你把它删掉不就行了么。、。。
--  作者：zjyyc
--  发布时间：2014/2/25 14:51: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

[此贴子已经被作者于2014-2-25 15:05:23编辑过]
--  作者：653006728
--  发布时间：2014/2/25 14:59:00
--  
代码没错  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:学院学生资料数据检索系统.rar

[此贴子已经被作者于2014-2-25 15:13:41编辑过]
--  作者：hunanwl
--  发布时间：2014/4/18 11:54:00
--  
顶顶顶顶顶顶顶顶顶顶