mc_fjthgl.pas

异洲酒店管理系统

unit MC_FJTHGL;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Grids, DBGrids, Db, ExtCtrls, Buttons, DBActns,
  ActnList, ImgList;

type
  TFJTHGL = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetLast1: TDataSetLast;
    DataSetNext1: TDataSetNext;
    DataSetPrior1: TDataSetPrior;
    Edit1: TEdit;
    Label1: TLabel;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn9Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FJTHGL: TFJTHGL;

implementation

uses MC_TLCYGLXT, MC_FJTHGL_LR;

{$R *.DFM}
procedure TFJTHGL.FormCreate(Sender: TObject);
begin
 If Not Assigned(FJTHGL_LR) Then
 begin
   FJTHGL_LR:=TFJTHGL_LR.Create(Self);
 end;
end;

procedure TFJTHGL.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#8 then key:=#8
 else if (key<'0') or (key>'9') then   //屏蔽非数字键
 if key=#13 then BitBtn5.SetFocus   //将焦点跳转到"查询"按钮
 else key:=#0;   //空格键
end;

procedure TFJTHGL.BitBtn5Click(Sender: TObject);  //查询房台信息
begin
 If Length(Edit1.Text) = 0 Then   //如果没有输入查询内容
 begin
   ShowMessage('请在左边的信息框中输入编号信息');
   Edit1.SetFocus;
 End
 Else      //如果输入查询内容
 begin
  TLCYGLXT.FJTHXXB.Refresh;//刷新数据
  if TLCYGLXT.FJTHXXB.Locate('编号',StrToInt(Edit1.Text),[loCaseInsensitive])  then  //查寻房台信息
 end;
end;
procedure TFJTHGL.BitBtn8Click(Sender: TObject);
begin
 TLCYGLXT.FJTHXXB.Refresh;  //刷新数据
 If TLCYGLXT.FJTHXXB.RecordCount <> 1 Then
 begin
   if TLCYGLXT.FJTHXXB.FieldByName('状态').AsString='空闲' then
   begin
    if MessageDLG('确认删除选定的客房信息吗?',mtCustom,[mbYes,mbNO],0)=mrYes then
     begin
          TLCYGLXT.FJTHXXB.Delete;
     end;
   End
   Else
   begin
     ShowMessage('对不起,要删除房台正在营业,不能删除它的信息.');
   end;
 End
 else ShowMessage('数据信息只剩一条,不能删除!!');
end;

procedure TFJTHGL.BitBtn7Click(Sender: TObject);  //修改数据
begin
 TLCYGLXT.FJTHXXB.Refresh;//刷新数据
 TLCYGLXT.FJTHLXB.Refresh;
 TLCYGLXT.FJTHBMB.Refresh;
 if TLCYGLXT.FJTHXXB.FieldByName('状态').AsString<>'空闲' then
 begin
   ShowMessage('对不起,要修改房台正在营业,不能进行修改.');
 End
 Else
 begin
   TLCYGLXT.FJTHXXB.Edit; //进入编辑模式
   FJTHGL_LR.ShowModal; //调入房台信息修改窗口
 end;
end;

procedure TFJTHGL.BitBtn6Click(Sender: TObject);    //添加房台信息
var BH:integer;
begin
 TLCYGLXT.FJTHXXB.Last;
 BH:=TLCYGLXT.FJTHXXB.FieldBYName('编号').AsInteger+1;
 TLCYGLXT.FJTHXXB.Append;
 TLCYGLXT.FJTHXXB.FieldBYName('编号').AsInteger:=BH;
 TLCYGLXT.FJTHXXB.FieldBYName('状态').AsString:='空闲';
 TLCYGLXT.FJTHXXB.FieldBYName('类型说明').AsString:=TLCYGLXT
   .FJTHLXB.FieldByName('类型说明').AsString;
 TLCYGLXT.FJTHXXB.FieldBYName('餐饮部门').AsString:=TLCYGLXT
   .FJTHBMB.FieldByName('部门名称').AsString;
 TLCYGLXT.FJTHXXB.FieldBYName('服务费').AsInteger:=0;
 FJTHGL_LR.ShowModal;  //调入房台信息添加窗口
end;
procedure TFJTHGL.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 ANimateWindow(handle,200,AW_HOR_NEGATIVE+AW_Hide+AW_SLIDE);  //将窗体从右至左移出屏幕
 TLCYGLXT.FJTHXXB.Close;    //关闭房间台号信息表
 TLCYGLXT.FJTHLXB.Close;    //关闭房间台号类型表
 TLCYGLXT.FJTHBMB.Close;     //关闭房间台号部门表
end;
procedure TFJTHGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 FJTHGL_LR.Release;//释放FJTHGL_LR窗口
 FJTHGL_LR:=Nil;//
 FJTHGL.Release;//释放FJTHGL窗口
 FJTHGL:=Nil;
end;
procedure TFJTHGL.BitBtn9Click(Sender: TObject);
begin
 Close;  //退出房台信息管理
end;

end.