IAdoMdDimensionInstance.DimensionInstance

Синтаксис Fore

DimensionInstance: IDimInstance;

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

DimensionInstance: Prognoz.Platform.Interop.Dimensions.IDimInstance;

Описание

Свойство DimensionInstance возвращает экземпляр справочник, описываемый интерфейсом IDimInstance.

Пример Fore

Для выполнения примера предполагается наличие формы и расположенных на ней компонентов UiDimension и DimensionTree с наименованиями «UiDimension1» и «DimensionTree1» соответственно. В репозитории имеется каталог ADOMD с идентификатором «ADOMDTest». В каталоге имеется справочник ADOMD с идентификатором «TestDim».

Class TESTForm: Form
    UiDimension1: UiDimension;
    DimensionTree1: DimensionTree;

    Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
    Var
        MB: IMetabase;
        ADOMDDim: IAdoMdDimensionInstance;
        DimInst: IDimInstance;
    Begin
        MB := MetabaseClass.Active;
        ADOMDDim := MB.ItemByIdNamespace("TestDim", MB.GetObjectKeyById("ADOMDTest")).Open(Null) As IAdoMdDimensionInstance;
        UiDimension1.Active := False;
        UiDimension1.Instance := ADOMDDim.DimensionInstance;
        DimensionTree1.Dimension := UiDimension1;
    End Sub TESTFormOnCreate;

End Class TESTForm;

При запуске формы будет получен открытый экземпляр справочника ADOMD. Данный экземпляр будет загружен в компонент «UiDimension1», который будет установлен в качестве источника данных для «DimensionTree1».

Пример Fore.NET

Для выполнения примера предполагается наличие .NET-формы и расположенных на ней компонентов UiDimensionNet и DimensionTreeNet с наименованиями «UiDimensionNet1» и «DimensionTreeNet1» соответственно. В репозитории имеется каталог ADOMD с идентификатором «ADOMDTest». В каталоге имеется справочник ADOMD с идентификатором «TestDim».

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

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

    Private Sub TESTForm_Load(sender: System.Object; e: System.EventArgs);
    Var
        MB: IMetabase;
        ADOMDDim: IAdoMdDimensionInstance;
        DimInst: IDimInstance;
    Begin
        MB := Self.Metabase;
        ADOMDDim := MB.ItemByIdNamespace["TestDim", MB.GetObjectKeyById("ADOMDTest")].Open(Null) As IAdoMdDimensionInstance;
        UiDimensionNet1.Active := True;
        UiDimensionNet1.ComponentBox.Instance := ADOMDDim.DimensionInstance;
        DimensionTreeNet1.Dimension := UiDimensionNet1;
    End Sub;

End Class;

При запуске формы будет получен открытый экземпляр справочника ADOMD. Данный экземпляр будет загружен в компонент «UiDimensionNet1», который будет установлен в качестве источника данных для «DimensionTreeNet1».

См. также:

IAdoMdDimensionInstance