unitstorage.pas

一个操作sql server的实例

unit UnitStorage;

interface

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

type
  TFormStorage = class(TForm)
    DataSource1: TDataSource;
    Query1: TQuery;
    DBGrid1: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent); override; //重载Form的Create构造函数。
    { Public declarations }
  end;

var
  FormStorage: TFormStorage;

implementation

{$R *.DFM}
constructor TFormStorage.Create(AOwner: TComponent);
begin
  if CheckTableIsExistsed then//如果数据表完全正确，就创建Form，否则退出。
    inherited Create(AOwner);
end;

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

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

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

end.