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

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

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

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2464 积分：22751 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2014/5/27 16:38:00 [只看该作者]

以下是引用有点甜在2014-5-27 16:23:00的发言：

只要设置了，就不可能会加载，你再认真测试一下吧，只会加载符合条件的数据

Dim filter As String = "1=1 "
Select Case User.Roles
    Case "经理"
        filter = "部门 = '" & User.Group & "'"
    Case "主管"
        filter = "1=1"
    Case "职员"
        filter = "职员 = '" & User.Name & "'"
End Select

If e.DataTable.LoadFilter > "" Then
filter = filter & " and " & e.DataTable.Loadfilter
End If
e.DataTable.LoadFilter = filter

老师还是没有起到控制的功能、你看下我17楼的例子

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/5/27 16:41:00 [只看该作者]

以下是引用yifan3429在2014-5-27 16:38:00的发言：

老师还是没有起到控制的功能、你看下我17楼的例子

已经看了你17楼例子了。代码就是这样写的，具体的逻辑，是红色代码，自己看着办吧，不知道你要怎样控制

Dim filter As String = "1=1 "
Select Case User.Roles
    Case "经理"
        filter = "部门 = '" & User.Group & "'"
    Case "主管"
        filter = "1=1"
    Case "职员"
        filter = "职员 = '" & User.Name & "'"

Case Else

filter = "1=2"
End Select

If e.DataTable.LoadFilter > "" Then
filter = filter & " and " & e.DataTable.Loadfilter
End If
e.DataTable.LoadFilter = filter

[此贴子已经被作者于2014-5-27 16:41:27编辑过]

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

总数 22 上一页 1 2 3

主题：权限多级控制