以文本方式查看主题 - 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 = "录入员" ThenRibbonTabs("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("Command").Enabled = TrueRibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True End If |