Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口界面授权显示


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

主题：窗口界面授权显示
帅哥哟，离线，有人找我吗？
北狐
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1427 威望：0 精华：0 注册：2013/8/7 18:14:00 		窗口界面授权显示  发帖心情 Post By：2021/3/15 15:58:00 [显示全部帖子]

If User.Type = 3 Then
    For Each c As Winform.Control In e.Form.Controls
        c.Visible = False
    Next
    
    Dim dr1 As DataRow = DataTables("Users").Find("Name = '" & User.Name & "'")
    
    
    For Each dr2 As DataRow In DataTables("授权表").Select("用户组  like '%"&dr1("roleCode")& "%'")
        Forms("主界面").Controls(dr2("窗体")).TabPages(dr2("页面名称")).Visible = True
    Next
    
    For Each dr As DataRow In DataTables("授权表").Select("用户组 like '%"&dr1("roleCode")& "%'and 控件<>''") '
        Forms("主界面").Controls(dr("控件")).Visible  = True
    Next
    
End If
想做到默认所有控件不显示，再依据授权表的进行控件的显示，
但以上代码结果是所有控件都不显示，未根据授权表时进行显示控件
求老师帮忙看下是什么原因？

[此贴子已经被作者于2021/3/15 16:14:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
北狐
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1427 威望：0 精华：0 注册：2013/8/7 18:14:00 		  发帖心情 Post By：2021/3/15 16:28:00 [显示全部帖子]

没有用到panel，但有用到textbox，授权表里面没设置
[此贴子已经被作者于2021/3/15 16:29:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
北狐
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1427 威望：0 精华：0 注册：2013/8/7 18:14:00 		  发帖心情 Post By：2021/3/15 16:58:00 [显示全部帖子]

DataTables("授权表").Select条件能查到
但有用到TabControl，

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


加好友 发短信
等级：幼狐 帖子：136 积分：1427 威望：0 精华：0 注册：2013/8/7 18:14:00 		  发帖心情 Post By：2021/3/15 17:12:00 [显示全部帖子]

有授权设置了，但能不能控制TabControl的对应页面的授权显示，而不是整个TabControl都显示出来的，每个页面都有独立名称的
[此贴子已经被作者于2021/3/15 17:12:50编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
北狐
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1427 威望：0 精华：0 注册：2013/8/7 18:14:00 		  发帖心情 Post By：2021/3/15 18:33:00 [显示全部帖子]

找到原因了，代码改下面就实现了
If User.Type = 3 Then
    For Each c As Winform.Control In e.Form.Controls
        c.Visible = False
        Forms("主界面").Controls("主界面").Visible = True
'标签控件
Forms("主界面").Controls("Label01").Visible = True
Forms("主界面").Controls("Label1").Visible = True
Forms("主界面").Controls("Label10").Visible = True
Forms("主界面").Controls("Label11").Visible = True
Forms("主界面").Controls("Label12").Visible = True
Forms("主界面").Controls("Label13").Visible = True
Forms("主界面").Controls("Label4").Visible = True
Forms("主界面").Controls("Label5").Visible = True
Forms("主界面").Controls("Label6").Visible = True
Forms("主界面").Controls("Label7").Visible = True
Forms("主界面").Controls("Label8").Visible = True
Forms("主界面").Controls("Label9").Visible = True
'日期控件
Forms("主界面").Controls("StartDate").Visible = True
Forms("主界面").Controls("EndDate").Visible = True
Forms("主界面").Controls("StartDate1").Visible = True
Forms("主界面").Controls("EndDate1").Visible = True
Forms("主界面").Controls("StartDate2").Visible = True
Forms("主界面").Controls("EndDate2").Visible = True
Forms("主界面").Controls("StartDate3").Visible = True
Forms("主界面").Controls("EndDate3").Visible = True
'文本框控件
Forms("主界面").Controls("cmbCustomer").Visible = True
Forms("主界面").Controls("pr").Visible = True
Forms("主界面").Controls("smartI").Visible = True
Forms("主界面").Controls("TextBox1").Visible = True      
        Dim dr1 As DataRow = DataTables("Users").Find("Name = '" & User.Name & "'") 
      
        For Each dr2 As DataRow In DataTables("授权表").Select("(用户组 not like '%"&dr1("roleCode")& "%' or  用户组 is null)  and 控件名称 is null ")
            Forms("主界面").Controls(dr2("窗体")).TabPages(dr2("页面名称")).Visible = False
        Next
        
        
        For Each dr As DataRow In DataTables("授权表").Select("用户组 like '%"&dr1("roleCode")& "%'and 控件<>''") '
            Forms("主界面").Controls(dr("控件")).Visible  = True
        Next
    Next
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.06250 秒, 5 次数据查询