unit report;

interface

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

type
  Tqr1 = class(TQuickRep)
    ColumnHeaderBand1: TQRBand;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    procedure FormCreate(Sender: TObject);
  private

  public

  end;

var
  qr1: Tqr1;

implementation
   uses dm;
{$R *.DFM}

procedure Tqr1.FormCreate(Sender: TObject);
begin

end;

end.