Открытие репозитория в навигаторе объектов.
Параметры команды передаются в свойстве Data. Для работы команды в данном свойстве необходимо указать следующие значение:
| Параметр | Описание |
| IMetabase | Репозиторий, который необходимо открыть в навигаторе объектов. |
Используется для открытия в навигаторе объектов репозитория, к которому уже осуществлено подключение.
Для выполнения примера предполагается наличие формы и расположенной на ней кнопки "Button1". В настройках подключений платформы имеется описание репозитория "Test". При подключении к нему будут использоваться имя пользователя и пароль "Test".
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
MB: IMetabase;
MAN: IMetabaseManager;
Def: IMetabaseDefinition;
Cred: ICredentials;
Target: IUiCommandTarget;
Context: IUiCommandExecutionContext;
Begin
MB := MetabaseClass.Active;
MAN := MB.Definition.Manager;
Cred := MAN.Packs.Item(0).Package.CreateCredentials(AuthenticationMode.Password);
Def := MAN.Definitions.FindById("Test");
(Cred As IPasswordCredentials).UserName := "Test";
(Cred As IPasswordCredentials).Password := "Test";
MB := Def.Open(Cred);
Target := WinApplication.Instance.GetPluginTarget("Std");
Context := Target.CreateExecutionContext;
Context.Data := MB;
Target.Execute("OpenNavigator", Context);
End Sub Button1OnClick;
При нажатии на кнопку будет осуществлено подключение к репозиторию "Test". Окно репозитория будет открыто в навигаторе объектов.
См. также: