home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / ODA10 / _SETUP.1 / DemoQueryToMany.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-06  |  1.2 KB  |  54 lines
  1. unit DemoQueryToMany;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Grids, DBGrids, DB, DBTables, StdCtrls;
  8.  
  9. type
  10.   TFormQueryToMany = class(TForm)
  11.     QryOne: TQuery;
  12.     SrcOne: TDataSource;
  13.     QryMany: TQuery;
  14.     SrcMany: TDataSource;
  15.     DBGrid1: TDBGrid;
  16.     DBGrid2: TDBGrid;
  17.     QryOnePers_LastName: TStringField;
  18.     QryOnePers_FirstName: TStringField;
  19.     QryOnePers_Birthday: TDateTimeField;
  20.     QryOnePers_ID: TIntegerField;
  21.     QryManyAdr_ID: TAutoIncField;
  22.     QryManyAdr_PersID: TIntegerField;
  23.     QryManyAdr_Street: TStringField;
  24.     QryManyAdr_ZIP: TStringField;
  25.     QryManyAdr_Place: TStringField;
  26.     QryManyAdr_Country: TStringField;
  27.     procedure QryManyBeforeOpen(DataSet: TDataSet);
  28.     procedure FormCreate(Sender: TObject);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  34.  
  35. var
  36.   FormQueryToMany: TFormQueryToMany;
  37.  
  38. implementation
  39.  
  40. {$R *.DFM}
  41.  
  42. procedure TFormQueryToMany.QryManyBeforeOpen(DataSet: TDataSet);
  43.   begin
  44.     QryMany.Prepare;
  45.   end;
  46.  
  47. procedure TFormQueryToMany.FormCreate(Sender: TObject);
  48.   begin
  49.     QryOne.Open;
  50.     QryMany.Open;
  51.   end;
  52.  
  53. end.
  54.