Quickreport万能打印程序的详细介绍

Quickreport万能打印程序的详细介绍

作程序经常使用报表打印，使用delphi编程最长用的是使用quickreport做报表打印，rave是在ｄｅｌｐｈｉ７中才出现的，我用ｑｕｉｃｋｒｅｐｏｒｔ做了一个万能打印程序，由于时间紧迫，没有时间优化和美化，欢迎网友修改。

他的基本思想是：动态的取ｄａｔａｓｅｔ中的列，动态的生成报表，程序如下：

unit unit_QReport_lxr;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, ADODB,Dialogs;

type
TQReport_lxr = class(TQuickRep)
DetailBand1: TQRBand;
TitleBand1: TQRBand;
bb_title: TQRLabel;
ColumnHeaderBand1: TQRBand;
private

public
function bb_prepare(objAdoQuery:TDataSet;haveFirstCol:boolean):boolean;
end;

var
QReport_lxr: TQReport_lxr;

implementation

{$R *.DFM}
function TQReport_lxr.bb_prepare(objAdoQuery:TDataSet;haveFirstCol:boolean):boolean;
file://haveFirstCol:boolean;是否打印dataset中的第一列，true打印，false 不打印
var
la:TQRLabel ;
te:TQRDBText;
row_la:integer;
row_te:integer;
re_width:integer;
left_bj:integer;
i:integer;
j:integer;
m:integer;
hafn:integer;
begin

if (objAdoQuery.Fields.Count<=0)then
begin
messagedlg('请您先做查询，再打印报表！',mtInformation,[mbyes],0);
result:=false;
exit;
end;
self.DataSet:=objAdoQuery;
if objAdoQuery.RecordCount<>0 then
begin
row_la:=0;
row_te:=0;
left_bj:=0;
j:=0;
re_width:=DetailBand1.Width;
m:=re_width div 100;

file://注意:是否放弃objAdoquery中的第一列
if haveFirstCol
then hafn:=0
else hafn:=1;

for i:=hafn to objAdoQuery.FieldCount-1 do
begin
if j=m then
begin
left_bj:=0;
row_la:=row_la+1;
row_te:=row_te+1;
j:=0;
ColumnHeaderBand1.Height:=ColumnHeaderBand1.Height+27;
DetailBand1.Height:=DetailBand1.Height+27;
end;
la:=TQRLabel.Create(self);
la.Caption:=objAdoQuery.Fields[i].FieldName;
la.Width:=100;
la.Height:=17;
la.Left:=left_bj;
la.Top:=30+(la.Height+10)*row_la;
la.Parent:=ColumnHeaderBand1 ;

te:=TQRDBText.Create(self);
te.DataSet:=objAdoQuery;
te.DataField:=objAdoQuery.Fields[i].FieldName;
te.Width:=100;
te.Height:=17;
te.Left:=left_bj;
te.Top:=30+(te.Height+10)*row_te;
te.Parent:=DetailBand1;
te.AutoStretch:=true;

left_bj:=(j+1)*105;
j:=j+1;
end;
end;
result:=true;
end;
end.

调用程序如下：

procedure TFrm_sbcx_yin.BitBtn_xxxx_dyClick(Sender: TObject);
var
qp:TQReport_lxr;
begin
qp:=TQReport_lxr.Create(self);
qp.bb_title.Caption:='设备类别查询';
if qp.bb_prepare(ADOQuery_xxxx,false)
then begin
qp.Prepare;
qp.Preview;
qp.hide;
end;
qp.free;
end;