ctexitz.pas

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

unit ctexitz;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Buttons, ExtCtrls;

type
  Ttzform = class(TForm)
    Button1: TButton;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Edit1: TEdit;
    Bevel2: TBevel;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tzform: Ttzform;

implementation
uses dataproc, ctdj ;

{$R *.DFM}



procedure Ttzform.Button1Click(Sender: TObject);
var ls:string;
begin
     Query1.Active :=false;
     Query1.sql.clear;
     Query1.sql.add('select accno from ctnowin where  tabno<>'''+trim(edit1.Text)+'''');
     Query1.Open;
     ls:=Query1.Fields[0].asstring;
     Query1.Active :=false;
     Query1.sql.clear;
     Query1.sql.add('select tabno from ctnowin where (accno='''+ls+''' and tabno<>'''+trim(edit1.Text)+''')');
     Query1.Open;
     if Query1.Eof then
     begin
        showmessage('没有其他桌同帐，不能退桌');
        Query1.Active :=false;
        Query1.sql.clear;
        exit;
     end;
     ls:=Query1.Fields[0].asstring;
     Query1.Active :=false;
     Query1.sql.clear;
     Query1.sql.add('update tabledb set state='''+'0'+''' where tabno='''+trim(edit1.Text)+'''');
     Query1.sql.add('update custom set tabno='''+ls+''' where tabno='''+trim(edit1.Text)+'''');
     Query1.sql.add('delete ctnowin where tabno='''+trim(edit1.Text)+'''');
     Query1.ExecSQL;
     showmessage('退桌成功');
     BitBtn2.SetFocus ;
end;

procedure Ttzform.FormCreate(Sender: TObject);
begin
   edit1.text:='';
end;

procedure Ttzform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
  begin
    if xt=0 then help(14);
  end;
  if key=13 then
     selectnext(activecontrol,true,true);
  if key=27 then
     tzform.Close ;
end;

procedure Ttzform.BitBtn2Click(Sender: TObject);
begin
   tzform.close;
end;


procedure Ttzform.Edit1DblClick(Sender: TObject);
begin
  Application.CreateForm(Tycdjform, ycdjform);
  ycdjform.Caption:='';
  ycdjform.showmodal;
  edit1.Text:=ycdjform.ydj.Text;
  ycdjform.free;
  Button1.SetFocus ;

end;

end.