Как программно создать отчет

Комментарии

• gpi

  April 2006 отредактировано 21:08

  Вот пример построения отчёта из кода

  procedure TForm1.Button1Click(Sender: TObject);
  var
   Table1: TTable;
   frxReport1: TfrxReport;
   frxDBDataSet1: TfrxDBDataSet;
   Page: TfrxReportPage;
   Band: TfrxBand;
   DataBand: TfrxMasterData;
   Memo: TfrxMemoView;
  begin
  { создаём таблицу }
  Table1 := TTable.Create(Form1);
  Table1.DatabaseName := 'DBDEMOS';
  Table1.TableName := 'customer.db';
  Table1.Active := True;
  { создаём отчет }
  frxReport1 :=TfrxReport.Create(Form1);
  { создаём датасет }
  frxDBDataSet1 :=TfrxDBDataSet.Create(Form1);
  frxDBDataSet1.UserName:='frxDBDataSet1';
  frxDBDataSet1.DataSet:=Table1;
  { очищаем отчет }
  frxReport1.Clear;
  { очищаем скрипт }
  frxReport1.ScriptText.Clear;
  { добавляем источник данных в список доступных для отчета }
  frxReport1.DataSets.Add(frxDBDataSet1);
  { добавляем страницу }
  Page := TfrxReportPage.Create(frxReport1);
  { создаем уникальное имя }
  Page.CreateUniqueName;
  { устанавливаем размеры полей, бумаги и ориентацию по умолчанию }
  Page.SetDefaults;
  { меняем ориентацию бумаги }
  Page.Orientation := poLandscape;
  { добавляем report title }
  Band := TfrxReportTitle.Create(Page);
  Band.CreateUniqueName;
  { для бэнда достаточно установить координату Top и высоту }
  { обе координаты - в пикселах }
  Band.Top := 0;
  Band.Height := 20;
  { добавляем объект на report title }
  Memo := TfrxMemoView.Create(Band);
  Memo.CreateUniqueName;
  Memo.Text := 'Hello FastReport!';
  Memo.Height := 20;
  { этот объект будет растянут на ширину бэнда }
  Memo.Align := baWidth;
  { добавляем master data }
  DataBand := TfrxMasterData.Create(Page);
  DataBand.CreateUniqueName;
  DataBand.DataSet := frxDBDataSet1;
  { координата Top не должна пересекать ранее добавленный бэнд! }
  DataBand.Top := 100;
  DataBand.Height := 20;
  { добавляем объект на master data }
  Memo := TfrxMemoView.Create(DataBand);
  Memo.CreateUniqueName;
  Memo.OnBeforePrint:=Memo.Name+'OnBeforePrint';
  { добавляем в скрипт обработчик }
  frxReport1.ScriptText.Add('procedure '+Memo.Name+'OnBeforePrint(Sender: TfrxComponent);');
  frxReport1.ScriptText.Add('begin');
  frxReport1.ScriptText.Add(' if <frxDBDataSet1."CustNo">=1231 then '+Memo.Name+'.Color:=clRed else '+Memo.Name+'.Color:=clNone;');
  frxReport1.ScriptText.Add('end;');
  { подключаем к данным }
  Memo.DataSet := frxDBDataSet1;
  Memo.DataField := 'CustNo';
  Memo.SetBounds(0, 0, 100, 20);
  { выравниваем текст по правому краю объекта }
  Memo.HAlign := haRight;
  frxReport1.ScriptText.Add('begin');
  frxReport1.ScriptText.Add('end.');
  { показываем отчет }
  frxReport1.ShowReport;
  end;
  
• coder-igor

  April 2006 отредактировано 21:08

  в примере:
  DataBand.DataSet := frxDBDataSet1;
  
  но уменя без DataSet
• gpi

  April 2006 отредактировано 21:08

  написал:

  но уменя без DataSet

  используется frxUserDataSet?
  тогда у него должны быть обработчики OnFirst, OnNext, OnCheckEOF
• coder-igor

  April 2006 отредактировано 21:08

  спасибо все получилось