Foxtable(狐表) → 用户栏目 → 专家坐堂 → 权限实现不了问题


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

主题：权限实现不了问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim t As Table = Tables("入库明细_入库明细")
For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & _UserName & "' And 表名= '" & e.Form.Name & "'")
    t.Cols(dr("列名")).Visible = Not dr("不可见")
    t.Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
Next
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1252 积分：8468 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/13 16:53:00 [只看该作者]

老师，测试一下，没报错，但没能实现需求的功能
需求的功能：如实例，登录用户是杨刚，在授权表里，杨刚被限制对入库明细的单价为不可视，金额 为不可编，新增按键为不可编，正常情况，用户登录，实现这些功能，可实例也没实现，是哪里错？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:权限.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:系统管理-用户-2020-5-29版.zip
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1252 积分：8468 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/13 19:36:00 [只看该作者]

老师，我这边测试，还是老样子，没有实现，杨刚登记系统后根据授权表的设定入库明细的单价不可见，字段金额和新增按键为可编辑。

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


加好友 发短信
等级：超级版主 帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/13 20:50:00 [只看该作者]

我测试没有问题。另外之前已经说过了，控件的控制和表格的控制是不一样的，不能放到一起处理。建议增加一个类型列，注明是控件还是表列。如果对编程稀里糊涂的，个人的建议是分开2个权限表，一个设置表格权限，一个设置窗口控件权限。

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


加好友 发短信
等级：六尾狐 帖子：1252 积分：8468 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/14 13:33:00 [只看该作者]

老师，我看视频教程，不分表也可以实现控件、表列权限，是用内表，我用内表试也可以，但外部数据源是实现控件权限，表列不行，分表也不行
问题一：按你实例入库明细是在正表实现，副表偶尔是实现，我再做一个出库明细就不行，
问题二：我把控件、表列分表，控件是可以实现，表列是不实现，不知为什么？

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

'授权表
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & _UserName & "'") '外部数据源
        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


'表权限授权
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User)
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("表权限授权").Select("用户名 = '" & _UserName & "'") '外部数据源
        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



'窗口按键权限--可视化授权-AfterLoad(打开窗口后的事件)--对窗口上-按键进行授权:
For Each dr3 As DataRow In DataTables("授权表").Select("用户名 = '" & _UserName & "' And 窗口按键名称= '" & e.Form.Name & "'")
    e.Form.Controls(dr3("事件权限")).Visible = Not dr3("不可见")
    e.Form.Controls(dr3("事件权限")).Enabled = Not dr3("不可编辑")
Next


'表列权限--可视化授权-AfterLoad(打开窗口后的事件)--对窗口上-按键进行授权:
'For Each dr1 As DataRow In DataTables("表权限授权").Select("用户名 = '" & _UserName & "' And 表名= '" & e.Form.Name & "'")
'    e.Form.Controls(dr1("列名")).Visible = Not dr1("不可见")
'    e.Form.Controls(dr1("列名")).Enabled = Not dr1("不可编辑")
'Next


Dim t As Table = Tables("入库查询_入库明细")
For Each dr1 As DataRow In DataTables("表权限授权").Select("用户名 = '" & _UserName & "' And 表名= '" & e.Form.Name & "'")
    t.Cols(dr1("列名")).Visible = Not dr1("不可见")
    t.Cols(dr1("列名")).AllowEdit = Not dr1("不可编辑")
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

基础的语法和逻辑基本没有理解

Tables(这里必须是表名称).Visible = Not dr("不可见")

Tables(这里必须是表名称).Cols(这里必须是列名称).Visible = Not dr("不可见")

e.Form.Controls(这里必须是控件名称).Visible = Not dr3("不可见")

Tables指表格，e.Form.Controls指控件
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1252 积分：8468 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/14 15:06:00 [只看该作者]

Tables指表格

Dim t As Table = Tables("入库查询_入库明细")
For Each dr1 As DataRow In DataTables("表权限授权").Select("用户名 = '" & _UserName & "' And 表名= '" & e.Form.Name & "'")
    t.Cols(dr1("列名")).Visible = Not dr1("不可见")
    t.Cols(dr1("列名")).AllowEdit = Not dr1("不可编辑")
Next

e.Form.Controls指控件
For Each dr3 As DataRow In DataTables("授权表").Select("用户名 = '" & _UserName & "' And 窗口按键名称= '" & e.Form.Name & "'")
    e.Form.Controls(dr3("事件权限")).Visible = Not dr3("不可见")
    e.Form.Controls(dr3("事件权限")).Enabled = Not dr3("不可编辑")
Next
基本是这样，但还是不行
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim t As Table = Tables("入库查询_入库明细")
For Each dr1 As DataRow In DataTables("表权限授权").Select("用户名 = '" & _UserName & "' And 表名= '" & e.Form.Name & "'")
msgbox(dr1("列名")) 显示什么内容？
    t.Cols(dr1("列名")).Visible = Not dr1("不可见")
    t.Cols(dr1("列名")).AllowEdit = Not dr1("不可编辑")
Next

For Each dr3 As DataRow In DataTables("授权表").Select("用户名 = '" & _UserName & "' And 窗口按键名称= '" & e.Form.Name & "'")
msgbox(dr3("事件权限")) 显示什么内容？
    e.Form.Controls(dr3("事件权限")).Visible = Not dr3("不可见")
    e.Form.Controls(dr3("事件权限")).Enabled = Not dr3("不可编辑")
Next
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1252 积分：8468 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/14 16:08:00 [只看该作者]

msgbox(dr1("列名")) 显示什么内容？msgbox(dr3("事件权限")) 显示什么内容？都没显示任何内容

 回到顶部
总数 26 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06055 秒, 6 次数据查询