擴展QuckReport報表內容

報表內容過多過長， Report礙於報表的設計空間，開發階段不容易將報表元件放置到適當的位置。可以在Form上，放置多個QuickRep報表元件，在不同的QuickRep元件中利用ChildBand來設計，再用程式碼控制將ChildBand併到主報表裡做預覽。

uses QRPrntr;

type TQRPrintableExt=class(TQRPrintable);

procedure TForm1.pr_Reset_ParentReport(AChildBand:TQRChildBand; AParentBand:TQRCustomBand);

var i:Integer;

begin

  AChildBand.Parent := AParentBand.ParentReport;

  AChildBand.ParentBand := AParentBand;

  for i := 0 to AChildBand.ControlCount-1 do

    TQRPrintableExt(AChildBand.Controls[i]).ParentReport := AChildBand.ParentReport;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  pr_Reset_ParentReport(ChildBand1, DetailBand1);

  pr_Reset_ParentReport(QRChildBand1, ChildBand1);

  QuickRep1.Preview;

end;

輸出結果: