LockedState: MetabaseUserLockedState;
Свойство LockedState определяет состояние блокировки пользователя.
При установке состояния «LockedForever» не будет возможности произвести разблокировку пользователя. Блокировать другого пользователя может пользователь, обладающий привилегией «Создание, удаление пользователей». По умолчанию данной привилегией обладает ADMIN.
Среди субъектов безопасности, созданных в менеджере безопасности текущего репозитория, имеется пользователь «USER_TEST».
Sub UserProc;
Var
mb: IMetabase;
se: IMetabaseSecurity;
mbu: IMetabaseUser;
Begin
mb := MetabaseClass.Active;
se := mb.Security;
mbu := se.ResolveName("USER_TEST") As IMetabaseUser;
mbu.LockedState := MetabaseUserLockedState.Locked;
se.Apply;
End Sub UserProc;
После выполнения примера пользователь «USER_TEST» будет заблокирован.
См. также: