AutolockPeriod : Integer;
AutolockPeriod : integer;
Свойство AutoLockPeriod определяет период в днях, по истечении которого автоматически блокируются учетные записи.
Значение по умолчанию 0, блокировок нет.
Для выполнения примера предполагается наличие на форме компонента IntegerEdit с идентификатором IntegerEdit1 и Button с идентификатором Button1.
Добавьте ссылки на системную сборку Metabase.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
MB: IMetabase;
Security: IMetabaseSecurity;
Policy: IMetabasePolicy;
Begin
MB := MetabaseClass.Active;
Security := MB.Security;
Policy := Security.Policy;
Policy.AutoLockPeriod := IntegerEdit1.Value;
Security.Apply;
End Sub Button1OnClick;
После выполнения после нажатия кнопки будет установлен период в днях, заданный в компоненте IntegerEdit.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.
Imports Prognoz.Platform.Interop.Metabase;
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
MB: IMetabase;
Security: IMetabaseSecurity;
Policy: IMetabasePolicy;
Begin
MB := Self.Metabase;
Security := MB.Security;
Policy := Security.Policy;
Policy.AutoLockPeriod := decimal.ToInt32(numericUpDown1.Value);
Security.Apply();
End Sub;
См. также: