home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / Db / Csdemos / frmtrigg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  756 b   |  41 lines
  1. unit Frmtrigg;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBGrids, Buttons, DBTables, Grids, ExtCtrls;
  8.  
  9. type
  10.   TFrmTriggerDemo = class(TForm)
  11.     DBGrid1: TDBGrid;
  12.     DBGrid2: TDBGrid;
  13.     DBNavigator: TDBNavigator;
  14.     Panel1: TPanel;
  15.     Panel2: TPanel;
  16.     Panel3: TPanel;
  17.     BitBtn1: TBitBtn;
  18.     procedure FormShow(Sender: TObject);
  19.   private
  20.     { private declarations }
  21.   public
  22.     { public declarations }
  23.   end;
  24.  
  25. var
  26.   FrmTriggerDemo: TFrmTriggerDemo;
  27.  
  28. implementation
  29.  
  30. uses DmCSDemo;
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TFrmTriggerDemo.FormShow(Sender: TObject);
  35. begin
  36.   DmEmployee.EmployeeTable.Open;
  37.   DmEmployee.SalaryHistoryTable.Open;
  38. end;
  39.  
  40. end.
  41.