請問大大們: 如何在 Quick Report 中新增一個QRBAND? 並存取在QBAND中加上一個QRLABEL? 並存取他的QRLABEL呢?

1.新增一TForm1元件Form1. 2.新增一TQuickRep元件QuickRep1在Form1上. 3.新增一TQRBand元件QRBand1在QuickRep1上. 4.新增一TQRLabel元件QRLabel1在QRBand1上. 5.在同一個*.PAS中存取QRLabel1,使用"QRLabel1.Caption"即可.

謝謝NO.5 大大: 那要如何 新增一TQRBand元件QRBand1在QuickRep1上,及新增一TQRLabel元件QRLabel1在QRBand1上?

"新增"不就是"點"~"放"嗎!? 不過個人認為,你應該是沒有 Quick Report 元件,我使用D7, Quick Report 元件需要額外安裝. 安裝方式為點選D7的功能選單[Component]->[Install Package],然後點選[Add]功能按鈕,接著到D7的安裝目錄 C:\Program Files\Borland\Delphi7\Bin\ 下,找出 dclqrt70.bpl 檔案,最後點選[OK]就安裝完成了. 發表人 - NO.5 於 2005/09/21 11:14:08

NO.5 大大~ 我是想以程式新增 QRBand1 和 QRLabel1 元件在報表上, 要如何做到呢?

Hi samm,    Sample : http://delphi.ktop.com.tw/loadfile.php?TOPICID=24627792&CC=550788 Codes :

procedure TForm1.Button1Click(Sender: TObject);
var
  QRB : TQRBand;
  QRL : TQRLabel;
begin
  QRB := QuickRep1.CreateBand(rbDetail);
  QRB.Parent := QuickRep1;
  try
    QRL := TQRLabel.Create(QRB);
    QRL.Parent := QRB;
    QRL.Caption := 'QRLabel1';
    QuickRep1.Preview;
  finally
    FreeAndNil(QRL);
    FreeAndNil(QRB);
  end;
end;

For more detail information, please reference below URL: http://www.delphibbs.com/keylife/iblog_show.asp?xid=760 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman