mc_ztgl_kt.pas

异洲酒店管理系统

unit MC_ZTGL_KT;

interface

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

type
  TZTGL_KT = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Bevel2: TBevel;
    DBGrid1: TDBGrid;
    Table1: TTable;
    Table1BDEDesigner: TIntegerField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TFloatField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TStringField;
    DataSource1: TDataSource;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Query1: TQuery;
    Bevel3: TBevel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    DBText8: TDBText;
    Label11: TLabel;
    DBText9: TDBText;
    Label12: TLabel;
    Bevel1: TBevel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZTGL_KT: TZTGL_KT;

implementation

uses MC_TLCYGLXT, MC_KTGL;

{$R *.DFM}

//启动时将光标跳转到输入框
procedure TZTGL_KT.FormShow(Sender: TObject);
begin
 Edit1.SetFocus;
end;

procedure TZTGL_KT.Edit1Enter(Sender: TObject);
begin
 Edit1.color:=ClAqua;
end;

procedure TZTGL_KT.Edit1Exit(Sender: TObject);
begin
 Edit1.color:=ClWindow;
end;

//将焦点跳转到确定按钮
procedure TZTGL_KT.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
  if not Table1.Locate('编号',StrToInt(Edit1.Text),[loCaseInsensitive]) then
  begin
   ShowMessage('对不起，没有找到．');
   Edit1.SetFocus;
  End
 Else
 begin
   BitBtn1.Click;
 end;
 End
 Else
 if key=#8 then key:=#8
 Else
 if (key<'0') or (Key>'9') then key:=#0;
end;
//转台
procedure TZTGL_KT.BitBtn1Click(Sender: TObject);
begin
 If Table1.RecordCount = 0 Then
 begin
 ShowMessage('对不起，当前没有空闲房台以供转换.');
 End
 Else
 begin
  if MessageDlg('确认将['+TLCYGLXT.KT_FJTHXXB
  .FieldByName('房台名称').AsString+']的客人转换到['
  +Table1.FieldByName('房台名称').AsString+']上?'
  ,mtCustom,[mbYes,mbNo],0)=mrYes then
 begin
   TLCYGLXT.KT_FJTHXXB.Edit;
   TLCYGLXT.KT_FJTHXXB.FieldByName('状态').AsString:='空闲';
   TLCYGLXT.KT_FJTHXXB.Post;
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('Update 点菜临时表');
   Query1.SQL.Add('set 房间台号=:A Where 房间台号=:B');
   Query1.Params[0].AsInteger:=Table1.FieldByName('编号').AsInteger;
   Query1.Params[1].AsInteger:=TLCYGLXT.KT_FJTHXXB.FieldByName('编号').AsInteger;
   Query1.ExecSQL;
   Table1.Edit;
   Table1.FieldByName('状态').AsString:='营业';
   Table1.Post;
   KTGL.Button1.Click;
   ShowMessage('转换成功.');
   Close;
 End
 Else
 Table1.Refresh;
 end;
end;
//关闭窗体
procedure TZTGL_KT.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ANiMateWindow(Handle,300,AW_Slide+Aw_Center+Aw_Hide);
 Table1.Close;
 ZTGL_KT.Release;
 ZTGL_KT:=nil;
end;
//退出转台设置
procedure TZTGL_KT.BitBtn2Click(Sender: TObject);
begin
 Close;
end;
end.