【delphi开源代码栏目提醒】：网学会员在delphi开源代码频道为大家收集整理了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.