Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口可见与授权


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

主题：窗口可见与授权
帅哥哟，离线，有人找我吗？
desk6789
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：136 威望：0 精华：0 注册：2016/11/23 10:51:00 		窗口可见与授权  发帖心情 Post By：2016/12/7 14:28:00 [显示全部帖子]

在主窗口中用到页面集合，怎么对特定用户授权页面可见？？

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


加好友 发短信
等级：婴狐 帖子：11 积分：136 威望：0 精华：0 注册：2016/11/23 10:51:00 		  发帖心情 Post By：2016/12/8 10:30:00 [显示全部帖子]

如果设置为多部门不能看见页面集合中的某一Tabpages怎么写代码，但是要让开发者和管理员可以看见

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


加好友 发短信
等级：婴狐 帖子：11 积分：136 威望：0 精华：0 注册：2016/11/23 10:51:00 		  发帖心情 Post By：2016/12/8 12:24:00 [显示全部帖子]

哪里有问题？

If User.Type = UserTypeEnum.Developer OrElse User.Type = UserTypeEnum.Administrator OrElse User.group = "财务部" OrElse User.group = "总经办" Then
    Forms("主窗口").Controls("管理模块").TabPages(3).Visible = True
'Else If User.Type = UserTypeEnum.Developer OrElse User.Type = UserTypeEnum.Administrator OrElse User.group = "销售部" OrElse User.group = "客服部" OrElse User.group = "贷后部" OrElse User.group = "总经办"  Then
   ' Forms("主窗口").Controls("管理模块").TabPages(0).Visible = True
    'Else If User.Type = UserTypeEnum.Developer OrElse User.Type = UserTypeEnum.Administrator OrElse User.group = "人事部" OrElse User.group = "总经办"   Then
    '    Forms("主窗口").Controls("管理模块").TabPages(1).Visible = True
    'Else If User.Type = UserTypeEnum.Developer OrElse User.Type = UserTypeEnum.Administrator OrElse User.group = "行政部" OrElse User.group = "总经办"   Then
    '    Forms("主窗口").Controls("管理模块").TabPages(2).Visible = True
Else
   ' Forms("主窗口").Controls("管理模块").TabPages(0).Visible = False
    '    Forms("主窗口").Controls("管理模块").TabPages(1).Visible = False
    '    Forms("主窗口").Controls("管理模块").TabPages(2).Visible = False
    Forms("主窗口").Controls("管理模块").TabPages(3).Visible = False
End If
 回到顶部
帅哥哟，离线，有人找我吗？
desk6789
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：136 威望：0 精华：0 注册：2016/11/23 10:51:00 		  发帖心情 Post By：2016/12/8 14:36:00 [显示全部帖子]

写在主窗口的afterload里了，现在用个最原始的代码
If User.group = "财务部" Then
    Forms("主窗口").Controls("管理模块").TabPages(0).Visible = False
    Forms("主窗口").Controls("管理模块").TabPages(1).Visible = False
    Forms("主窗口").Controls("管理模块").TabPages(2).Visible = False
End If

If User.group = "销售部" OrElse User.group = "客服部" OrElse User.group = "贷后部" Then
    Forms("主窗口").Controls("管理模块").TabPages(3).Visible = False
    Forms("主窗口").Controls("管理模块").TabPages(1).Visible = False
    Forms("主窗口").Controls("管理模块").TabPages(2).Visible = False
End If

If User.group = "人事部" Then
    Forms("主窗口").Controls("管理模块").TabPages(0).Visible = False
    Forms("主窗口").Controls("管理模块").TabPages(3).Visible = False
    Forms("主窗口").Controls("管理模块").TabPages(2).Visible = False
End If

If User.group = "行政部" Then
    Forms("主窗口").Controls("管理模块").TabPages(0).Visible = False
    Forms("主窗口").Controls("管理模块").TabPages(3).Visible = False
    Forms("主窗口").Controls("管理模块").TabPages(1).Visible = False
End If
 回到顶部
帅哥哟，离线，有人找我吗？
desk6789
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：136 威望：0 精华：0 注册：2016/11/23 10:51:00 		  发帖心情 Post By：2016/12/8 14:37:00 [显示全部帖子]

怎么简化？？？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询