home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap01 / twoquery / main.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-20  |  1KB  |  67 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Grids, Mask, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     ScrollBox: TScrollBox;
  12.     Label1: TLabel;
  13.     EditCustNo: TDBEdit;
  14.     Label2: TLabel;
  15.     EditCompany: TDBEdit;
  16.     Label3: TLabel;
  17.     EditAddr: TDBEdit;
  18.     Label4: TLabel;
  19.     EditAddr2: TDBEdit;
  20.     Label5: TLabel;
  21.     EditCity: TDBEdit;
  22.     Label6: TLabel;
  23.     EditState: TDBEdit;
  24.     Label7: TLabel;
  25.     EditZip: TDBEdit;
  26.     Label8: TLabel;
  27.     EditCountry: TDBEdit;
  28.     Label9: TLabel;
  29.     EditPhone: TDBEdit;
  30.     Label10: TLabel;
  31.     EditFAX: TDBEdit;
  32.     Label11: TLabel;
  33.     EditTaxRate: TDBEdit;
  34.     Label12: TLabel;
  35.     EditContact: TDBEdit;
  36.     Label13: TLabel;
  37.     EditLastInvoiceDate: TDBEdit;
  38.     DBGrid1: TDBGrid;
  39.     DBNavigator: TDBNavigator;
  40.     Panel1: TPanel;
  41.     DataSource1: TDataSource;
  42.     Panel2: TPanel;
  43.     Panel3: TPanel;
  44.     Table1: TTable;
  45.     Table2: TTable;
  46.     DataSource2: TDataSource;
  47.     procedure FormCreate(Sender: TObject);
  48.   private
  49.     { private declarations }
  50.   public
  51.     { public declarations }
  52.   end;
  53.  
  54. var
  55.   Form1: TForm1;
  56.  
  57. implementation
  58.  
  59. {$R *.DFM}
  60.  
  61. procedure TForm1.FormCreate(Sender: TObject);
  62. begin
  63.   Table1.Open;
  64.   Table2.Open;
  65. end;
  66.  
  67. end.