荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: jek (俊), 信区: Program
标  题: Delphi编制的程序运行中动态制作报表
发信站: 荔园晨风BBS站 (Mon Dec 10 15:20:38 2001), 转信

Delphi编制的程序运行中动态制作报表

上海 陈春曦




Delphi编制的程序运行中动态制作报表 上海 陈春曦 ---- 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 Form2 do
begin
Preview;
Table1.Close;
Table2.Close;
end;
end;

在unit1中添加一个过程PreparePrint;


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;

  ---- 好了,运行程序可以看到报表预览的效果,显示了Goods中的ID,Name,
Price。在运行时完全可以控制table1和table2中的数据内容。显示不同数据库的
不同信息,改变table2中的记录顺序可改变报表中的显示顺序。而且,由于报表的
各部分,甚至包括各band和system data均可在程序运行时依据上述方法动态生成
。其属性也可动态设置。所以我们完全可以制作一个类似于Dephi中Form Wizard一
样的报表精灵,还可提供一个灵活而且强大的打印设置功能。

---- 以上代码在delphi3中运行通过。


--
 === I love Puss forever ===

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.1.242]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店