536
社区成员
发帖
与我相关
我的任务
分享高手指点：在lotus script中，如何判断用户是否具有数据库acl中设置的角色？
在数据库acl中设置有角色[车辆调度]，但是如何用lotus script 判断打开文挡的用户是否拥有这个角色？
...全文
请发表友善的回复…
发表回复
huihuihui 2004-03-30
- 打赏
- 举报
好贴，支持！
xiaoyuer0851 2004-01-07
- 打赏
- 举报
同意楼上的几位^^
yangxjn 2004-01-07
- 打赏
- 举报
up
skystar99047 2004-01-06
- 打赏
- 举报
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim user As New NotesName(当前username)
Set acl = db.ACL
Set entry = acl.GetEntry( user.Abbreviated )
If entry.IsRoleEnabled("车辆调度") Then
......
Else
......
End If
Dim entry As NotesACLEntry
Dim user As New NotesName(当前username)
Set acl = db.ACL
Set entry = acl.GetEntry( user.Abbreviated )
If entry.IsRoleEnabled("车辆调度") Then
......
Else
......
End If
CrazyDeng 2004-01-06
- 打赏
- 举报
Up
就是这样判断了！
就是这样判断了！
yanceyxie 2004-01-06
- 打赏
- 举报
可以在button的Click事件中使用下面的代码
Dim index As Variant
index = Evaluate(|@IsMember("[车辆调度]"; @UserRoles)|)
If index(0) Then
Msgbox "当前用户包含 [车辆调度] 角色", 0 + 48, "提示"
Else
Msgbox "当前用户不包含 [车辆调度] 角色", 0 + 16, "提示"
End If
yancey_xie在北京祝你成功!!!
Dim index As Variant
index = Evaluate(|@IsMember("[车辆调度]"; @UserRoles)|)
If index(0) Then
Msgbox "当前用户包含 [车辆调度] 角色", 0 + 48, "提示"
Else
Msgbox "当前用户不包含 [车辆调度] 角色", 0 + 16, "提示"
End If
yancey_xie在北京祝你成功!!!
ibm123 2004-01-06
- 打赏
- 举报
Roles=evaluate(|@IsMember("[车辆调度]";@UserRoles)|)
if not Roles(0) then
msgbox "您没有车辆调度的权限!",48,"提示"
exit sub
end if
if not Roles(0) then
msgbox "您没有车辆调度的权限!",48,"提示"
exit sub
end if
ibm123 2004-01-06
- 打赏
- 举报
Roles=evaluate(|@IsMember("[角色]";@UserRoles)|)
