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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不同的用户看到不同的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189333)

--  作者：BIAO
--  发布时间：2023/11/25 15:13:00
--  不同的用户看到不同的行

1.用户管理中定义了角色：一般用户；高级用户

2.在数据表中增加了一列“创建人”，同时取值为当前用户名称。e.DataRow("创建人") = User.Name

3.想实现：“高级用户”可以看到所有行；其他人只能看到("创建人") 等于当前登录用户的行

如下图：王海龙登录后只能看到("创建人") =王海龙的行；王文山登录后只能看到("创建人") =王文山的行；康向湘是高级用户可以看到所有行

此主题相关图片如下：qq截图20231125145921.jpg

[此贴子已经被作者于2023/11/25 15:15:23编辑过]

--  作者：有点蓝
--  发布时间：2023/11/25 16:45:00
--
参考：http://www.foxtable.com/webhelp/topics/2346.htm、http://www.foxtable.com/webhelp/topics/2256.htm

LoadUserSetting事件

If User.IsRole("高级用户") Then
    DataTables("订单").LoadFilter = ""
Else
    DataTables("订单").LoadFilter = "创建人 = \'" & User.Name & "\'"
End If
DataTables("订单").Load()

[此贴子已经被作者于2023/11/25 16:45:40编辑过]