IMetabaseGroup.IsMember

Синтаксис

IsMember(Subject: ISecuritySubject): Boolean;

IsMember(Prognoz.Platform.Interop.Metabase.ISecuritySubject): System.Boolean;

Параметры

Subject. Субъект безопасности, который необходимо проверить.

Описание

Метод IsMember осуществляет проверку наличия указанного субъекта безопасности в текущей группе пользователей.

Комментарии

Метод возвращает True, если субъект безопасности, передаваемый в качестве параметра Subject, является членом данной группы пользователей.

Пример

Для выполнения примера добавьте ссылку на системную сборку Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    MG: IMetabaseGroups;
    MGroup: IMetabaseGroup;
    SSS: ISecuritySubjects;
    SS: ISecuritySubject;
    S: String;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    MG := MS.Groups;
    MGroup := MG.Item(0);
    SSS := MS.AllUsers;
    SS := SSS.Item(200);
    If MGroup.IsMember(SS) Then
        Debug.WriteLine("Пользователь состоит в первой группе");
    Else
        Debug.WriteLine("Пользователь не состоит в первой группе");
    End If;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params : StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    MG: IMetabaseGroups;
    MGroup: IMetabaseGroup;
    SSS: ISecuritySubjects;
    SS: ISecuritySubject;
    S: String;
Begin
    MB := Params.Metabase;
    MS := MB.Security;
    MG :=MS.Groups;
    MGroup := MG.Item[0];
    SSS := MS.AllUsers;
    SS := SSS.Item[200];
    If MGroup.IsMember(SS) Then
        System.Diagnostics.Debug.WriteLine("Пользователь состоит в первой группе");
    Else
        System.Diagnostics.Debug.WriteLine("Пользователь не состоит в первой группе");
    End If;
End Sub;

После выполнения примера в консоль будет выведен результат проверки, является ли пользователь с индексом «200» членом первой группы пользователей.

См. также:

IMetabaseGroup