bookut.~pas

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

procedure TBookFm.sfjcKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=13)   then
if  (sfjc.Checked) then

jcpriceedit.SetFocus
else
yskedit.SetFocus;
end;

procedure TBookFm.jcpriceeditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
yskedit.SetFocus;
end;

procedure TBookFm.yskeditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
bookpeoedit.SetFocus;
end;

procedure TBookFm.bookpeoeditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  begin
  if key=13 then
ywybox.SetFocus;
end;

procedure TBookFm.ywyboxKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
czyedit.SetFocus;
end;

procedure TBookFm.czyeditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
hybhedit.SetFocus;
end;

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

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

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

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

procedure TBookFm.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)  values';
      str:=str+'(:yddh,:kflx,:ydsj,:ddsj,:ldsj,:djzt,:rzrs,:kfbh,:kfjg,:rzjg,:zk,:zkyy,:sfjc,';
      str:=str+':jcjg,:ysk,:ydr,:hybh,:ydgs,:lxdh,:bz,:czy,:ywy,:id)';

  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('ydsj').Value:=date();
      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:='';
      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;
     showmessage('预定成功');
    sxbt.Click;
end;

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

procedure TBookFm.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;
          end;
end;

procedure TBookFm.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;
     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 TBookFm.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+'  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);
      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;

end.