unit UnitEmployee;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,UnitMain,
  Db, DBTables, Grids, DBGrids;

type
  TFormEmployee = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    UpdateSQL1: TUpdateSQL;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure Query1AfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent); override; //重載Form的Create構造函數。
    { Public declarations }
  end;

var
  FormEmployee: TFormEmployee;

implementation

{$R *.DFM}
constructor TFormEmployee.Create(AOwner: TComponent);
begin
  if CheckTableIsExistsed then//如果數據表完全正確，就創建Form，否則退出。
    inherited Create(AOwner);
end;

procedure TFormEmployee.FormCreate(Sender: TObject);
begin
  Query1.Close;
  Query1.CachedUpdates:=True;
  Query1.RequestLive:=True;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * from Employee');
  Query1.Open;
end;

procedure TFormEmployee.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TFormEmployee.FormActivate(Sender: TObject);
begin
  WindowState:=wsMaximized;
end;

procedure TFormEmployee.Query1AfterPost(DataSet: TDataSet);
begin
  Query1.ApplyUpdates;
end;

end.