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


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

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


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


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


加好友 发短信
等级：一尾狐 帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00 		  发帖心情 Post By：2012/7/9 11:57:00 [显示全部帖子]

放在loadusersetting里

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


加好友 发短信
等级：一尾狐 帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00 		  发帖心情 Post By：2012/7/9 18:28:00 [显示全部帖子]

请老师帮我看看

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
wilson
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

调试成功，

太感谢您了！
 回到顶部
帅哥哟，离线，有人找我吗？
wilson
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 
 回到顶部
帅哥哟，离线，有人找我吗？
wilson
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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


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

问题已解决，

非常感谢各位！
 回到顶部
总数 11 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.06641 秒, 6 次数据查询