酒店管理系统Oracle数据库的设计与实现概述

1、 race 数据库的设计与实现选题名称: 酒店治理系统 姓 名： 学 号： 专 业: 班 级： 指导老师： 设计地点： 目 录系统需求分析.1系统开发的目的和意义-31.系统要求 -3二、系统总体设计.系统功能需求 -42.系统数据需求 -4.3系统功能结构图 -52.4系统部分流程图 -5三、数据库设计.数据库概念模型 -73.数据库物理模型 -833酒店治理系统部分数据字典 -四、系统实现过程.1设计过程 -14.2系统各界面设计代码 -8五、实验总结.1实验中遇到的问题 -352心得体会 -35一、系统需求分析.1系统开发的目的和意义 首先应该在此次实践中有所收获，能够学习到相关软件的功

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

3、;订单查询及退房治理等。系统总体设计2.1系统功能需求 通过对互联网上的各大酒店治理系统的认识和分析，我对酒店治理系统有了差不多的了解,我觉得该系统至少应该具有以下的一些差不多功能： (1） 系统治理模块:包括登录系统，用户治理，权限治理,角色治理，以及查询统计,客户治理折扣治理和开台治理等。 （） 差不多设置治理模块:包括厨师的治理，买单治理等。 （3） 客户治理模块:包括客户点菜,上菜,结账，统计等。 () 客户订房治理模块：包括订房,续房，查房，退房,结算等。 2 系统数据需求依照数据需求分析可知该系统至少应该具有以下的一些数据需求:DESKTPE餐桌类不表(餐桌类不编号，餐桌座位数,餐

4、桌方位,备注)。ESK餐桌表（餐桌编号，餐桌类不编号,餐桌状态，备注)。FOYPE菜系(菜系编号,菜系名称,备注)。OOD菜品（菜品编号，菜单编号，所属菜系，菜品名称，菜品价格，助记码,备注)。ODTCKE餐饮订单（订单编号,餐桌编号，下单服务员编号，点菜时刻,订单状态,备注)。ROOMCUTIFO住房客户信息表(住户编号,客房类不编号，住户姓名,住户省份证号)。FOODLST菜单（菜单编号,餐桌编号,菜品编号，厨师编号,状态，备注）。OMTYE客房类不表（客房类不编号，客房类型名称,客房类不价格，备注)。ROONF客房信息表（房间编号,客房类不编号，客房状态，备注)。ROOMTIKET客房订

5、单治理表 （订单编号,房间号，下单服务员I,身份证号，入住时刻，离开时刻，押金金额，结算金额,下单时刻，备注）。USTIFO客户信息表(身份证号，客户姓名，客户性不,客户电话，是否会员，信息录入时刻，备注）。UER 用户信息表(用户编号,角色编号,部门编号，用户名，用户密码，是否审核通过,年龄，性不，生日,联系电话,备注）。ROLE 用户角色表(角色编号,角色名，备注）。DEARENT 部门表（部门编号，名称，上级部门编号，备注）。PERMSSIO 权限表（权限编号，权限组编号，权限名称，备注）。REPER 角色-权限关联表(角色权限编号，角色编号，权限编号)。ERMISSIOGROU权限组表

6、(权限组编号，权限组名称)。23系统功能模块图酒店治理系统功能结构如图23所示图-3 系统功能结构图2.4系统部分流程图客房订单流程图如图2-4所示图- 客房订单治理流程图餐饮部分开台流程图如图-5所示图-5餐饮部分开台流程图三、数据库设计数据库概念模型数据库概念模型图如图3-1所示：图3-1数据库概念模型图3.2数据库物理模型数据库物理模型图如图3-2所示：图- 数据库物理模型图3.3酒店治理系统部分数据字典本系统数据库采纳Oracl数据库，系统数据库名称为HoteDB,共包含17张表。菜系表:用来存储菜系的信息，其中FODTPED字段为主键。表3-1 菜系：FDY字段名称类型同意空主键外键

7、外键参考表 讲明FOODYPEIDNUME(5)NOTYE菜系DFODTYPENMEACHAR（20)NOT菜系名称FOTYEREMAVARHA(50）YES备注菜品表：用于菜品的所有信息，也是点菜的菜单的一个信息来源表，从中可获得菜品的全部信息。其中字段FOOYD用来描述该菜品属于哪个菜系是外键参参考表FODTPE,依照此字段的值,能够明白菜品属于相应的哪个菜系。表3-3-2 菜品：OOD字段名称类型同意空主键外键外键参考表讲明FODINUMR（5)NYE菜品IDFOODAMEVRAR(20）NT菜品名称FOODTYEIDMBER(5）NOTYESOYPE所属菜系DFOOPRCENUMBE（

8、5）NOT菜品价格FODHELPCDEVARCHR2（10)OT助记码FODREMAKVARHA2(5)YE备注客房类不表:用来存储客房类不的信息,表33-客房类不表:OOMTYP字段名称类型同意空主键外键外键参考表讲明ROOMTPEIDNUBR(5)NOYS客房类不编号ROTYENMERCAR(20)NOT客房类不名称ROOMTYPEPYUMBER(5)NOT类不价格OOMTYPEREMARKARCHA(50)NT备注客房信息表:用来存储客房信息。表3-4客房信息表:ROOMFO字段名称类型同意空主键外键外键参考表讲明ROINUMER(5)NOTYS房间编号ROTYPEIDNUMER(5)N

9、TYESROTY客房类不编号续表 5-字段名称类型同意空主键外键外键参考表讲明ROOMHCKNUMER(5）NOT客房状态RMEMARVARCHAR(50）ES备注客户信息表:用来存储酒店客户的相关信息。表3-3-5 客户信息表: CUSTFO字段名称类型同意空主键外键外键参考表讲明CRDIDVRHAR(2)TS身份证号TNMVAA2(20）NOT姓名USTSEXVARHR2(10)NOT性不CUSTPHONVRCHAR(20)YES电话VIPCHECKNUMBER(5)YES是否会员CUSTDATARCHR2(2)YES信息录入时刻系统实现过程.1设计过程4.1.1窗体设计新建一个标准工程，

10、会出现frm1,能够遵循默认格式，也能够更改名称，那个地点默认。添加所需控件mainenu,双击控件在其中加入所要进行的功能如下: 添加控件mage插入图片,选中imae控件，在其属性表中选中pcue，选择需要的图片：再建立一个Form2，默认格式即可。在其中加入客房登记所需控件：再建立一个Form3,默认格式即可,同时在project-optns中设置其为主窗体。在其中加入客房登记所需控件,8个lbel,8个Eit,两个bt如图：能够在bitb按钮中添加图片,使其更加生动,，选中按钮，在其属性选择Glyph,选择需要的图片即可,注意图片格式要符合要求，还能够为界面换颜色。再建立一个Fom4,

11、默认格式即可。在其中加入客人信息查询所需控件,1个labl,一个Edt，2个按钮,1个DGi：那个地点需要链接数据库,与kr表中的信息进行链接。连接方式为:首先添加一个数据模板（datemdule)，然后选择AOuery控件和datsore控件添加到数据模板,选中ADOQuer控件，在其属性中找到conectnsrig，进行数据库的链接，选择再建立一个o，默认格式即可。在其中加入客房登记所需控件，和上面一样：那个窗体也要进行数据库链接,过程和上面一样,只是链接的表名不同,那个地点链接的是fxx表。双击确定添加代码如下:wit D.DOQuery1 o begin Ce; SLCear; SQL

12、.dd(select* fr fjx wher房间号码:a)； Paraeer.ParamByName（a).val:=Trim(eitText); Opn; en;关闭键的代码如下:for5.cloe；formshw;如此就完成了房间信息查询的操作。再建立一个For6，默认格式即可。在其中加入查看酒店信息所需控件：1个lab，1个按钮，个DGrid：那个地点要紧确实是数据库的链接，改用另外一种方式为:首先再建立一个or7,默认格式即可。在其中加入查看客房信息所需控件，和（7)一样，只是那个地点能够采纳（5)的方法进行数据库的链接。再建立一个再建立一个Form8 ，默认格式即可。在其中加入退房

13、所需控件：个le，1个Edit,两个btbtn,1个DBGr,和一个DBNaigtor如图：将其与数据库中表rx链接后，输入证件号码单击DBNaviat控件上的能够突出显示选择的信息,然后点击退房能够实现退房功能。4.2 进行窗体之间的转换(）在frm3中进行密码设置，双击登录按钮进行代码输入如下:varesults:Vaiat;BErelts:=ADOTabe1.Lok(姓名,edi1.txt,密码);if reledit2.T thenbegnorm3.Hd;frm1.Sow;ndelseeginappliation.MessgeBx(姓名或密码错误,提示信息,64); edit1SetF

14、ocus； eit;end；d；退出代码为:cloe；(2）在fom1中进行剩余各form间的连接,在form中分不单击要实现的功能菜单按钮，并分不输入代码，得到的最后代码如下:edre FrmN2lick（Sender: TObjct)；bginform1.Hide;for2.hwal;end；prcedureTFrm.3Click（Sede: Tbjt);einfomHie;formshomodal;end；procedre TForm1.4Clic(Snder:Object);beginfo1.Hid；or.ShowMda;e;pocedure TFor1N5Click(Sede:Obj

15、ect);eginfom1.He；fom6SowMod;end;prcdureTFor1NCik（Sener： Tect);beginorm1ide;om7.howMda;end;procedue TFor1Clk(ender: Object)；beiform1.hide;form8.SoMoa；en；rceure TForm.N7Clck（nde: TOject);begincose;ed；procdu To1.Forreate（Senr： TObjec)；bgien；同时要在uint的连接代码上添加：uses Wdws, ss,SysUtis, Vriat, Clses, raphics,

16、Cotl， Forms, ils,Menu, DB, ADOD,unit2，uni4,nit5,unit6，unit7，unit8,;在rm2中进行和frm1间的转换，代码如下： 双击关闭按钮添加代码： m2close; fo1sow;(4）在frm4,frm5，form6，form7中进行or间的转换,代码类似（)。、rm1中退出菜单的实现双击退出菜单进行代码输入:loe;即可。至此完成了菜单治理的实现，能够运行后进行各功能的实现。代码设计rivate Sub Tooa1_ttonClick(By uton As MSCoclButo) eltCsutn.Key aseDJ zsdj_ik

17、CseTF tCi Case FT ftc_Clik Cse sc_Click se exit IfMsBox(确定退出该系统?, ,系统提示) vbYesTh nd End f ESelectEd SubPriate Sb stCick()Dim StrmmoDog1.Fiter = BM图片（*BMP）|M|PG图片(.JPG）*J|GI图片（*.IF)|*.GIF|所有文件(.*）|*.CommonDialog1.ShoOpenIfComnDialog.Fieame ThenImage2.Picur = Loadicr(CmmnDialog1.FilNam)Str = CmmonDial

18、g1FileName n （App.Pth& pictue.xt) oOtputs Pt 1, StClse#1Comonialog.ileNae Ele CommnDialog.FileName = Ed IfEnd SubPiate Su sb_Click()mn_sbf.ShowmanEnbd alseEd SPivt ub sjfClik()minsjhf.ShowEnd SubPvae Sub zdj_Click(） mainkfj.Show m.abe=alsEd Survte Sb f_Ck（） min_t.Show man.Enbld = FalEnd Subvat b kfc

19、x_Click(） ai_kcx.Shw ainEled FaeEnd bPivate Sb ftclick() mai_ftcx.Showain.Eable FalseEnd ubPite Sub zsc_lick(）oad main_zsx main_zscSow manEnable= ledSubPrivteub tfcx_lick(） Load man_fcx man_fcx.Sho mainabld = FseEndS41.3 系统登录模块设计窗体设计添加新窗体，命名为manLgin,t属性为“酒店客房治理系统”;添加Aodc控件以及两个extBx控件，Text1放在用户名后，Tex

20、2放在密码后;添加两个Ime控件，分不设置Pictue属性，添加“确定”和“退出”按钮。代码设计PvteSubImg_Clc() f et1.Text =7A Text2.et 2456The m.Show M.Hd Else Msox密码错误!, vbCritil， 提示 End IfEdSuPrivte SubIage_Click()EndEndSub4.1.住宿登记模块窗体设计添加新窗体命名为mai_kfj，Captin属性为“住宿登记”；添加两个odc控件、TexBox控件数组以及个DPcker控件；添加3个CombB控件。代码设计rivateSubcodj_Clk() Adodc.o

21、nnectioSig= PVIDER=MSASQL;IVER=Oracle nOraDbghome1 ; & sever=wbsver;DS=;databasnamaa;datbsefie=:aa;ID=scott;PD=2346 dod1.RerSouc = selct * fromtbkfwere 房态=空房 Adodc1.Refsh Ado2.CnetionStrig = OVIDR=MDAS;RIVER=Oaclin Oab11g_hoe1;& srver=webserver;DSN=;daabasena=a;databsfile=d：aa;UID=sco;PWD=1345 Adoc.

22、Recodorce = sct *fom b_djb oderby 凭证号码 Adodc2Refrh I Not Adoc.Recordt.EO Thn Adodc2RecordsetMveLat If lsphText = The hTt= Fdate & d & Formt(, #000） IflshTx The 1.Text = o(dae) .Text = Monh(Lef（lsph.Tx,1)） If y1.ex= y2.ex Thn h.Tex= Fdte &d& Foat(a（Right(lh.ext, )） + 1, #00) Tx1ext al(Rigt（lsp.ext, 3

23、)） 1 EndIf f y1.Tex y2.Txt The bhT = dt&d & Fora(, #000) End If En If or i = 0To ZDJ(i).xt ZSDJ(i)nald = True Next o = o DJ(i）.Text = ZSDJ(i).Enbl= Tr ext i Como3.ex = mokEnbled rue:Comdj.Enbled= ale Cobo3.Eabled True： Com1.Enabled = Tre SD（0）Set ddcnnectonStrng = RODERMSDASQL;DRIVEROracl in raD1g_h

24、oe1 ； & server=websrvr;DSN;dtbaene=a；databasefl=:a;UID=cot;PWD245 Adodc3.Rcoor = let * from _kfwhee 房态 空房 Adodc3Refsh omb3.Cle AdodcReordset.ecordCount 0 Then or i =1 To dodc3.Rcrsetecoroun Cmb3.dIte oc3.ecordst.eld(房间号).e Adodc3codMoveNext Nxt i End fEd Subrivate Sub como_Click(） ZD（) Or Cmo3= Then

25、 MsgBox 请输入完整信息, , 系统提示 Ele Adodc2.RcorSourc selec* rom _djbwhre 房间号 & ombo3.ext& and标志like 1 ddRfreh f Adodc2.Recods.ecoCount 0 he Ao2.eoreAddew .T Ten Adodc2.RecordstField(凭证号码） = hText I ZSDJ(）.Text Then Adodc2ecrset.Flds(姓名) ZSJ(0)ext If omb1.Txt en Adodc2.Records.Fils（证件名称) = Comb1.Txt IfZSDJ(1

26、） TnAddc2RecodseFields(证件号码) =ZSJ(1).ext f ZSDJ(2)Text Thendc2Rcdet.Fieds(详细地址） ZSDJ(2).e IfCobo3.Text h Adc2.Recodset.ils(房间号） =Val（obo3.Tet) If ZSDJ().Text hnAdd2.Rordset.Filds(客房类型） = ZSD（4).Text I D1Valu en Ad2.Rcordset.Filds(住宿日期) DTP1Vale ZD(5).ext The Adodc2.ecorsetField(客房价格)Va（ZSDJ（5).Text）

27、 IfSD().Tex Ten Adodc2.ecordtFiels(住宿天数) ZSDJ().Text IZJ(7).Tet The odc.Recodset.ields(宿费） = ZSDJ().Text If DT3.Value hen dc2.Recet.elds(退宿日期) DP3.Vale Adodc2.Recordset.pdae Addc.efresh docOpen rovidr=Mcrosot.JetLEDB.40;ta ourc=&Appah &DB_FGLmdb；Persis Securit nfo=Fale dRsOpen slet * from tb_djy, ao

28、n, pneye, adckOptiiti dRs.Addew f bh.ext Then adoRs.Fels(凭证号码） bh.Text IfZSJ().Txt ThendoRs.ields(姓名)= ZDJ(0).Tex Combo1.Text Te doRs.Fields(证件名称) Cmbo1.Text If DJ(1).ext Then adoRsield(证件号码) SDJ(1).Tx f ZDJ(2)t hedoR.Fls（详细地址) = ZSDJ(2）.ext fZSDJ(4）.et Then aoRsFiels(客房类型) = ZSDJ(4).T If Como.Text

29、The adFields(房间号) （Cmb3.Tet) If ZDJ(5)Text Ten ds.Fils(客房价格） = Vl（ZSDJ().Txt） DT1.Value Then aRsields(住宿日期） =1Vlue If ZSDJ（)ext The adoFies(住宿天数） ZSDJ（6).ext If J（7).xt Then adoRs.Feds(宿费)ZSDJ(7）.xt I DP3.Vaue naoRs.ilds(退宿日期）DP3.Value ad.Upa adoconlose Adod1.RecrSource = lec* frmb_kfwere 房间号 like +

30、m3.Tt IfComboText Ten dodc.ecodse.Fields(房态) 入住 Adoc1Reordset.pdte or i 0 To6 ZSDJ().Enbled = Fal Nexti J（8).Eable= als: ZDJ(10).Enabled = Fle:ZDJ（11).naled = Fas Cob3.Enabled= False: ombo1.Ealed=alse End If om.nabled = F: ComprintEable= Tru: omdj.Enabe= Tue Comprn.eFocus d IfEnubrivate Subcomcnceli

31、() For i= 0 o ZD(i)Enabled False Nxti or = 4o 6 ZSJ（i）.Enled Fale Next CmoEnabed = False: omb.Ealed = Fle CmboEnabed False:DP3Enabl = Fae Comdj.Enabl reEd SbPrivt ubcomend_Click() nload main.Enaed TueE Sub4.15退宿登记模块按照如上方法设计窗体如下:代码设计:rivat Sub F_Ld() Adodc1.Cectiontrin=ROIDER=SAQL；IER=rale aDb11g_oe1

32、 ; severwebserve;SN;atsna=a;dtbasefile=d:；UD=sct;PWD123456 Adoc1RecorSurce =seect* fom tb_j Addc1Refrsh Adodc2.CoectionStrng =POVIDER=MSQL;DRIER=Orale in Orb1g_ome1 ;& srver=ebservr;DSN=;atabasenme=aa；tbasefle=d：aa;UDscott;WD=125 dod2Recordoe select * rom tb_kf Adodc2Refrsh dod3CnnctinStn = PRVIDEMS

33、DAS;DIER=Ora in OraDb11ho1 ； &servr=berver;SN；dtabasenme=aa;aaase：a;UID=scot;PWD=13456 Adodc3.ordSource= select *fromtgx Adod3.Rfs doc4nctinStrin= PRVERMDASQ;DRIVER=Oraclin raDb11ghome1 ; ever=wbsrver;DN=;dataasenam=a;dataasefle=d:a;Dsot；PD=12356 Adoc4.ordSurc =selct * fom tb_dy Adc4.efresh Addc5.ne

34、ctionString =PRVIDER=SDASQL；DRIE=Oracle i raDb11hme; & erverwbserr;DSN=；datbasenmaa;atasfied:aa;UIDsot;PD1356 Adodc5.Recordoue= sel 凭证号码 fro tdj where 标志=der b 凭证号码 Adodc5.Refres I Adc5ecorst.RcordCont 0hen Fr i =1 ToAdoc5.Recordse.Recordnt mbo4Addtem dodc5.Rcodset.Felds(凭证号码）.Value Adodc5.Recodset.

35、MoveNext Nxt i Ed f End ubPrateub Fm_Actae() yx = mai.tasBa1.Pane(4).T 赋值给czyDTP2.alue =Dae:tim.Value =Timeivate SubomboCic() ob4Text hen d1.RecodSouc seect * fom tdb whre 凭证号码= + obo4.et + dodc1.Refesh hTxt = & ombo4Text I Adodc1dset.Recrdout Then If doc1Recrdset.ieds(姓名) TheCmo.Text= dodc1RcodsetF

36、ields(证件名称) If od1.eose.ieds(证件号码) hen Texsfz.Text= Aod1.Rcordst.iels(证件号码) IfAdodc1Recordst.Field(详细地址）ThnBomo3.Txt = Aodc1.ecordstieds(房间号） If Adc1.Reordset.Fiels（客房类型) The DBmbo1Text= ddc1.Reordset.Filds(客房类型) If Aodc1.eordsetFied(客房价格) Thn DBComo2.Text = Addc1.Recdset.ilds（客房价格) If Adodc1.ecodse

37、t.Filds(住宿日期) en DTP1.Valu = Adodc.Reords.iel(住宿日期） I Addc.Recordset.Fields(住宿时刻） ThenIM.Vale= odc1.ecordset.i（住宿时刻) Adodc.Recordset.Fields（住宿天数) Ten Texs.Text Addc1.Recoret.elds(住宿天数） Ifd1.Records.Fld(预收金额) hn Texyj.Text Adc.ecorset.Fies(预收金额) ElseTexje = If Ad1cordset.ields(结款方式) Te Cmo.xtAdod1.Re

38、ordsetilds(结款方式） I Add1.ecordset.Filds（折扣) hen Texk.Text = Aoc.cordset.ilds(折扣） End If 计算住宿天数 If DP2.alue TP1.a hen DPicker控件返回包含于字符串内的数字,字符串中是一个适当类型的数值。 fm2Vlu #11:5:00AM# Thn fm2.Value 6:00PM# Then Tes.Text DTP2.Vau- Cate(DTP1.Vae) +1 Dae函数都能够强制将一个表达式转换成某种特定数据类型。 Else extsTextDTPValue Date(DP1.Vue

39、） +.5 End If s ext.Text= DP2.Value - CDate（DT1.Vaue) EndIf Es TIM.Valu #6:0:0 P Th exTxt = ElseTexs.Text 0.5 Else Textsex .5 End If End If exfTet= Val(exts.Text） * Val(DComb2Text） Edfd Sub4.1.住宿查询模块按照如上方法设计窗体如下:代码设计：Private bForm_od（） Addc1.ConnectiString = PROVIDMSDAS;DEOracle nOrab11hme1 ； & serve

40、=webserve；SN=;databseam=tuent;databasfile=d:tudet；UI=scot;PWD=12456 Adoc1.Rcoroue = seect fm tb_djb Adodc.efres Set MSHFlexrd.DataSourc =Adc1 MHFexrid1ClWdth(8) = 0 MSFleGd.oWidth（20) = 0 MSHFlexrd.ClWidth(24） =0 MSFexGr1.ColWidth(25) 0 MSHFleridColWith(7) = 0E SubPrvae ub Frm_Unlod(Cancel AsInter)

41、main.nabled = rueEnd SuPrivte ubComnd1_Click() Adoc1.RecrdSour = elct * fmtbwher 姓名 like %+ext1e + % Adodc1.Rfrh MSHFexGi1.olWidh() = 0 MFlxGri1Coldth(20) = MFeGri1.ColWidt（24)= SlexGd1.Colidth（) = 0 MHFlexGrid1.ColWidth(2) = 0En SubPrivae Sub omman2Cli() an.Ealed= Tue UnloadeEd SuPrivateSb Text1_eD

42、on(KeyCoe stger, Shft sIneger） IKeC =13 Tenomn.StFond Sb4.17退宿查询按照如上方法设计窗体如下：代码设计:rivaub FrmLod（) Ado1.ConectinString PROIDRSDASQL;RVE=Oracl inOrDb11_ome1 ; sver=wberv;S=;dseme=a；atabasfile=d:a；Uscot;P1235 Adodc1Recordoure = lct *frbtfd Adc.Refresh Set DataGid1DatSoucedc1Ed SbPrvate Sub orm_Unload（C

43、ancel Asnteer)main.Enabled = Trund ubPivat Sub Coma1_Click（)Adodc1RecordSuce = selt * fmtb_tdhret_fd.姓名 =&Tex1.Text & Adodc1.efhEnd uPvate uCmm_lik(） ai.nble Tru Unld eEnSubPivate Su Text_KeDow(KCdeA Ineger， Sifts Integer) If KCoe= 13The CommanStocEnd Sub4.1.8房间查询按照如上方法设计窗体如下：代码设计:Pive u Cmmand_lick

44、() ddc1.RcordSurce selct *fro tb_kf wer房间号 like % + ext1Tet + % Aodc1.ReeshEn SPreSu ForLad() Aodc.CoectinString=PROIDER=MSDASQL;DRIVER=Oracle OraDb11ghome1 ；& server=OraclSevr.wld; I=sctt; & PWD=12456； Adod1.Recordource= set * frombkf Adoc1Reresh S tGrid1atorce Addc ad1.Clumn(）.Widt = 0End ubPva ub

45、 Form_Unlad（acel s Inger） min.Enabled= TrueEnSubPrivaeS omand3_lck() mainEnabled rue Unlo eEnd SuPre ub xt1_KeyDwn(yod Asteer， ShiAs negr) If eyCod= 1 ThCommn2.SetFousEndSub4.系统各界面设计代码系统登陆页面前台代码 :tble wth=10%orer= clsacing0 cellpaddin=0td wih=4 hight4 vn=bottoms clssSTYLE用户/dv/td&nbp;divanlefnuttyp=

46、text nae=usrNameid=tetfieldstlewidth:100px;eigh: 7x； backgrundco:8abf; borer： sold 1px #15396; fon-ie: 2px;colo:23439;密码/iv&nsp;/tdt heig=4 lignbotom/tr系统登陆后台处理代码:pblic Sring execute() LisUselst=srservceselecByUserNae（ueNa）;if（i.sie（)=0）lag=0;f (int = ； perissionist=new ryListmission(）; Lis ullitne

47、ArayLit(); r (int j =0;jroepes.ie(); +)pemissonlistad(rolepersge(j).gtPerisson()； rist.add(rolepers.gt(j).gePermission（）.gePermissinur()； Acionontext.getonet().etesin（）put(rlis,urllist）; ActioCnext.etontt（）.getSessn（).pu（pemissionlist,prssnlit);returnLognSuccss;lsflag=0;rtr LonFil;菜单添加页面前台核心代码:iv i=

48、divTitle菜品治理-添加菜品 divi=iFrom :form cionaddood s:tetfiel nae=foodrceabel=菜品价格 csClss=xt /:umt/s：m /div菜单添加后台处理核心代码:ubc css AFoodActo xtens tnSupprtpratetrigfoohepcoe;privateStrig odnae；private Sring foodrice;private Srng foodrmak;privei fooypeid;priate FooSeics oodSerices;prvatFodypSevice foodTypeerv

49、es;publ FoodTypeSerice getFodTypeSrvics() retur foodTyeSevies;blicvoid setFodTpeSec（FooTypeSericesoodTeSvices) this.odypeSerices =oodTpeSevics;pli trig geFoodelpoe()rrnfoodhelpcod；puiv setFoodhelpcde（Stg foohelpd) tisohpcod foodhpcode;pubc Srin todnam() eurn fdnme;bl vi setoonme(Sting foodnam) is.fo

50、dname= foname;publi String getFoodprice() return fodrice;ublic voidetoodprie(trin foodre)tisfdpri = foodpric；public StrnggtForark() eurnfodmak;publioid setFoodremk(Stgfodeak) hs.fodreark foremak;pblict getFodtypid（) returfoodtypei;publicvod setFodypid(nt foodtyped) tis.foodypeid=foodtyeid;publc Food

51、Servs getFoodSrics() rtu foSrvis；lic vod setFooServies(FoodServic foodServices）thi.foodServis =dSrvices；blic Srn execte()Fodtye fdtype = fdTypeServcesdoFoodType(foodtyid)；Fod fo = nw od();foo.seoodelpcode(fohelpcode);fd.seFoonam（fooname）;fodetFoodrice(ouble.parDuble( foodrie);fod.etoodrar（fodmrk）；oodstFoodtype(fooype）；f （foSevies.ddFod(ood) eurn ad