程序运行中动态制作报表代码 需求啊!! 谁有!!!给分拉~~~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ---- 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数据库中填入以下信息。———————————————————————— <br>Goods ID 商品编号<br>Goods Name 商品名称 <br>Goods Price 商品单价 --- - 好了,准备工作完成了一半,现在写入代码。在unit1的implementation下写入uses Unit2;在button1的click事件中写入以下代码: begin PreparePrint; <br>with Form2 do <br>begin 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 LeftValue:=100;<br>with Form2 do<br>begin aLabel := TQRLabel.Create(Form2); '设置标题 <br>aLabel.Parent := TitleBand1;<br>with aLabel do <br>begin 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 <br>do begin<br>aLabel := TQRLabel.Create(Form2); ’设置显示字段标题 <br>aLabel.Parent := HeaderBand1;<br>with aLabel do <br>begin 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( 'DisplayName').AsString+' ';<br>end;<br>aText := TQRDBText.Create(Form2); '设置显示字段内容 <br>aText.Parent := DetailBand1;<br>with aText do <br>begin AutoSize:=False; <br>AutoStretch:=True;<br>Height:=DetailBand1.Height;<br>DataSet:=Table1;<br>DataField:=Table2.FieldbyName( 'FieldsName').AsString;<br>Alignment:=taCenter; <br>end;<br>LeftValue:=LeftValue+80;<br>Table2.Next;<br>end; <br>end;<br>end; ---- 好了,运行程序可以看到报表预览的效果,显示了Goods中的ID,Name,Price。在运行时完全可以控制table1和table2中的数据内容。显示不同数据库的不同信息,改变table2中的记录顺序可改变报表中的显示顺序。而且,由于报表的各部分,甚至包括各band和system data均可在程序运行时依据上述方法动态生成。其属性也可动态设置。所以我们完全可以制作一个类似于Dephi中Form Wizard一样的报表精灵,还可提供一个灵活而且强大的打印设置功能。 怎样压缩JPEG图片? dephi安装时错误提示!!! 隐藏窗体 怎样计算组件个数? 点击一个按钮就调开一个外部程序 我的c/s程序,怎样通过拨号联到局域网中的sqlserver服务器呀? html help workshop怎么和delphi连接? 她说了一句有分量的话,我该不该继续争取呢? 关于DBGrid问题 当前最活跃、问题解决实时性最高的技术组织-----Delphi圣地.net--第六次拓展(顺便散分) 安装程序代码?谁有! 请问这是什么错误? SocketConnection连接出现"no address specified!"
———————————————————————— <br>
Goods ID 商品编号<br>
Goods Name 商品名称 <br>
Goods Price 商品单价
---
- 好了,准备工作完成了一半,现在写入代码。在unit1的implementation下写入uses Unit2;在button1的click事件中写入以下代码: begin PreparePrint; <br>
with Form2 do <br>
begin 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 LeftValue:=100;<br>
with Form2 do<br>
begin aLabel := TQRLabel.Create(Form2); '设置标题 <br>
aLabel.Parent := TitleBand1;<br>
with aLabel do <br>
begin 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 <br>
do begin<br>
aLabel := TQRLabel.Create(Form2); ’设置显示字段标题 <br>
aLabel.Parent := HeaderBand1;<br>
with aLabel do <br>
begin 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( 'DisplayName').AsString+' ';<br>
end;<br>
aText := TQRDBText.Create(Form2); '设置显示字段内容 <br>
aText.Parent := DetailBand1;<br>
with aText do <br>
begin AutoSize:=False; <br>
AutoStretch:=True;<br>
Height:=DetailBand1.Height;<br>
DataSet:=Table1;<br>
DataField:=Table2.FieldbyName( 'FieldsName').AsString;<br>
Alignment:=taCenter; <br>
end;<br>
LeftValue:=LeftValue+80;<br>
Table2.Next;<br>
end; <br>
end;<br>
end; ---- 好了,运行程序可以看到报表预览的效果,显示了Goods中的ID,Name,Price。在运行时完全可以控制table1和table2中的数据内容。显示不同数据库的不同信息,改变table2中的记录顺序可改变报表中的显示顺序。而且,由于报表的各部分,甚至包括各band和system data均可在程序运行时依据上述方法动态生成。其属性也可动态设置。所以我们完全可以制作一个类似于Dephi中Form Wizard一样的报表精灵,还可提供一个灵活而且强大的打印设置功能。