hkcscx.pas

集成酒店桑拿食管管理的完整程序

unit hkcscx;

interface

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

type
  ThkcscxForm = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hkcscxForm: ThkcscxForm;

implementation

{$R *.DFM}

procedure ThkcscxForm.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then close;
end;

procedure ThkcscxForm.FormShow(Sender: TObject);
begin
   setwindowpos(hkcscxForm.Handle,hwnd_topmost,hkcscxForm.Left,hkcscxForm.Top,hkcscxForm.Width,hkcscxForm.Height,swp_nomove);
end;

procedure ThkcscxForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Query1.Active:=false;
  Query1.SQL.Clear;

end;

end.