cscx.pas

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

unit cscx;

interface

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

type
  TcscxForm = 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
  cscxForm: TcscxForm;

implementation

{$R *.DFM}

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

procedure TcscxForm.FormShow(Sender: TObject);
begin
   setwindowpos(cscxForm.Handle,hwnd_topmost,cscxForm.Left,cscxForm.Top,cscxForm.Width,cscxForm.Height,swp_nomove);
   tbooleanfield(Query1.Fields[3]).displayvalues:='是;否';
   tbooleanfield(Query1.Fields[4]).displayvalues:='是;否';
end;

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

end;

end.