unit27.pas

酒店住宿管理系统,有完整的文件和源码, 可以下载使用

   exit;
   end;
if trim(edit16.Text)='' then
   begin
   Application.MessageBox('说明不能为空！','提示信息',mb_ok);
   edit16.SetFocus;
   exit;
   end;
savetodfsjlsb;

adodataset1.Edit;
adodataset1.FieldByName('客户名称').AsString:=edit2.Text;
adodataset1.FieldByName('籍贯').AsString:=edit3.Text;
adodataset1.FieldByName('出生年月').AsDateTime:=datetimepicker1.date;
adodataset1.FieldByName('证件名称').AsString:=edit4.Text;
adodataset1.FieldByName('证件号码').AsString:=edit5.Text;
adodataset1.FieldByName('源地').AsString:=edit6.Text;
adodataset1.FieldByName('目的地').AsString:=edit7.Text;
adodataset1.FieldByName('工作单位').AsString:=edit8.Text;
adodataset1.FieldByName('通信地址').AsString:=edit9.Text;
adodataset1.FieldByName('联系方式').AsString:=edit10.Text;
if radiobutton3.Checked=true then
adodataset1.FieldByName('性别').AsString:='男'
else
adodataset1.FieldByName('性别').AsString:='女';

adodataset1.FieldByName('预计天数').AsInteger:=strtoint(edit12.Text);
adodataset1.FieldByName('押金数').AsInteger:=strtoint(edit13.Text);
adodataset1.FieldByName('其他费用').AsInteger:=strtoint(edit14.Text);
adodataset1.FieldByName('折扣率').AsFloat:=strtofloat(edit15.Text);
adodataset1.FieldByName('说明').AsString:=edit16.Text;
adodataset1.FieldByName('操作员').AsString:=denglu.usename;
adodataset1.FieldByName('操作日期').AsDateTime:=date;
adodataset1.Post;
adodataset1.Refresh;
editenablefalse;
dbgrid1.Enabled:=true;
showmessage('订房信息修改成功！');
bitbtn2.Enabled:=true;
bitbtn3.Enabled:=false;
bitbtn4.Enabled:=false;







end;

procedure Tdfxsxgform.Edit15Change(Sender: TObject);
var
xx,yy:string;
len:integer;
begin
if edit15.Text<>'' then
begin
xx:=edit15.Text;
len:=length(xx);
yy:=copy(xx,len,1);
if yy<>'.'then
begin
if (yy<'0') or (yy>'9')  then
begin
showmessage('您输入了无效的值！');

edit15.Text:='';
edit15.SetFocus;
exit;
end;
end;
end;
end;

procedure Tdfxsxgform.Edit15Exit(Sender: TObject);
var
 number:integer;
begin
number:=strtoint(edit15.Text);
if (number<0) or (number>100) then
begin
showmessage('您输入的折扣率有误请重新输入');
edit15.Text:='';
//edit14.SetFocus;
exit;
end;


end;
procedure Tdfxsxgform.Edit12Change(Sender: TObject);
var
   new,old:string;
   len:integer;
begin
if edit12.Text<>'' then
begin
old:=edit12.Text;
len:=length(old);
new:=copy(old,len,1);
if ((new<'1') or (new>'9')) then
begin
showmessage('您输入了无效的值！');
edit12.Text:='';
exit;
end;
end;
end;

procedure Tdfxsxgform.Edit13Change(Sender: TObject);
var
   new,old:string;
   len:integer;
begin
if edit13.Text<>'' then
begin
old:=edit13.Text;
len:=length(old);
new:=copy(old,len,1);
if ((new<'0') or (new>'9')) then
begin
showmessage('您输入了无效的值！');
edit13.Text:='';
exit;
end;
end;
end;

procedure Tdfxsxgform.Edit14Change(Sender: TObject);
var
   new,old:string;
   len:integer;
begin
if edit14.Text<>'' then
begin
old:=edit14.Text;
len:=length(old);
new:=copy(old,len,1);
if ((new<'0') or (new>'9')) then
begin
showmessage('您输入了无效的值！');
edit14.Text:='';
exit;
end;
end;
end;

procedure Tdfxsxgform.BitBtn5Click(Sender: TObject);
begin
if pagecontrol1.ActivePage=tabsheet1 then
adodataset1.Close;
if pagecontrol1.ActivePage=tabsheet2 then
adodataset2.Close;
close;
end;

procedure Tdfxsxgform.RadioButton6Click(Sender: TObject);
begin
label18.Visible:=true;
edit17.Visible:=true;


label18.Caption:='请输入订房序号：';
edit17.Text:='';
edit17.SetFocus;
bitbtn7.Enabled:=false;
bitbtn8.Enabled:=false;
edit18.Text:='';
end;

procedure Tdfxsxgform.RadioButton7Click(Sender: TObject);
begin
label18.Visible:=true;
edit17.Visible:=true;


label18.Caption:='请输入客户名称：';
edit17.Text:='';
edit17.SetFocus;
bitbtn7.Enabled:=false;
bitbtn8.Enabled:=false;
edit18.Text:='';
end;

procedure Tdfxsxgform.RadioButton8Click(Sender: TObject);
begin
label18.Visible:=true;
edit17.Visible:=true;
edit18.Text:='';


label18.Caption:='请输入客房编号：';
edit17.Text:='';
edit17.SetFocus;
bitbtn7.Enabled:=false;
bitbtn8.Enabled:=false;
end;

procedure Tdfxsxgform.RadioButton9Click(Sender: TObject);
begin
label18.Visible:=false;
edit17.Visible:=false;
bitbtn7.Enabled:=false;
bitbtn8.Enabled:=false;
edit18.Text:='';
end;

procedure Tdfxsxgform.BitBtn6Click(Sender: TObject);
begin
if (radiobutton6.Checked=true) and (trim(edit17.Text)='') then
begin
showmessage('请输入订房序号：');
edit17.SetFocus;
exit;
end;
 if (radiobutton7.Checked=true) and (trim(edit17.Text)='') then
begin
showmessage('请输入客户名称：');
edit17.SetFocus;
exit;
end;
 if (radiobutton8.Checked=true) and (trim(edit17.Text)='') then
begin
showmessage('请输入客房编号：');
edit17.SetFocus;
exit;
end;
if radiobutton6.Checked=true then
begin
adodataset2.Close;
adodataset2.Parameters.Clear;
        adodataset2.Parameters.add;
        adodataset2.Parameters[0].name:='s0';
        adodataset2.Parameters[0].DataType:=ftstring;
        adodataset2.Parameters[0].Size:=12;
        adodataset2.Parameters[0].Value:=trim(edit17.Text);
        adodataset2.CommandText:='select * from 订房数据表 where 订房序号=:s0';
        adodataset2.Active:=true;
        if adodataset1.RecordCount=0 then
        showmessage('无此订房序号信息！');

end;
if radiobutton7.Checked=true then
begin
adodataset2.Close;
adodataset2.Parameters.Clear;
        adodataset2.Parameters.add;
        adodataset2.Parameters[0].name:='s0';
        adodataset2.Parameters[0].DataType:=ftstring;
        adodataset2.Parameters[0].Size:=20;
        adodataset2.Parameters[0].Value:=trim(edit17.Text);
        adodataset2.CommandText:='select * from 订房数据表 where 客户名称=:s0';
        adodataset2.Active:=true;
        if adodataset2.RecordCount=0 then
        showmessage('无此客户信息！');

end;
 if radiobutton8.Checked=true then
begin
adodataset2.Close;
adodataset2.Parameters.Clear;
        adodataset2.Parameters.add;
        adodataset2.Parameters[0].name:='s0';
        adodataset2.Parameters[0].DataType:=ftstring;
        adodataset2.Parameters[0].Size:=6;
        adodataset2.Parameters[0].Value:=trim(edit17.Text);
        adodataset2.CommandText:='select * from 订房数据表 where 房间编号=:s0';
        adodataset2.Active:=true;
        if adodataset2.RecordCount=0 then
        showmessage('无此客房编号信息！');

end;
if radiobutton9.Checked=true then
begin
adodataset2.Close;
adodataset2.CommandText:='select * from 订房数据表';
adodataset2.Active:=true;
if adodataset2.RecordCount=0 then
showmessage('无订房信息！');
end;

end;

procedure Tdfxsxgform.BitBtn10Click(Sender: TObject);
begin
roomfind.showmodal;
end;






procedure Tdfxsxgform.Edit18KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
    adodataset3:TAdodataset;
begin
         if key=13 then
         begin


          adodataset3:=TAdodataSet.Create(self);
          adodataset3.Connection:=adoconnection1;
          adodataset3.Close;
          adodataset3.Parameters.clear;
          adodataset3.Parameters.AddParameter;
          adodataset3.Parameters[0].Name:='s0';
          adodataset3.Parameters[0].DataType:=ftstring;
          adodataset3.Parameters[0].Direction:=pdinput;
          adodataset3.Parameters[0].Value:=trim(edit18.Text);
          adodataset3.CommandText:='select * from 客房管理 where 客房编号=:s0';
          adodataset3.Active:=true;
          if adodataset3.RecordCount=0 then
          begin
          showmessage('无此客房编号信息！');
          adodataset3.Close;
          exit;
          end;
          if adodataset3.FieldByName('保留标志').AsBoolean=true then
          begin
          showmessage('此客房已预订！');
          adodataset3.Close;
          exit;
          end;
          if adodataset3.FieldByName('使用标志').AsBoolean=true then
          begin
          showmessage('此客房已使用！');
          adodataset3.Close;
          exit;
          end;
          if adodataset3.FieldByName('钟点房标志').AsBoolean=true then
          begin
          
          showmessage('该客房为钟点房！'+#13+'若保存请按保存调整键！');
          zd:=true;
          end
          else
          begin
          showmessage('该客房为普通客房！'+#13+'若保存请按保存调整键！');
          zd:=false;
          end;
          roomnumber:=trim(edit18.Text);
          rice:=adodataset3.FieldByName('客房单价').AsInteger;
          bitbtn7.Enabled:=true;
          bitbtn8.Enabled:=true;
          //edit18.Enabled:=false;
          adodataset3.Close;

end;
end;
procedure Tdfxsxgform.ADODataSet2AfterScroll(DataSet: TDataSet);
begin
edit18.Text:='';
bitbtn7.Enabled:=false;

end;

procedure Tdfxsxgform.BitBtn7Click(Sender: TObject);
var
adodataset3:tadodataset;
begin
adodataset3:=TAdodataSet.Create(self);
          adodataset3.Connection:=adoconnection1;
          adodataset3.Close;
          //客房管理新客房
          adodataset3.Parameters.clear;
          adodataset3.Parameters.AddParameter;
          adodataset3.Parameters[0].Name:='s0';
          adodataset3.Parameters[0].DataType:=ftstring;
          adodataset3.Parameters[0].Direction:=pdinput;
          adodataset3.Parameters[0].Value:=roomnumber;
          adodataset3.CommandText:='select * from 客房管理 where 客房编号=:s0';
          adodataset3.Active:=true;
          adodataset3.Edit;
          if adodataset2.FieldByName('预订标志').AsBoolean=true then
          begin
          adodataset3.FieldByName('保留标志').AsBoolean:=true;
          adodataset3.FieldByName('使用标志').AsBoolean:=false;
          end
          else
          begin
          adodataset3.FieldByName('保留标志').AsBoolean:=false;
          adodataset3.FieldByName('使用标志').AsBoolean:=true;
          end;
          adodataset3.Post;
          adodataset3.Close;
          // 订房数据历史表
          adodataset3.Parameters.clear;
          adodataset3.Parameters.AddParameter;
          adodataset3.Parameters[0].Name:='s0';
          adodataset3.Parameters[0].DataType:=ftstring;
          adodataset3.Parameters[0].Direction:=pdinput;
          adodataset3.Parameters[0].Value:=adodataset2.FieldValues['订房序号'];
          adodataset3.CommandText:='select * from 订房数据历史表 where 订房序号=:s0';
          adodataset3.Active:=true;
          adodataset3.Edit;
          adodataset3.FieldByName('房间编号').AsString:=roomnumber;
          adodataset3.FieldByName('住房单价').AsCurrency:=rice;
          adodataset3.FieldByName('钟点房').AsBoolean:=zd;
          adodataset3.Post;
          adodataset3.Close;
          {//当天收支报表
          adodataset3.Parameters.clear;
          adodataset3.Parameters.AddParameter;
          adodataset3.Parameters[0].Name:='s0';
          adodataset3.Parameters[0].DataType:=ftstring;
          adodataset3.Parameters[0].Direction:=pdinput;
          adodataset3.Parameters[0].Value:=adodataset2.FieldValues['订房序号'];
          adodataset3.CommandText:='select * from 当天收支报表 where 订房编号=:s0';
          adodataset3.Active:=true;
          adodataset3.Edit;
          adodataset3.FieldByName('客房编号').AsString:=roomnumber;
          adodataset3.Post;
          adodataset3.Close; }
          //收支历史报表
          adodataset3.Parameters.clear;
          adodataset3.Parameters.AddParameter;
          adodataset3.Parameters[0].Name:='s0';
          adodataset3.Parameters[0].DataType:=ftstring;
          adodataset3.Parameters[0].Direction:=pdinput;
          adodataset3.Parameters[0].Value:=adodataset2.FieldValues['订房序号'];
          adodataset3.CommandText:='select * from 收支历史报表 where 订房编号=:s0';
          adodataset3.Active:=true;
          adodataset3.Edit;
          adodataset3.FieldByName('客房编号').AsString:=roomnumber;
          adodataset3.Post;
          adodataset3.Close;
          //客房管理旧客房
          adodataset3.Parameters.clear;
          adodataset3.Parameters.AddParameter;
          adodataset3.Parameters[0].Name:='s0';
          adodataset3.Parameters[0].DataType:=ftstring;
          adodataset3.Parameters[0].Direction:=pdinput;
          adodataset3.Parameters[0].Value:=adodataset2.FieldValues['房间编号'];
          adodataset3.CommandText:='select * from 客房管理 where 客房编号=:s0';
          adodataset3.Active:=true;
          adodataset3.Edit;
          adodataset3.FieldByName('保留标志').AsBoolean:=false;
          adodataset3.FieldByName('使用标志').AsBoolean:=false;
          adodataset3.Post;
          adodataset3.Close;
          // 订房数据表
          adodataset2.Edit;
          adodataset2.FieldByName('房间编号').AsString:=roomnumber;
          adodataset2.FieldByName('住房单价').AsCurrency:=rice;
          adodataset2.FieldByName('钟点房').AsBoolean:=zd;
          adodataset2.Post;
          //edit18.Text:='';
          bitbtn7.Enabled:=false;
          bitbtn8.Enabled:=false;
          showmessage('客户房间调整完成');


end;

procedure Tdfxsxgform.BitBtn8Click(Sender: TObject);
begin
//edit18.Text:='';
bitbtn7.Enabled:=false;
bitbtn8.Enabled:=false;
end;

procedure Tdfxsxgform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adodataset1.Close;
adodataset2.Close;
close;
end;

procedure Tdfxsxgform.TabSheet1Show(Sender: TObject);
begin
adodataset2.Close;
adodataset1.Close;
adodataset1.CommandText:='select * from 订房数据表';
adodataset1.Active:=true;
if adodataset1.RecordCount=0 then
begin
showmessage('无订房信息！');
editnull;
label1.Visible:=false;
edit1.Visible:=false;
bitbtn2.Enabled:=false;
exit;
end;
radiobutton5.Checked:=true;
bitbtn2.Enabled:=true;
bitbtn3.Enabled:=false;
bitbtn4.Enabled:=false;
label1.Visible:=false;
edit1.Visible:=false;

end;

procedure Tdfxsxgform.TabSheet2Show(Sender: TObject);
begin
adodataset1.Close;
adodataset2.Close;
adodataset2.CommandText:='select * from 订房数据表';
adodataset2.Active:=true;
if adodataset2.RecordCount=0 then
showmessage('无订房信息！');
radiobutton9.Checked:=true;
label18.Visible:=false;
edit17.Visible:=false;
end;

end.