home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Quickrpt / Qr3 / grouping.pas < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  2KB  |  70 lines
  1. { :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2.   :: QuickReport 3.0 for Delphi 3.0/4.0/5.0                  ::
  3.   ::                                                         ::
  4.   :: Simple report for grouping data                         ::
  5.   ::                                                         ::
  6.   :: Copyright (c) 1995-1999 QuSoft AS                       ::
  7.   :: All Rights Reserved                                     ::
  8.   ::                                                         ::
  9.   :: web: http://www.qusoft.com  fax: +47 22 41 74 91        ::
  10.   ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: }
  11. unit grouping;
  12.  
  13. interface
  14.  
  15. uses
  16.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  17.   Db, DBTables, ExtCtrls, QuickRpt, Qrctrls;
  18.  
  19. type
  20.   TfrmGrouping = class(TForm)
  21.     QuickRep1: TQuickRep;
  22.     MasterQry: TQuery;
  23.     MasterQrycompany: TStringField;
  24.     MasterQryorderno: TFloatField;
  25.     MasterQrycustno: TFloatField;
  26.     MasterQryItemsTotal: TCurrencyField;
  27.     DetailBand1: TQRBand;
  28.     QRDBText2: TQRDBText;
  29.     QRGroup1: TQRGroup;
  30.     QRDBText4: TQRDBText;
  31.     DataSource1: TDataSource;
  32.     DetailQry: TQuery;
  33.     DetailQryOrderNo: TFloatField;
  34.     DetailQryQty: TIntegerField;
  35.     DetailQryItemNo: TFloatField;
  36.     QRSubDetail1: TQRSubDetail;
  37.     QRDBText1: TQRDBText;
  38.     QRDBText5: TQRDBText;
  39.     QRBand1: TQRBand;
  40.     QRExpr1: TQRExpr;
  41.     QRBand2: TQRBand;
  42.     QRExpr2: TQRExpr;
  43.     SummaryBand1: TQRBand;
  44.     QRExpr3: TQRExpr;
  45.     ColumnHeaderBand1: TQRBand;
  46.     QRLabel1: TQRLabel;
  47.     QRLabel2: TQRLabel;
  48.     QRLabel4: TQRLabel;
  49.     QRLabel5: TQRLabel;
  50.     QRLabel6: TQRLabel;
  51.     QRLabel7: TQRLabel;
  52.     QRLabel8: TQRLabel;
  53.     PageHeaderBand1: TQRBand;
  54.     QRSysData1: TQRSysData;
  55.     QRSysData2: TQRSysData;
  56.   private
  57.     { Private declarations }
  58.   public
  59.     { Public declarations }
  60.   end;
  61.  
  62. var
  63.   frmGrouping: TfrmGrouping;
  64.  
  65. implementation
  66.  
  67. {$R *.DFM}
  68.  
  69. end.
  70.