home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Database / ejemplos / masterdetail / Unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1999-03-29  |  1.2 KB  |  48 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, DBClient, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     DataSource1: TDataSource;
  12.     Table1: TTable;
  13.     DataSource2: TDataSource;
  14.     Table2: TTable;
  15.     DBGrid1: TDBGrid;
  16.     DBNavigator1: TDBNavigator;
  17.     ClientDataSet1: TClientDataSet;
  18.     ClientDataSet1CustNo: TFloatField;
  19.     ClientDataSet1Company: TStringField;
  20.     ClientDataSet1Addr1: TStringField;
  21.     ClientDataSet1Addr2: TStringField;
  22.     ClientDataSet1City: TStringField;
  23.     ClientDataSet1State: TStringField;
  24.     ClientDataSet1Zip: TStringField;
  25.     ClientDataSet1Country: TStringField;
  26.     ClientDataSet1Phone: TStringField;
  27.     ClientDataSet1FAX: TStringField;
  28.     ClientDataSet1TaxRate: TFloatField;
  29.     ClientDataSet1Contact: TStringField;
  30.     ClientDataSet1LastInvoiceDate: TDateTimeField;
  31.     ClientDataSet1Table2: TDataSetField;
  32.     DBGrid2: TDBGrid;
  33.     ClientDataSet2: TClientDataSet;
  34.   private
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40. var
  41.   Form1: TForm1;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46.  
  47. end.
  48.