IMetabaseObjectParamsBox.Object

Синтаксис Fore

Синтаксис Fore.NET

Object: Prognoz.Platform.Interop.Metabase.IMetabaseObject;

Описание

Свойство Object определяет объект репозитория, работа с параметрами которого осуществляется в компоненте.

Объект, указываемый в данном свойстве, должен быть открыт на редактирование. После изменения списка параметров в компоненте для сохранения изменений необходимо у объекта вызвать метод Save.

Если свойство Object задается в инспекторе объектов, то объект автоматически будет открыт на редактирование при запуске формы.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенных на ней двух кнопок с наименованиями «Button1» и «Button2» и компонента «MetabaseObjectParamsBox» с наименованием «MetabaseObjectParamsBox1». Также в репозитории должен существовать объект с идентификатором «Report_1».

Class TESTForm: Form
    MetabaseObjectParamsBox1: MetabaseObjectParamsBox;
    Button1: Button;
    Button2: Button;

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        MB: IMetabase;
    Begin
        MB := MetabaseClass.Active;
        MetabaseObjectParamsBox1.Object := MB.ItemById("Report_1").Edit;
    End Sub Button1OnClick;

    Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        MetabaseObjectParamsBox1.Object.Save;
    End Sub Button2OnClick;

End Class TESTForm;

При нажатии на кнопку «Button1» указанный объект будет подключен к компоненту MetabaseObjectParamsBox. После редактирования параметра и нажатия кнопки «Button2» все изменения параметров будут сохранены.

Пример Fore.NET

Для выполнения примера предполагается наличие .NET-формы, расположенных на ней двух кнопок с наименованиями «Button1» и «Button2» и компонента «MetabaseObjectParamsBoxNet» с наименованием «MetabaseObjectParamsBoxNet1». Также в репозитории должен существовать объект с идентификатором «Report_1».

Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Metabase;

Public Partial Class TESTForm: Prognoz.Platform.Forms.Net.ForeNetForm
    Public Constructor TESTForm();
    Begin
        InitializeComponent();
    End Constructor;

    Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
    Var
        MB: IMetabase;
    Begin
        MB := Self.Metabase;
        metabaseObjectParamsBoxNet1.Object := MB.ItemById["Report_1"].Edit();
    End Sub;

    Private Sub button2_Click(sender: System.Object; e: System.EventArgs);
    Begin
        metabaseObjectParamsBoxNet1.Object.Save();
    End Sub;

End Class;

См. также: