home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Quickrpt / Qr2 / manygrp.pas < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  3KB  |  92 lines
  1. unit Manygrp;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, quickrpt, Qrctrls, DBTables, DB, ExtCtrls;
  8.  
  9. type
  10.   TManyGrpForm = class(TForm)
  11.     QuickRep: TQuickRep;
  12.     RepQuery: TQuery;
  13.     DetailBand1: TQRBand;
  14.     QRGroup1: TQRGroup;
  15.     QRGroup2: TQRGroup;
  16.     QRDBText1: TQRDBText;
  17.     QRDBText3: TQRDBText;
  18.     QRBand1: TQRBand;
  19.     QRBand2: TQRBand;
  20.     QRDBText4: TQRDBText;
  21.     QRExpr1: TQRExpr;
  22.     QRDBText5: TQRDBText;
  23.     QRExpr2: TQRExpr;
  24.     QRExpr3: TQRExpr;
  25.     RepQueryCustNo: TFloatField;
  26.     RepQueryCompany: TStringField;
  27.     RepQueryAddr1: TStringField;
  28.     RepQueryAddr2: TStringField;
  29.     RepQueryCity: TStringField;
  30.     RepQueryState: TStringField;
  31.     RepQueryZip: TStringField;
  32.     RepQueryCountry: TStringField;
  33.     RepQueryPhone: TStringField;
  34.     RepQueryFAX: TStringField;
  35.     RepQueryTaxRate: TFloatField;
  36.     RepQueryContact: TStringField;
  37.     RepQueryLastInvoiceDate: TDateTimeField;
  38.     RepQueryOrderNo: TFloatField;
  39.     RepQueryCustNo_1: TFloatField;
  40.     RepQuerySaleDate: TDateTimeField;
  41.     RepQueryShipDate: TDateTimeField;
  42.     RepQueryEmpNo: TIntegerField;
  43.     RepQueryShipToContact: TStringField;
  44.     RepQueryShipToAddr1: TStringField;
  45.     RepQueryShipToAddr2: TStringField;
  46.     RepQueryShipToCity: TStringField;
  47.     RepQueryShipToState: TStringField;
  48.     RepQueryShipToZip: TStringField;
  49.     RepQueryShipToCountry: TStringField;
  50.     RepQueryShipToPhone: TStringField;
  51.     RepQueryShipVIA: TStringField;
  52.     RepQueryPO: TStringField;
  53.     RepQueryTerms: TStringField;
  54.     RepQueryPaymentMethod: TStringField;
  55.     RepQueryItemsTotal: TCurrencyField;
  56.     RepQueryTaxRate_1: TFloatField;
  57.     RepQueryFreight: TCurrencyField;
  58.     RepQueryAmountPaid: TCurrencyField;
  59.     RepQueryOrderNo_1: TFloatField;
  60.     RepQueryItemNo: TFloatField;
  61.     RepQueryPartNo: TFloatField;
  62.     RepQueryQty: TIntegerField;
  63.     RepQueryDiscount: TFloatField;
  64.     RepQueryPartNo_1: TFloatField;
  65.     RepQueryVendorNo: TFloatField;
  66.     RepQueryDescription: TStringField;
  67.     RepQueryOnHand: TFloatField;
  68.     RepQueryOnOrder: TFloatField;
  69.     RepQueryCost: TCurrencyField;
  70.     RepQueryListPrice: TCurrencyField;
  71.     QRLabel1: TQRLabel;
  72.     QRLabel2: TQRLabel;
  73.     QRLabel3: TQRLabel;
  74.     QRLabel4: TQRLabel;
  75.     QRExpr4: TQRExpr;
  76.     QRLabel5: TQRLabel;
  77.     ChildBand1: TQRChildBand;
  78.   private
  79.     { Private declarations }
  80.   public
  81.     { Public declarations }
  82.   end;
  83.  
  84. var
  85.   ManyGrpForm: TManyGrpForm;
  86.  
  87. implementation
  88.  
  89. {$R *.DFM}
  90.  
  91. end.
  92.