AddSubject(Value: ISecuritySubject; UpdateType: MetabaseSecuritySubjectUpdateType);
AddSubject(Value: Prognoz.Platform.Interop.Metabase.ISecuritySubject; UpdateType: Prognoz.Platform.Interop.Metabase.MetabaseSecuritySubjectUpdateType);
Value. Субъект безопасности «Форсайт. Аналитическая платформа»: пользователь или доменная группа пользователей;
UpdateType. Способ обновления.
Метод AddSubject добавляет субъект (пользователя или доменную группу пользователей) в список для обновления.
Для выполнения примера подключите к модулю системную сборку Metabase. В «Форсайт. Аналитическая платформа» должна быть добавлена доменная группа пользователей с наименованием «Foresight\TESTGROUP».
Sub UserProc;
Var
Sec: IMetabaseSecurity;
UsUp: IMetabaseUsersUpdate;
Subj: ISecuritySubject;
Begin
Sec := MetabaseClass.Active.Security;
UsUp := Sec.CreateUsersUpdate;
Subj := Sec.ResolveName("Foresight\TESTGROUP") As ISecuritySubject;
UsUp.AddSubject(Subj, MetabaseSecuritySubjectUpdateType.DBGrant);
// Обновляем
Sec.UpdateUsers(UsUp);
End Sub UserProc;
После выполнения примера будет обновлена группа пользователей.
В «Форсайт. Аналитическая платформа» должна быть добавлена доменная группа пользователей с наименованием «Foresight\TESTGROUP». Указанная процедура является точкой входа для .NET-сборки.
Public Shared Sub Main(Params: StartParams);
Var
Sec: IMetabaseSecurity;
UsUp: IMetabaseUsersUpdate;
Subj: ISecuritySubject;
Begin
Sec := Params.Metabase.Security;
UsUp := Sec.CreateUsersUpdate();
Subj := Sec.ResolveName("Foresight\TESTGROUP") As ISecuritySubject;
UsUp.AddSubject(Subj, MetabaseSecuritySubjectUpdateType.mesesuuptyDBGrant);
// Обновляем
Sec.UpdateUsers(UsUp);
End Sub;
После выполнения примера будет обновлена группа пользователей.
См. также: