IMetabaseUser.LockedState

Синтаксис

LockedState: MetabaseUserLockedState;

LockedState: Prognoz.Platform.Interop.Metabase.MetabaseUserLockedState;

Описание

Свойство LockedState определяет состояние блокировки пользователя.

Комментарии

При установке состояния «LockedForever» не будет возможности произвести разблокировку пользователя. Блокировать другого пользователя может пользователь, обладающий привилегией «Создание, удаление пользователей». По умолчанию данной привилегией обладает ADMIN.

Пример

Для выполнения примера убедитесь, что в менеджере безопасности содержится пользователь USER.

Добавьте ссылки на системные сборки: Metabase, ForeSystem (для примера на Fore.NET).

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    User: IMetabaseUser;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    // Заблокируем пользователя USER
    User := MS.ResolveName("USER") As IMetabaseUser;
    User.LockedState := MetabaseUserLockedState.LockedForever;
    // Сохраним изменения
    MS.Apply;
    // Освободим лицензию
    Lic := Null;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    User: IMetabaseUser;
    Lic: Object;
Begin
    MB := Params.Metabase;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
    MS := MB.Security;
    // Заблокируем пользователя USER
    User := MS.ResolveName("USER") As IMetabaseUser;
    User.LockedState := MetabaseUserLockedState.meuslostLockedForever;
    // Сохраним изменения
    MS.Apply();
    // Освободим лицензию
    Lic := Null;
End Sub;

После выполнения примера пользователь USER будет заблокирован навсегда.

См. также:

IMetabaseUser