Foxtable(狐表) → 用户栏目 → 专家坐堂 → 隐藏菜单区


  共有8287人关注过本帖树形打印复制链接

主题：隐藏菜单区
帅哥哟，离线，有人找我吗？
wilson
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00 		  发帖心情 Post By：2012/7/10 11:48:00 [只看该作者]

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

调试成功，

太感谢您了！
 回到顶部
帅哥哟，离线，有人找我吗？
wilson
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00 		  发帖心情 Post By：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
 小大  13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9871 积分：57559 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2012/7/10 17:15:00 [只看该作者]

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

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

调试成功，

太感谢您了！


  你这个明显没有看帮助,这么个东西弄一个月,我翻了个帮助 十秒 就回答你了.
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  14楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9871 积分：57559 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2012/7/10 17:17:00 [只看该作者]

你启用了这个登录窗口 是没有办法隐藏开发者的.

 回到顶部
帅哥哟，离线，有人找我吗？
wilson
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00 		  发帖心情 Post By：2012/7/10 17:51:00 [只看该作者]

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

 

2.的问题已经解决。

谢谢各位的帮助
 回到顶部
帅哥哟，离线，有人找我吗？
wilson
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00 		  发帖心情 Post By：2012/7/10 18:15:00 [只看该作者]

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

1.问题已解决，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
wilson
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00 		  发帖心情 Post By：2012/7/12 0:22:00 [只看该作者]

我按照帮助文件 自定义用户与权限管理 做的权限管理又是无法隐藏菜单功能区

我用以下代码提示错误，不知道如何解决，求助

谢谢

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

 
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/7/12 8:14:00 [只看该作者]

下面的语局，你是从那里看到的， 帮助有这样的用的吗：

 

If _UserGroup("业务员") Then

 

 

应该：

 

 

If _UserGroup = "业务员" Then

 
 回到顶部
帅哥哟，离线，有人找我吗？
wilson
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00 		  发帖心情 Post By：2012/7/12 10:48:00 [只看该作者]

问题已解决，

非常感谢各位！
 回到顶部
帅哥哟，离线，有人找我吗？
SUJIELI
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：6 积分：90 威望：0 精华：0 注册：2021/1/15 22:29:00 		  发帖心情 Post By：2021/1/15 23:12:00 [只看该作者]

斤斤计较斤斤计较jjj

 回到顶部
总数 20 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询