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


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

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


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		权限实现不了问题  发帖心情 Post By：2022/12/12 21:46:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：表字段权限问题.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/12 21:48:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:权限.zip
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/12 23:28:00 [显示全部帖子]

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：项目,LoadUserSetting
详细错误信息：
未找到列 [用户名]。


报错，还是不行
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/13 11:32:00 [显示全部帖子]

列名是授权少一个名字，补上，还是不行，打开入库明细窗口，提示找不名称控件“单价”，单价是入库明细的表字段，是存在，按下错误提示后，又报错.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,入库明细,AfterLoad
详细错误信息：
未设置对象变量或 With 块变量。

入库明细,AfterLoad的代码

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


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/13 11:33:00 [显示全部帖子]

再上实例，请帮调试一下，谢谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:权限.zip
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/13 12:07:00 [显示全部帖子]

帮助内表没下面的代码，窗口、按键、表、列都可以，那外部表应怎么处理？

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


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/13 16:53:00 [显示全部帖子]

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


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/13 19:36:00 [显示全部帖子]

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

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


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：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
基本是这样，但还是不行
 回到顶部
总数 15 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.05566 秒, 8 次数据查询