LOTUS/DOMINO学习笔记之判断是否为数据库管理员和用户的角色

最新推荐文章于 2019-07-23 04:35:41 发布

转载最新推荐文章于 2019-07-23 04:35:41 发布 · 222 阅读

文章标签：

#数据库

本文提供了两个函数，用于在Notes环境下检查用户的数据库管理员权限及特定角色。IsDbManager函数通过遍历数据库管理者列表来验证用户是否为数据库管理员；IsAuthor函数则评估用户是否拥有[图书管理员]或[系统管理员]的角色。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在对数据库操作的过程中，需要对数据库进行权限判断，因此是否为管理员或当前的用户角色非常重要

Function IsDbManager As Variant
    Dim db As NotesDatabase
    Dim session  As New NotesSession
    Dim user As String
    Dim commuser As String
    commuser=session.CommonUserName
    user=session.UserName
    Set db=session.CurrentDatabase
    IsDbManager=False
    Forall m In db.Managers
        If (m=user Or m=commuser) Then
            IsDbManager=True
            Exit Forall
        End If
    End Forall
End Function

判别用户的角色

Function IsAuthor As Variant
    Dim db As NotesDatabase
    Dim session As New NotesSession
    Dim colls As NotesDocumentCollection
    Dim user As String
    Dim commuser As String
    Dim roles As Variant
    Set db=session.CurrentDatabase
    user=session.UserName
    commuser=session.CommonUserName

    roles=Evaluate("@Name([cn];@UserRoles)")

    IsAuthor=False

    Forall r In roles
        If r="[图书管理员]" Or r="[系统管理员]" Then
            IsAuthor=True
            Exit Forall
        End If
    End Forall

End Function