creport.pas

来自「Delphi深度探索,Delphi深度探索（第二版）」· PAS 代码 · 共 50 行

{-----------------------------------------------------------------------------
 Unit Name: CReport
 Author:    hubdog(陈省)
 Email:     [e-mail]
 Purpose:   演示如何使用报表工具打印Bold对象。
 History:
            2003-7-2 创建本单元  
-----------------------------------------------------------------------------}


unit CReport;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, BoldSubscription,
  BoldHandles, BoldRootedHandles, BoldAbstractListHandle, BoldCursorHandle,
  BoldListHandle, DB, BoldDataSet;

type
  TReportMoney = class(TQuickRep)
    qrbHeader: TQRBand;
    qrbTitle: TQRBand;
    qrlTitle: TQRLabel;
    qrlName: TQRLabel;
    qrlAge: TQRLabel;
    qrbPerson: TQRBand;
    qrdbtName: TQRDBText;
    qrdbtAge: TQRDBText;
    blhPerson: TBoldListHandle;
    bdsReport: TBoldDataSet;
    qrlPhoto: TQRLabel;
    qrdiPhoto: TQRDBImage;
  private

  public

  end;

var
  ReportMoney: TReportMoney;

implementation

uses CDataModule;

{$R *.DFM}

end.