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


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

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


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

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

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


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/7 14:36:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/scr/0836.htm

afterload事件

If User.Name <> "张经理" Then
   Dim pg As WinForm.TabPage
pg = Forms("窗口1").Controls("TabControl1").TabPages(1)
pg.Visible = False
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
desk6789
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2016/12/8 11:34:00 [只看该作者]

If User.Type = UserTypeEnum.Developer OrElse User.Type = UserTypeEnum.Administrator Then
    Forms("窗口1").Controls("TabControl1").TabPages(1).Visible = true

Else

    Forms("窗口1").Controls("TabControl1").TabPages(1).Visible = False
End If
 回到顶部
帅哥哟，离线，有人找我吗？
desk6789
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/8 12:37:00 [只看该作者]

代码写在哪里？提示什么错误？

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


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

怎么简化？？？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/8 15:12:00 [只看该作者]

Dim tab As WinForm.TabControl = Forms("主窗口").Controls("管理模块")
If not(If User.Type = UserTypeEnum.Developer OrElse User.Type = UserTypeEnum.Administrator) Then
    For Each page As WinForm.TabPage In tab.TabPages
        page.Visible = False
    Next
    Dim idx As Integer = -1
    Select Case
        Case "财务部"
            idx = 3
        Case "销售部" , "客服部" , "贷后部"
            idx = 0
        Case "人事部"
            idx = 1
        Case "行政部"
            idx = 2
    End Select
    tab.TabPages(idx).Visible = True
End If
 回到顶部
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 次数据查询