oracle酒店管理系统

1、WOR格式Oracle数据库的设计与实现选题名称：酒店管理系统 姓名:学号:专业:班级:指导老师:设计地点:目录专业资料整理WOR格式一、系统需求分析1.1系统开发的目的和意义31.2系统要求3二、系统总体设计2.1系统功能需求42.2系统数据需求42.3系统功能结构图 52.4系统部分流程图 5三、数据库设计3.1数据库概念模型 73.2数据库物理模型 83.3酒店管理系统部分数据字典一9四、系统实现过程4.1 设计过程114.2系统各界面设计代码282专业资料整理WOR格式3535五、实验总结5.1实验中遇到的问题5.2心得体会一、系统需求分析1.1系统开发的目的和意义首先应该在此次实践中

2、有所收获，能够学习到相关软件的功能，和进行实践设计需要的知识的。能够在实践中学习。面对酒店行业的高速发展和酒店行业信息化发展的过程中出现的各种情况，酒店客房管理系统在实施后应达到以下目的：实现多点操作的信息共享，相互之间的信息传递准确、快捷、顺畅；服务管理信息化，可随时掌握客人住宿情况；系统界面友好美观，操作简单易行，查询灵活方便，数据存储安全。实现客房的登记入住和查询功能，查询酒店信息，客人信息，客房信息等功能。实现Delphi和oracle 的连接，进行数据的插入。1.2系统要求要求实现酒店员工信息管理、客户信息管理、客房信息管理、订单管理等功能，包括客户信息的添加、修改、删除及查询；客房

3、信息的添加、修改、删除及查询；订单查询 及退房管理等。专业资料整理WOR格式二、系统总体设计2.1系统功能需求通过对互联网上的各大酒店管理系统的认识和分析，我对酒店管理系统有了基本的了解，我觉得该系统至少应该具有以下的一些基本功能：（1）系统管理模块：包括登录系统，用户管理，权限管理，角色管理，以及查询统计，客户管理折扣管理和开台管理等。（2）基本设置管理模块：包括厨师的管理，买单管理等。（3）客户管理模块：包括客户点菜，上菜，结账，统计等。（4）客户订房管理模块：包括订房，续房，查房，退房，结算等。2.2系统数据需求根据数据需求分析可知该系统至少应该具有以下的一些数据需求：DESKTYP餐桌

4、类别表（餐桌类别编号，餐桌座位数，餐桌方位，备注）。DESK餐桌表（餐桌编号，餐桌类别编号，餐桌状态，备注）。FOODYP菜系（菜系编号，菜系名称，备注） 。FOOD菜品（菜品编号，菜单编号，所属菜系，菜品名称，菜品价格，助记码，备注）。FOODTICKE餐饮订单（订单编号，餐桌编号，下单服务员编号，点菜时间，订单状态，备注）。ROOMCUSTIN住房客户信息表（住户编号，客房类别编号，住户姓名，住户省份证号）。FOODLIST菜单（菜单编号，餐桌编号，菜品编号，厨师编号，状态，备注）。ROOMTYP客房类别表（客房类别编号，客房类型名称，客房类别价格，备注）。ROOMINF客房信息表（房间编

5、号，客房类别编号，客房状态，备注）。ROOMTICKE客房订单管理表 （订单编号，房间号，下单服务员ID ，身份证号，入住时间，离开时间，押金金额，结算金额，下单时间，备注）。CUSTINFC客户信息表 （身份证号，客户姓名，客户性别，客户电话，是否会员，信 息录入时间，备注） 。USER用户信息表（用户编号，角色编号，部门编号，用户名，用户密码，是否审核通过，年龄，性别，生日，联系电话，备注）。专业资料整理WOR格式ROLE用户角色表（角色编号，角色名，备注）。DEPARMEN部门表（部门编号，名称，上级部门编号，备注） PERMISSION权限表（权限编号，权限组编号，权限名称，备注） R

6、OLEPE角色-权限关联表（角色权限编号，角色编号，权限编号） PERMISSIONGROUP限组表（权限组编号，权限组名称）。2.3系统功能模块图酒店管理系统功能结构如图2-3所示:土訂*1好t益iTJ-声耳 . , _ - F憎比诵冷?匕/* 1 11 、 j*r、f JT棒入-1 -匚亠- XX.|T去电1、/ 0 /if*X _ 亠厂G弼）# -r / f=. jf 1sf 尸 * J r_ jf.4 * 11 _jff、乎咖Mkvr hw ij_ -jaPj”*TJr: c TL 二；ijt1 % if 屉* aF fcT七化一X/ 丿 / Xl J% - p 、wv in|4i_-

7、 -&Ji =1 iA_h./崖L厂ki - . uy a-rfS hIlJh% 1”匸喉trSW说*Il亠 I-Jr、鸞片严Jf-i_壬 :二fu1LJe itR |7. tFE*jC：jT 亍, 氐.fS: SO . h 主：wT-、jU l丿Y1Arj-A , 一 、r（创啣1J图2-3系统功能结构图2.4系统部分流程图客房订单流程图如图2-4所示专业资料整理WOR格式图2-4客房订单管理流程图餐饮部分开台流程图如图2-5所示专业资料整理WOR格式act开台开始否f开台查询是否确定座位号开台成功确定餐桌类别结束开台失败图2-5餐饮部分开台流程图三、数据库设计专业资料整理WOR格式3.1数

8、据库概念模型数据库概念模型图如图3-1所示:ROOMTYPEROOMTYF ROOMTYPE NAME VA20 ROOMTYPEPAYN20 ROOMTYPETXT1O MARK 0 Identifier 1FOvpi M=ROOMINROOMCH ECK N10 ROOMRE TXT MARK 100h J 0ROOMCUSTINFOROOMCUSTIDCNAMEIDentifi 顎-_1piVA15VA20ROOMIDJ20Relations20hip ROOMTICKETCUSTINFO PERMISSIONDNvMCARD VA20GROUPCLIENT VA2IDvMINDATE

9、01CUSTGROUPID I TDATE 0CUSTPHOCLIENTNEVA20GROUPNAAMARGIN N20VIPCME15CLIENTAMHECK N10IdentifOUNTN20Relionshier_1CUSTvpiORDERT VA2DATE VA20IME0IdentifORDERREMXTier_1ARK100vpiORDER|vpivpi专业资料整理WOR格式Identifier_1 vpi shuyu1PERMISSIONPERMISSIONIDIPERMISSIONNAME VA20PERMISSIONURLVA25PERMISSIONNOTETXT60Iden

10、tifier_1 DESK TYPE N vRelationshiDESKSEATNU Mp_13MBER N DESKDIR VA10ECTIONDESKTYPEFVA MARK50Identif ier_1 vpiFOODTICKETRelations hip_4Relationship_17orderIDORDERvp N VA20Relati onship5TIME REALPAYMONEY NTOTALMONE 丫 N ORDERSTATUSN RelatiDESKROLEvpiORDERREMAonshipvpiIDIvMRK50_14DESKID N vMROLEMROLENAV

11、AME20TXROLENOT6TEIden tifier 1shUSERSIdentifie r_1 Relationshi p_11Relatio nship_1 6DESKISUSING N vMDESKREMARK VA50Identifier_1 USER vpiID I vMUSERNAIVAEFOODTYPE10USERVAFOODLIPWD20STFOODTYP EID N专业资料整理WOR格式DEPARTMENTTXUSERNOT6FOODL MFOODTYIMEFOODTYIPENAA20PEFVAE0STIDNDEPARTMENTI shuREALNAMAFOODST VA

12、20MARK50D IyuE20ATUSIdentifDEPARTMEUSERMENUREMVAier_1NTNAME VA10AGEIRelationsRK50hip_19IdentifiDEPARTMEUSERVAer_1NTNOTE TXT60SEX5PARENTUSERINDVAIDIATE20IdentiUSERPHOAfier_1NE15IdenRelationstifi onship_8FOOFOOD vpiID N FOODNAMVA2O FOODPRICN FOODHELPCODE VA10 FOODREMARKVA50Identifier_1 图3-1数据库概念模型图3.2

13、数据库物理模型专业资料整理WOR格式数据库物理模型图如图3-2所示:ROOMTYPEiROOM IYNUMBER( PEID 0) ROOMTYPENAMEV HAR2(20) ROOMTYPEPAY NUMBER(20 ROOMTYPE KCLOB10REMARROOMCUSTINFOROOMCUSTID UMBER k ORDERJUMB FKROOMINFOroomidNUMBER(20)vpk一ROOMTYPEIDNUMBER(100)vfkROOMCHECKNUMBER(10)ROOMREMARKCLOBID ERVARCHAR2CNAME15)CIVARCHAR2(20)PERMI

14、SSION GROUP GROUINTEG ID ER vpk GROUPNAMEVARCH AR2(15)FK RFK_R2FK PPERMISSIONPERMISSIONIDVpkNTEGER GROUP INTEG vfkCUSROOMTICKETFK3 ORDERINUMBvpkERINTEUSERIDGERvaRcCARDID 0Nfk2NUMBER(20 ROOMID )vfk3 CLIENTINDATEVARvfklHAR2(2ARDIDCVARCHAR2(20)JSTSEXCRCHAR2CUSTPHONEVARCHAR2(20)CHAR2(20) FK_R4CLIENTOUTD

15、ATEVARCHAR2(20)CLIENTMARGINUMBER(20)CLIENTAMOUNUMBER(20)TORDERVARCHAR2IME(20)ORDERREMARNUMBER(10 CUSTDATEV 0)/ARCHAR2(2KCLOBID ER PERMISSIONNAMEVARCHAR2(20)PERMISSIONURLVARCHAR2(25)PERMISSIONNOTFK_F1DESKTYP专业资料整理WOR格式ECLOBDESKTY NUMBPEID ER vpkDESKSEATNUMBERNUMBERFK_R9ROLEPERROLEPERID INTEGERvpk ROL

16、EINTEGERv IDfk1PERMISSIONIDINTEGERvfk2FOODTICKETORDERINUMBEpkDR INTEG vfkUSERID ER 1VARCHAR2(2CARDID 0)vfk2 FK_DESKDIRECTIONVARCHAR2(10)DESKTYPEREMARKVARCHAR2(50)TICKET_DE SKROLEFK_R7T1 FK_R0 ORDERVARCHAR2IME(20)REALPAYMONEYNUMBER TOTALMONEYNU MBERTDNUMBERvpIDkORDERIDNUMBE Rvfk1FK_DDESKID1NUMBERvfk2

17、ORDERSTATUSNUMBERORDERREMARKVARCHROLEID vpINTEGER kROLENAMEVARCHAR2(20)ROLENOTECLOBFK_F7FK_U2AR2(50)FK_T2DESKFK_F6DESKI NUMBEDR vpkDESKTYPEIDNUMBER vfkDESKISUSINGNUMBERDESKREMARKVARCHAR2(USERSINTEG vpkUSERIDERINTEG vfkROLEIDER2DEPARTMENTIDkDEPARTMINTEGER1ENTUSERNAMEDEPARTMENTIDvpkVARCHAR2(10)FK_FINT

18、EGERVARCHAR 5departmentnamevaERpwd 2(20)CHAR2(10)USernOlobDEPARTMENTNOTECLOBREALNAVARCHARFOODLIST50)FOODLISTIDNvpkUMBERFOODvfkID NUMBERUSERvfkFOODTYPEID INTEGERSORDERIDvfkFOODTYNUMBERNUMBER2EIDvpkFOODSTATUSVARCFOODTYPENAMEVARHAR2(20)CHAR2(20)MENUREMARKVARCFOODTYPEREMARKVARHAR2(50)CHAR2(50)PARENTINTE

19、ME2(20)专业资料整理WOR格式ID GERUSERAINTEGEERUSERSVARCHAR2(X5)USERINDATEVARCHAR2(20)USERPHONEVARCHARFK_F8FK_F22(15)FOODNUMBFOODIDER vpk FOODTYPEID NUMBER FOODNAVARCHARME2(20)FOODPRJUMBICE ER FOODHELPCODEVARCHAR2(10) FOODREMARKVARCHAR2(50)图3-2数据库物理模型图3.3酒店管理系统部分数据字典9专业资料整理WOR格式本系统数据库采用Oracle数据库，系统数据库名称为Hotel

20、DB，共包含17张表菜系表：用来存储菜系的信息，其中FOODTYPEI字段为主键。表 3-3-1 菜系：FOODYPE字段名称类型允许空主键外键外键参考表 说明FOODTYPEIDFOODTYPENAMANUMBE(5) VARCHAR2(20)NOTNOTYES-菜系ID菜系名称EFOODTYPEREVARCHAR2(50)YES备注ARK菜品表：用于菜品的所有信息，也是点菜的菜单的一个信息来源表，从中可获得菜品的全部信息。其中字段 FOODTYPEI用来描述该菜品属于哪个菜系是外键参参考表FOODTYPE艮据此字段的值，可以知道菜品属于相应的哪个菜系。表3-；3-2菜品：FOOD字段名称类

21、型允许空主键外键外键参考表说明FOODnumber(NOTYES菜品IDIDFOOD5)VARCHAFNAMEFOODTYPF2(20) number(NOT菜品名称匕L-Hr KJID5)NOTYESFOODYPE所丿禹菜系IDFOODnumber(NOT菜品价格PRICEFOODHELPCODE5)VARCHAR2(10)NOT助记码FOODREMARVARCHAKRYES备注客房类别表：用来存2(50)储客房类别的了信息，表 3-3-3 客孑房类力别表:ROO1MTYPE字段名称类型允许空主键外键外键参考表说明ROOMTYPEIDNUMBERNOTYES客房类别编 号客房类别名 称ROO

22、MTYPE VARCHANOTNAMER2(20)专业资料整理WOR格式NUMBERROOMTYPEPAY(5)NOTROOMTYPEREVARCHANOTMARKR2(50)类别价格备注客房信息表：用来存储客房信息10专业资料整理WOR格式表3-3-4 客房信息表：ROOMINFO字段名称类型允许空主键外键外键参考表说明ROOMNUMBERNOTYES房间编号TOROOMTYPE(5NUMBERNOTYESROOMTYPE4二_亠t、” 上上宀=匚 客房类 力1编号ID(5)续表5-4字段名称类型允许空主键外键外键参考表说明ROOMCHECNUMBER(5NOT客房状态ROOMREMAR V

23、ARCHARYES备注K2(50)客户信息表：用来毛存储酒店客户的相关信息表 3-3-51。客户信息1表 : CUSTINFO允许字段名称类型 / A CCLJ A空主键外键外键参考表说明CARDIDVARCHARz(20)NOTYES身份证号CUSTNAMEVARCHAR；NOT姓名CUSTSEX(20)VARCHAR；NOT性别(10)VARCHAR；111&qCUSTPHONEYES电话(20)NUMBER(5VIPCHECK)VARCHAR2YES是否会员信息录入时CUSTDATE(20)YES间四、系统实现过程专业资料整理WOR格式4.1设计过程4.1.1 窗体设计11专业资料整理W

24、OR格式新建一个标准工程，会出现forml，可以遵循默认格式，也可以更改名称，这里默认添加所需控件mainmenu,双击控件在其中加入所要进行的功能如下:添加控件Image插入图片，选中image控件，在其属性表中选中picture，选择需要的图片:再建立一个 Form2，默认格式即可。在其中加入客房登记所需控件：再建立一个Form3，默认格式即可，并且在project-options中设置其为主窗体。在其中加入客房登记所需控件，8个label ，8个Edit ，两个bitbtn 如图:12专业资料整理WOR格式性别 |EdK ttfeU KH |f苗urrr |币乔応件号码柢詰皱薪方式lEt

25、tG芻目号码 |Combe9ok 可以在bitbtn 按钮中添加图片，使其更加生动，选中按钮，在其属性选择Glyph ,的图片即可，注意图片格式要符合要求，还可以为界面换颜色。再建立一个Form4 ,即可。在其中加入客人信息查询所需控件，1个label ，一个Edit ，2个按钮，选择需要 默认格式1个DBGrid :* Form4n 4 if ： g： | a .卜a II 4fad h A4 ta !4 n di il 4*4 fafaA* it ifa A m Mi d* hi A b rii客人信息查询 一P VV I*1:哇吕-| 卜 HHi=这里需要链接数据库，与 首先添加一个数据

26、模板（ 控件添加到数据模板，选中 进行数据库的链接，选择krxx表中的信息进行链接。连接方式为：datemodule ），然后选择 ADOQuery 控件和 datasourceADOQuery控件，在其属性中找到connectionstring再建立一个Form5，默认格式即可。在其中加入客房登记所需控件，和上面一样:13专业资料整理WOR格式jfTFcrmS产持念45畝謡匚贋R=S E J=tS.R三升辎列陽-籬O=w. W1._ .斗.STfhoSJ ?詁=覽条城-二这个窗体也要进行数据库链接，过程和上面一样，只是链接的表名不同，这里链接的是kfxx 表。双击确定添加代码如下：with

27、Data3.AD0Query1 dobeginClose;SQL.CIear;SQL.Add（select * from fjxx where房间号码 =:a）;Parameters.ParamByName（a）.value:=Trim（edit1.Text）;Open;end;关闭键的代码如下：form5.close;forml.show;这样就完成了房间信息查询的操作。（7）再建立一个 Form6，默认格式即可。在其中加入查看酒店信息所需控件：1 个 label ， 1 个按钮，1 个 DBGrid : Formo酒店言息这里主要就是数据库的链接，改用另外一种方式为：首先再建立一个Form

28、7,默认格式即可。在其中加入查看客房信息所需控件，和（7 ） 一样，不过这里可以采用（5）的方法进行数据库的链接。14专业资料整理WOR格式再建立一个再建立一个Form8，默认格式即可。在其中加入退房所需控件：1个 label ，1 个 Edit ，两个 bitbtn ， 1 个 DBGrid，和一个 DBNavigator 如图：将其与数据库中表 krxx 链接后，输入证件号码单击DBNavigator 控件上的可以突出显示选择的信息，然后点击退房可以实现退房功能。4.1.2 进行窗体之间的转换(1 )在form3中进行密码设置，双击登录按钮进行代码输入如下：varresults: Vari

29、ant;BEGINresults:=ADOTable1.Lookup(姓名,edit1.text,密码);if results=edit2.Text thenbeginform3.Hide;form1.Show;endelsebeginapplication.MessageBox(姓名或密码错误,提示信息,64);edit1.SetFocus;exit;end;end;退出代码为：close;(2)在form1中进行剩余各form 间的连接，在form1中分别单击要实现的功能菜单按钮， 并分别输入代码，得到的最后代码如下：procedure TForm1.N2Click(Sender: TOb

30、ject);beginform1.Hide;form2.showmodal;end;procedure TForm1.N3Click(Sender: TObject);beginform1.Hide;15专业资料整理WOR格式form4.showmodal;end;procedure TForm1.N4Click(Sender: TObject);beginform1.Hide;form5.ShowModal;end;procedure TForm1.N5Click(Sender: TObject);beginform1.Hide;form6.ShowModal;end;procedure T

31、Form1.N6Click(Sender: TObject);beginform1.hide;form7.ShowModal;end;procedure TForm1.N8Click(Sender: TObject);beginform1.hide;form8.ShowModal;end;procedure TForm1.N7Click(Sender: TObject);beginclose;end;procedure TForm1.FormCreate(Sender: TObject);beginend;并且要在uint1的连接代码上添加：usesWindows, Messages, Sys

32、Utils, Variants, Classes, Graphics, Controls,Forms,Dialogs, Menus, DB, ADODB,unit2,unit4,unit5,unit6,unit7,unit8,;在form2中进行和form1间的转换，代码如下：双击 关闭按钮添加代码：form2.close;form1.show;(4)在form4 ， form5 ， form6 ，form7中进行form1 间的转换，代码类似(3 )3、form1中退出菜单的实现双击退出菜单进行代码输入：close; 即可。至此完成了菜单管理的实现，可以运行后进行各功能的实现。16专业资料整

33、理WOR格式代码设计Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctILib.Button)Select Case Button.KeyCase DJzsdj_ClickCase TFtf_ClickCase FTftck_ClickCase CXzscx_ClickCase exitIf MsgBox( 确定退出该系统？, 4, 系统提示)=vbYes ThenEndEnd IfEnd SelectEnd SubPrivate Sub sztx_Click()Dim Str图片CommonDialog1.Filter = BMP

34、 图片(*BMP)|*BMP|JPG 图片(*.J PG)|*JPG|GIF(*.GIF)|*.GIF|所有文件(*.*)|*.*CommonDialog1.ShowOpenIf CommonDialog1.FileName ThenImage2.Picture = LoadPicture(CommonDialog1.FileName)Str = CommonDialog1.FileNameOpen (App.Path & picture.txt) For Output As #1Print #1, StrClose #1CommonDialog1.FileName =ElseCommonDi

35、alog1.FileName =End IfEnd SubPrivate Sub sjbf_Click()main_sjbf.Showmain.Enabled = FalseEnd SubPrivate Sub sjhf_Click()main_sjhf.ShowEnd SubPrivate Sub zsdj_Click()main_kfdj.Showmain.Enabled = FalseEnd Sub17专业资料整理WOR格式Private Sub tf_Click()main_tf.Showmain.Enabled = FalseEnd SubPrivate Sub kfcx_Click

36、() main_kfcx.Show main.Enabled = FalseEnd SubPrivate Sub ftck_Click() main_ftcx.Show main.Enabled = False End SubPrivate Sub zscx_Click()Load main_zscx main_zscx.Show main.Enabled = FalseEnd SubPrivate Sub tfcx_Click() Load main_tfcx main_tfcx.Show main.Enabled = FalseEnd Sub4.1.3 系统登录模块设计窗体设计添加新窗体，

37、命名为main_Login , Caption 属性为“酒店客房管理系统”；添加Adodc控件以及两个 TextBox 控件，Text1 放在用户名后，Text2 放在密码后；添加两个Image控件，分别设置Picture属性，添加“确定”和“退出”按钮。代码设计Private Sub Image1_Click()If Text1.Text = 7 And Text2.Text = 123456 Thenmain.ShowMe.HideElseMsgBox 密码错误！ , vbCritical,提示End IfEnd Sub18专业资料整理WOR格式Private Sub lmage2_Cli

38、ck()EndEnd Sub4.1.4 住宿登记模块 窗体设计添加新窗体命名为 main_kfdj , Caption 属性为“住宿登记”；添加两个Adodc控件、TextBox 控件数组以及2个DTPicker 控件；添加 3个 ComboBoX空件。代码设计Private Sub comdj_Click()Adodcl.ConnectionString= PROVIDER=MSDASQL;DRIVER=OracleinOraDb11g_home1; &server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD=

39、1 23456Adodc1.RecordSource = select * from tb_kf where房态=空房Adodcl.RefreshAdodc2.ConnectionString= PROVIDER=MSDASQL;DRIVER=OracleinOraDb11g_home1; &server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD=1 23456 Adodc2.RecordSource = select * from tb_djb order by凭证号码”Adodc2.RefreshIf No

40、t Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast If lsph.Text = Then bh.Text = Fdate & d & Format(1, #000) If lsph.Text Then19专业资料整理WOR格式yl.Text = Month(Fdate)y2.Text = Month(Left(lsph.Text, 10)If yl.Text = y2.Text Thenbh.Text = Fdate & d & Format(Val(Right(lsph.Text, 3) + 1, #000)Text1.Text = Val(Right(lsph.Text, 3) + 1End IfIf y1.Text y2.Text Thenbh.Text = Fdate & d & Format(1, #000)End IfEnd IfFor i = 0 To 2ZSDJ(i).Text =ZSDJ(i).Enabled = TrueNext iFor i = 4 To 6ZSDJ(i).Text =ZSDJ(i).Enabled = TrueNext iCombo3.Text =Comok.Enabled = True: Comdj.Enabled = FalseCombo3.Enabled =