home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1999 February / DPPCPRO0299.ISO / February / Delphi / Runimage / DELPHI20 / DEMOS / DB / FIND / DM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-06-10  |  1.0 KB  |  46 lines
  1. unit DM;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DB, DBTables;
  8.  
  9. type
  10.   TDM2 = class(TDataModule)
  11.     Customer: TTable;
  12.     CustLookup: TTable;
  13.     CustomerSource: TDataSource;
  14.     CustLookupSource: TDataSource;
  15.     CustLookupCustNo: TFloatField;
  16.     CustLookupCompany: TStringField;
  17.     CustLookupAddr1: TStringField;
  18.     CustLookupAddr2: TStringField;
  19.     CustLookupCity: TStringField;
  20.     CustLookupState: TStringField;
  21.     CustLookupZip: TStringField;
  22.     CustLookupCountry: TStringField;
  23.     CustLookupPhone: TStringField;
  24.     CustLookupFAX: TStringField;
  25.     CustLookupTaxRate: TFloatField;
  26.     CustLookupContact: TStringField;
  27.     CustLookupLastInvoiceDate: TDateTimeField;
  28.     CustomerCustNo: TFloatField;
  29.     CustomerCompany: TStringField;
  30.     CustomerAddr1: TStringField;
  31.     CustomerCity: TStringField;
  32.     CustomerState: TStringField;
  33.     CustomerZip: TStringField;
  34.     CustomerCountry: TStringField;
  35.   end;
  36.  
  37. var
  38.   DM2: TDM2;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43.  
  44. end.
  45.  
  46.