mc_fjthgl_lr.pas

异洲酒店管理系统

unit MC_FJTHGL_LR;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls;

type
  TFJTHGL_LR = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FJTHGL_LR: TFJTHGL_LR;

implementation

uses MC_TLCYGLXT;

{$R *.DFM}

procedure TFJTHGL_LR.FormShow(Sender: TObject);
begin
  DBEdit2.SetFocus;
end;
procedure TFJTHGL_LR.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then DBLookupComboBox1.SetFocus;   //焦点移到“类型说明“输入框
end;

procedure TFJTHGL_LR.DBLookupComboBox1KeyPress(Sender: TObject;var Key: Char);
begin
  if key=#13 then DBLookupComboBox2.SetFocus;  //焦点移到“餐饮部门“输入框
end;

procedure TFJTHGL_LR.DBLookupComboBox2KeyPress(Sender: TObject;var Key: Char);
begin
  if key=#13 then DBEdit5.SetFocus;   //焦点移到“服务费“输入框
end;

procedure TFJTHGL_LR.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then DBEdit6.SetFocus;   //焦点移到“简要说明“输入框
end;

procedure TFJTHGL_LR.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then BitBtn1.SetFocus;    //焦点移到“保存“输入框
end;

procedure TFJTHGL_LR.BitBtn1Click(Sender: TObject);  //保存房台信息
begin
  if Length(TLCYGLXT.FJTHXXB.FieldByName('房台名称').AsString)=0 then
  begin
    showMessage('房台名称不能为空!!');
    DBEdit2.SetFocus;
  End
  Else
  begin
    TLCYGLXT.FJTHXXB.Post;   //开始保存到数据库
    Close;
  end;
end;
procedure TFJTHGL_LR.BitBtn2Click(Sender: TObject);    //取消添加
begin
  TLCYGLXT.FJTHXXB.Cancel;   //撤销保存
  Close;
end;

procedure TFJTHGL_LR.FormCloseQuery(Sender: TObject;var CanClose: Boolean);
begin
  If TLCYGLXT.FJTHXXB.Modified Then
  begin
    ShowMessage('请保存数据');
    Abort;
  End
  Else
  begin
    ANimateWindow(Handle,100,AW_CENTER+AW_SLIDE+AW_HIDE);
    TLCYGLXT.FJTHXXB.Refresh;
  end;
end;
procedure TFJTHGL_LR.DBEdit2Exit(Sender: TObject);
begin
  if Length(TLCYGLXT.FJTHXXB.FieldByName('服务费').AsString)=0 then
  TLCYGLXT.FJTHXXB.FieldByName('服务费').AsInteger:=0;
end;


end.