home *** CD-ROM | disk | FTP | other *** search
/ POWERdrive for you 5 / PDR5.ISO / programm / veranst / bop.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-10-04  |  1.2 KB  |  60 lines
  1. unit Bop;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, DBCtrls, StdCtrls, DBLookup, DB, DBTables,
  8.   Grids, DBGrids;
  9.  
  10. type
  11.   TBOPEdit = class(TForm)
  12.     BOP: TTable;
  13.     S_BOP1: TDataSource;
  14.     DBLookupCombo1: TDBLookupCombo;
  15.     BUNDESLAND: TTable;
  16.     S_BUNDESLAND: TDataSource;
  17.     DBGrid1: TDBGrid;
  18.     DBGrid2: TDBGrid;
  19.     DBLookupCombo2: TDBLookupCombo;
  20.     DBLookupCombo3: TDBLookupCombo;
  21.     ORT: TTable;
  22.     S_ORT: TDataSource;
  23.     PLATZ: TTable;
  24.     S_PLATZ: TDataSource;
  25.     ORTOrtNr: TIntegerField;
  26.     ORTOrt: TStringField;
  27.     PLATZPlatzNr: TIntegerField;
  28.     PLATZPlatz: TStringField;
  29.     BOP2: TTable;
  30.     DBText1: TDBText;
  31.     Label1: TLabel;
  32.     procedure DBGrid1Exit(Sender: TObject);
  33.     procedure DBGrid2Exit(Sender: TObject);
  34.   private
  35.     { Private-Deklarationen }
  36.   public
  37.     { Public-Deklarationen }
  38.   end;
  39.  
  40. var
  41.   BOPEdit: TBOPEdit;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46.  
  47. procedure TBOPEdit.DBGrid1Exit(Sender: TObject);
  48. begin
  49.      ORT.Edit;
  50.      ORT.Post;
  51. end;
  52.  
  53. procedure TBOPEdit.DBGrid2Exit(Sender: TObject);
  54. begin
  55.      PLATZ.Edit;
  56.      PLATZ.Post;
  57. end;
  58.  
  59. end.
  60.