作程序经常使用报表打印,使用delphi编程最长用的是使用quickreport做报表打印,rave是在delphi7中才出现的,我用quickreport做了一个万能打印程序,由于时间紧迫,没有时间优化和美化,欢迎网友修改。
他的基本思想是:动态的取dataset中的列,动态的生成报表,程序如下:
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}