unit7.pas

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

   else
      begin
      adodataset1.Parameters.AddParameter;
      adodataset1.Parameters[2].Name:='s2';
      adodataset1.Parameters[2].DataType:=ftstring;
      adodataset1.Parameters[2].Direction:=pdinput;
      adodataset1.Parameters[2].Value:=combobox1.Items[combobox1.ItemIndex];

      adodataset1.CommandText:='select * from 客房管理 where 使用标志=:s0 and 钟点房标志=:s1 and 客房等级=:s2';
      adodataset1.Active:=true;
      if adodataset1.RecordCount=0 then
      showmessage('无此等级未使用的普通类型客房，请检查！');
      exit;
      end;


   end;
if radiobutton8.Checked=true then

begin

   adodataset1.Parameters.AddParameter;
   adodataset1.Parameters[0].Name:='s0';
   adodataset1.Parameters[0].DataType:=ftboolean;
   adodataset1.Parameters[0].Direction:=pdinput;
   adodataset1.Parameters[0].Value:=true;
   adodataset1.Parameters.AddParameter;
   adodataset1.Parameters[1].Name:='s1';
   adodataset1.Parameters[1].DataType:=ftboolean;
   adodataset1.Parameters[1].Direction:=pdinput;
   adodataset1.Parameters[1].Value:=false;
   if combobox1.items[combobox1.ItemIndex]='全部' then

      begin
      adodataset1.CommandText:='select * from 客房管理 where 使用标志=:s0 and 钟点房标志=:s1';
      adodataset1.Active:=true;
      if adodataset1.RecordCount=0 then
      showmessage('无已使用的普通类型客房，请检查！');
      exit;
      end
   else
      begin
      adodataset1.Parameters.AddParameter;
      adodataset1.Parameters[2].Name:='s2';
      adodataset1.Parameters[2].DataType:=ftstring;
      adodataset1.Parameters[2].Direction:=pdinput;
      adodataset1.Parameters[2].Value:=combobox1.Items[combobox1.ItemIndex];

      adodataset1.CommandText:='select * from 客房管理 where 使用标志=:s0 and 钟点房标志=:s1 and 客房等级=:s2';
      adodataset1.Active:=true;
      if adodataset1.RecordCount=0 then
      showmessage('无此等级已使用的普通类型客房，请检查！');
      exit;
      end;


   end;

if radiobutton9.Checked=true then

begin

   adodataset1.Parameters.AddParameter;
   adodataset1.Parameters[0].Name:='s0';
   adodataset1.Parameters[0].DataType:=ftboolean;
   adodataset1.Parameters[0].Direction:=pdinput;
   adodataset1.Parameters[0].Value:=false;
   adodataset1.Parameters.AddParameter;
   adodataset1.Parameters[1].Name:='s1';
   adodataset1.Parameters[1].DataType:=ftboolean;
   adodataset1.Parameters[1].Direction:=pdinput;
   adodataset1.Parameters[1].Value:=false;
   if combobox1.items[combobox1.ItemIndex]='全部' then

      begin
      adodataset1.CommandText:='select * from 客房管理 where 保留标志=:s0 and 钟点房标志=:s1';
      adodataset1.Active:=true;
      if adodataset1.RecordCount=0 then
      showmessage('无未预订的普通类型客房，请检查！');
      exit;
      end
   else
      begin
      adodataset1.Parameters.AddParameter;
      adodataset1.Parameters[2].Name:='s2';
      adodataset1.Parameters[2].DataType:=ftstring;
      adodataset1.Parameters[2].Direction:=pdinput;
      adodataset1.Parameters[2].Value:=combobox1.Items[combobox1.ItemIndex];

      adodataset1.CommandText:='select * from 客房管理 where 保留标志=:s0 and 钟点房标志=:s1 and 客房等级=:s2';
      adodataset1.Active:=true;
      if adodataset1.RecordCount=0 then
      showmessage('无此等级未预订的普通类型客房，请检查！');
      exit;
      end;


   end;
if radiobutton10.Checked=true then

begin

   adodataset1.Parameters.AddParameter;
   adodataset1.Parameters[0].Name:='s0';
   adodataset1.Parameters[0].DataType:=ftboolean;
   adodataset1.Parameters[0].Direction:=pdinput;
   adodataset1.Parameters[0].Value:=true;
   adodataset1.Parameters.AddParameter;
   adodataset1.Parameters[1].Name:='s1';
   adodataset1.Parameters[1].DataType:=ftboolean;
   adodataset1.Parameters[1].Direction:=pdinput;
   adodataset1.Parameters[1].Value:=false;
   if combobox1.items[combobox1.ItemIndex]='全部' then

      begin
      adodataset1.CommandText:='select * from 客房管理 where 保留标志=:s0 and 钟点房标志=:s1';
      adodataset1.Active:=true;
      if adodataset1.RecordCount=0 then
      showmessage('无已预订的普通类型客房，请检查！');
      exit;
      end
   else
      begin
      adodataset1.Parameters.AddParameter;
      adodataset1.Parameters[2].Name:='s2';
      adodataset1.Parameters[2].DataType:=ftstring;
      adodataset1.Parameters[2].Direction:=pdinput;
      adodataset1.Parameters[2].Value:=combobox1.Items[combobox1.ItemIndex];

      adodataset1.CommandText:='select * from 客房管理 where 保留标志=:s0 and 钟点房标志=:s1 and 客房等级=:s2';
      adodataset1.Active:=true;
      if adodataset1.RecordCount=0 then
      showmessage('无此等级已预订的普通类型客房，请检查！');
      exit;
      end;


   end;
if radiobutton13.Checked=true then
begin


   adodataset1.Parameters.AddParameter;
   adodataset1.Parameters[0].Name:='s0';
   adodataset1.Parameters[0].DataType:=ftboolean;
   adodataset1.Parameters[0].Direction:=pdinput;
   adodataset1.Parameters[0].Value:=false;

   if combobox1.items[combobox1.ItemIndex]='全部' then
      begin
      adodataset1.CommandText:='select * from 客房管理 where  钟点房标志=:s0';
       adodataset1.Active:=true;
      if adodataset1.RecordCount=0 then
      showmessage('无普通客房，请检查！');
      exit;
      end
   else
      begin
      adodataset1.Parameters.AddParameter;
      adodataset1.Parameters[1].Name:='s1';
      adodataset1.Parameters[1].DataType:=ftstring;
      adodataset1.Parameters[1].Direction:=pdinput;
      adodataset1.Parameters[1].Value:=combobox1.Items[combobox1.ItemIndex];

      adodataset1.CommandText:='select * from 客房管理 where 钟点房标志=:s0 and 客房等级=:s1';
       adodataset1.Active:=true;
      if adodataset1.RecordCount=0 then
      showmessage('无此等级的普通客房，请检查！');
      exit;
      end;


end;



if radiobutton14.Checked=true then
begin
 if combobox1.items[combobox1.ItemIndex]='全部' then
      begin
      adodataset1.CommandText:='select * from 客房管理 ';
      adodataset1.Active:=true;
      if adodataset1.RecordCount=0 then
      showmessage('没有客房信息，请检查！');
      exit;
      end
   else
      begin
      adodataset1.Parameters.AddParameter;
      adodataset1.Parameters[0].Name:='s0';
      adodataset1.Parameters[0].DataType:=ftstring;
      adodataset1.Parameters[0].Direction:=pdinput;
      adodataset1.Parameters[0].Value:=combobox1.Items[combobox1.ItemIndex];

      adodataset1.CommandText:='select * from 客房管理 where 客房等级=:s0';
      adodataset1.Active:=true;
      if adodataset1.RecordCount=0 then
      showmessage('无此等级的客房信息，请检查！');
      exit;
      end;

end;

end;


procedure Troomfind.FormActivate(Sender: TObject);
var
  adotable1:tadotable;
begin
dbgrid1.datasource:=datasource1;
    dbgrid1.ReadOnly:=true;
    datasource1.DataSet:=adodataset1;
    adodataset1.Connection:=adoconnection1;
    
    combobox1.Items.Clear;
    adotable1:=tadotable.Create(self);
    adotable1.Connection:=adoconnection1;
    adotable1.TableName:='客房价格表';
    adotable1.open;
    while not adotable1.eof do
    begin
          combobox1.Items.add(adotable1.fieldbyname('客房等级').ASSTRING);
          adotable1.next;
    end;
    combobox1.Items.add('全部');

    adotable1.close;
    adodataset1.Parameters.Clear;
    adodataset1.Parameters.AddParameter;
    adodataset1.Parameters[0].Name:='s0';
    adodataset1.Parameters[0].DataType:=ftboolean;
    adodataset1.Parameters[0].Direction:=pdinput;
    adodataset1.Parameters[0].Value:=false;
    adodataset1.CommandText:='select * from 客房管理'; //where 使用标志=:s0';
    adodataset1.Active:=true;

end;



procedure Troomfind.RadioButton11Click(Sender: TObject);
begin
if radiobutton11.Checked=true then
begin
label1.Enabled:=true;
combobox1.Enabled:=true;
groupbox1.Visible:=true;
radiobutton11.Checked:=false;
groupbox3.Visible:=false;
label1.Visible:=true;
combobox1.Visible:=true;
bitbtn2.Visible:=true;
end;

end;

procedure Troomfind.RadioButton12Click(Sender: TObject);
begin
if radiobutton12.Checked=true then
begin
label1.Enabled:=true;
combobox1.Enabled:=true;
groupbox2.Visible:=true;
radiobutton12.Checked:=false;
groupbox3.Visible:=false;
label1.Visible:=true;
combobox1.Visible:=true;
bitbtn2.Visible:=true;
end;
end;

procedure Troomfind.BitBtn3Click(Sender: TObject);
begin
label1.Enabled:=false;
combobox1.Enabled:=false;
groupbox3.Visible:=true;
radiobutton7.Checked:=false;
radiobutton8.Checked:=false;
radiobutton13.Checked:=false;
radiobutton9.Checked:=false;
radiobutton10.Checked:=false;
radiobutton1.Checked:=false;
radiobutton11.Checked:=false;
radiobutton12.Checked:=false;
groupbox2.Visible:=false;
label1.Visible:=false;
combobox1.Visible:=false;
bitbtn2.Visible:=false;

end;

procedure Troomfind.BitBtn4Click(Sender: TObject);
begin
label1.Enabled:=false;
combobox1.Enabled:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
radiobutton4.Checked:=false;
radiobutton5.Checked:=false;
radiobutton6.Checked:=false;
radiobutton14.Checked:=false;
radiobutton11.Checked:=false;
radiobutton12.Checked:=false;
groupbox1.Visible:=false;
groupbox3.Visible:=true;
label1.Visible:=false;
combobox1.Visible:=false;
bitbtn2.Visible:=false;


end;


procedure Troomfind.FormClose(Sender: TObject; var Action: TCloseAction);
begin
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
radiobutton4.Checked:=false;
radiobutton5.Checked:=false;
radiobutton6.Checked:=false;
radiobutton7.Checked:=false;
radiobutton8.Checked:=false;
radiobutton9.Checked:=false;
radiobutton10.Checked:=false;
radiobutton11.Checked:=false;
radiobutton12.Checked:=false;
radiobutton13.Checked:=false;
radiobutton14.Checked:=false;
groupbox1.Visible:=false;
groupbox2.Visible:=false;
groupbox3.Visible:=true;
label1.Visible:=false;
combobox1.Visible:=false;
adodataset1.close;
CLOSE;
end;

end.