unit6.~pas

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

begin
adodataset1:=tadodataset.Create(self);
    adodataset1.Connection:=adoconnection1;
    adodataset1.commandtype:=cmdtext;
    str:=combobox2.items[combobox2.Itemindex];
    adodataset1.Parameters.AddParameter;
    adodataset1.Parameters[0].Name:='str';
    adodataset1.Parameters[0].DataType:=ftstring;
    adodataset1.Parameters[0].Direction:=pdinput;
    adodataset1.Parameters[0].Size:=2;
    adodataset1.Parameters[0].Value:=str;
    adodataset1.commandtext:='select * from 客房价格表 where 客房等级=:str';
    adodataset1.open;
    edit11.text:=adodataset1.fieldbyname('客房单价').asstring;
    edit12.text:=adodataset1.fieldbyname('客房物品').asstring;
    adodataset1.close;
end;

procedure Troommanage.BitBtn3Click(Sender: TObject);
begin
dbgrid1.Enabled:=false;
edit1to8visiblefalse;
initiate;
edit11to16visibletrue;
bitbtn78910enablefalse;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=true;
bitbtn2.Caption:='取消添加';
bitbtn3.Enabled:=false;
bitbtn4.Enabled:=false;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=true;
end;

procedure Troommanage.BitBtn1Click(Sender: TObject);
begin
if trim(edit9.Text)='' then
   begin
   Application.MessageBox('客房编号不能为空！','提示信息',mb_ok);
   edit9.SetFocus;
   exit;
   end;
if trim(edit10.Text)='' then
   begin
   Application.MessageBox('客房地点不能为空！','提示信息',mb_ok);
   edit10.SetFocus;
   exit;
   end;
if trim(combobox2.Text)='' then
   begin
   Application.MessageBox('客房等级不能为空！','提示信息',mb_ok);
   combobox2.SetFocus;
   exit;
   end;
if trim(edit11.Text)='' then
begin
showmessage('无此等级的客房！');
exit;
end;
if trim(edit15.Text)='' then
   begin
   Application.MessageBox('说明不能为空！','提示信息',mb_ok);
   edit15.SetFocus;
   exit;
   end;
if trim(edit16.Text)='' then
   begin
   Application.MessageBox('可住人数不能为空！','提示信息',mb_ok);
   edit16.SetFocus;
   exit;
   end;
if bitbtn2.Caption='取消添加' then
   begin
   if adotable1.Locate('客房编号',edit9.Text,[]) then
      begin
      Application.MessageBox('该客房编号存在,请重新输入客房编号！','提示信息',mb_ok);
      edit9.Text:='';
      edit9.SetFocus;
      exit;
      end
   else
      begin
      adotable1.Append;
      edit9savetoedit1;
      savetotable;
      Application.MessageBox('该记录已保存成功！','提示信息',mb_ok);
      dbgrid1.Enabled:=true;
      edit11to16visiblefalse;
      edit1to8visibletrue;
      bitbtn78910enabletrue;
      bitbtn1.Enabled:=false;
      bitbtn2.Caption:='取消';
      bitbtn2.Enabled:=false;
      bitbtn3.Enabled:=true;
      bitbtn4.Enabled:=true;
      bitbtn5.Enabled:=true;
      bitbtn6.Enabled:=true;
      exit;
      end;
   end
else
   begin
   if bitbtn2.Caption ='取消修改' then
      begin
      edit9savetoedit1;
      savetotable;
      Application.MessageBox('该记录已保存成功！','提示信息',mb_ok);
      dbgrid1.Enabled:=true;
      edit11to16visiblefalse;
      edit9.Enabled:=true;
      edit1to8visibletrue;
      bitbtn1.Enabled:=false;
      bitbtn78910enabletrue;
      bitbtn2.Caption:='取消';
      bitbtn2.Enabled:=false;
      bitbtn3.Enabled:=true;
      bitbtn4.Enabled:=true;
      bitbtn5.Enabled:=true;
      bitbtn6.Enabled:=true;
      end;
   end;
end;
procedure Troommanage.BitBtn4Click(Sender: TObject);
var
adodataset1:Tadodataset;
begin

if adotable1.RecordCount=0 then
begin
showmessage('已无客房基本信息！');
bitbtn4.Enabled:=false;
bitbtn5.Enabled:=false;
end
else
begin
 adodataset1:=TAdodataSet.Create(self);
          adodataset1.Connection:=adoconnection1;
          adodataset1.Close;
          adodataset1.Parameters.clear;
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].Name:='s0';
          adodataset1.Parameters[0].DataType:=ftstring;
          adodataset1.Parameters[0].Size:=6;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=adotable1.FieldValues['客房编号'];
          adodataset1.CommandText:='select *from 订房数据表 where 房间编号=:s0';
          adodataset1.Active:=true;
          if adodataset1.RecordCount=0 then
             begin
             if Messagedlg('确定要删除此条记录！',mtwarning,[mbok,mbcancel],0)=mrok then
                begin
                   adotable1.Delete;
                   Application.MessageBox('记录已删除！','提示信息',mb_ok);
                   if adotable1.RecordCount=0 then
                  begin
                  showmessage('已无客房等级信息！');
                   bitbtn4.Enabled:=false;
                   bitbtn5.Enabled:=false;
                   end
                   else
                   adoTable1.First;
                     end;
                     end
                     else
             showmessage('此客房编号信息正在使不能删除！');
adodataset1.Close;

end;
end;

procedure Troommanage.BitBtn5Click(Sender: TObject);
begin
dbgrid1.Enabled:=false;
edit1to8visiblefalse;
edit1savetoedit9;
edit11to16visibletrue;
edit9.Enabled:=false;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=true;
bitbtn2.Caption:='取消修改';
bitbtn3.Enabled:=false;
bitbtn4.Enabled:=false;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=true;
end;

procedure Troommanage.BitBtn2Click(Sender: TObject);
begin
if adotable1.RecordCount=0 then
begin
bitbtn4.Enabled:=false;
bitbtn5.Enabled:=false;
bitbtn1.Enabled:=false;
bitbtn2.Caption:='取消';
bitbtn2.Enabled:=false;
bitbtn3.Enabled:=true;
bitbtn78910enabletrue;
end
else
begin
dbgrid1.Enabled:=true;

initiate;
edit11to16visiblefalse;
edit1to8visibletrue;
edit9.Enabled:=true;
bitbtn1.Enabled:=false;
bitbtn2.Caption:='取消';
bitbtn2.Enabled:=false;
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=true;
bitbtn78910enabletrue;
end;
end;
procedure Troommanage.BitBtn6Click(Sender: TObject);
begin
dbgrid1.Enabled:=true;

edit1to8visibletrue;
edit11to16visiblefalse;
bitbtn1.Enabled:=false;
bitbtn2.Enabled:=false;
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=true;
adotable1.Close;
close;
end;

//procedure Troommanage.Label10Click(Sender: TObject);
//begin

//end;

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

edit16.Text:='';
edit16.SetFocus;
exit;

end;
end;
end;

procedure Troommanage.BitBtn7Click(Sender: TObject);
begin
if not adotable1.Bof then
   begin

   adotable1.First;
   Application.MessageBox('已到第一条记录！','提示信息',mb_ok);
   bitbtn7.Enabled:=false;
   bitbtn8.enabled:=false;
   bitbtn9.enabled:=true;
   bitbtn10.enabled:=true;
   end
else
   begin

   Application.MessageBox('已到第一条记录！','提示信息',mb_ok);
   bitbtn7.enabled:=false;
   bitbtn8.enabled:=false;
   bitbtn9.enabled:=true;
   bitbtn10.enabled:=true;
   end;
end;

procedure Troommanage.BitBtn8Click(Sender: TObject);
begin
if adotable1.Bof then
   begin
   Application.MessageBox('已到第一条记录！','提示信息',mb_ok);
   bitbtn7.enabled:=false;
   bitbtn8.enabled:=false;
   bitbtn9.enabled:=true;
   bitbtn10.enabled:=true;
   end
else
    begin
    adotable1.Prior;
    bitbtn7.enabled:=true;
    bitbtn8.enabled:=true;
    bitbtn9.enabled:=true;
    bitbtn10.enabled:=true;
    end;
end;

procedure Troommanage.BitBtn9Click(Sender: TObject);
begin
if adotable1.Eof then
   begin
   Application.MessageBox('已到最后一条记录！','提示信息',mb_ok);
   bitbtn7.enabled:=true;
   bitbtn8.enabled:=true;
   bitbtn9.enabled:=false;
   bitbtn10.enabled:=false;
   end
else
   begin
   adotable1.Next;
   bitbtn7.enabled:=true;
   bitbtn8.enabled:=true;
   bitbtn9.enabled:=true;
   bitbtn10.enabled:=true;
   end;
end;

procedure Troommanage.BitBtn10Click(Sender: TObject);
begin
if not adotable1.Eof  then
   begin
   adotable1.Last;
   Application.MessageBox('已到最后一条记录！','提示信息',mb_ok);
   bitbtn7.enabled:=true;
   bitbtn8.enabled:=true;
   bitbtn9.enabled:=false;
   bitbtn10.enabled:=false;
   end
else
   begin
   Application.MessageBox('已到最后一条记录！','提示信息',mb_ok);
   bitbtn7.enabled:=true;
   bitbtn8.enabled:=true;
   bitbtn9.enabled:=false;
   bitbtn10.enabled:=false;
   end;

end;

procedure Troommanage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dbgrid1.Enabled:=true;

edit1to8visibletrue;
edit11to16visiblefalse;
bitbtn1.Enabled:=false;
bitbtn2.Enabled:=false;
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=true;
adotable1.Close;
close;
end;

procedure Troommanage.FormShow(Sender: TObject);
begin
adotable1.Active:=false;
adotable1.TableName:='客房管理';
adotable1.Active:=true;
end;

end.