我已经找到了一个方法，供大家学习。
Delphi编制的程序运行中动态制作报表
整理编辑：China ASP
Delphi中的quickreport是挪威的QuSoft AS公司专门为Delphi设计的用于制作报表的组件，具有很强的访问
数据库的能力。但是，从我个人的使用经验来看，这个组件的帮助写的不够详尽，例程也不多。因而一般编
程人员都是在设计期间设计好报表的所有格式，并在运行时连上数据源(即delphi中的dataset)运行程序的。
显然，这种方法不具备很强的灵活性。在这里我想向大家介绍一种在程序运行时如何动态制作报表的方法。
---- 首先，建立form1；unit1（调用窗体），其中放入button1:caption为‘预览’，用以查看报表，再加
入label1:caption为‘报表标题’;edit1用以接收用户输入的标题。再建立form2(放置quickreport元件的
窗体),其中放入quickrep元件和三个qrband元件，其bandtype分别为rbTitle,rbColumnHeader,rbDetail.但
其中无须放入qrlabel和qrdbtext元件，由程序中自动生成。再在form2；unit2中放入table1,table2。在
databasename属性中填入数据库所在的Alias Name.在tablename中分别填入Goods,TableInformation.其中
Goods中存放商品信息，可以设置以下字段:ID;Name;Unit;Price。TableInformation中的字段为TableName;
FieldsName;
DisplayName数据库中填入以下信息。
————————————————————————
Goods ID 商品编号
Goods Name 商品名称
Goods Price 商品单价
---- 好了，准备工作完成了一半，现在写入代码。在unit1的implementation下写入uses Unit2;在button1的
click事件中写入以下代码：
begin
PreparePrint;
with Form2do
begin
Preview;
Table1.Close;
Table2.Close;
end;
end;
在unit1中添加一个过程PreparePrint；
procedure TForm1.PreparePrint;
var LeftValue:integer;
aLabel : TQRLabel;
aText:TQRDBText;
begin
LeftValue:=100;
with Form2do
begin
aLabel := TQRLabel.Create(Form2);
'设置标题
aLabel.Parent := TitleBand1;
with aLabeldo
begin
Width:=300;
Height:=TitleBand1.Height;
Alignment:=taCenter;
Caption := Edit1.Text;
end;
Table1.Open;
Table2.Open;
Table2.First;
while not Table2.EOFdo
begin
aLabel := TQRLabel.Create(Form2);
’设置显示字段标题
aLabel.Parent := HeaderBand1;
with aLabeldo
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 aTextdo
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;
---- 好了，运行程序可以看到报表预览的效果，显示了Goods中的ID,Name,Price。在运行时完全可以控制
table1和table2中的数据内容。显示不同数据库的不同信息，改变table2中的记录顺序可改变报表中的显示
顺序。而且，由于报表的各部分，甚至包括各band和system data均可在程序运行时依据上述方法动态生成。
其属性也可动态设置。所以我们完全可以制作一个类似于Dephi中Form Wizard一样的报表精灵，还可提供一
个灵活而且强大的打印设置功能。
---- 以上代码在delphi3中运行通过。
加入时间：2000-4-27
阅读次数：1029
