Вызов стандартного диалога изменения пароля текущего пользователя.
Параметры команды передаются в свойстве Data. Для работы команды в данном свойстве необходимо указать следующее значение:
Тип значения | Описание |
IMetabase | Репозиторий, в котором необходимо сменить пароль для текущего пользователя. |
Отсутствуют
Для выполнения примера предполагается наличие формы и расположенной на ней кнопки с наименованием «Button1».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Target: IUiCommandTarget;
Context: IUiCommandExecutionContext;
Begin
Target := WinApplication.Instance.GetPluginTarget("Adm");
Context := Target.CreateExecutionContext;
Context.Data := MetabaseClass.Active;
Target.Execute("ChangePassword", Context);
End Sub Button1OnClick;
При нажатии на кнопку будет открыт стандартного диалога смены пароля для текущего пользователя.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Ui;
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
WinApp: WinApplication = New WinApplicationClass_2();
Target: IUiCommandTarget;
Context: IUiCommandExecutionContext;
Begin
Target := WinApp.GetPluginTarget("Adm");
Context := Target.CreateExecutionContext();
Context.Data := Self.Metabase;
Target.Execute("ChangePassword", Context, Null);
End Sub;
См. также: