home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Quickrpt / Qr3 / exprmemo.pas < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  2KB  |  52 lines
  1. { :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2.   :: QuickReport 3.0 for Delphi 3.0/4.0/5.0                  ::
  3.   ::                                                         ::
  4.   :: Demonstration on how to use the TQRExprMemo control     ::
  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 exprmemo;
  12.  
  13. interface
  14.  
  15. uses
  16.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  17.   QuickRpt, Qrctrls, Db, DBTables, ExtCtrls;
  18.  
  19. type
  20.   TfrmExprmemo = class(TForm)
  21.     QuickRep1: TQuickRep;
  22.     tbCustomer: TTable;
  23.     DetailBand1: TQRBand;
  24.     tbCustomerCustNo: TFloatField;
  25.     tbCustomerCompany: TStringField;
  26.     tbCustomerAddr1: TStringField;
  27.     tbCustomerAddr2: TStringField;
  28.     tbCustomerCity: TStringField;
  29.     tbCustomerState: TStringField;
  30.     tbCustomerZip: TStringField;
  31.     tbCustomerCountry: TStringField;
  32.     tbCustomerPhone: TStringField;
  33.     tbCustomerFAX: TStringField;
  34.     tbCustomerTaxRate: TFloatField;
  35.     tbCustomerContact: TStringField;
  36.     tbCustomerLastInvoiceDate: TDateTimeField;
  37.     QRExprMemo1: TQRExprMemo;
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  43.  
  44. var
  45.   frmExprmemo: TfrmExprmemo;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50.  
  51. end.
  52.