IMetabaseUser.CannotChangePassword

Синтаксис

CannotChangePassword: Boolean;

CannotChangePassword: System.Boolean;

Описание

Свойство CannotChangePassword определяет признак запрета смены пароля пользователем.

Комментарии

По умолчанию свойству установлено значение False, при этом пользователь может сменить собственный пароль. Если свойству установить значение True, то при попытке изменить пароль будет генерироваться исключительная ситуация.

Пример

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

Sub UserProc;
Var
    MB: IMetabase;
    User: IMetabaseUser;
    Users: IMetabaseUsers;
    MS: IMetabaseSecurity;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    Users := MS.Users;
    User := Users.Item(0);
    // Запретим смену пароля пользователем
    User.CannotChangePassword := True;
    // Сохраним изменения
    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;
    User: IMetabaseUser;
    Users: IMetabaseUsers;
    MS: IMetabaseSecurity;
    Lic: Object;
Begin
    MB := Params.Metabase;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
    MS := MB.Security;
    Users := MS.Users;
    User := Users.Item[0];
    // Запретим смену пароля пользователем
    User.CannotChangePassword := True;
    // Сохраним изменения
    MS.Apply();
    // Освободим лицензию
    Lic := Null;
End Sub;

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

См. также:

IMetabaseUser