1、 Oraccle 數(shù)數(shù)據(jù)庫的設(shè)設(shè)計與實現(xiàn)現(xiàn)選題名稱： 酒店店管理系統(tǒng)統(tǒng) 姓 名： 學(xué) 號： 專 業(yè)： 班 級： 指導(dǎo)老師： 設(shè)計地點： 目 錄系統(tǒng)需求分分析1.1系統(tǒng)統(tǒng)開發(fā)的目目的和意義義 31.2系統(tǒng)統(tǒng)要求 3二、系統(tǒng)總總體設(shè)計2.1系統(tǒng)統(tǒng)功能需求求 42.2系統(tǒng)統(tǒng)數(shù)據(jù)需求求 42.3系統(tǒng)統(tǒng)功能結(jié)構(gòu)構(gòu)圖 52.4系統(tǒng)統(tǒng)部分流程程圖 5三、數(shù)據(jù)庫庫設(shè)計3.1數(shù)據(jù)據(jù)庫概念模模型 73.2數(shù)據(jù)據(jù)庫物理模模型 83.3酒店店管理系統(tǒng)統(tǒng)部分數(shù)據(jù)據(jù)字典 99四、系統(tǒng)實實現(xiàn)過程4.1設(shè)計計過程 114.2系統(tǒng)統(tǒng)各界面設(shè)計計代碼 28五、實驗總總結(jié)5.1實驗驗中遇到的的問題 355.2心得得體會 35一、系

2、統(tǒng)需需求分析1.1系統(tǒng)統(tǒng)開發(fā)的目目的和意義義 首先應(yīng)該該在此次實實踐中有所所收獲，能能夠?qū)W習(xí)到到相關(guān)軟件件的功能，和和進行實踐踐設(shè)計需要要的知識的的。能夠在在實踐中學(xué)學(xué)習(xí)。 面面對酒店行行業(yè)的高速速發(fā)展和酒酒店行業(yè)信信息化發(fā)展展的過程中中出現(xiàn)的各各種情況，酒酒店客房管管理系統(tǒng)在在實施后應(yīng)應(yīng)達到以下下目的： 實實現(xiàn)多點操操作的信息息共享，相相互之間的的信息傳遞遞準確、快快捷、順暢暢； 服服務(wù)管理信信息化，可可隨時掌握握客人住宿宿情況； 系系統(tǒng)界面友友好美觀，操操作簡單易易行，查詢詢靈活方便便，數(shù)據(jù)存存儲安全。 實實現(xiàn)客房的的登記入住住和查詢功功能，查詢詢酒店信息息，客人信信息，客房房信息等功功能

3、。 實實現(xiàn)Dellphi和和oraccle的連連接，進行行數(shù)據(jù)的插插入。1.2系統(tǒng)統(tǒng)要求要求實現(xiàn)酒酒店員工信信息管理、客戶信息息管理、客客房信息管管理、訂單單管理等功功能，包括括客戶信息息的添加、修改、刪刪除及查詢詢；客房信信息的添加加、修改、刪除及查查詢；訂單單查詢及退退房管理等等。系統(tǒng)總體設(shè)設(shè)計2.1系統(tǒng)統(tǒng)功能需求求 通通過對互聯(lián)聯(lián)網(wǎng)上的各各大酒店管管理系統(tǒng)的的認識和分分析，我對對酒店管理理系統(tǒng)有了了基本的了了解，我覺覺得該系統(tǒng)統(tǒng)至少應(yīng)該該具有以下下的一些基基本功能： (1) 系統(tǒng)管理理模塊:包括登錄錄系統(tǒng)，用用戶管理，權(quán)權(quán)限管理，角角色管理，以以及查詢統(tǒng)統(tǒng)計，客戶戶管理折扣扣管理和開開臺

4、管理等等。 (2) 基本設(shè)置置管理模塊塊：包括廚廚師的管理理，買單管管理等。 (3) 客戶管理理模塊：包包括客戶點點菜，上菜菜，結(jié)賬，統(tǒng)統(tǒng)計等。 (4) 客戶訂房房管理模塊塊：包括訂訂房，續(xù)房房，查房，退退房，結(jié)算算等。 2.2 系系統(tǒng)數(shù)據(jù)需需求根據(jù)數(shù)據(jù)需需求分析可可知該系統(tǒng)統(tǒng)至少應(yīng)該該具有以下下的一些數(shù)數(shù)據(jù)需求：DESKTTYPE餐餐桌類別表表（餐桌類類別編號，餐餐桌座位數(shù)數(shù)，餐桌方方位，備注注）。DESK餐餐桌表（餐餐桌編號，餐餐桌類別編編號，餐桌桌狀態(tài)，備備注）。FOODYYPE菜系系 （菜系系編號，菜菜系名稱，備備注）。FOOD菜菜品（菜品品編號，菜菜單編號，所所屬菜系，菜菜品名稱，菜

5、菜品價格，助助記碼，備備注）。FOODTTICKEET餐飲訂訂單（訂單單編號，餐餐桌編號，下下單服務(wù)員員編號，點點菜時間，訂訂單狀態(tài)，備備注）。ROOMCCUSTIINFO住住房客戶信信息表（住住戶編號，客客房類別編編號，住戶戶姓名，住住戶省份證證號）。FOODLLIST菜菜單（菜單單編號，餐餐桌編號，菜菜品編號，廚廚師編號，狀狀態(tài)，備注注）。ROOMTTYPE客客房類別表表（客房類類別編號，客客房類型名名稱，客房房類別價格格，備注）。ROOMIINFO客客房信息表表（房間編編號，客房房類別編號號，客房狀狀態(tài)，備注注）。ROOMTTICKEET客房訂訂單管理表表 （訂單單編號，房房間號，下下單

6、服務(wù)員員ID，身身份證號，入入住時間，離離開時間，押押金金額，結(jié)結(jié)算金額，下下單時間，備備注）。CUSTIINFO客客戶信息表表 （身份份證號，客客戶姓名，客客戶性別，客客戶電話，是是否會員，信信息錄入時時間，備注注）。USER 用戶信息息表（用戶戶編號，角角色編號，部部門編號，用用戶名，用用戶密碼，是是否審核通通過，年齡齡，性別，生生日，聯(lián)系系電話，備備注）。ROLE 用戶角色色表（角色色編號，角角色名，備備注）。DEPARRMENTT 部門表表（部門編編號，名稱稱，上級部部門編號，備備注）。PERMIISSIOON 權(quán)限限表（權(quán)限限編號，權(quán)權(quán)限組編號號，權(quán)限名名稱，備注注）。ROLEPPE

7、R 角角色-權(quán)限限關(guān)聯(lián)表（角角色權(quán)限編編號，角色色編號，權(quán)權(quán)限編號）。PERMIISSIOONGROOUP 權(quán)權(quán)限組表（權(quán)權(quán)限組編號號，權(quán)限組組名稱）。2.3系統(tǒng)統(tǒng)功能模塊塊圖酒店管理系系統(tǒng)功能結(jié)結(jié)構(gòu)如圖22-3所示示圖2-3 系統(tǒng)功能能結(jié)構(gòu)圖2.4系統(tǒng)統(tǒng)部分流程程圖客房訂單流流程圖如圖圖2-4所示圖2-4 客房訂單單管理流程程圖餐飲部分開開臺流程圖圖如圖2-5所示圖2-5 餐飲部分分開臺流程程圖三、數(shù)據(jù)庫庫設(shè)計3.1數(shù)據(jù)據(jù)庫概念模模型數(shù)據(jù)庫概念念模型圖如如圖3-11所示：圖3-1數(shù)數(shù)據(jù)庫概念念模型圖3.2數(shù)據(jù)據(jù)庫物理模模型數(shù)據(jù)庫物理理模型圖如如圖3-22所示：圖3-2 數(shù)據(jù)庫物物理模型圖圖3

8、.3酒店店管理系統(tǒng)統(tǒng)部分數(shù)據(jù)據(jù)字典本系統(tǒng)數(shù)據(jù)據(jù)庫采用OOraclle數(shù)據(jù)庫庫，系統(tǒng)數(shù)數(shù)據(jù)庫名稱稱為HottelDBB，共包含含17張表。菜系表：用用來存儲菜菜系的信息息，其中FFOODTTYPEIID字段為為主鍵。表3-3-1 菜系系：FOOODYPEE字段名稱類型允許空主鍵外鍵外鍵參考表表 說明FOODTTYPEIIDNUMBEE(5)NOTYES菜系IDFOODTTYPENNAMEVARCHHAR2(20)NOT菜系名稱FOODTTYPERREMARRKVARCHHAR2(50)YES備注菜品表：用用于菜品的的所有信息息，也是點點菜的菜單單的一個信信息來源表表，從中可可獲得菜品品的全部信信

9、息。其中中字段FOOODTYYPEIDD用來描述述該菜品屬屬于哪個菜菜系是外鍵鍵參參考表表FOODDTYPEE，根據(jù)此此字段的值值，可以知知道菜品屬屬于相應(yīng)的的哪個菜系系。表3-3-2 菜品品：FOOOD字段名稱類型允許空主鍵外鍵外鍵參考表表說明FOODIDNUMBEER(5)NOTYES菜品IDFOODNAMEVARCHHAR2(20)NOT菜品名稱FOODTTYPEIDNUMBEER(5)NOTYESFOODYYPE所屬菜系IIDFOODPRICEENUMBEER(5)NOT菜品價格FOODHHELPCCODEVARCHHAR2(10)NOT助記碼FOODRREMARRKVARCHHAR2

10、(50)YES備注客房類別表表：用來存存儲客房類類別的信息息，表3-3-3客房類類別表：RROOMTTYPE字段名稱類型允許空主鍵外鍵外鍵參考表表說明ROOMTTYPEIIDNUMBEER(5)NOTYES客房類別編編號ROOMTTYPENAMEVARCHHAR2(20)NOT客房類別名名稱ROOMTTYPEPPAYNUMBEER(5)NOT類別價格ROOMTTYPERREMARRKVARCHHAR2(50)NOT備注客房信息表表:用來存存儲客房信信息。表3-3-4 客房房信息表：ROOMMINFOO字段名稱類型允許空主鍵外鍵外鍵參考表表說明ROOMIDNUMBEER(5)NOTYES房間編號

11、ROOMTTYPEIDNUMBEER(5)NOTYESROOMTTYPE客房類別編編號續(xù)表 5-4字段名稱類型允許空主鍵外鍵外鍵參考表表說明ROOMCCHECKKNUMBEER(5)NOT客房狀態(tài)ROOMRREMARRKVARCHHAR2(50)YES備注客戶信息表表:用來存存儲酒店客客戶的相關(guān)關(guān)信息。表3-3-5 客戶戶信息表: CUSSTINFFO字段名稱類型允許空主鍵外鍵外鍵參考表表說明CARDIIDVARCHHAR2(20)NOTYES身份證號CUSTNNAMEVARCHHAR2(20)NOT姓名CUSTSSEXVARCHHAR2(10)NOT性別CUSTPPHONEEVARCHHAR

12、2(20)YES電話VIPCHHECKNUMBEER(5)YES是否會員CUSTDDATEVARCHHAR2(20)YES信息錄入時時間系統(tǒng)實現(xiàn)過過程4.1設(shè)計計過程4.1.11窗體設(shè)計計新建一個個標準工程程，會出現(xiàn)現(xiàn)formm1，可以以遵循默認認格式，也也可以更改改名稱，這這里默認。添加所需需控件maainmeenu,雙雙擊控件在在其中加入入所要進行行的功能如如下： 添加控件IImagee插入圖片片，選中iimagee控件，在在其屬性表表中選中ppictuure，選選擇需要的的圖片：再建立一一個Forrm2，默默認格式即即可。在其其中加入客客房登記所所需控件：再建立一一個Forrm3，默默認

13、格式即即可,并且且在proojectt-opttionss中設(shè)置其其為主窗體體。在其中中加入客房房登記所需需控件,88個labbel，88個Ediit，兩個個bitbbtn如圖圖：可以在biitbtnn按鈕中添添加圖片，使使其更加生生動，選選中按鈕，在在其屬性選選擇Glyyph，選選擇需要的的圖片即可可，注意圖圖片格式要要符合要求求，還可以以為界面換換顏色。再建立一一個Forrm4，默默認格式即即可。在其其中加入客客人信息查查詢所需控控件，1個個labeel，一個個Editt，2個按按鈕，1個個DBGrrid：這里需要鏈鏈接數(shù)據(jù)庫庫，與krrxx表中中的信息進進行鏈接。連接方式式為：首先添加一

14、一個數(shù)據(jù)模模板（daatemoodulee），然后后選擇ADDOQueery控件件和dattasouurce控控件添加到到數(shù)據(jù)模板板，選中AADOQuuery控控件，在其其屬性中找找到connnecttionsstrinng，進行行數(shù)據(jù)庫的的鏈接，選選擇再建立一一個Forrm5，默默認格式即即可。在其其中加入客客房登記所所需控件，和和上面一樣樣：這個窗體也也要進行數(shù)數(shù)據(jù)庫鏈接接，過程和和上面一樣樣，只是鏈鏈接的表名名不同，這這里鏈接的的是kfxxx表。雙擊確定添添加代碼如如下：wiith DData33.ADOOQuerry1 ddo beggin CClosee; SSQL.CClearr;

15、 SSQL.AAdd(seleect * froom fjjxx wwheree 房間號號碼=:aa); PParammeterrs.PaaramBByNamme(aa).vvaluee:=Trrim(eedit11.Texxt); Openn; endd;關(guān)閉鍵的代代碼如下：form55.cloose;form11.shoow;這樣就完成成了房間信信息查詢的的操作。再建立一個個Formm6，默認認格式即可可。在其中中加入查看看酒店信息息所需控件件：1個labbel，11個按鈕，11個DBGGrid：這里主要就就是數(shù)據(jù)庫庫的鏈接，改改用另外一一種方式為為：首先再建立立一個Foorm7，默默認格

16、式即即可。在其其中加入查查看客房信信息所需控控件，和（77）一樣，不不過這里可可以采用（55）的方法法進行數(shù)據(jù)據(jù)庫的鏈接接。再建立一個個再建立一一個Forrm8 ，默默認格式即即可。在其其中加入退退房所需控控件：1個個labeel，1個個Editt，兩個bbitbttn，1個個DBGrrid，和和一個DBBNaviigatoor如圖：將其與數(shù)據(jù)據(jù)庫中表kkrxx鏈鏈接后，輸輸入證件號號碼單擊DDBNavvigattor控件件上的可以突出出顯示選擇擇的信息，然然后點擊退退房可以實實現(xiàn)退房功功能。4.1.22 進行窗窗體之間的的轉(zhuǎn)換（11）在foorm3中中進行密碼碼設(shè)置，雙雙擊登錄按按鈕進行代代

17、碼輸入如如下：vaarresullts: Variiant;BEGINNresullts:=ADOTTablee1.Loookupp(姓名名,eddit1.textt,密碼碼);if reesultts=eddit2.Textt thhenbeginnform33.Hidde;form11.Shoow;endelsebeginnappliicatiion.MMessaageBoox(姓姓名或密碼碼錯誤,提示信信息,664); ediit1.SSetFoocus; exiit;end;end;退出代碼為為：cloose;（22）在foorm1中中進行剩余余各forrm間的連連接，在fform11

18、中分別單單擊要實現(xiàn)現(xiàn)的功能菜菜單按鈕，并并分別輸入入代碼，得得到的最后后代碼如下下：prooceduure TTFormm1.N22Clicck(Seenderr: TOObjecct);beginnform11.Hidde;form22.shoowmoddal;end;proceeduree TFoorm1.N3Cllick(Sendder: TObjject);beginnform11.Hidde;form44.shoowmoddal;end;proceeduree TFoorm1.N4Cllick(Sendder: TObjject);beginnform11.Hidde;form55.

19、ShoowModdal;end;proceeduree TFoorm1.N5Cllick(Sendder: TObjject);beginnform11.Hidde;form66.ShoowModdal;end;proceeduree TFoorm1.N6Cllick(Sendder: TObjject);beginnform11.hidde;form77.ShoowModdal;end;proceeduree TFoorm1.N8Cllick(Sendder: TObjject);beginnform11.hidde;form88.ShoowModdal;end;proceeduree TF

20、oorm1.N7Cllick(Sendder: TObjject);beginnclosee;end;proceeduree TFoorm1.FormmCreaate(SSendeer: TTObjeect);beginnend;并且要在uuint11的連接代代碼上添加加：usees Winndowss, Meessagges, SysUUtilss, Vaariannts, Classses, Graaphiccs, CContrrols, Forrms, Diaalogss, Meenus, DB, ADOODB,uunit22,uniit4,uunit55,uniit6,uunit77,

21、uniit8,;在formm2中進行行和forrm1間的的轉(zhuǎn)換，代代碼如下： 雙擊關(guān)閉閉按鈕添加加代碼： formm2.cllose; formm1.shhow;（4）在fform44，forrm5，fform66，forrm7中進進行forrm1間的的轉(zhuǎn)換，代代碼類似（33）。3、forrm1中退退出菜單的的實現(xiàn)雙擊退出菜菜單進行代代碼輸入：closse;即可可。至此完成了了菜單管理理的實現(xiàn)，可可以運行后后進行各功功能的實現(xiàn)現(xiàn)。代碼設(shè)計計Privaate SSub TToolbbar1_ButttonCllick(ByVaal Buuttonn As MSCoomctllLib.Buttto

22、n) SSelecct Caase BButtoon.Keey CCase DJ zzsdj_Clicck CCase TF ttf_Cllick CCase FT fftck_Clicck CCase CX zzscx_Clicck CCase exiit IIf MssgBoxx(確定定退出該系系統(tǒng)？, 4, 系統(tǒng)提提示) = vbbYes Thenn EEnd EEnd IIf EEnd SSelecctEnd SSubPrivaate SSub ssztx_Clicck()Dim SStrCommoonDiaalog11.Fillter = BBMP圖片片(*.BBMP)|*.BMMP

23、|JPPG圖片(*.JPG)|*.JJPG|GGIF圖片片(*.GGIF)|*.GIIF|所有有文件(*.*)|*.*CommoonDiaalog11.ShoowOpeenIf CoommonnDiallog1.FileeNamee TThenImagee2.Piicturre = LoaddPictture(CommmonDiialogg1.FiileNaame)Str = CommmonDDialoog1.FFileNName Opeen (AApp.PPath & pictture.txt) Foor Ouutputt As #1 Prinnt #11, Sttr Cloose #1 C

24、ommmonDiialogg1.FiileNaame = Else CommmonDiialogg1.FiileNaame = End IIfEnd SSubPrivaate SSub ssjbf_Clicck()main_sjbff.Shoowmain.Enabbled = FaalseEnd SSubPrivaate SSub ssjhf_Clicck()main_sjhff.ShoowEnd SSubPrivaate SSub zzsdj_Clicck() mainn_kfddj.Shhow mainn.Enaabledd = FFalseeEnd SSubPrivaate SSub t

25、tf_Cllick() mainn_tf.Showw mainn.Enaabledd = FFalseeEnd SSubPrivaate SSub kkfcx_Clicck() mainn_kfccx.Shhow mainn.Enaabledd = FFalseeEnd SSubPrivaate SSub fftck_Clicck() mainn_ftccx.Shhow mainn.Enaabledd = FFalseeEnd SSubPrivaate SSub zzscx_Clicck() Loadd maiin_zsscx mainn_zsccx.Shhow mainn.Enaabledd

26、 = FFalseeEnd SSubPrivaate SSub ttfcx_Clicck() Loadd maiin_tffcx mainn_tfccx.Shhow mainn.Enaabledd = FFalseeEnd SSub4.1.33 系統(tǒng)登登錄模塊設(shè)設(shè)計窗體設(shè)計計添加新窗窗體，命名名為maiin_Loogin，CCaptiion屬性性為“酒店店客房管理理系統(tǒng)”；添加Addodc控控件以及兩兩個TexxtBoxx控件，TText11放在用戶戶名后，TText22放在密碼碼后；添加兩個個Imagge控件，分分別設(shè)置PPictuure屬性性，添加“確定”和和“退出”按鈕。代碼設(shè)計計Pri

27、vaate SSub IImagee1_Cllick() IIf Teext1.Textt = 77 Andd Texxt2.TText = 12234566 Theen mmain.Showw MMe.Hiide EElse MMsgBoox 密密碼錯誤！, vvbCriiticaal, 提示 EEnd IIfEnd SSubPrivaate SSub IImagee2_Cllick()EndEnd SSub4.1.44住宿登記記模塊窗體設(shè)計計添加新窗窗體命名為為mainn_kfddj，Caaptioon屬性為為“住宿登登記”；添加兩個個Adoddc控件、TexttBox控控件數(shù)組以以及2個

28、DDTPiccker控控件；添加3個個CombboBoxx控件。代碼設(shè)計計Privaate SSub ccomdjj_Cliick() AAdodcc1.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc1.ReecorddSourrce = seelectt * ffr

29、om tb_kkf whhere 房態(tài)=空房 AAdodcc1.Reefressh AAdodcc2.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc2.ReecorddSourrce = seelectt * ffrom tb_ddjb oorderr by 憑證號碼

30、碼 AAdodcc2.Reefressh IIf Noot Addodc22.Reccordsset.EEOF TThen Adoddc2.RRecorrdsett.MovveLasst IIf lssph.TText = Theen bhh.Texxt = Fdatte & d & Foormatt(1, #000) IIf lssph.TText Thhen yy1.Teext = Monnth(FFdatee) yy2.Teext = Monnth(LLeft(lsphh.Texxt, 110) IIf y11.Texxt = y2.TText Thenn bh.TText = Fdda

31、te & dd & Formmat(VVal(RRightt(lspph.Teext, 3) + 1, #0000) TText11.Texxt = Val(Righht(lssph.TText, 3) + 11 EEnd IIf IIf y11.Texxt y2.Textt Theen bbh.Teext = Fdaate & d & FFormaat(1, #0000) EEnd IIf EEnd IIf FFor ii = 00 To 2 ZZSDJ(i).TText = ZZSDJ(i).EEnablled = Truue NNext i FFor ii = 44 To 6 ZZSDJ

32、(i).TText = ZZSDJ(i).EEnablled = Truue NNext i CComboo3.Teext = CComokk.Enaabledd = TTrue: Commdj.EEnablled = Fallse CComboo3.Ennableed = Truee: Coombo11.Enaabledd = TTrue ZZSDJ(0).SSetFoocus Adoddc3.CConneectioonStrring = PPROVIIDER=MSDAASQL;DRIVVER=Oraccle iin OrraDb111g_hhome11 ; & servver=wwebse

33、erverr;DSNN=;daatabaasenaame=aaa;daatabaasefiile=dd:aaa;UID=scottt;PWWD=12234566 AAdodcc3.ReecorddSourrce = seelectt * ffrom tb_kkf whhere 房態(tài) = 空房 AAdodcc3.Reefressh CComboo3.Cllear IIf Addodc33.Reccordsset.RRecorrdCouunt 0 TThen FFor ii = 11 To Adoddc3.RRecorrdsett.ReccordCCountt CComboo3.AdddIteem

34、 Addodc33.Reccordsset.FFieldds(房房間號).Vallue AAdodcc3.Reecorddset.MoveeNextt NNext i EEnd IIfEnd SSubPrivaate SSub ccomokk_Cliick() IIf ZSSDJ(00) = OOr Coombo33 = Thhen MMsgBoox 請請輸入完整整信息, , 系統(tǒng)提示示 EElse AAdodcc2.ReecorddSourrce = seelectt * ffrom tb_ddjb wwheree 房間號號 = & Combbo3.TText & andd 標志 liike

35、 1 AAdodcc2.Reefressh IIf Addodc22.Reccordsset.RRecorrdCouunt = 0 TThen AAdodcc2.Reecorddset.AddNNew IIf bhh.Texxt Thenn Adoodc2.Recoordseet.Fiieldss(憑證證號碼) = bbh.Teext IIf ZSSDJ(00).Teext Theen Addodc22.Reccordsset.FFieldds(姓姓名) = ZSSDJ(00).Teext IIf Coombo11.Texxt Thenn Adoodc2.Recoordseet.Fiields

36、s(證件件名稱) = CComboo1.Teext IIf ZSSDJ(11).Teext Theen Addodc22.Reccordsset.FFieldds(證證件號碼) = ZSDJJ(1).Textt IIf ZSSDJ(22).Teext Theen Addodc22.Reccordsset.FFieldds(詳詳細地址) = ZSDJJ(2).Textt IIf Coombo33.Texxt Thenn Adoodc2.Recoordseet.Fiieldss(房間間號) = Vaal(Coombo33.Texxt) IIf ZSSDJ(44).Teext Theen Addod

37、c22.Reccordsset.FFieldds(客客房類型) = ZSDJJ(4).Textt IIf DTTP1.VValuee TThen Adoddc2.RRecorrdsett.Fieelds(住宿日日期) = DTTP1.VValuee IIf ZSSDJ(55).Teext Theen Addodc22.Reccordsset.FFieldds(客客房價格) = Val(ZSDJJ(5).Textt) IIf ZSSDJ(66).Teext Theen Addodc22.Reccordsset.FFieldds(住住宿天數(shù)) = ZSDJJ(6).Textt IIf ZSSDJ(

38、77).Teext Theen Addodc22.Reccordsset.FFieldds(宿宿費) = ZSSDJ(77).Teext IIf DTTP3.VValuee TThen Adoddc2.RRecorrdsett.Fieelds(退宿日日期) = DTTP3.VValuee AAdodcc2.Reecorddset.Updaate AAdodcc2.Reefressh aadocoon.Oppen Provviderr=Miccrosooft.JJet.OOLEDBB.4.00;Datta Soourcee= & Appp.Patth & DBB_KFGGL.mddb;Peers

39、isst Seecuriity IInfo=Falsse aadoRss.Opeen sselecct * fromm tb_djyss, aadocoon, aadOpeenKeyyset, adLLockOOptimmistiic aadoRss.AdddNew IIf bhh.Texxt Thenn adooRs.FFieldds(憑憑證號碼) = bh.TText IIf ZSSDJ(00).Teext Theen addoRs.Fiellds(姓名) = ZSSDJ(00).Teext IIf Coombo11.Texxt Thenn adooRs.FFieldds(證證件名稱) =

40、 Combbo1.TText IIf ZSSDJ(11).Teext Theen addoRs.Fiellds(證件號碼碼) = ZSDDJ(1).Texxt IIf ZSSDJ(22).Teext Theen addoRs.Fiellds(詳細地址址) = ZSDDJ(2).Texxt IIf ZSSDJ(44).Teext Theen addoRs.Fiellds(客房類型型) = ZSDDJ(4).Texxt IIf Coombo33.Texxt Thenn adooRs.FFieldds(房房間號) = VVal(CComboo3.Teext) IIf ZSSDJ(55).Teext

41、Theen addoRs.Fiellds(客房價格格) = Vall(ZSDDJ(5).Texxt) IIf DTTP1.VValuee TThen adoRRs.Fiieldss(住宿宿日期) = DDTP1.Valuue IIf ZSSDJ(66).Teext Theen addoRs.Fiellds(住宿天數(shù)數(shù)) = ZSDDJ(6).Texxt IIf ZSSDJ(77).Teext Theen addoRs.Fiellds(宿費) = ZSSDJ(77).Teext IIf DTTP3.VValuee TThen adoRRs.Fiieldss(退宿宿日期) = DDTP3.Valu

42、ue aadoRss.Upddate aadocoon.Cllose AAdodcc1.ReecorddSourrce = seelectt * ffrom tb_kkf whhere 房間號 llike + Commbo3.Textt + IIf Coombo33.Texxt Thenn Adoodc1.Recoordseet.Fiieldss(房態(tài)態(tài)) = 入住住 AAdodcc1.Reecorddset.Updaate FFor ii = 00 To 6 ZZSDJ(i).EEnablled = Fallse NNext i ZZSDJ(8).EEnablled = Fallse: ZS

43、DJJ(10).Enaabledd = FFalsee: ZSSDJ(111).EEnablled = Fallse CComboo3.Ennableed = Falsse: CComboo1.Ennableed = Falsse EEnd IIf CComokk.Enaabledd = FFalsee: Coompriint.EEnablled = Truue: CComdjj.Enaabledd = TTrue CComprrint.SetFFocuss EEnd IIfEnd SSubPrivaate SSub ccomcaancell_Cliick() FFor ii = 00 To

44、2 ZZSDJ(i).EEnablled = Fallse NNext i FFor ii = 44 To 6 ZZSDJ(i).EEnablled = Fallse NNext i CComokk.Enaabledd = FFalsee: Coombo33.Enaabledd = FFalsee CComboo1.Ennableed = Falsse: DDTP3.Enabbled = Faalse CComdjj.Enaabledd = TTrueEnd SSubPrivaate SSub ccomennd_Cllick() UUnloaad Mee mmain.Enabbled = Tr

45、rueEnd SSub4.1.55退宿登記記模塊按照如上方方法設(shè)計窗窗體如下：代碼設(shè)計：Privaate SSub FForm_Loadd() AAdodcc1.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc1.ReecorddSourrce = seelectt *

46、 ffrom tb_ddjb Adoddc1.RRefreesh AAdodcc2.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc2.ReecorddSourrce = seelectt * ffrom tb_kkf Adoddc2.RRefreesh AAdodcc

47、3.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc3.ReecorddSourrce = seelectt * ffrom tb_ggzmx Adoddc3.RRefreesh AAdodcc4.CoonnecctionnStriing = PRROVIDDER=MM

48、SDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc4.ReecorddSourrce = seelectt * ffrom tb_ddjys Adoddc4.RRefreesh AAdodcc5.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb11

49、1g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc5.ReecorddSourrce = seelectt 憑證號號碼 frrom ttb_djjb whhere 標志=11ordder bby 憑證證號碼 Adoddc5.RRefreesh If Adoddc5.RRecorrdsett.ReccordCCountt 00 Theen For i = 1 Too Adoodc5.Recoordseet.Reecor

50、ddCounnt Combbo4.AAddIttem AAdodcc5.Reecorddset.Fiellds(憑證號碼碼).VValuee Adoddc5.RRecorrdsett.MovveNexxt Nextt i End If End SSubPrivvate Sub Formm_Acttivatte() czy.Textt = mmain.StattusBaar1.PPanells(4).Texxt 賦賦值給czzyDTP22.Vallue = Datte: ttim2.Valuue = TimeePrivaate SSub ccomboo4_Cllick() IIf Coombo4

51、4.Texxt Thenn AAdodcc1.ReecorddSourrce = seelectt * ffrom tb_ddjb wwheree 憑證號號碼= + CComboo4.Teext + AAdodcc1.Reefressh bh.TText = TT & Combbo4.TText IIf Addodc11.Reccordsset.RRecorrdCouunt 0 TThen IIf Addodc11.Reccordsset.FFieldds(姓姓名) Thhen TTexxmm.Texxt = Adoddc1.RRecorrdsett.Fieelds(姓名) IIf Addod

52、c11.Reccordsset.FFieldds(證證件名稱) Thenn Commbo1.Textt = AAdodcc1.Reecorddset.Fiellds(證件名稱稱) IIf Addodc11.Reccordsset.FFieldds(證證件號碼) Thenn Texxsfz.Textt = AAdodcc1.Reecorddset.Fiellds(證件號碼碼) IIf Addodc11.Reccordsset.FFieldds(詳詳細地址) Thenn Texxdz.TText = Addodc11.Reccordsset.FFieldds(詳詳細地址) IIf Addodc11

53、.Reccordsset.FFieldds(房房間號) TThen DBCoombo33.Texxt = Adoddc1.RRecorrdsett.Fieelds(房間號號) IIf Addodc11.Reccordsset.FFieldds(客客房類型) Thenn DBCComboo1.Teext = Adoodc1.Recoordseet.Fiieldss(客房房類型) IIf Addodc11.Reccordsset.FFieldds(客客房價格) Thenn DBCComboo2.Teext = Adoodc1.Recoordseet.Fiieldss(客房房價格) If AAdod

54、cc1.Reecorddset.Fiellds(住宿日期期) Theen DTTP1.VValuee = AAdodcc1.Reecorddset.Fiellds(住宿日期期) If AAdodcc1.Reecorddset.Fiellds(住宿時間間) Theen TIIM1.VValuee = AAdodcc1.Reecorddset.Fiellds(住宿時間間) IIf Addodc11.Reccordsset.FFieldds(住住宿天數(shù)) Thenn Texxts.TText = Addodc11.Reccordsset.FFieldds(住住宿天數(shù)) If AAdodcc1.Ree

55、corddset.Fiellds(預(yù)收金額額) Theen Teexyj.Textt = AAdodcc1.Reecorddset.Fiellds(預(yù)收金額額) EElse Texyyj.Teext = 0 If AAdodcc1.Reecorddset.Fiellds(結(jié)款方式式) Theen Coombo22.Texxt = Adoddc1.RRecorrdsett.Fieelds(結(jié)款方方式) If AAdodcc1.Reecorddset.Fiellds(折扣) Thhen TTexzkk.Texxt = Adoddc1.RRecorrdsett.Fieelds(折扣) EEnd II

56、f 計算住宿宿天數(shù) If DDTP2.Valuue DTP11.Vallue TThen DTPiickerr控件返回回包含于字字符串內(nèi)的的數(shù)字，字字符串中是是一個適當當類型的數(shù)數(shù)值。 If ttim2.Valuue #11:59:000 AMM# Thhen If ttim2.Valuue #6:000:000 PM# Theen Textts.Teext = DTPP2.Vaalue - CDDate(DTP11.Vallue) + 1 CDatte函數(shù)都都可以強制制將一個表表達式轉(zhuǎn)換換成某種特特定數(shù)據(jù)類類型。 Elsee Textts.Teext = DTPP2.Vaalue - CDD

57、ate(DTP11.Vallue) + 0.5 End If Elsee Textts.Teext = DTPP2.Vaalue - CDDate(DTP11.Vallue) End If Elsee If TTIM1.Valuue #6:000:000 PM# Theen Teexts.Textt = 11 Elsse Teexts.Textt = 0.5 Elsee Textts.Teext = 0.5 End If End If TTexxff.Texxt = Val(Textts.Teext) * Vaal(DBBCombbo2.TText) EEnd IIfEnd SSub4.1.6

58、6住宿查詢詢模塊按照如上方方法設(shè)計窗窗體如下：代碼設(shè)計：Privaate SSub FForm_Loadd() AAdodcc1.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=sttudennt;daatabaasefiile=dd:sstudeent;UIDD=scoott;PPWD=11234556 AAdodcc1.ReecorddSourrce = seelectt * ff

59、rom tb_ddjb Adoddc1.RRefreesh SSet MMSHFllexGrrid1.DataaSourrce = Adoodc1 MMSHFllexGrrid1.ColWWidthh(8) = 0 MMSHFllexGrrid1.ColWWidthh(20) = 00 MMSHFllexGrrid1.ColWWidthh(24) = 00 MMSHFllexGrrid1.ColWWidthh(25) = 00 MMSHFllexGrrid1.ColWWidthh(27) = 00End SSubPrivaate SSub FForm_Unlooad(CCanceel Ass

60、Inttegerr) mmain.Enabbled = TrrueEnd SSubPrivaate SSub CCommaand1_Clicck() AAdodcc1.ReecorddSourrce = seelectt * ffrom tb_ddjb wwheree 姓名 llike % + Teext1.Textt + % Adoddc1.RRefreesh MMSHFllexGrrid1.ColWWidthh(8) = 0 MMSHFllexGrrid1.ColWWidthh(20) = 00 MMSHFllexGrrid1.ColWWidthh(24) = 00 MMSHFllexGr