unit5.pas

来自「FreeReport 2.34 consists of the report e」· PAS 代码 · 共 98 行

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FR_DSet, FR_Class;

type
  TForm5 = class(TForm)
    frReport1: TfrReport;
    CrossRowDataset: TFRUserDataset;
    CrossColumnDataset: TFRUserDataset;
    procedure CrossRowDatasetFirst(Sender: TObject);
    procedure CrossRowDatasetNext(Sender: TObject);
    procedure CrossRowDatasetCheckEOF(Sender: TObject; var EOF: Boolean);
    procedure CrossColumnDatasetFirst(Sender: TObject);
    procedure CrossColumnDatasetNext(Sender: TObject);
    procedure CrossColumnDatasetCheckEOF(Sender: TObject;
      var EOF: Boolean);
    procedure frReport1GetValue(const ParName: string;
      var ParValue: Variant);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure StartReport;
  end;

var
  Form5: TForm5;

implementation

uses datasets, Unit2;

{$R *.DFM}

var i, j: Integer;
    RowCount, ColCount: Integer;

procedure TForm5.FormCreate(Sender: TObject);
begin
  ColCount := 16; RowCount := 20;
end;

procedure TForm5.StartReport;
begin
  if Form2.ShowModal = mrOk then
  begin
    ColCount := StrToInt(Form2.Edit1.Text);
    RowCount := StrToInt(Form2.Edit2.Text);
    frReport1.ShowReport;
  end;
end;

procedure TForm5.CrossRowDatasetFirst(Sender: TObject);
begin
  i := 0;
end;

procedure TForm5.CrossRowDatasetNext(Sender: TObject);
begin
  Inc(i);
end;

procedure TForm5.CrossRowDatasetCheckEOF(Sender: TObject;
  var EOF: Boolean);
begin
  EOF := EOF or (i >= RowCount);
end;

procedure TForm5.CrossColumnDatasetFirst(Sender: TObject);
begin
  j := 0;
end;

procedure TForm5.CrossColumnDatasetNext(Sender: TObject);
begin
  Inc(j);
end;

procedure TForm5.CrossColumnDatasetCheckEOF(Sender: TObject;
  var EOF: Boolean);
begin
  EOF := EOF or (j >= ColCount);
end;

procedure TForm5.frReport1GetValue(const ParName: string;
  var ParValue: Variant);
begin
  if AnsiUpperCase(ParName) = 'CELL' then
    ParValue := IntToStr(i * ColCount + j + 1);
end;

end.