mainmdiunit.pas

来自「一个报表控件TRepoEdit」· PAS 代码 · 共 60 行

unit MainMDIUnit;

interface

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

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

var
  MDIForm: TMDIForm;

implementation

uses MainReport,REpoEdit;

{$R *.DFM}

procedure TMDIForm.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 TMDIForm.BitBtn1Click(Sender: TObject);
begin
  Executereport(TQReport.Create(application{!!!!!}),RepoNeedData);
end;

procedure TMDIForm.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.