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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 角色权限问题

共有4483人关注过本帖树形打印复制链接主题：角色权限问题

yifan3429

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

加好友

发短信

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

角色权限问题 发帖心情

Post By：2013/6/15 14:18:00 [显示全部帖子]

If User.neme = "张三" Then

DataTables("进度").LoadFilter = ""
Else
DataTables("进度").LoadFilter = "执行者 = '" & User.Name & "'"
End If
DataTables("进度").Load()

我把它替换成角色后就不行了如何才能达到如果角色是经理就加载全部数据否则只加载当前登陆用户的数据

If User.Roles = "企划部经理" Then

求高手帮忙

yifan3429

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

加好友

发短信

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

Post By：2013/6/15 15:25:00 [显示全部帖子]

以下是引用Bin在2013-6-15 14:20:00的发言：

通过IsRole方法，可以判断用户具备某个角色：

If User.IsRole("审核") Then
MessageBox.Show("当前用户具备审核功能!")
End If

Roles
返回用户的角色，一个用户可以有多个角色，用逗号分隔。

http://www.foxtable.com/help/topics/0609.htm

If User.Roles = "企划部经理" Then

DataTables("进度").LoadFilter = ""
Else
DataTables("进度").LoadFilter = "执行者 = '" & User.Name & "'"
End If
DataTables("进度").Load()

我这样改写但是不会加载数据

原来的写法是张三登录就可以看看到所有用户的数据现在通过如果角色是经理那么可以看到所有的数据否则只能看到当前登录用用户的数据。

我要怎样改才能实现

[此贴子已经被作者于2013-6-15 15:27:41编辑过]

yifan3429

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

加好友

发短信

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

Post By：2013/6/15 16:01:00 [显示全部帖子]

刚才没有理解过来现在明白了，搞定了如下

If User.IsRole("企划部经理") Then
DataTables("总表").LoadFilter = ""
Else
DataTables("总表").LoadFilter = "工程师 = '" & User.Name & "'"
End If
DataTables("总表").Load()

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

主题：角色权限问题