专家坐堂-隐藏菜单区Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  隐藏菜单区  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21321)

--  作者：wilson
--  发布时间：2012/7/9 11:43:00
--  隐藏菜单区

我想实现如果是业务员登入只显示菜单功能区的产品销售，隐藏菜单功能区的产品开发、生产计划、订单发货、物料管理、系统设置

我用以下带码调试不成功，无法解决。

求助，谢谢！

If User.Name = "业务员" Then
RibbonTabs("产品开发").Visible = False
\'RibbonTabs("产品销售").Visible = False
RibbonTabs("生产计划").Visible = False
RibbonTabs("订单发货").Visible = False
RibbonTabs("物料管理").Visible = False
RibbonTabs("系统设置").Visible = False
Else
RibbonTabs("产品开发").Visible = True
\'RibbonTabs("产品销售").Visible = True
RibbonTabs("生产计划").Visible = True
RibbonTabs("订单发货").Visible = True
RibbonTabs("物料管理").Visible = True
RibbonTabs("系统设置").Visible = True
End If

--  作者：wilson
--  发布时间：2012/7/9 11:48:00
--
我还用以下代码调试，也不行
Select Case User.name
   Case "业务员"
RibbonTabs("产品开发").Visible = False
RibbonTabs("产品销售").Visible = True
RibbonTabs("生产计划").Visible = False
RibbonTabs("订单发货").Visible = False
RibbonTabs("物料管理").Visible = False
RibbonTabs("系统设置").Visible = False
End Select

--  作者：wilson
--  发布时间：2012/7/9 11:57:00
--
放在loadusersetting里

--  作者：wilson
--  发布时间：2012/7/9 18:28:00
--

请老师帮我看看

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.foxdb

--  作者：blackzhu
--  发布时间：2012/7/10 8:52:00
--
不明白了,你里面那里有业务员这个用户名,你的业务员是角色,请重新定义.

--  作者：blackzhu
--  发布时间：2012/7/10 9:46:00
--
跟什么用户名不搭界的.

If User.IsRole("业务员") Then
RibbonTabs("产品开发").Visible = False
\'RibbonTabs("产品销售").Visible = False
RibbonTabs("生产计划").Visible = False
RibbonTabs("订单发货").Visible = False
RibbonTabs("物料管理").Visible = False
RibbonTabs("系统设置").Visible = False
Else
RibbonTabs("产品开发").Visible = True
\'RibbonTabs("产品销售").Visible = True
RibbonTabs("生产计划").Visible = True
RibbonTabs("订单发货").Visible = True
RibbonTabs("物料管理").Visible = True
RibbonTabs("系统设置").Visible = True
End if

这样试试?

--  作者：blackzhu
--  发布时间：2012/7/10 9:47:00
--
确定这个用户角色是在哪一个User.Name 下面.

--  作者：wilson
--  发布时间：2012/7/10 11:48:00
--

这个问题我已经弄了一个月了，都无法解决

调试成功，

太感谢您了！

--  作者：wilson
--  发布时间：2012/7/10 16:15:00
--

我用以下代码调试，还有几个问题无法解决，请老师帮助

1.不能隐藏《RibbonTabs("产品开发").Groups("产品信息").Items("产品定价")》的产品定价

2. RibbonTabs("生产计划").RibbonTabs("订单发货").RibbonTabs("物料管理").无法同时打开，只能打开其中1个RibbonTabs

3.如何隐藏开发者，用户登入窗口

谢谢！

此主题相关图片如下：捕获1.png

RibbonTabs("系统设置").Groups("设计模式").Visible = (user.Type = UserTypeEnum.Developer)

If User.IsRole("总经理") Then
    RibbonTabs("产品开发").Visible = True
    RibbonTabs("产品销售").Visible = True
    RibbonTabs("生产计划").Visible = True
    RibbonTabs("订单发货").Visible = True
    RibbonTabs("物料管理").Visible = True
    RibbonTabs("系统设置").Visible = True
End If

If User.IsRole("开发部经理") Then
    RibbonTabs("产品开发").Visible = True
   RibbonTabs("产品销售").Visible = False
    RibbonTabs("生产计划").Visible = False
    RibbonTabs("订单发货").Visible = False
   RibbonTabs("物料管理").Visible = False
    RibbonTabs("系统设置").Visible = False
End If

If User.IsRole("产品信息输入员") Then
    RibbonTabs("产品开发").Visible = True
    RibbonTabs("产品开发").Groups("产品信息").Items("产品定价").Enabled = False
    RibbonTabs("产品销售").Visible = False
   RibbonTabs("生产计划").Visible = False
    RibbonTabs("订单发货").Visible = False
    RibbonTabs("物料管理").Visible = False
    RibbonTabs("系统设置").Visible = False
End If

If User.IsRole("销售部经理") Then
    RibbonTabs("产品开发").Visible = False
    RibbonTabs("产品销售").Visible = True
    RibbonTabs("生产计划").Visible = False
    RibbonTabs("订单发货").Visible = False
    RibbonTabs("物料管理").Visible = False
    RibbonTabs("系统设置").Visible = False
End If

If User.IsRole("业务员") Then
    RibbonTabs("产品开发").Visible = False
    RibbonTabs("产品销售").Visible = True
    RibbonTabs("生产计划").Visible = False
    RibbonTabs("订单发货").Visible = False
    RibbonTabs("物料管理").Visible = False
    RibbonTabs("系统设置").Visible = False
End If

\' For Each us As UserInfo In Users
\' Output.Show("生产部经理" & us.Roles)
\' Next
If User.IsRole("生产部经理") Then
    RibbonTabs("产品开发").Visible = False
    RibbonTabs("产品销售").Visible = False
    RibbonTabs("生产计划").Visible = True
    RibbonTabs("订单发货").Visible = True
    RibbonTabs("物料管理").Visible = True
    RibbonTabs("系统设置").Visible = False
Else
    RibbonTabs("生产计划").Visible = True
    RibbonTabs("订单发货").Visible = True
    RibbonTabs("物料管理").Visible = True
End If

If User.IsRole("生产组主管") Then
    RibbonTabs("产品开发").Visible = False
    RibbonTabs("产品销售").Visible = False
    RibbonTabs("生产计划").Visible = True
    RibbonTabs("订单发货").Visible = False
    RibbonTabs("物料管理").Visible = False
    RibbonTabs("系统设置").Visible = False
End If

If User.IsRole("订单发货员") Then
    RibbonTabs("产品开发").Visible = False
    RibbonTabs("产品销售").Visible = False
    RibbonTabs("生产计划").Visible = False
    RibbonTabs("订单发货").Visible = True
    RibbonTabs("物料管理").Visible = False
    RibbonTabs("系统设置").Visible = False
End If

--  作者：blackzhu
--  发布时间：2012/7/10 17:15:00
--

以下是引用wilson在2012-7-10 11:48:00的发言：

这个问题我已经弄了一个月了，都无法解决

调试成功，

太感谢您了！

你这个明显没有看帮助,这么个东西弄一个月,我翻了个帮助十秒就回答你了.