Foxtable(狐表) → 用户栏目 → 专家坐堂 → 可视化授权的实现


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

主题：可视化授权的实现
帅哥哟，离线，有人找我吗？
wqb1102
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00 		  发帖心情 Post By：2013/6/6 11:18:00 [只看该作者]

另外在授权表中设置隐藏关联表没有起作用

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


加好友 发短信
等级：六尾狐 帖子：1418 积分：7167 威望：0 精华：0 注册：2013/3/18 8:37:00 		  发帖心情 Post By：2013/6/6 11:18:00 [只看该作者]

你就加个判断，如果不是开发者就执行

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


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

If user.Type = UserTypeEnum.Developer Then ‘如果开发者，显示所有表
    For Each t As Table In Tables
        t.Visible = True
        t.AllowEdit = True
        For Each c As Col In t.Cols
            c.Visible = True
            c.AllowEdit = True
        Next
    Next
Else ’否则先隐藏表，并根据授权表设置来显示相关的表
    For Each t As Table In Tables
        t.Visible = False
        t.AllowEdit = True
        For Each c As Col In t.Cols
            c.Visible = True
            c.AllowEdit = True
        Next
    Next
    Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
    If User.Type = UserTypeEnum.User Then
        For Each dr As DataRow In DataTables("授权表").Select("分组名 = '" & User.Group & "'" )
            If dr.IsNull("列名") Then
                Tables(dr("表名")).Visible = Not dr("不可见")
                Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
            Else
                Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
                Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
            End If
        Next
    End If
End If
[此贴子已经被作者于2013-6-6 11:23:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wqb1102
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00 		  发帖心情 Post By：2013/6/6 11:31:00 [只看该作者]

多谢了

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


加好友 发短信
等级：幼狐 帖子：135 积分：1380 威望：0 精华：0 注册：2013/8/7 18:14:00 		表标题显示  发帖心情 Post By：2019/3/16 18:20:00 [只看该作者]

在项目属性中设置了
If User.Type <> UserTypeEnum.Developer
    TableCaptionVisible = False
End If
如何在非开发者登录的情况下实现通过Button控件显示指定的多个表？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105958 积分：538865 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/3/18 8:39:00 [只看该作者]

tables("表A").visible = true
tables("表B").visible = true
 回到顶部
总数 16 上一页 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.04297 秒, 4 次数据查询