【delphi开源代码栏目提醒】：网学会员delphi开源代码为您提供Frmtrigg.pas参考，解决您在Frmtrigg.pas学习中工作中的难题，参考学习。

    unit Frmtrigg;
    
    interface
    
    uses
      SysUtils, Windows, Messages, Classes, Graphics, Controls,
      StdCtrls, Forms, DBCtrls, DB, DBGrids, Buttons, DBTables, Grids, ExtCtrls;
    
    type
      TFrmTriggerDemo = class(TForm)
        DBGrid1: TDBGrid;
        DBGrid2: TDBGrid;
        DBNavigator: TDBNavigator;
        Panel1: TPanel;
        Panel2: TPanel;
        Panel3: TPanel;
        BitBtn1: TBitBtn;
        procedure FormShow(Sender: TObject);
      private
        { private declarations }
      public
        { public declarations }
      end;
    
    var
      FrmTriggerDemo: TFrmTriggerDemo;
    
    implementation
    
    uses DmCSDemo;
    
    {$R *.dfm}
    
    procedure TFrmTriggerDemo.FormShow(Sender: TObject);
    begin
      DmEmployee.EmployeeTable.Open;
      DmEmployee.SalaryHistoryTable.Open;
    end;
    
    end.