unit7.pas

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

//客房查询
//roomfind
unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons, Grids, DBGrids;

type
  Troomfind = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    BitBtn2: TBitBtn;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton6: TRadioButton;
    GroupBox2: TGroupBox;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    GroupBox3: TGroupBox;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton1: TRadioButton;
    RadioButton14: TRadioButton;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    RadioButton13: TRadioButton;
    Label2: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);
    procedure RadioButton11Click(Sender: TObject);
    procedure RadioButton12Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  roomfind: Troomfind;
  ss:string;
implementation

{$R *.dfm}

procedure Troomfind.BitBtn1Click(Sender: TObject);
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.Enabled:=false;
combobox1.Enabled:=false;

adodataset1.close;
CLOSE;
end;

procedure Troomfind.BitBtn2Click(Sender: TObject);
begin
if trim(combobox1.Text)='' then
begin
showmessage('选择查询的等级。');
exit;
end;
adodataset1.Active:=false;

adodataset1.Parameters.clear;
if radiobutton1.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;

if radiobutton2.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:=true;
   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 radiobutton3.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:=true;
   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 radiobutton4.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:=true;
   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 radiobutton5.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;

   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 radiobutton6.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:=true;
   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 radiobutton7.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