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;