oracle酒店管理系統(tǒng)

頁(yè)腳內(nèi)容頁(yè)腳內(nèi)容Oracle數(shù)據(jù)庫(kù)的設(shè)計(jì)與實(shí)現(xiàn)選題名稱： 酒店管理系統(tǒng)姓 名：學(xué) 號(hào)：專 業(yè)：班級(jí)：指導(dǎo)老師：設(shè)計(jì)地點(diǎn)：目錄一、系統(tǒng)需求分析1.1系統(tǒng)開發(fā)的目的和意義 31.2系統(tǒng)要求二、系統(tǒng)總體設(shè)計(jì)-----------------------------32.1系統(tǒng)功能需求----------------------42.2系統(tǒng)數(shù)據(jù)需求----------------------42.3系統(tǒng)功能結(jié)構(gòu)圖-------------------52.4系統(tǒng)部分流程圖三、數(shù)據(jù)庫(kù)設(shè)計(jì)-------------------53.1數(shù)據(jù)庫(kù)概念模型-------------------73.2數(shù)據(jù)庫(kù)物理模型-------------------83.3酒店管理系統(tǒng)部分?jǐn)?shù)據(jù)字典---9四、系統(tǒng)實(shí)現(xiàn)經(jīng)過4.1設(shè)計(jì)經(jīng)過-----------------------------114.2系統(tǒng)各界面設(shè)計(jì)代碼 28五、實(shí)驗(yàn)總結(jié)實(shí)驗(yàn)中遇到的問題---------------35頁(yè)腳內(nèi)容頁(yè)腳內(nèi)容心得體會(huì) 35一、系統(tǒng)需求分析系統(tǒng)開發(fā)的目的和意義首先應(yīng)該在此次實(shí)踐中有所收獲，能夠?qū)W習(xí)到相關(guān)軟件的功能，和進(jìn)行實(shí)踐設(shè)計(jì)需要的學(xué)問的。能夠在實(shí)踐中學(xué)習(xí)。面對(duì)酒店行業(yè)的高速進(jìn)展和酒店行業(yè)信息化進(jìn)展的經(jīng)過中出現(xiàn)的各種情況，酒店客房管理系統(tǒng)在實(shí)施后應(yīng)達(dá)到以下目的：暢；服務(wù)管理信息化，可隨時(shí)把握客人住宿情況；全。房信息等功能。Delphioracle的連接，進(jìn)行數(shù)據(jù)的插入。系統(tǒng)要求要求實(shí)現(xiàn)酒店員工信息管理、客戶信息管理、客房信息管理、訂單管理等功能，包括客戶信息的添加、修改、刪除及查詢；客房信息的添加、修改、刪除及查詢；訂單查詢及退房管理等。二、系統(tǒng)總體設(shè)計(jì)系統(tǒng)功能需求功能：系統(tǒng)管理模塊:包括登錄系統(tǒng)，用戶管理，權(quán)限管理，角色管理，以及查詢統(tǒng)計(jì)，客戶管理折扣管理和開臺(tái)管理等。根本設(shè)置管理模塊：包括廚師的管理，買單管理等?？蛻艄芾砟K：包括客戶點(diǎn)菜，上菜，結(jié)賬，統(tǒng)計(jì)等。客戶訂房管理模塊：包括訂房，續(xù)房，查房，退房，結(jié)算等。系統(tǒng)數(shù)據(jù)需求依據(jù)數(shù)據(jù)需求分析可知該系統(tǒng)至少應(yīng)該具有以下的一些數(shù)據(jù)需求：DESKTYPE餐桌類別表（餐桌類別編號(hào)，餐桌座位數(shù)，餐桌方位，備注。DESK餐桌表（餐桌編號(hào)，餐桌類別編號(hào)，餐桌狀態(tài)，備注。FOODYPE菜系（菜系編號(hào)，菜系名稱，備注。FOOD菜品（菜品編號(hào)，菜單編號(hào)，所屬菜系，菜品名稱，菜品價(jià)格，助記碼，備注。FOODTICKET餐飲訂單（訂單編號(hào)，餐桌編號(hào)，下單服務(wù)員編號(hào)，點(diǎn)菜時(shí)間，訂單狀態(tài)，備注。ROOMCUSTINFO住房客戶信息表（戶省份證號(hào)。）ROOMTYPE客房類別表（客房類別編號(hào)，客房類型名稱，客房類別價(jià)格，備注。頁(yè)腳內(nèi)容頁(yè)腳內(nèi)容ROOMINFO客房信息表（房間編號(hào)，客房類別編號(hào)，客房狀態(tài)，備注?？头坑唵喂芾肀恚↖D，身份證號(hào)，入住時(shí)間，離開時(shí)間，押金金額，結(jié)算金額，下單時(shí)間，備注。CUSTINFO（身份證號(hào)，客戶姓名，客戶性別，客戶電話，是否會(huì)員，信息錄入時(shí)間，備注。USER用戶信息表（用戶編號(hào)，角色編號(hào)，部門編號(hào)，用戶名，用戶密碼，是否審核經(jīng)過，年齡，性別，生日，聯(lián)系電話，備注。ROLE用戶角色表（角色編號(hào)，角色名，備注。DEPARMENT部門表（部門編號(hào)，名稱，上級(jí)部門編號(hào)，備注。PERMISSION權(quán)限表（權(quán)限編號(hào)，權(quán)限組編號(hào)，權(quán)限名稱，備注。ROLEPER角色-權(quán)限關(guān)聯(lián)表（角色權(quán)限編號(hào)，角色編號(hào)，權(quán)限編號(hào)。PERMISSIONGROUP權(quán)限組表（權(quán)限組編號(hào)，權(quán)限組名稱。系統(tǒng)功能模塊圖2-3所示2-3系統(tǒng)功能結(jié)構(gòu)圖系統(tǒng)部分流程圖2-4所示2-4客房訂單管理流程圖2-5所示頁(yè)腳內(nèi)容頁(yè)腳內(nèi)容acac開臺(tái)開頭開臺(tái)查詢是否有空桌開臺(tái)失敗[]確定餐桌類別確定座位號(hào)開臺(tái)成功結(jié)束2-5餐飲部分開臺(tái)流程圖三、數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)概念模型3-1所示：ROOMTYPEROOMTYPEROOMTYPEID <pi>N100<M>ROOMTYPENAME VA20ROOMTYPEPAY N20ROOMTYPEREMARKTXT100Relationship_15ROOMINFOROOMID <pi>N20 <M>ROOMCHECK N10ROOMREMARKTXT100ROOMCUSTINFO>N CNAMECIDVA15VA20Relationship_12PERMISSIONGROUPRelationship_20ORDERIDROOMTICKET<pi>N<M>CLIENTINDATEVA20CUSTINFOCARDID <pi>VA20<M>GROUPID<pi>IGROUPNAMEVA15Identifier_1<pi><M>CLIENTOUTDATEVA20CLIENTMARGINCLIENTAMOUNTORDERTIMEORDERREMARKN20N20VA20TXT100CUSTSEXCUSTPHONEVIPCHECKVA10VA20N10VA20shuyu1PERMISSIONPERMISSIONID<pi>IPERMISSIONNAMEVA20PERMISSIONURL VA25PERMISSIONNOTETXT60Identifier_1<pi>DESKTYPEDESKTYPEID<pi>NRelationship_13DESKSEATNUMBERN<M><M>DESKDIRECTIONVA10<M>DESKTYPEREMARKVA50Identifier_1<pi>Relationship_4Relationship_17FOODTICKETORDERID <pi>N <M>Relationship_5ROLEROLEID<pi>IROLENAME VA20ROLENOTETXT60ORDERTIMEREALPAYMONEYTOTALMONEYORDERSTATUSORDERREMARKIdentifier_1<pi>NNNVA50<M><M>Relationship_14DESKIDDESK<pi>NDESKISUSINGDESKREMARKIdentifier_1<pi>NVA50<M><M>Relationship_11shiRelationship_16USERSUSERID <pi>I USERNAMEUSERPWDUSERNOTEREALNAMEUSERAGEUSERSEXUSERINDATEUSERPHONEVA10VA20TXT60VA20IVA5VA20VA15FOODLISTFOODLISTID<pi>NFOODTYPEFOODTYPEID <pi>N <M>DEPARTMENTDEPARTMENTID<pi>IDEPARTMENTNAMEVA10DEPARTMENTNOTETXT60<M>FOODTYPENAMEVA20<M>shuyuRelationship_19FOODSTATUS MENUREMARKVA50Identifier_1<pi>FOODTYPEREMARKVA50Identifier_1<pi>PARENTIDIRelationship_8Relationship_6FOODFOODID <pi>N<M>FOODNAME FOODPRICE N<M>FOODHELPCODEVA10<M>FOODREMARKVA50Identifier_1<pi>3-1數(shù)據(jù)庫(kù)概念模型圖數(shù)據(jù)庫(kù)物理模型3-2所示：ROOMTYPEROOMTYPEROOMTYPEPAYNUMBER(20)FK_R1ROOMCUSTINFORORDERIDNUMBER<fk>ROOMINFOD )CNAME VARCHAR2(15)CID VARCHAR2(20)FK_R2PERMISSIONGROUPGROUPIDINTEGER<pk>ROOMTICKETFK_R3FK_PORDERIDNUMBER<pk>USERIDINTEGER<fk1>D)ROOMIDNUMBER(20<)fk3>GROUPIDINTEGERVARCHAR2(20)FK_R4CUSTINFOCUSTSEXVARCHAR2(10)VIPCHECKNUMBER(10)PERMISSIONR<fk>FK_F1FK_R9DESKTYPEDESKTYPEIDNUMBER<pk>ROLEPERD ORDERIDUSERIDCARDIDFOODTICKETNUMBER<pk>INTEGER<fk1>TICKET_DESKFK_R0)> 1FK_R7ROLEROLEIDINTEGER<pk>ORDERTIMEVARCHAR2(20)OFK_D1FK_T2FK_F7FK_F6DESKDESKID NUMBER<pk>FK_U2USERIDROLEIDUSERSINTEGER<pk>INTEGER<fk2>FOODLISTRDEPARTMENTRVARCHAR2(10)FOODID NUMBERUSERID INTEGERORDERIDNUMBER<pk><fk1><fk3><fk2><pk>FK_UUSERPWDVARCHAR2(20)FK_F5PARENTID INTEGERUSERNOTECLOBREALNAMEVARCHAR2(20)USERAGEINTEGERUSERSEXVARCHAR2(5)MENUREMFOODTYPEFOODTYPEIDNUMBER<pk>FK_F8FK_F2FOODFOODID NUMBER<pk><fk>FOODNAMEVARCHAR2(20)FOODPRICENUMBER3-2數(shù)據(jù)庫(kù)物理模型圖酒店管理系統(tǒng)部分?jǐn)?shù)據(jù)字典HotelDB17張表。菜系表：用來存儲(chǔ)菜系的信息，其中FOODTYPEID字段為主鍵。3-3-1菜系：FOODYPE字段名稱字段名稱類型允許空主鍵外鍵外鍵參考表說明FOODTYPEIDNUMBE(5)NOTYESIDFOODTYPENAMVARCHAR2(20)NOT菜系名稱EFOODTYPEREMVARCHAR2(50)YES備注ARKFOODTYPEID用來描述該菜品屬于哪個(gè)菜系是外鍵參參考表FOODTYPE，依據(jù)此字段的值，能夠知道菜品屬于相應(yīng)的哪個(gè)菜系。3-3-2菜品：FOOD字段名稱字段名稱類型允許空主鍵外鍵外鍵參考表說明FOODNUMBER(NOTYESIDID5)FOODVARCHARNOT菜品名稱NAME2(20)FOODTYPENUMBER(NOTYESFOODYPEIDID5)FOODNUMBER(NOT菜品價(jià)格PRICE5)FOODHELPCOD VARCHARNOT助記碼E 2(10)FOODREMARK

VARCHAR2(50)

YES 備注客房類別表：用來存儲(chǔ)客房類別的信息，3-3-3客房類別表：ROOMTYPE字段名稱字段名稱類型允許空主鍵外鍵外鍵參考表說明NUMBERROOMTYPEIDNOTYES客房類別編號(hào)(5)ROOMTYPEVARCHANOT客房類別名稱NAMER2(20)NUMBERROOMTYPEPAYNOT類別價(jià)格(5)ROOMTYPEREM VARCHANOT備注ARKR2(50)客房信息表:用來存儲(chǔ)客房信息。3-3-4客房信息表：ROOMINFO字段名稱字段名稱類型允許空主鍵外鍵外鍵參考表說明ROOMNUMBERNOTYES房間編號(hào)ID(5)ROOMTYPENUMBERNOTYESROOMTYPE客房類別編號(hào)ID(5)續(xù)表5-4字段名稱類型允許空主鍵外鍵外鍵參考表說明ROOMCHECKNUMBERNOT客房狀態(tài)(5)(5)ROOMREMAR VARCHARYES備注K2(50)客戶信息表:用來存儲(chǔ)酒店客戶的相關(guān)信息。3-3-5客戶信息表:CUSTINFO允許允許字段名稱類型主鍵外鍵外鍵參考表說明空VARCHAR2CARDIDNOTYES身份證號(hào)(20)VARCHAR2CUSTNAMENOT姓名(20)VARCHAR2CUSTSEXNOT性別(10)VARCHAR2CUSTPHONEYES電話(20)NUMBER(5VIPCHECKYES是否會(huì)員)VARCHAR2CUSTDATEYES信息錄入時(shí)間(20)四、系統(tǒng)實(shí)現(xiàn)經(jīng)過設(shè)計(jì)經(jīng)過窗體設(shè)計(jì)頁(yè)腳內(nèi)容頁(yè)腳內(nèi)容里默認(rèn)。mainmenu,雙擊控件在其中加入所要進(jìn)行的功能如下：要的圖片：Form2，默認(rèn)格式即可。在其中加入客房登記所需控件：project-options中設(shè)置其為主窗體。,8label，8Editbitbtn如圖：Glyph，選擇需要的圖片即可，著重圖片格式要符合要求，還能夠?yàn)榻缑鎿Q顏色。1個(gè)DBGrid：krxx表中的信息進(jìn)行鏈接。連接方式為：首先添加一個(gè)數(shù)據(jù)模板（yconnectionstring，進(jìn)行數(shù)據(jù)庫(kù)的鏈接，選擇Form5，默認(rèn)格式即可。在其中加入客房登記所需控件，和上面一樣：kfxx表。雙擊確定添加代碼如下：withData3.ADOQuery1dobeginClose;SQL.Add('select*fromfjxxwhere房間號(hào)碼=:a');Open;end;form5.close;form1.show;這樣就完成了房間信息查詢的操作。個(gè)按鈕，1DBGrid：這里主要就是數(shù)據(jù)庫(kù)的鏈接，改用另外一種方式為：Form7，默認(rèn)格式即可。在其中加入查看客房信息所需控件，和（7）一樣，不過這里能夠采納（5）的方式進(jìn)行數(shù)據(jù)庫(kù)的鏈接。再建立一個(gè)再建立一個(gè)Form81DBNavigator如圖：DBNavigator控件上的√能夠突出顯示選擇的信息，然后點(diǎn)擊退房能夠?qū)崿F(xiàn)退房功能。進(jìn)行窗體之間的轉(zhuǎn)換varresults:Variant;BEGINifresults=edit2.Text then頁(yè)腳內(nèi)容頁(yè)腳內(nèi)容beginform3.Hide;endelsebegin姓名或密碼錯(cuò)誤','提示信息',64);edit1.SetFocus;exit;end;end;退出代碼為：close;formform1中分別單擊要實(shí)現(xiàn)的功能菜單按鈕，并分別輸入代碼，得到的最后代碼如下：procedureTForm1.N2Click(Sender:TObject);beginform1.Hide;end;procedureTForm1.N3Click(Sender:TObject);beginform1.Hide;end;procedureTForm1.N4Click(Sender:TObject);beginform1.Hide;end;procedureTForm1.N5Click(Sender:TObject);beginform1.Hide;end;procedureTForm1.N6Click(Sender:TObject);beginform1.hide;end;procedureTForm1.N8Click(Sender:TObject);beginform1.hide;end;procedureTForm1.N7Click(Sender:TObject);beginend;procedureTForm1.FormCreate(Sender:TObject);beginend;uint1的連接代碼上添加：usesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Menus,DB,ADODB,unit2,unit4,unit5,unit6,unit7,unit8,;form1間的轉(zhuǎn)換，代碼如下：雙擊關(guān)閉按鈕添加代碼：form2.close;4），，71間的轉(zhuǎn)換，代碼類似3。3、form1中退出菜單的實(shí)現(xiàn)close;即可。至此完成了菜單管理的實(shí)現(xiàn)，能夠運(yùn)行后進(jìn)行各功能的實(shí)現(xiàn)。②代碼設(shè)計(jì)PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCase"DJ"zsdj_ClickCase"TF"Case"FT"Case"CX"zscx_ClickCase"exit"IfMsgBox("確定退出該系統(tǒng)？4系統(tǒng)提示vbYesThenEndEndIfEndSelectEndSubPrivateSubsztx_Click()DimStrCommonDialog1.Filter"BMP圖片(*.BMP)|*.BMP|JPG圖片(*.JPG)|*.JPG|GIF圖片CommonDialog1.ShowOpenIfCommonDialog1.FileName<>""ThenImage2.Picture=LoadPicture(CommonDialog1.FileName)Str=CommonDialog1.FileNameOpen(App.Path&"\picture.txt")ForOutputAs#1Print#1,StrClose#1CommonDialog1.FileName=""ElseCommonDialog1.FileName=""EndIfEndSubPrivateSubsjbf_Click()main_sjbf.Showmain.Enabled=FalseEndSubPrivateSubsjhf_Click()main_sjhf.ShowEndSubPrivateSubzsdj_Click()main_kfdj.Showmain.Enabled=FalseEndSubPrivateSubtf_Click()main_tf.Showmain.Enabled=FalseEndSubPrivateSubkfcx_Click()main_kfcx.Showmain.Enabled=FalseEndSubPrivateSubftck_Click()main_ftcx.Showmain.Enabled=FalseEndSubPrivateSubzscx_Click()Loadmain_zscxmain_zscx.Showmain.Enabled=FalseEndSubPrivateSubtfcx_Click()Loadmain_tfcxmain_tfcx.Showmain.Enabled=FalseEndSub系統(tǒng)登錄模塊設(shè)計(jì)①窗體設(shè)計(jì)n，n控件，Text1放在用戶名后，Text2放在密碼后；Picture屬性，添加“確定”和“退出”按鈕。②代碼設(shè)計(jì)PrivateSubImage1_Click()IfText1.Text=7AndText2.Text=123456Thenmain.ShowElseMsgBox密碼錯(cuò)誤！vbCritical提示"EndIfEndSubPrivateSubImage2_Click()EndEndSub住宿登記模塊①窗體設(shè)計(jì)n2DTPicker控件；控件。頁(yè)腳內(nèi)容頁(yè)腳內(nèi)容②代碼設(shè)計(jì)PrivateSubcomdj_Click()OraDb11g_home1

= "PROVIDER=MSDASQL;DRIVER={Oracle in};" &23456"Adodc1.RecordSource"select*fromtb_kfwhere房態(tài)='空房'"Adodc1.RefreshOraDb11g_home1

= "PROVIDER=MSDASQL;DRIVER={Oracle in};" &23456"Adodc2.RecordSource"select*fromtb_djborderby憑證號(hào)碼"Adodc2.RefreshIfNotAdodc2.Recordset.EOFThenAdodc2.Recordset.MoveLastIflsph.Text=""Thenbh.Text=Fdate&"d"&Format(1,"###000")頁(yè)腳內(nèi)容頁(yè)腳內(nèi)容Iflsph.Text<>""Theny1.Text=Month(Fdate)y2.Text=Month(Left(lsph.Text,10))Ify1.Text=y2.TextThen'bh.Text=Fdate&"d"&Format(Val(Right(lsph.Text,3))+1,"###000")Text1.Text=Val(Right(lsph.Text,3))+1EndIfIfy1.Text<>y2.TextThenbh.Text=Fdate&"d"&Format(1,"###000")EndIfEndIfFori=0To2ZSDJ(i).Text=""ZSDJ(i).Enabled=TrueNextiFori=4To6ZSDJ(i).Text=""ZSDJ(i).Enabled=TrueNextiCombo3.Text=""Comok.Enabled=True:Comdj.Enabled=FalseCombo3.Enabled=True:Combo1.Enabled=TrueZSDJ(0).SetFocusAdodc3.ConnectionString = "PROVIDER=MSDASQL;DRIVER={Oracle OraDb11g_home1 };" 23456"Adodc3.RecordSource"select*fromtb_kfwhere房態(tài)空房'"Combo3.ClearIfAdodc3.Recordset.RecordCount>0ThenFori=1ToAdodc3.Recordset.RecordCount房間號(hào)").ValueAdodc3.Recordset.MoveNextNextiEndIfEndSubPrivateSubcomok_Click()IfZSDJ(0)=""OrCombo3=""ThenMsgBox請(qǐng)輸入完整信息系統(tǒng)提示"Else

Adodc2.RecordSource= "select *fromtb_djbwhere 房間號(hào)= '" &Combo3.Text&and標(biāo)志like'1'"Adodc2.RefreshIfAdodc2.Recordset.RecordCount=0ThenAdodc2.Recordset.AddNewIfbh.Text<>""ThenAdodc2.Recordset.Fields("憑證號(hào)碼")=bh.TextIf ZSDJ(0).Text <> "" Then Adodc2.Recordset.Fields("姓名")

IfCombo1.Text<>""ThenAdodc2.Recordset.Fields("證件名稱")=Combo1.TextIfZSDJ(1).Text<>""ThenAdodc2.Recordset.Fields("證件號(hào)碼")=

IfZSDJ(2).Text<>""ThenAdodc2.Recordset.Fields("詳細(xì)地址")=

If Combo3.Text<> "" Then 間號(hào)") =Val(Combo3.Text)IfZSDJ(4).Text<>""ThenAdodc2.Recordset.Fields("客房類型")=

IfDTP1.Value<>""ThenAdodc2.Recordset.Fields("住宿日期")=

IfZSDJ(5).Text<>""ThenAdodc2.Recordset.Fields("客房?jī)r(jià)格")=Val(ZSDJ(5).Text)IfZSDJ(6).Text<>""ThenAdodc2.Recordset.Fields("住宿天數(shù)")=

If ZSDJ(7).Text <> "" Then Adodc2.Recordset.Fields("宿費(fèi)") =

IfDTP3.Value<>""ThenAdodc2.Recordset.Fields("退宿日期")=DTP3.ValueAdodc2.Refreshadocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"adoRs.Open "select * from tb_djys", adocon, adLockOptimisticadoRs.AddNewIfbh.TextThenadoRs.Fields("憑證號(hào)碼bh.TextIfZSDJ(0).TextThenadoRs.Fields("姓名ZSDJ(0).TextIfCombo1.TextThenadoRs.Fields("證件名稱")=Combo1.TextIfZSDJ(1).TextThenadoRs.Fields("證件號(hào)碼ZSDJ(1).TextIfZSDJ(2).TextThenadoRs.Fields("詳細(xì)地址")=ZSDJ(2).TextIfZSDJ(4).TextThenadoRs.Fields("客房類型ZSDJ(4).TextIfCombo3.Text<>""ThenadoRs.Fields("房間號(hào)")=Val(Combo3.Text)If ZSDJ(5).Text <> "" Then adoRs.Fields("客房?jī)r(jià)格") =Val(ZSDJ(5).Text)IfDTP1.ValueThenadoRs.Fields("住宿日期")=DTP1.ValueIfZSDJ(6).TextThenadoRs.Fields("住宿天數(shù)")=ZSDJ(6).TextIfZSDJ(7).TextThenadoRs.Fields("宿費(fèi)ZSDJ(7).TextIfDTP3.ValueThenadoRs.Fields("退宿日期")=DTP3.ValueadoRs.Updateadocon.CloseAdodc1.RecordSource"select*fromtb_kfwhere 房間號(hào)like'"+Combo3.TextIfCombo3.TextThenAdodc1.Recordset.Fields("房態(tài)入住"Adodc1.Recordset.UpdateFori=0To6ZSDJ(i).Enabled=FalseNextiZSDJ(8).Enabled=False:ZSDJ(10).Enabled=False:ZSDJ(11).Enabled=FalseCombo3.Enabled=False:Combo1.Enabled=FalseEndIfComok.Enabled=False:Comprint.Enabled=True:Comdj.Enabled=TrueComprint.SetFocusEndIfEndSubPrivateSubcomcancel_Click()Fori=0To2ZSDJ(i).Enabled=FalseNextiFori=4To6ZSDJ(i).Enabled=FalseNextiComok.Enabled=False:Combo3.Enabled=FalseCombo1.Enabled=False:DTP3.Enabled=FalseComdj.Enabled=TrueEndSubPrivateSubcomend_Click()UnloadMemain.Enabled=TrueEndSub退宿登記模塊依據(jù)如上方式設(shè)計(jì)窗體如下：頁(yè)腳內(nèi)容頁(yè)腳內(nèi)容代碼設(shè)計(jì)：PrivateSubForm_Load()OraDb11g_home1

= "PROVIDER=MSDASQL;DRIVER={Oracle in};" &23456"Adodc1.RecordSource="select*fromtb_djb"'Adodc1.RefreshOraDb11g_home1

= "PROVIDER=MSDASQL;DRIVER={Oracle in};" &23456"Adodc2.RecordSource="select*fromtb_kf"'Adodc2.RefreshOraDb11g_home1

= "PROVIDER=MSDASQL;DRIVER={Oracle in};" &"server=webserver;DSN=;databasename=aa;databasefile=d:\\aa\\;UID=scott;PWD=123456"頁(yè)腳內(nèi)容頁(yè)腳內(nèi)容Adodc3.RecordSource="select*fromtb_gzmx"'Adodc3.RefreshOraDb11g_home1

= "PROVIDER=MSDASQL;DRIVER={Oracle in};" &23456"Adodc4.RecordSource="select*fromtb_djys"'Adodc4.RefreshOraDb11g_home1

= "PROVIDER=MSDASQL;DRIVER={Oracle in};" &23456"Adodc5.RecordSource="selectfromtb_djbwhere標(biāo)志='1'orderby憑證號(hào)碼"'Adodc5.Refresh'IfAdodc5.Recordset.RecordCount>0Then'Fori=1ToAdodc5.Recordset.RecordCount憑證號(hào)碼").Value'Adodc5.Recordset.MoveNext'Nexti'EndIfEndSub'PrivateSubForm_Activate()'czy.Textmain.StatusBar1.Panels(4).Text 'DTP2.ValueDatetim2.ValueTimePrivateSubcombo4_Click()IfCombo4.Text<>""ThenAdodc1.RecordSource= "select * from tb_djb where 碼='" Combo4.Text+"'"Adodc1.Refresh'bh.Text="T"&Combo4.TextIfAdodc1.Recordset.RecordCount>0ThenIf 名") <> "" Then Texxm.Text=Adodc1.Recordset.Fields("姓名")IfAdodc1.Recordset.Fields("證件名稱")<>""ThenCombo1.Text=Adodc1.Recordset.Fields("證件名稱")If Adodc1.Recordset.Fields("證件號(hào)碼") <> "" Then Texsfz.Text=Adodc1.Recordset.Fields("證件號(hào)碼")If 細(xì)地址") <> "" Then Texdz.Text=Adodc1.Recordset.Fields("詳細(xì)地址")IfAdodc1.Recordset.Fields("房間號(hào)")<>""ThenDBCombo3.Text=Adodc1.Recordset.Fields("房間號(hào)")IfAdodc1.Recordset.Fields("客房類型")<>""ThenDBCombo1.Text=Adodc1.Recordset.Fields("客房類型")IfAdodc1.Recordset.Fields("客房?jī)r(jià)格")<>""ThenDBCombo2.Text=Adodc1.Recordset.Fields("客房?jī)r(jià)格")'IfAdodc1.Recordset.Fields("住宿日期")<>""ThenDTP1.Value=Adodc1.Recordset.Fields("住宿日期")'IfAdodc1.Recordset.Fields("住宿時(shí)間")<>""ThenTIM1.Value=Adodc1.Recordset.Fields("住宿時(shí)間")If 宿天數(shù)") <> "" Then Texts.Text=Adodc1.Recordset.Fields("住宿天數(shù)")'If Adodc1.Recordset.Fields("預(yù)收金額") <> "" Then Texyj.Text=Adodc1.Recordset.Fields("預(yù)收金額ElseTexyj.Text"0"'IfAdodc1.Recordset.Fields("結(jié)款方式")<>""ThenCombo2.Text=Adodc1.Recordset.Fields("結(jié)款方式")'If 扣") <> "" Then Texzk.Text=Adodc1.Recordset.Fields("折扣")EndIf'計(jì)算住宿天數(shù)'IfDTP2.Value>DTP1.ValueThen'DTPicker控件返回包含于字符串內(nèi)的數(shù)字，字符串中是一個(gè)適當(dāng)類型的數(shù)值。'Iftim2.Value>#11:59:00AM#Then'Iftim2.Value>#6:00:00PM#Then'Texts.Text=DTP2.Value-CDate(DTP1.Value)+1'CDate函數(shù)都能夠強(qiáng)制將一個(gè)表達(dá)式轉(zhuǎn)換成某種特定數(shù)據(jù)類型。'Else'Texts.Text=DTP2.Value-CDate(DTP1.Value)+0.5'EndIf'Else'Texts.Text=DTP2.Value-CDate(DTP1.Value)'EndIf'Else'IfTIM1.Value<#6:00:00PM#Then'Iftim2.Value>#6:00:00PM#ThenTexts.Text=1ElseTexts.Text="0.5"'Else'Texts.Text="0.5"頁(yè)腳內(nèi)容頁(yè)腳內(nèi)容'EndIf'EndIfTexxf.Text=Val(Texts.Text)*Val(DBCombo2.Text)EndIfEndSub住宿查詢模塊依據(jù)如上方式設(shè)計(jì)窗體如下：代碼設(shè)計(jì)：PrivateSubForm_Load()OraDb11g_home1

= "PROVIDER=MSDASQL;DRIVER={Oracle in};" &ott;PWD=123456"Adodc1.RecordSource="select*fromtb_djb"'Adodc1.RefreshSetMSHFlexGrid1.DataSource=Adodc1MSHFlexGrid1.ColWidth(8)=0MSHFlexGrid1.ColWidth(20)=0MSHFlexGrid1.ColWidth(24)=0MSHFlexGrid1.ColWidth(25)=0MSHFlexGrid1.ColWidth(27)=0EndSubPrivateSubForm_Unload(CancelAsInteger)main.Enabled=TrueEndSubPrivateSubCommand1_Click()Adodc1.RecordSource = "select * from tb_djb where 姓名Text1.Text+"%'"MSHFlexGrid1.ColWidth(8)=0MSHFlexGrid1.ColWidth(20)=0MSHFlexGrid1.ColWidth(24)=0MSHFlexGrid1.ColWidth(25)=0MSHFlexGrid1.ColWidth(27)=0EndSubPrivateSubCommand2_Click()main.Enabled=TrueUnloadMeEndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenCommand1.SetFocusEndSub

like '%" +頁(yè)腳內(nèi)容頁(yè)腳內(nèi)容退宿查詢依據(jù)如上方式設(shè)計(jì)窗體如下：代碼設(shè)計(jì)：PrivateSubForm_Load()OraDb11g_home1

= "PROVIDER=MSDASQL;DRIVER={Oracle in};" &23456"Adodc1.RecordSource="select*fromtb_tfd"'Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubForm_Unload(CancelAsInteger)main.Enabled=TrueEndSubPrivateSubCommand1_Click()Adodc1.RecordSource"select*fromtb_tfdwheretb_tfd.姓名='"&Text1.Text&"'"EndSubPrivateSubCommand3_Click()main.Enabled=TrueUnloadMeEndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenCommand1.SetFocusEndSub房間查詢依據(jù)如上方式設(shè)計(jì)窗體如下：代碼設(shè)計(jì)：PrivateSubCommand2_Click()Adodc1.RecordSource= "select * from tb_kf where 房間號(hào)like '%" Text1.Text+"%'"'Adodc1.Refresh頁(yè)腳內(nèi)容頁(yè)腳內(nèi)容EndSubPrivateSubForm_Load()Adodc1.ConnectionString="PROVIDER=MSDASQL;DRIVER={OracleinOraDb11g_home1};"&"server=OracleServer.world;"&"UID=scott;"&"PWD=123456;"Adodc1.RecordSource="select*fromtb_kf"'Adodc1.RefreshSetDataGrid1.DataSource=Adodc1'DataGrid1.Columns(4).Width=0EndSubPrivateSubForm_Unload(CancelAsInteger)main.Enabled=TrueEndSubPrivateSubCommand3_Click()main.Enabled=TrueUnloadMeEndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenCommand2.SetFocusEndSub系統(tǒng)各界面設(shè)計(jì)代碼系統(tǒng)登陸頁(yè)面前臺(tái)代碼：<tablewidth="100%"border="0"cellspacing="0"cellpadding="0"><tr><tdwidth="44"height="24"valign="bottom"><divalign="right"><spanclass="STYLE3">用戶</span></div></td><tdwidth="10"valign="bottom"> </td><tdwidth="114"height="24"valign="bottom"><divalign="left"><inputtype="text"name="userName"id="textfield"style="width:100px;height:17px;background-color:#87adbf;border:solid1px#153966;font-size:12px;color:#283439;"></div></td></tr><tr><tdheight="24"valign="bottom"><divalign="right"><spanclass="STYLE3">密碼</span></div></td><tdwidth="10"valign="bottom"> </td><tdheight="24"valign="bottom"><inputtype="password"name="userPwd"id="textfield2"style="width:100px;height:17px;background-color:#87adbf;border:solid1px#153966;font-size:12px;color:#283439;"></td></tr></table>系統(tǒng)登陸后臺(tái)處理代碼：publicStringexecute(){List<Users>list=usersService.selectByUserName(userName);if(list.size()==0)flag=0;for(inti=0;i<list.size();i++){||flag=1;user);List<Roleper>rolepers=roleperService.findByRole(user.getRole());permissionlist=newArrayList<Permission>();List<String>urllist=newArrayList<String>();for(intj=0;j<rolepers.size();j++){permissionlist.add(rolepers.get(j).getPermission());urllist.add(rolepers.get(j).getPermission().getPermissionurl());}ActionContext.getContext().getSession().put("urllist",urllist);return"LoginSuccess";}else{flag=0;}}return"LoginFail";}菜單添加頁(yè)面前臺(tái)核心代碼：<divid="divTitle">菜品管理-添加菜品</div><divid="divFrom"><s:formaction="addfood"><s:textfield name="foodname" label=" 菜 品 名 稱 "cssClass="txt"></s:textfield><s:textfield name="foodprice" label=" 菜 品 價(jià) 格 cssClass="txt"></s:textfield><s:textfield name="foodhelpcode" label=" 助 記 碼 cssClass="txt"></s:textfield><s:select cssClass="txt" label=" 所屬菜系" list="#session.foodtype"listKey="foodtypeid"listValue="foodtypename"headerKey="-1"headerValue="請(qǐng)選擇您的菜系multiple="false"/><s:textareacssClass="txtname="foodremarklabel="備注"></s:textarea><s:submitvalue="確定cssClass="btnClass"></s:submit></s:form></div></div>菜單添加后臺(tái)處理核心代碼：publicclassAddFoodActionextendsActionSupport{privateStringfoodhelpcode;privateStringfoodname;privateStringfoodprice;privateStringfoodremark;privateintfoodtypeid;privateFoodServicesfoodServices;privateFoodTypeServicesfoodTypeServices;publicFoodTypeServicesgetFoodTypeServices(){returnfoodTypeServices;}publicvoidsetFoodTypeServices(FoodTypeServicesfoodTypeServices){this.foodTypeServices=foodTypeServices;}publicStringgetFoodhelpcode(){returnfoodhelpcode;}publicvoidsetFoodhelpcode(Stringfoodhelpcode){this.foodhelpcode=foodhelpcode;}publicStringgetFoodname(){returnfoodname;}publicvoidsetFoodname(Stringfoodname){this.foodname=foodname;}publicStringgetFoodprice(){returnfoodprice;}publicvoidsetFoodprice(Stringfoodprice){this.foodprice=foodprice;}publicStringgetFoodremark(){returnfoodremark;}publicvoidsetFoodremark(Stringfoodremark){this.foodremark=foodremark;}publicintgetFoodtypeid(){returnfoodtypeid;}publicvoidsetFoodtypeid(intfoodtypeid){this.foodtypeid=foodtypeid;}publicFoodServicesgetFoodServices(){returnfoodServices;}publicvoidsetFoodServices(FoodServicesfoodServices){this.foodServices=foodServices;}publicStringexecute(){Foodtypefoodtype=foodTypeServices.doFoodType(foodtypeid);Foodfood=newFood();food.setFoodhelpcode(foodhelpcode);food.setFoodname(foodname);food.setFoodprice(Double.parseDouble( food.setFoodremark(foodremark);food.setFoodtype(foodtype);if(foodServices.addFood(food)){return"addFoodSuccess";}else{return"addFoodFail";}}}菜品管理前臺(tái)核心代碼：<table width="100%" border="0" cellpadding="0" bgcolor="#a8c7ce" onMouseOver="changeto()"onmouseout="changeback()"><tr><tdwidth="9%"height="20"bgcolor="d3eaef"class="STYLE10"><divalign="center"><inputtype="checkbox"name="checkbox"id="checkbox"/></div></td><tdwidth="15%"height="20"bgcolor="d3eaef"class="STYLE6"><divalign="center"><spanclass="STYLE10">菜系編號(hào)</span></div></td><tdwidth="15%"height="20"bgcolor="d3eaef"class="STYLE6"><divalign="center"><spanclass="STYLE10">菜系名稱</span></div></td><tdwidth="22%"height="20"bgcolor="d3eaef"class="STYLE6"><divalign="center"><spanclass="STYLE10">備注</span></div></td><tdwidth="17%"height="20"bgcolor="d3eaef"class="STYLE6"><divalign="center"><spanclass="STYLE10">根本操作</span></div></td></tr><s:iteratorvalue="#request.foodtypelist"var="foodType"><tr><tdheight="20"bgcolor="#FFFFFF"><divalign="center"><inputtype="checkbox"name="checkbox2"id="checkbox2"/></div></td><tdheight="20"bgcolor="#FFFFFF"class="STYLE6"><divalign="center">${foodType.foodtypeid}</div></td><tdheight="20"bgcolor="#FFFFFF"class="STYLE19"><divalign="center">${foodType.foodtypename}</div></td><tdheight="20"bgcolor="#FFFFFF"class="STYLE19"><divalign="center">${foodType.foodtyperemark}</div></td><tdheight="20"bgcolor="#FFFFFF"><divalign="center"class="STYLE21"><c:iftest="${flags1==0}"><ahref="selectFoodsOnOne.action?foodTypeId=${foodType.foodtypeid}&foodticketID=${foodticket.orderid}|</a></c:if><ahref="deleteFoodType.action?foodTypeId=${foodType.foodtypeid}onclick='returnclickdel();'>刪除</a>|<a</a></div></td></tr></s:iterator></table>菜品管理后臺(tái)核心代碼：publicStringexecute(){List<Foodtype>foodtypelist=foodTypeServices.selectFoodType();inttotalRecords=foodtypelist.size();ActionContextsession=ActionContext.getContext();ActionContext.getContext().getSession().remove("flags1");foodtypelist);ActionContext.getContext().getSession().put("totalRecords",totalRecords);return"success";}客房類型前臺(tái)顯示頁(yè)面核心代碼：<tablewidth="100%"border="0"cellpadding="0"cellspacing="1"bgcolor="#a8c7ce"onmouseover="changeto()"onmouseout="changeback()"><tr><tdwidth="4%"height="20"bgcolor="d3eaef"class="STYLE10