酒店管理delphi - 图文

经济管理学院实验报告

姓名： 诸男 班级： 11信管(1)班 学号： 2011333540114 实验成绩： 课程名称： 信息系统开发平台课程设计 指导教师：祝锡永 实验名称： 信息系统开发平台课程设计 2013年 1 月 24 日 实验目的： 1) 掌握基于win32和C/S结构的信息系统基本构成及其架构的知识，与软件设计和软件实现相关的知识；同时具备自主学习和掌握其它基于Win32和c/s结构的信息系统开发工具的能力。 2) 掌握数据库管理系统与信息系统开发平台之间的集成方法；具备综合运用数据库应用和信息系统开发平台对已有信息系统进行剖析的能力；将数据库应用与信息系统开发平台结合，能独立完成开发管理信息系统。 实验环境：；软件开发平台Delphi2010+数据库管理系统SQL Server2008等 实验内容与步骤： 一、软件主要功能介绍 本系统全名叫Z酒店信息管理系统，主要是提供给酒店前台人员使用的。进入系统后主界面的显示主要是四部分，其中业务中心包括：前台中心，客务中心，预订管理；报表中心包括房费日报表；系统设置包括账号设置；个人中心包括修改密码。其中业务中心是最重要的部分。下面是关于各项目内容的简介。 1）前台中心 功能较多，主要有4块，已入住包括查看和退房、已预定包括查看和更改、未入住包括查看和入住、脏房包括查看和更改。 2）客务中心 主要是查询客户信息 3）预订管理 主要是进行预订和查询 4）报表中心 主要是对金额的分析和查询 5）系统设置 主要是员工信息的查看和增删改。 6）个人中心 主要是当前操作者的密码修改。 二、数据库设计 1. 建立数据库的SQL代码

数据库名称：myhotel，主要包含9个表，各个表结构如下： ①?? 建房间表 if OBJECT_ID('rooms') is not null drop table rooms go create table rooms( roomid nvarchar(5) not null primary key clustered check(roomid like'[A-Z][0-9][0-9][0-9]'), categoryid nchar(1) not null, floors nchar(1)constraint ck_rooms_floors check(floors>0), isempty nchar(1) constraint df_rooms_isempty default(1), isusing nchar(1) constraint df_rooms_isusing default(0), isdirty nchar(1) constraint df_rooms_isdirty default(0)) go insert into rooms values('A101','1','1','1','0','0') insert into rooms values('A102','2','1','1','0','0') insert into rooms values('B201','2','2','1','0','0') insert into rooms values('B202','3','2','1','0','0') insert into rooms values('C301','3','3','1','0','0') insert into rooms values('C302','4','3','1','0','0') go 建房间种类表 if OBJECT_ID('roomcategories') is not null drop table roomcategories go create table roomcategories( categoryid nchar(1) not null primary key, categoryname nvarchar(20), unitprice money check(unitprice>0)) go insert into roomcategories values('1','标准单人间','100') insert into roomcategories values('2','标准双人间','150') insert into roomcategories values('3','豪华单人间','150') insert into roomcategories values('4','豪华双人间','200') go 建员工表 if OBJECT_ID('hotelemployees')is not null drop table hotelemployees go create table hotelemployees( employeeid nvarchar(10) not null primary key check(employeeid like '[FM][0-9][0-9][0-9]'), employeename nvarchar(20), sex nchar(1) check(sex in('F','M')), country nvarchar(100), province nvarchar(100), city nvarchar(100), address nvarchar(100)) go insert into hotelemployees values('F001','小丹','F','中国','浙江','杭州','西湖路号') insert into hotelemployees values('F002','小丽','F','中国','浙江','杭州','西湖路号')

insert into hotelemployees values('F003','小黄','F','中国','江苏','南京','南京路号') insert into hotelemployees values('M001','小陈','M','中国','上海','宝山','宝山路号') insert into hotelemployees values('M002','小吴','M','中国','浙江','杭州','西湖路号') go 建客户表 if OBJECT_ID('hotelcustomers') is not null drop table hotelcustomers go create table hotelcustomers( customerid nchar(10) not null primary key, customername nvarchar(100), sex nchar(1) check(sex in('F','M')), birthdate datetime, country nvarchar(100), province nvarchar(100), city nvarchar(100), address nvarchar(100), isvip nchar(1) constraint df_hotelcustomers_isvip default(0)) go 建订单表 if OBJECT_ID('hotelorders')is not null drop table hotelorders go create table hotelorders( orderid nchar(10) primary key, orderdate datetime, customerid nchar(10), employeeid nvarchar(10) constraint fk_hotelorders_employeeid references hotelemployees(employeeid)) go 建订单详细表 if OBJECT_ID('hotelorderitems') is not null drop table hotelorderitems go create table hotelorderitems( orderid nchar(10) primary key constraint fk_hotelorderitems_orderid references hotelorders(orderid), roomid nvarchar(5) constraint fk_hotelorderitems_roomid references rooms(roomid), time int check(time>0), unitprice money , discount decimal constraint df_hotelorderitems_discount default(0.12), amount as cast(time*unitprice*(1-discount) as decimal(12,2))) go 建历史表 if object_id('history')is not null drop table history go create table history( customerid nchar(10) not null primary key, customername nvarchar(100), sex nchar(1) check(sex in('F','M')), indate datetime,

offdate datetime, country nvarchar(100), province nvarchar(100), city nvarchar(100), address nvarchar(100), isvip nchar(1) constraint df_history_isvip default(0)) go 建定金表 if object_id('earnest')is not null drop table earnest go create table earnest( customerid nchar(10) not null primary key, customername nvarchar(100), roomid nvarchar(5) constraint fk_earnest_roomid references rooms(roomid), emoney money) go 建预订表 if OBJECT_ID('reserve')is not null drop table reserve go create table reserve( roomid nvarchar(5) constraint fk_reserve_roomid references rooms(roomid), customerid nchar(10), customername nvarchar(100), intime datetime, time int) go 三、程序功能、实现界面及其代码 1. 数据模块 1）功能介绍及设计说明： 数据连接和全局变量 2）程序运行界面 3）程序代码 var DataModule2: TDataModule2; flag,f,f1,f2:integer; dl,roomid11,roomid1,r,r1,r2,r3,r4:string; r91:string; close3:integer;

r10,r101:string; yd:integer; 注：在后面的表单中，若用到数据模块，则必须在uses中添加数据模块的文件名（unit2）。 2. 主菜单程序 （1）、主页 其中上面的工具栏依次为主页、前台中心、客务中心、预订管理、锁屏离开，为快捷键，方便操作员操作。点击前四个为直接跳到相应界面，程序为： //主页按钮 procedure TForm1.ToolButton1Click(Sender: TObject); var i,j:integer; s:string; begin //showmessage(inttostr(panel2.ControlCount)); if (panel2.ControlCount>1) then begin //释放原有窗体 for j := 0 to panel2.controlcount-2 do begin for i:=1 to panel2.ControlCount do begin s:=lowercase(panel2.Controls[i].ClassName); //showmessage(s); //showmessage(inttostr(i)); if (copy(s,1,5)='tform') then begin panel2.Controls[i].Free; break; end; end; end; end; end;

//其余三个按钮 procedure TForm1.ToolButton6Click(Sender: TObject); var i:integer; s:string; begin NewFormClass:=nil; NewForm:=TForm(application.FindComponent(lowercase('form客务中'))); if NewForm<>nil then NewFormClass:=TFormClass(NewForm.ClassType); if NewFormClass<>nil then begin NewForm := NewFormClass.Create(Self); NewForm.Hide; if isshowmodal=1 then NewForm.Showmodal else begin NewForm.BorderStyle:=bsNone; NewForm.Parent:=panel2; NewForm.Align:=alclient; NewForm.Show; end; end; //锁屏离开按钮 procedure TForm1.ToolButton7Click(Sender: TObject); var i,j:integer; s:string; begin if (panel2.ControlCount>1) then begin //释放原有窗体 for j := 0 to panel2.controlcount-2 do begin for i:=1 to panel2.ControlCount do begin s:=lowercase(panel2.Controls[i].ClassName); //showmessage(s); //showmessage(inttostr(i)); if (copy(s,1,5)='tform') then begin panel2.Controls[i].Free; break; end; end; end; end; form12.showmodal; end; //其中form12 procedure TForm12.Button1Click(Sender: TObject);

var s,c:string; begin s:=edit1.text; with adoquery1 do begin close; sql.clear; sql.text:='select code from hotelemployees where employeename='''+dl+''''; open; c:=fieldbyname('code').asstring; end; if s<>c then begin showmessage('密码错误 请重新输入！'); edit1.setfocus; end else close; end; procedure TForm12.FormShow(Sender: TObject); begin edit1.text:=''; edit1.setfocus; label1.caption:=dl+' 离开'; label2.caption:='请输入密码登陆'; end; 左边部分为树，自己可视化界面输的。树的代码： procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); var i,x:integer; s1,s2,s:string; begin s:=trim(node.Text); s1:='form'+copy(s,1,3); //showmessage(s1); if not (node.HasChildren) then begin if (panel2.ControlCount>1) then begin //释放原有窗体 for i:=1 to panel2.ControlCount do begin s:=lowercase(panel2.Controls[i-1].ClassName); if (copy(s,1,5)='tform') then begin panel2.Controls[i-1].Free; break; end; end; end; NewFormClass:=nil; NewForm:=TForm(application.FindComponent(lowercase(s1))); if NewForm<>nil then NewFormClass:=TFormClass(NewForm.ClassType); if NewFormClass<>nil then begin NewForm := NewFormClass.Create(Self); NewForm.Hide; if isshowmodal=1 then NewForm.Showmodal else begin NewForm.BorderStyle:=bsNone; NewForm.Parent:=panel2; NewForm.Align:=alclient; NewForm.Show; end; end;

end; end; （2）、前台中心 1）查看已入住的房间 procedure TForm前台中.Button3Click(Sender: TObject); var s,s1:string; i:integer; begin f:=1; with dbgrid1 do begin columns.Clear; for I := 0 to 4 do columns.Add; columns[0].Title.caption:='房间号'; columns[1].Title.caption:='房间类型'; columns[2].Title.caption:='客户名称'; columns[3].Title.caption:='性别'; columns[4].Title.caption:='入住日期'; columns[0].Width:=20*10; columns[1].Width:=20*10; columns[2].Width:=20*10; columns[3].Width:=20*5; columns[4].Width:=20*10; for I := 0 to 4 do columns[i].Title.Alignment:=tacenter; columns[0].FieldName:='roomid'; columns[1].FieldName:='categoryname'; columns[2].FieldName:='customername'; columns[3].FieldName:='sex'; columns[4].FieldName:='orderdate'; end; s:='if object_id(''y'')is not null drop table y'; s:=s+' select a.roomid,categoryname,customername,sex,orderdate into y from rooms as a'; s:=s+' join roomcategories as b on a.categoryid=b.categoryid'; s:=s+' join hotelorderitems as c on a.roomid=c.roomid'; s:=s+' join hotelorders as d on c.orderid=d.orderid'; s:=s+' join hotelcustomers as e on d.customerid=e.customerid where isusing=1 '; xx:=s; adocommand1.commandtext:=s; adocommand1.execute; with adotable1 do

begin close; tablename:='y'; open; end; end; //其中双击DBGRID可以查看客户详细信息，也可以修改 procedure TForm前台中.DBGrid1DblClick(Sender: TObject); var s:string; begin if f=1 then begin roomid11:=trim(dbgrid1.SelectedField.Text); form5.showmodal; //datasource1.dataset:=adotable1; adocommand1.commandtext:=xx; adocommand1.execute; with adotable1 do begin close; tablename:='y'; open; end; end; end; //修改按钮 procedure TForm5.Button3Click(Sender: TObject); begin edit2.Enabled:=true; edit3.Enabled:=true; //edit4.Enabled:=true; edit5.Enabled:=true; combobox1.Enabled:=true; combobox2.Enabled:=true; combobox3.Enabled:=true; combobox4.Enabled:=true;

combobox5.enabled:=true; end; //保存按钮 procedure TForm5.Button2Click(Sender: TObject); begin with adoquery3 do begin close; sql.text:='select * from hotelcustomers'; open; edit; fieldbyname('customername').asstring:=trim(edit2.text); fieldbyname('birthdate').asstring:=trim(edit5.text); fieldbyname('address').asstring:=trim(edit3.text); fieldbyname('sex').asstring:=trim(combobox1.text); fieldbyname('province').asstring:=trim(combobox2.text); fieldbyname('country').asstring:=trim(combobox3.text); fieldbyname('city').asstring:=trim(combobox4.text); if trim(combobox5.text)='否' then fieldbyname('isvip').asstring:='0' else fieldbyname('isvip').asstring:='1'; post; end; showmessage('保存成功！'); end; 2）退房 //退房按钮的click事件 procedure TForm前台中.Button1Click(Sender: TObject); begin roomid1:=dbgrid1.selectedfield.text; form8.showmodal;

end; end; //添加窗口的代码 procedure TForm7.Button1Click(Sender: TObject); begin r1:=adotable1.fieldbyname('roomid').asstring; r2:=adotable1.fieldbyname('categoryname').asstring; r3:=adotable1.fieldbyname('unitprice').asstring; r4:=adotable1.fieldbyname('floors').asstring; close; f1:=1; end; procedure TForm7.Button2Click(Sender: TObject); begin close; f1:=0; end; procedure TForm7.ComboBox1Change(Sender: TObject); var s,s1:string; begin s:=combobox1.text; if s='ALL' then begin s1:='if object_id(''fj'')is not null drop table fj'; s1:=s1+' select roomid,categoryname,unitprice,floors into fj from rooms as a '; s1:=s1+' join roomcategories as b on a.categoryid=b.categoryid where isempty=1 and roomid<>'''+r+''''; end else begin s1:='if object_id(''fj'')is not null drop table fj'; s1:=s1+' select roomid,categoryname,unitprice,floors into fj from rooms as a '; s1:=s1+' join roomcategories as b on a.categoryid=b.categoryid where isempty=1 and categoryname='''+s+'''and roomid<>'''+r+''''; end; adocommand1.commandtext:=s1; adocommand1.execute; with adotable1 do begin close; tablename:='fj'; open; end; end; procedure TForm7.FormShow(Sender: TObject); var i:integer; s:string; begin combobox1.items.add('ALL'); with adoquery1 do begin close; sql.text:='select * from roomcategories'; open; while not eof do begin combobox1.items.add(trim(fieldbyname('categoryname').asstring)); next; end; end; combobox1.itemindex:=0; with dbgrid1 do begin columns.Clear; for I := 0 to 3 do columns.Add; columns[0].Title.caption:='房间号';

columns[1].Title.caption:='房间类型'; columns[2].title.caption:='价格'; columns[3].Title.caption:='楼层'; columns[0].fieldname:='roomid'; columns[1].fieldname:='categoryname'; columns[2].fieldname:='unitprice'; columns[3].fieldname:='floors'; columns[0].Width:=115; columns[1].Width:=115; columns[2].Width:=115; columns[3].width:=115; for I := 0 to 3 do begin columns[i].Title.Alignment:=tacenter; columns[i].alignment:=taleftjustify; end; s:='if object_id(''fj'')is not null drop table fj'; s:=s+' select roomid,categoryname,unitprice,floors into fj from rooms as a '; s:=s+' join roomcategories as b on a.categoryid=b.categoryid where roomid<>'''+r+''''; adocommand1.commandtext:=s; adocommand1.execute; with adotable1 do begin close; tablename:='fj'; open; end; end; end; //删除按钮 procedure TForm6.Button3Click(Sender: TObject); var s:string; begin s:=trim(dbgrid1.SelectedField.text); if application.MessageBox(pchar('确定删除？'),'caption',4+32)=6 then adotable1.delete; end; //合计按钮 procedure TForm6.Button4Click(Sender: TObject); var isvip,s:string; days,unitprice:integer; x:real; begin isvip:=combobox5.text; unitprice:=0; days:=strtoint(edit4.text); with adoquery2 do begin close; sql.text:='select * from rz'; open; while not eof do begin unitprice:=unitprice+fieldbyname('unitprice').asinteger; next; end; end; if isvip='会员' then x:=unitprice*0.88 else x:=unitprice*days; edit10.text:=floattostr(x*days); edit11.text:=floattostr(x); edit12.text:=floattostr(x+x*days); end; //登记按钮

procedure TForm6.Button5Click(Sender: TObject); var error,s1,s2,s3,s4,s5,rid,cid,oid,odate,uprice,eid,s:string; tax,t1,t2,count:integer; begin tax:=0; //验证数据 if edit1.text='' then begin error:='姓名不能为空！'; tax:=1; end; t1:=0; t2:=0; if length(edit2.text)<>4 then begin t1:=1; tax:=1; end; if not trystrtoint(edit2.text,tax) then begin t2:=1; tax:=1; end; if (t1=0)and (t2=0) then else error:=error+char(13)+'证件号码输入错误！'; if strtoint(edit4.text)<0 then begin error:=error+char(13)+'天数输入错误！'; tax:=1; end; if tax=1 then showmessage(error) else //插入数据分别在rooms、hotelorders、hotelorderitems、earnest、hotelcustomers表中生成数据 begin with adoquery2 do begin close; sql.text:='select * from rz'; open; while not eof do begin uprice:=fieldbyname('unitprice').asstring; //rooms rid:=fieldbyname('roomid').asstring; with adoquery3 do begin close; sql.text:='select * from rooms where roomid='''+rid+''''; open; edit; fieldbyname('isempty').asstring:='0'; fieldbyname('isusing').asstring:='1'; fieldbyname('isreserve').asstring:='0'; post; end; //hotelorders with adoquery3 do begin close; sql.clear; sql.text:='select * from hotelorders'; open; append; edit;

datetimetostring(oid,'yyyymmdd',now()); ii:=ii+1; oid:=oid+inttostr(ii); fieldbyname('orderid').asstring:=copy(oid,3); datetimetostring(odate,'yyyy-mm-dd',now()); fieldbyname('orderdate').asstring:=odate; fieldbyname('customerid').AsString:=trim(edit2.Text); with adoquery4 do begin close; sql.clear; sql.Text:='select * from hotelemployees where employeename='''+dl+''''; open; end; eid:=adoquery4.fieldbyname('employeeid').AsString; fieldbyname('employeeid').AsString:=trim(eid); post; end; //hotelorderitems with adoquery3 do begin close; sql.Clear; sql.Text:='select * from hotelorderitems'; open; append; edit; fieldbyname('orderid').AsString:=copy(oid,3); fieldbyname('roomid').AsString:=rid; fieldbyname('time').AsString:=trim(edit4.Text); fieldbyname('unitprice').AsString:=uprice; if combobox5.Text='会员' then fieldbyname('discount').AsString:='0.12' else fieldbyname('discount').asstring:='0'; post; end; with adoquery4 do begin close; sql.clear; sql.text:='select * from reserve where roomid='''+rid+''''; open; end; count:=adoquery4.recordcount; if count>0 then begin s:='update rooms set isreserve=0 where roomid='''+rid+''''; s:=s+' delete reserve where roomid='''+rid+''''; adocommand1.commandtext:=s; adocommand1.execute; end; next; end; end; //earnest with adoquery3 do begin close; sql.clear; sql.text:='select * from earnest'; open; append; edit; fieldbyname('customerid').asstring:=trim(edit2.text); fieldbyname('customername').asstring:=trim(edit1.text); fieldbyname('roomid').asstring:=rid; fieldbyname('emoney').asstring:=trim(edit11.text); post;

end; //hotelcustomers with adoquery3 do begin close; sql.clear; sql.text:='select * from hotelcustomers'; open; append; edit; fieldbyname('customername').asstring:=trim(edit1.text); fieldbyname('customerid').asstring:=trim(edit2.text); fieldbyname('birthdate').asstring:=trim(edit3.text); fieldbyname('address').asstring:=trim(edit8.text); fieldbyname('sex').asstring:=trim(combobox1.text); fieldbyname('country').asstring:=trim(combobox2.text); fieldbyname('province').asstring:=trim(combobox3.text); fieldbyname('city').asstring:=trim(combobox4.text); if trim(combobox5.text)='会员' then fieldbyname('isvip').asstring:='1' else fieldbyname('isvip').asstring:='0'; post; end; showmessage('登记成功！'); end; //键盘控制聚焦 procedure TForm6.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=13) or (key=40) then begin key:=0; selectnext(activecontrol,true,true); end; if key=38 then begin key:=0; selectnext(activecontrol,false,true); end; end; 5) 未入住查看

本文来源：https://www.bwwdw.com/article/nwt3.html