VPF::Несколько stringgrid в fastreport - Форум программистов

makavelithad

Дата 6.6.2010, 20:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 11.12.2009

Репутация: нет
Всего: нет

Мне нужно в FastReport создать отчёт с несколькими таблицами, составленными соответственно из значений stringgrid. Из демки я взял код, с ним получается заполнить все таблицы одинаковыми значениями. Вот код того, что я пытаюсь сделать. Он заполняет одну ячейку значениями двух таблиц

Код


unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Series, TeEngine, ExtCtrls, TeeProcs, Chart, Grids, frxClass,
  StdCtrls, frxCross;

type
  TForm8 = class(TForm)
    ScrollBox1: TScrollBox;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Chart1: TChart;
    Series1: TLineSeries;
    Chart2: TChart;
    Series2: TBarSeries;
    StringGrid3: TStringGrid;
    StringGrid4: TStringGrid;
    StringGrid5: TStringGrid;
    StringGrid6: TStringGrid;
    Chart3: TChart;
    Series3: TLineSeries;
    frxReport1: TfrxReport;
    Button1: TButton;
    frxCrossObject1: TfrxCrossObject;
    frxCrossObject2: TfrxCrossObject;
    frxCrossObject3: TfrxCrossObject;
    frxCrossObject4: TfrxCrossObject;
    frxCrossObject5: TfrxCrossObject;
    frxCrossObject6: TfrxCrossObject;
    procedure frxReport1BeforePrint(x1: TfrxReportComponent);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.frxReport1BeforePrint(x1: TfrxReportComponent);
var
  Cross1, cross2: TfrxCrossView;
  i, j: Integer;
begin
  if x1 is TfrxCrossView then
  begin
    Cross1 := TfrxCrossView(x1);
    for i := 1 to stringgrid1.RowCount do
      for j := 1 to stringgrid1.ColCount do
        Cross1.AddValue([j], [i], [StringGrid1.Cells[i - 1, j - 1]]);
   end;
    if x1 is TfrxCrossView then
  begin
    Cross2 := TfrxCrossView(x1);
    for i := 1 to stringgrid2.RowCount do
      for j := 1 to stringgrid2.ColCount do
        Cross2.AddValue([j], [i], [StringGrid2.Cells[i - 1, j - 1]]);
   end;
end;

procedure TForm8.Button1Click(Sender: TObject);
begin
frxReport1.ShowReport;
end;

end.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »