关于动态生成报表的问题(初学者) (5分)

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables, QuickRpt, printers, Qrctrls, qrprntr;
//////////////////////

procedure TForm1.PreparePrint;
var LeftValue:integer;
aLabel:TQRLabel;
aText:TQRDBText;
begin
LeftValue:=100;
with Form2 do
begin
aLabel := TQRLabel.Create(Form2); //'设置标题
aLabel.Parent := TitleBand1;
with aLabel do
begin
Width:=300;
Height:=TitleBand1.Height;
Alignment:=taCenter;
Caption := Edit1.Text;
end;
Table1.Open;
Table2.Open;
Table2.First;
while not Table2.EOF do
begin
aLabel := TQRLabel.Create(Form2);
//’设置显示字段标题
aLabel.Parent := HeaderBand1;
with aLabel do
begin
AutoSize:=False;
AutoStretch:=True;
Left :=LeftValue;
Top := 0;
Width:=80;
Height:=HeaderBand1.Height;
Alignment:=taCenter;
Caption := ' '+table2.FieldbyName(
'DisplayName').AsString+' ';
end;
aText := TQRDBText.Create(Form2);
// '设置显示字段内容
aText.Parent := DetailBand1;
with aText do
begin
AutoSize:=False;
AutoStretch:=True;
Height:=DetailBand1.Height;
DataSet:=Table1;
DataField:=Table2.FieldbyName(
'FieldsName').AsString;
Alignment:=taCenter;
end;
LeftValue:=LeftValue+80;
Table2.Next;
end;
end;
end;

下载的代码中出现问题Undeclared identifier:'HeaderBand1'
请部uses中还少了什么（由于初学，不知怎么解决）
　　或其它？
怎样定义'HeaderBand1'
谢谢！！！！

可能你根本没定义HeaderBand1这样一个对象。

怎样定义 HeaderBand1

在QuickRep中定义HeaderBand1

Headerband:THeaderBand;