inroomut.pas

宾馆客房管理系统,功能强大,界面美观,全部delphi源代码

if key=13 then
hybhedit.SetFocus;
end;

procedure TinroomFm.hybheditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
ydgsedit.SetFocus;
end;

procedure TinroomFm.ydgseditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
bz.SetFocus;
end;

procedure TinroomFm.bzKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
ydbt.SetFocus;
end;

procedure TinroomFm.sfjcClick(Sender: TObject);
begin
if sfjc.Checked=true then
jcpriceedit.Enabled:=true
else
jcpriceedit.Enabled:=false;
end;

procedure TinroomFm.ydbtClick(Sender: TObject);
var
str:string;
begin

 if roomtypebox.Text='' then
     begin
      showmessage('请选择客房类型!');
      exit;
     end;
      if roomnumbox.Text='' then
     begin
      showmessage('请选择客房编号!');
      exit;
     end;
    if inprice.Text='' then
     begin
      showmessage('请输入入住价格!');
      exit;
     end;
     if (jcpriceedit.Enabled=true) and (jcpriceedit.Text='') then
     begin
      showmessage('请输入加床价格!');
      exit;
     end;
     if (peonumedit.Text='') or (peonumedit.Text='0') then
     begin
      showmessage('请输入入住人数!');
      exit;
     end;
     with bookado do
       begin
        close;
        sql.Clear;
        sql.Add('select * from 入住单表 where 入住单号=:yddh');
        Parameters.ParamByName('yddh').Value:=trim(booknumEdit.Text);
        open;
        if recordcount>=1 then
          begin
            showmessage('此入住单存在，请刷新重新登记');
            exit;
          end;
       end;
      str:='insert into 入住单表(入住单号,客房类型,抵店时间,离店时间,';
      str:=str+'单据状态,入住人数,客房编号,客房价格,入住价格,折扣,折扣原因,是否加床,加床价格,';
      str:=str+'预收款,预定人,会员编号,预定公司,联系电话,特要说明,操作员,业务员,id,预定单号,早餐,叫醒,保密,vip)  values';
      str:=str+'(:yddh,:kflx,:ddsj,:ldsj,:djzt,:rzrs,:kfbh,:kfjg,:rzjg,:zk,:zkyy,:sfjc,';
      str:=str+':jcjg,:ysk,:ydr,:hybh,:ydgs,:lxdh,:bz,:czy,:ywy,:id,:dr,:tgzc,:dsjx,:rzbm,:vip)';

  with bookado do
    begin
      close;
      sql.Clear;
      sql.Add(str);
      Parameters.ParamByName('yddh').Value:=trim(booknumEdit.Text);
      Parameters.ParamByName('kflx').Value:=trim(roomtypebox.Text);
       Parameters.ParamByName('ddsj').Value:=datetostr(dddate.date);
      Parameters.ParamByName('ldsj').Value:=datetostr(lddate.date);
      Parameters.ParamByName('djzt').Value:=trim(statusedit.Text);
      Parameters.ParamByName('rzrs').Value:=trim(peonumEdit.Text);
      Parameters.ParamByName('kfbh').Value:=trim(roomnumbox.Text);
      Parameters.ParamByName('kfjg').Value:=trim(roompriceEdit.Text);
      Parameters.ParamByName('rzjg').Value:=trim(inprice.Text);
      Parameters.ParamByName('zk').Value:=trim(zkEdit.Text);
      Parameters.ParamByName('zkyy').Value:=trim(zkyyEdit.Text);
      if sfjc.Checked then
      Parameters.ParamByName('sfjc').Value:=true
      else
      Parameters.ParamByName('sfjc').Value:=false;
      Parameters.ParamByName('jcjg').Value:=trim(jcpriceedit.Text);
      Parameters.ParamByName('ysk').Value:=trim(yskedit.Text);
      Parameters.ParamByName('ydr').Value:=trim(bookpeoedit.Text);
      Parameters.ParamByName('hybh').Value:=trim(hybhedit.Text);
      Parameters.ParamByName('ydgs').Value:=trim(ydgsedit.Text);
      Parameters.ParamByName('lxdh').Value:=trim(teledit.Text);
      Parameters.ParamByName('bz').Value:=trim(bz.Text);
      Parameters.ParamByName('czy').Value:=trim(czyedit.Text);
      Parameters.ParamByName('ywy').Value:=trim(ywybox.Text);
      Parameters.ParamByName('id').Value:='';
      Parameters.ParamByName('dr').Value:=trim(dr.Text);
      if tgzc.Checked then
      Parameters.ParamByName('tgzc').Value:=true
      else
      Parameters.ParamByName('tgzc').Value:=false;

      if dsjx.Checked then
      Parameters.ParamByName('dsjx').Value:=true
      else
      Parameters.ParamByName('dsjx').Value:=false;

      if rzbm.Checked then
      Parameters.ParamByName('rzbm').Value:=true
      else
      Parameters.ParamByName('rzbm').Value:=false;

      if vip.Checked then
      Parameters.ParamByName('vip').Value:=true
      else
      Parameters.ParamByName('vip').Value:=false;

      try
      execsql;
      //showmessage('预定成功');
      except
      showmessage('入住失败!');
      end;
    end;
    with bookado do
      begin
        close;
        sql.Clear;
        sql.Add('update 客房信息表 set 状态="入住" where 客房编号=:kfbh');
        Parameters.ParamByName('kfbh').Value:=trim(roomnumbox.Text);
        execsql;
     end;
    if (trim(dr.Text)<>'') then
     begin
     with bookado do
      begin
        close;
        sql.Clear;
        sql.Add('update 预定单表 set 单据状态="入住" where 预定单号=:yddh');
        Parameters.ParamByName('yddh').Value:=trim(dr.Text);
        execsql;
     end;
      with bookado do
      begin
        close;
        sql.Clear;
        sql.Add('insert into 预定单历史表 select * from 预定单表 where 预定单号=:yddh');
        Parameters.ParamByName('yddh').Value:=trim(roomnumbox.Text);
        execsql;
     end;
     with bookado do
       begin
         close;
         sql.Clear;
         sql.Add('delete from 预定单表 where 单据状态="入住"');
         execsql;
       end;
    end; 
     showmessage('入住成功');
    sxbt.Click;
end;

procedure TinroomFm.BitBtn6Click(Sender: TObject);
begin
close;
end;

procedure TinroomFm.DBGrid1CellClick(Column: TColumn);
begin
  with bookado do
    begin
      booknumedit.Text:=fieldbyname('入住单号').AsString;
      roomtypebox.Text:=fieldbyname('客房类型').AsString;
      dddate.Date:=fieldbyname('抵店时间').AsDateTime;
      lddate.Date:=fieldbyname('离店时间').AsDateTime;
      teledit.Text:=fieldbyname('联系电话').AsString;
      roomnumbox.Text:=fieldbyname('客房编号').AsString;
      roompriceedit.Text:=fieldbyname('客房价格').AsString;
      inprice.Text:=fieldbyname('入住价格').AsString;
      zkedit.Text:=fieldbyname('折扣').AsString;
      zkyyedit.Text:=fieldbyname('折扣原因').AsString;
      peonumedit.Text:=fieldbyname('入住人数').AsString;
      if fieldbyname('是否加床').AsBoolean then
      sfjc.Checked:=true
      else
      sfjc.Checked:=false;
      jcpriceedit.Text:=fieldbyname('加床价格').AsString;
      yskedit.Text:=fieldbyname('预收款').AsString;
      statusedit.Text:=fieldbyname('单据状态').AsString;
      bookpeoedit.Text:=fieldbyname('预定人').AsString;
      ywybox.Text:=fieldbyname('业务员').AsString;
      czyedit.Text:=fieldbyname('操作员').AsString;
      hybhedit.Text:=fieldbyname('会员编号').AsString;
      ydgsedit.Text:=fieldbyname('预定公司').AsString;
      bz.Text:=fieldbyname('备注').AsString;
     if fieldbyname('早餐').AsBoolean then
      tgzc.Checked:=true
      else
       tgzc.Checked:=false;
      if fieldbyname('叫醒').AsBoolean then
      dsjx.Checked:=true
      else
      dsjx.Checked:=false;
      if fieldbyname('保密').AsBoolean then
      rzbm.Checked:=true
      else
      rzbm.Checked:=false;
      if fieldbyname('vip').AsBoolean then
      vip.Checked:=true
      else
      vip.Checked:=false;
      dr.Text:=fieldbyname('预定单号').AsString;
          end;
end;

procedure TinroomFm.scbtClick(Sender: TObject);
begin
  with bookado do
    begin
     close;
     sql.Clear;
     sql.Add('delete  from 入住单表 where 入住单号=:yddh');
     Parameters.ParamByName('yddh').Value:=trim(booknumEdit.Text);
     try
     if messagedlg('确定删除吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
      begin
      execsql;
       showmessage('删除入住成功');
      end;
      except
      showmessage('删除入住失败');
      end;
    end;
    if dr.Text='' then
     begin
     with bookado do
      begin
        close;
        sql.Clear;
        sql.Add('update 客房信息表 set 状态="空房" where 客房编号=:kfbh');
        Parameters.ParamByName('kfbh').Value:=trim(roomnumbox.Text);
        execsql;
     end;
     end
     else
     begin
     with bookado do
      begin
        close;
        sql.Clear;
        sql.Add('update 预定单表 set 单据状态="预定" where 预定单号=:yddh');
        Parameters.ParamByName('yddh').Value:=trim(dr.Text);
        execsql;
     end;
     end;
    sxbt.Click;
end;

procedure TinroomFm.xgbtClick(Sender: TObject);
var
str:string;
begin
if roomtypebox.Text='' then
     begin
      showmessage('请选择客房类型!');
      exit;
     end;
      if roomnumbox.Text='' then
     begin
      showmessage('请选择客房编号!');
      exit;
     end;
    if inprice.Text='' then
     begin
      showmessage('请输入入住价格!');
      exit;
     end;
     if (jcpriceedit.Enabled=true) and (jcpriceedit.Text='') then
     begin
      showmessage('请输入加床价格!');
      exit;
     end;
     if (peonumedit.Text='') or (peonumedit.Text='0') then
     begin
      showmessage('请输入入住人数!');
      exit;
     end;
      str:='update 入住单表 set 客房类型=:kflx,抵店时间=:ddsj,离店时间=:ldsj,';
      str:=str+'入住人数=:rzrs,客房编号=:kfbh,入住价格=:rzjg,折扣=:zk,折扣原因=:zkyy,是否加床=:sfjc,加床价格=:jcjg,';
      str:=str+'预收款=:ysk,预定人=:ydr,会员编号=:hybh,预定公司=:ydgs,联系电话=:lxdh,备注=:bz,操作员=:czy,业务员=:ywy';
      str:=str+',早餐=:tgzc,叫醒=:dsjx,保密=:rzbm,vip=:vip  where 入住单号=:yddh';

  with bookado do
    begin
      close;
      sql.Clear;
      sql.Add(str);
      Parameters.ParamByName('yddh').Value:=trim(booknumEdit.Text);
      Parameters.ParamByName('kflx').Value:=trim(roomtypebox.Text);
      Parameters.ParamByName('ddsj').Value:=datetostr(dddate.date);
      Parameters.ParamByName('ldsj').Value:=datetostr(lddate.date);
       Parameters.ParamByName('rzrs').Value:=trim(peonumEdit.Text);
      Parameters.ParamByName('kfbh').Value:=trim(roomnumbox.Text);
      Parameters.ParamByName('rzjg').Value:=trim(inprice.Text);
      Parameters.ParamByName('zk').Value:=trim(zkEdit.Text);
      Parameters.ParamByName('zkyy').Value:=trim(zkyyEdit.Text);
      if sfjc.Checked then
      Parameters.ParamByName('sfjc').Value:=true
      else
      Parameters.ParamByName('sfjc').Value:=false;
      Parameters.ParamByName('jcjg').Value:=trim(jcpriceedit.Text);
      Parameters.ParamByName('ysk').Value:=trim(yskedit.Text);
      Parameters.ParamByName('ydr').Value:=trim(bookpeoedit.Text);
      Parameters.ParamByName('hybh').Value:=trim(hybhedit.Text);
      Parameters.ParamByName('ydgs').Value:=trim(ydgsedit.Text);
      Parameters.ParamByName('lxdh').Value:=trim(teledit.Text);
      Parameters.ParamByName('bz').Value:=trim(bz.Text);
      Parameters.ParamByName('czy').Value:=trim(czyedit.Text);
      Parameters.ParamByName('ywy').Value:=trim(ywybox.Text);
        if tgzc.Checked then
      Parameters.ParamByName('tgzc').Value:=true
      else
      Parameters.ParamByName('tgzc').Value:=false;

      if dsjx.Checked then
      Parameters.ParamByName('dsjx').Value:=true
      else
      Parameters.ParamByName('dsjx').Value:=false;

      if rzbm.Checked then
      Parameters.ParamByName('rzbm').Value:=true
      else
      Parameters.ParamByName('rzbm').Value:=false;

      if vip.Checked then
      Parameters.ParamByName('vip').Value:=true
      else
      Parameters.ParamByName('vip').Value:=false;
      try

      if messagedlg('确定修改吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
      begin
      execsql;
      showmessage('修改入住成功');
      end;
      except
      showmessage('修改入住失败!');
      end;
    end;
     with bookado do
      begin
        close;
        sql.Clear;
        sql.Add('update 客房信息表 set 状态="入住" where 客房编号=:kfbh');
        Parameters.ParamByName('kfbh').Value:=trim(roomnumbox.Text);
        execsql;
     end;

    sxbt.Click;
end;

procedure TinroomFm.SpeedButton1Click(Sender: TObject);
begin
booklistfm:=Tbooklistfm.create(self);
booklistfm.show;
end;

end.