unitemployee.pas

包含众多详细的delphi对数据库的访问代码

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.