IMsModel.Chart

Синтаксис Fore

Chart: IChart;

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

Chart: Prognoz.Platform.Interop.Chart.IChart;

Описание

Свойство Chart возвращает диаграмму модели.

Комментарии

Диаграмма доступна только после расчета модели с помощью метода IMsModel.Execute.

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей компонент ChartBox с идентификатором «ChartBox1». В репозитории должен существовать контейнер моделирования с идентификатором «MS», содержащий модель с идентификатором «MODEL_D».

Добавьте ссылки на системные сборки: Metabase, Ms.

Sub UserProc;
Var
    mb: IMetabase;
    MsKey: Integer;
    Model: IMsModel;
    Calcul: IMsModelCalculation;
    Per: IMsModelPeriod;
Begin
    // Получаем репозиторий
    mb := MetabaseClass.Active;
    // Получаем ключ контейнера моделирования
    MsKey := mb.GetObjectKeyById("MS");
    // Получаем модель
    Model := mb.ItemByIdNamespace("MODEL_D", MsKey).Bind As IMsModel;
    // Создаем параметры расчета модели
    Calcul := Model.CreateCalculation;
    // Задаем период расчета
    Per := Calcul.Period;
    Per.IdentificationStartDate := DateTime.Parse("01.01.1990");
    Per.IdentificationEndDate := DateTime.Parse("31.12.2010");
    Per.ForecastStartDate := DateTime.Parse("01.01.2011");
    Per.ForecastEndDate := DateTime.Parse("31.12.2015");
    // Рассчитываем модель
    Model.Execute(Calcul, -1);
    // Отображаем диаграмму модели в компоненте ChartBox1
    ChartBox1.Chart := Model.Chart;
End Sub UserProc;

В результате выполнения примера в компоненте «ChartBox1» будет отображена диаграмма модели «MODEL_D».

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.Chart;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Ms;

Private Sub UserProc();
Var
    mb: IMetabase;
    MsKey: uinteger;
    Model: IMsModel;
    Calcul: IMsModelCalculation;
    Per: IMsModelPeriod;
Begin
    // Получаем репозиторий
    mb := Self.Metabase;
    // Получаем ключ контейнера моделирования
    MsKey := mb.GetObjectKeyById("MS");
    // Получаем модель
    Model := mb.ItemByIdNamespace["MODEL_D", MsKey].Bind() As IMsModel;
    // Создаем параметры расчета модели
    Calcul := Model.CreateCalculation();
    // Задаем период расчета
    Per := Calcul.Period;
    Per.IdentificationStartDate := DateTime.Parse("01.01.1990");
    Per.IdentificationEndDate := DateTime.Parse("31.12.2010");
    Per.ForecastStartDate := DateTime.Parse("01.01.2011");
    Per.ForecastEndDate := DateTime.Parse("31.12.2015");
    // Рассчитываем модель
    Model.Execute(Calcul, -1 As uinteger, 0);
    // Отображаем диаграмму модели в компоненте ChartBox1
    chartBoxNet1.CtrlBox.Chart := Model.Chart;
End Sub UserProc;

См. также:

IMsModel