📄 007.htm
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题文档－数据库应用-->在Delphi编制的程序运行中动态制作报表</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题文档－数据库应用 在Delphi编制的程序运行中动态制作报表">
<META NAME="description" CONTENT=" - DELPHI专题文档－数据库应用 - 在Delphi编制的程序运行中动态制作报表">
</HEAD>
<a href="index8.html">返回</a>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>
<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">在Delphi编制的程序运行中动态制作报表</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<BR>
<p><span style="font-size: 9pt">---- Delphi中的quickreport是挪威的QuSoft AS公司专门为Delphi设计的用于制作报表的组件，具有很强的访问数据库的能力。但是，从我个人的使用经验来看，这个组件的帮助写的不够详尽，例程也不多。因而一般编程人员都是在设计期间设计好报表的所有格式，并在运行时连上数据源(即delphi中的dataset)运行程序的。显然，这种方法不具备很强的灵活性。在这里我想向大家介绍一种在程序运行时如何动态制作报表的方法。
<br>
<br>
---- 首先，建立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数据库中填入以下信息。 <br>
<br>
————————————————————————<br>
Goods ID
商品编号<br>
Goods Name
商品名称<br>
Goods Price
商品单价<br>
<br>
---- 好了，准备工作完成了一半，现在写入代码。在unit1的implementation下写入uses
Unit2;在button1的click事件中写入以下代码： <br>
begin<br>
PreparePrint;<br>
with Form2 do<br>
begin<br>
Preview;<br>
Table1.Close;<br>
Table2.Close;<br>
end;<br>
end;<br>
<br>
在unit1中添加一个过程PreparePrint；<br>
<br>
procedure TForm1.PreparePrint;<br>
var LeftValue:integer;<br>
aLabel : TQRLabel;<br>
aText:TQRDBText;<br>
begin<br>
LeftValue:=100;<br>
with Form2 do<br>
begin<br>
aLabel := TQRLabel.Create(Form2); '设置标题<br>
aLabel.Parent := TitleBand1;<br>
with aLabel do<br>
begin<br>
Width:=300;<br>
Height:=TitleBand1.Height;<br>
Alignment:=taCenter;<br>
Caption := Edit1.Text;<br>
end;<br>
Table1.Open;<br>
Table2.Open;<br>
Table2.First;<br>
while not Table2.EOF do<br>
begin<br>
aLabel := TQRLabel.Create(Form2);<br>
’设置显示字段标题<br>
aLabel.Parent := HeaderBand1;<br>
with aLabel do<br>
begin<br>
AutoSize:=False;<br>
AutoStretch:=True;<br>
Left :=LeftValue;<br>
Top := 0;<br>
Width:=80;<br>
Height:=HeaderBand1.Height;<br>
Alignment:=taCenter;<br>
Caption := ' '+table2.FieldbyName(<br>
'DisplayName').AsString+' ';<br>
end;<br>
aText := TQRDBText.Create(Form2); <br>
'设置显示字段内容<br>
aText.Parent := DetailBand1;<br>
with aText do<br>
begin<br>
AutoSize:=False;<br>
AutoStretch:=True;<br>
Height:=DetailBand1.Height;<br>
DataSet:=Table1;<br>
DataField:=Table2.FieldbyName(<br>
'FieldsName').AsString;<br>
Alignment:=taCenter;<br>
end;<br>
LeftValue:=LeftValue+80;<br>
Table2.Next;<br>
end;<br>
end;<br>
end;</span></p>
<p><span style="font-size: 9pt"><br>
---- 好了，运行程序可以看到报表预览的效果，显示了Goods中的ID,Name,Price。在运行时完全可以控制table1和table2中的数据内容。显示不同数据库的不同信息，改变table2中的记录顺序可改变报表中的显示顺序。而且，由于报表的各部分，甚至包括各band和system
data均可在程序运行时依据上述方法动态生成。其属性也可动态设置。所以我们完全可以制作一个类似于Dephi中Form
Wizard一样的报表精灵，还可提供一个灵活而且强大的打印设置功能。
<br>
---- 以上代码在delphi3中运行通过。 </span></p>
<BR>
<hr color="#EE9B73" size="1" width="94%">
</TD>
</TR>
</table>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -