mainunit.pas

一个报表控件TRepoEdit

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Spin;

type
  TForm1 = class(TForm)
    BitBtn: TBitBtn;
    BitBtn1: TBitBtn;
    procedure BitBtnClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure RepoNeedData(Sender:TObject);
  end;

var
  Form1: TForm1;

implementation

uses MainReport,REpoEdit;

{$R *.DFM}

procedure TForm1.BitBtnClick(Sender: TObject);
begin

  with TQReport.Create(self) do
  try
    Table.tableName:=ExtractFilePath(Application.ExeName)+'COUNTRY.DB';
    Table.Active:=true;
    RepoEdit.DoReport;
  finally
    free;
  end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Executereport(TQReport.Create(application{!!!!!}),RepoNeedData);
end;

procedure TForm1.RepoNeedData(Sender: TObject);
begin
    with (Sender as TRepoEdit).thReport as TQReport do begin
      Table.tableName:=ExtractFilePath(Application.ExeName)+'COUNTRY.DB';
      Table.Active:=true;
    end;
end;

end.