Page (Как обратиться к конкретной странице)

stanislove · April 2013

Пожалуйста, подскажите. Я уже замучался.
Создаю отчет через дизайнер, вверху GroupHeader, ниже табличка, а еще ниже график, выводится отчет нормально:

         DataModule1.frxReport1.LoadFromFile(sPath+'\Reports\'+MySelectedReport.fFileReport,true);
         DataModule1.frxReport1.Report.DataSet:=nil;
         DataModule1.frxReport1.PrepareReport(true);

         CoSeasonReport; //вот здесь проблема с графиками

         DataModule1.frxReport1.ShowReport(true);

В процедуре CoSeasonReport создаю графики (TfrxChart):

  
  Page1 := DataModule1.frxReport1.FindObject('Page1') as TfrxReportPage;

  Chart1 := DataModule1.frxReport1.FindObject('Chart1') as TfrxChartView;
  for ...
  MyPage:=Page1 //???????????

  Charti:= TfrxChartView.Create(MyPage);
  MyLineseries:=TLineSeries.Create(Charti);
   ...
   Charti.Chart.AddSeries(MyLineseries);
   SerT1:= Charti.SeriesData.Add;

Графики создаются нормально, НО выводятся только на первой странице один под другим (виден только последний - т.е. верхний).
Как мне разместить графики на всех уже созданных (благодаря StartNewPage=true GroupHeader) страницах.
Не хотелось бы по другому, поскольку все уже готово, нужно только каждый график выводить на следующей странице MyPage:=? (но не создавая новых страниц, т.к. там уже есть таблицы)

DimaBr · April 2013

Создавайте чат на нужном бенде

Charti:= TfrxChartView.Create(НУЖНЫЙ БЭНД);

stanislove · April 2013

DimaBr написал: »
Создавайте чат на нужном бенде
Charti:= TfrxChartView.Create(НУЖНЫЙ БЭНД);

Спасибо, но это проблему не решает. Все ChartView создаются на всех страницах (для восьми страниц 8*8=64 ChartView) и на всех страницах виден один и тот же график (последний). Для каждой страницы должна быть своя таблица и свой график. Пока что таблицы разные, а график - один.
Таблицы создаются без кода (просто набросал компоненты на отчет). Графики в цикле хочу вывести на этот отчет с таблицами

DimaBr · April 2013

У вас 8 страниц в дизайнере ?

stanislove · April 2013

DimaBr написал: »

У вас 8 страниц в дизайнере ?

Одна - Page1. 8 и больше получается в программе

DimaBr · April 2013

Если у вас 8 страниц в готовом отчёте и 1 страница шаблона(дизайнера), то поместите ОДИН график на нужный бэнд.

stanislove · April 2013

А подскажите, пожалуйста, как потом добавлять данные в график или какой бэнд нужный?. Я добавляю в график серии вот так:

  for iMonth:=1 to DataModule1.odSetCoSeasonMonth.RecordCount do begin
    DataModule1.odSetCoSeasonGS.First;
    for iGS:=1 to DataModule1.odSetCoSeasonGS.RecordCount do begin

MyPage:= TfrxReportPage.Create(DataModule1.frxReport1);     //MyPage:= Page1
Charti:= TfrxChartView.Create(MyPage);                                 //Charti:= TfrxChartView.Create(MyGroupFooter);
MyLineseries:=TLineSeries.Create(Charti);
MyLineseriesT:=TLineSeries.Create(Charti);
       begin
          DataModule1.odSetSeasonSeries.Close;
          DataModule1.odSetSeasonSeries.SQL.Text:='select * from V_CO_SEASON '
              +' where CURR_MONTH = '+DataModule1.odSetCoSeasonMonth.FieldByName('CURR_MONTH').AsString
              +' and CURR_YEAR = '+IntToStr(iCURR_YEAR)
              +' and MGRID = '+DataModule1.odSetCoSeasonGS.FieldByName('MGRID').AsString
              +' order by DATEM ';
          DataModule1.odSetSeasonSeries.Open;
          DataModule1.odSetSeasonSeries.First;
          sx:=''; sy:=''; syT:='';
          while not DataModule1.odSetSeasonSeries.Eof do
            begin
              if not DataModule1.odSetSeasonSeries.FieldByName('V').IsNull then
                begin
                  sx:=sx+DataModule1.odSetSeasonSeries.FieldByName('CURR_DAY').AsString+';';
                  sy:=sy+DataModule1.odSetSeasonSeries.FieldByName('V').AsString+';';
                end;
              if not DataModule1.odSetSeasonSeries.FieldByName('TEMP').IsNull then
                syT:=syT+DataModule1.odSetSeasonSeries.FieldByName('TEMP').AsString+';';
              DataModule1.odSetSeasonSeries.Next;
            end;
          CoSeasonReportMemo(MyPage,1);
          if sx<>'' then
            begin

              MyLineseries.Title:='V '+IntToStr(iCURR_YEAR);
              Charti.Chart.AddSeries(MyLineseries);
              SerV1 := Charti.SeriesData.Add;
              with SerV1 do
                begin
                  DataType:= dtFixedData;
                  XSource := sx;
                  YSource := sy;
                  XType:=xtNumber;
                end;
             end;
          if syT<>'' then
            begin
              MyLineseriesT.Title:='TГЇГ®Гў '+IntToStr(iCURR_YEAR);
              MyLineseriesT.Color:=MyLineseries.Color;
              Charti.Chart.AddSeries(MyLineseriesT);
              SerT1:= Charti.SeriesData.Add;
              with SerT1 do
                begin
                  DataType:= dtFixedData;
                  XSource := sx;
                  YSource := syT;
                  XType:=xtNumber;
                end;
            end;
...

Если Charti:= TfrxChartView.Create(MyGroupFooter), то все графики добавляются на ПЕРВЫЙ (GroupFooter1), а затем повторяются на каждой странице

Chart в дизайнере нужен только для того, чтобы перетащить оттуда свойства.
Верхнюю таблицу в коде не создаю, потому что код выполняется несколько минут (т.к. почти 400 элементов МемоВью на каждой странице)
Задать правильно серии для Chart в дизайнере так, чтобы они соответствовали таблицам не получается. Если брать данные из бэнда МастерДата1 - выводяться все данные, не ограниченные месяцем

Page (Как обратиться к конкретной странице)

Комментарии

Оставить комментарий