权限控制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 权限控制

共有2437人关注过本帖树形打印复制链接主题：权限控制

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/27 21:02:00 [显示全部帖子]

DataTables(drr("表名")).LoadFilter = drr("菜单名") & "= '" & _UserName & "'"

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/27 22:48:00 [显示全部帖子]

http://www.foxtable.com/webhelp/topics/1928.htm

msgbox(drr("菜单名") & "= '" & _UserName & "'" )

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/28 8:32:00 [显示全部帖子]

Tables("权限管理").Visible = (User.Type <> UserTypeEnum.User )

If User.Type = UserTypeEnum.User Then

msgbox("_UserGroup=" & _UserGroup)

For Each drr As DataRow In DataTables("权限管理").Select("分组 = '" & _UserGroup & "'" )

If drr.IsNull("列名") Then

Tables(drr("表名")).Visible = Not drr("不可见")

Tables(drr("表名")).AllowEdit = Not drr("不可编辑")

Else

Tables(drr("表名")).Cols(drr("列名")).Visible = Not drr("不可见")

Tables(drr("表名")).Cols(drr("列名")).AllowEdit = Not drr("不可编辑")

End If

msgbox("条件加载=" & drr("条件加载"))

If drr.IsNull("条件加载") Then

msgbox(2)

If _UserGroup = drr("分组")

msgbox(drr("条件加载") & "= '" & _UserName & "'")

DataTables(drr("表名")).LoadFilter = drr("条件加载") & "= '" & _UserName & "'"

Else

DataTables(drr("加载表名")).LoadFilter = ""

End If

DataTables(drr("表名")).Load()

End If

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/28 10:22:00 [显示全部帖子]

请上传实例测试

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/28 11:12:00 [显示全部帖子]

请上传实例测试

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/29 8:41:00 [显示全部帖子]

For Each drr As DataRow In DataTables("权限管理").Select("分组 = '" & _UserGroup & "'" )

For Each drr2 As DataRow In DataTables("权限管理").Select("用户名 = '" & _UserName & "'" )

改为

For Each drr As DataRow In DataTables("权限管理").Select("分组 = '" & _UserGroup & "' and 用户名 = '" & _UserName & "'" )

下一主题 >> << 上一主题

主题：权限控制