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

1、Oracle數(shù)據(jù)庫的設(shè)計與實現(xiàn)選題名稱：酒店管理系統(tǒng)姓 名：學(xué) 號：專 業(yè)：班 級：指導(dǎo)教師：設(shè)計地點:、系統(tǒng)需求分析1.1系統(tǒng)開發(fā)的目的和意義 31.2系統(tǒng)要求 31、系統(tǒng)總體設(shè)計2.1系統(tǒng)功能需求 42.2系統(tǒng)數(shù)據(jù)需求 42.3系統(tǒng)功能結(jié)構(gòu)圖 52.4系統(tǒng)局部流程圖 5三、數(shù)據(jù)庫設(shè)計3.1數(shù)據(jù)庫概念模型 73.2數(shù)據(jù)庫物理模型 83.3酒店管理系統(tǒng)局部數(shù)據(jù)字典-9四、系統(tǒng)實現(xiàn)過程4.1設(shè)計過程 114.2系統(tǒng)各界面設(shè)計代碼 28五、實驗總結(jié)5.1實驗中遇到的問題 355.2心得體會 35、系統(tǒng)需求分析首先應(yīng)該在此次實踐中有所收獲，能夠?qū)W習(xí)到相關(guān)軟件的功能，和進(jìn)展實踐設(shè)計需要的知識的。能夠在

2、實踐中學(xué)習(xí)。面對酒店行業(yè)的高速開展和酒店行業(yè)信息化開展的過程中出現(xiàn) 的各種情況，酒店客房管理系統(tǒng)在實施后應(yīng)達(dá)到以下目的：實現(xiàn)多點操作的信息共享，相互之間的信息傳遞準(zhǔn)確、快捷、順 暢；服務(wù)管理信息化，可隨時掌握客人住宿情況；系統(tǒng)界面友好美觀，操作簡單易行，查詢靈活方便，數(shù)據(jù)存儲安 全。實現(xiàn)客房的登記入住和查詢功能，查詢酒店信息，客人信息，客 房信息等功能。實現(xiàn)Delphi和oracle的連接，進(jìn)展數(shù)據(jù)的插入。要某某現(xiàn)酒店員工信息管理、客戶信息管理、客房信息管理、訂 單管理等功能，包括客戶信息的添加、修改、刪除與查詢；客房信息 的添加、修改、刪除與查詢；訂單查詢與退房管理等。系統(tǒng)總體設(shè)計通過對互聯(lián)

3、網(wǎng)上的各大酒店管理系統(tǒng)的認(rèn)識和分析，我對酒店管 理系統(tǒng)有了根本的了解，我覺得該系統(tǒng)至少應(yīng)該具有以下的一些根本 功能：(1)系統(tǒng)管理模塊：包括登錄系統(tǒng)，用戶管理，權(quán)限管理，角色 管理，以與查詢統(tǒng)計，客戶管理折扣管理和開臺管理等。根本設(shè)置管理模塊：包括廚師的管理，買單管理等。(3)客戶管理模塊：包括客戶點菜，上菜，結(jié)賬，統(tǒng)計等。等?？蛻粲喎抗芾砟K：包括訂房，續(xù)房，查房，退房，結(jié)算2.2系統(tǒng)數(shù)據(jù)需求根據(jù)數(shù)據(jù)需求分析可知該系統(tǒng)至少應(yīng)該具有以下的一些數(shù)據(jù)需求：DESKTYP餐桌類別表餐桌類別編號，餐桌座位數(shù)，餐桌方位，備注DESK餐桌表餐桌編號，餐桌類別編號，餐桌狀態(tài)，備注。FOODYF菜系菜系編號，

4、菜系名稱，備注。F00菜品菜品編號，菜單編號，所屬菜系，菜品名稱，菜品價格，助記 碼，備注。FOODTICKE餐飲訂單訂單編號，餐桌編號，下單服務(wù)員編號，點菜時間, 訂單狀態(tài)，備注。ROOMCUSTIN住房客戶信息表住戶編號，客房類別編號，住戶某某，住 戶省份證號。FOODLIS菜單菜單編號，餐桌編號，菜品編號，廚師編號，狀態(tài)，備注ROOMTYI客房類別表客房類別編號，客房類型名稱，客房類別價格，備 注。ROOMINF客房信息表房間編號，客房類別編號，客房狀態(tài)，備注。ROOMTICKE客房訂單管理表訂單編號，房間號，下單服務(wù)員ID，某某號, 入住時間，離開時間，押金金額，結(jié)算金額，下單時間，備

5、注。CUSTINF客戶信息表 某某號，客戶某某，客戶性別，客戶，是否會員， 信息錄入時間，備注。USER用戶信息表用戶編號，角色編號，部門編號，用戶名，用戶密碼， 是否審核通過，年齡，性別，生日，聯(lián)系，備注。ROLE用戶角色表角色編號，角色名，備注。DEPARMEN部門表部門編號，名稱，上級部門編號，備注。PERMISSIONS限表權(quán)限編號，權(quán)限組編號，權(quán)限名稱，備注。ROLEPE角色-權(quán)限關(guān)聯(lián)表角色權(quán)限編號，角色編號，權(quán)限編號。PERMISSIONGRO權(quán)限組表權(quán)限組編號，權(quán)限組名稱。酒店管理系統(tǒng)功能結(jié)構(gòu)如圖2-3所示圖2-3系統(tǒng)功能結(jié)構(gòu)圖客房訂單流程圖如圖2-4所示圖2-4客房訂單管理流程

6、圖餐飲局部開臺流程圖如圖2-5所示三、數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫概念模型圖如圖3-1所示:ROOMTYPEROOMTYPEID<pi>N100<M>ROOMTYPENAME ROOMTYPEPAYVA20N20ROOMTYPEREMARKTXT100Identfier_1 <pi>Relaiionship_15ROOMINFOROOMCUSTINFOROOMCUSTIDXpiA N<M>CNAMEVA15CIDVA20Identifier_1 <pi>PERMISSIONGROUPGROUPID <pi> IGROUPNAMEVA1

7、5Identifier_1 <pi>0<M>shuyu1PERMISSIONPERMISSIONID <pi>IPERMISSIONNAMEVA20PERMISSIONURLVA25PERMISSIONNOTETXT6Ildentifier_1 <pi>aRelatiopship_4ROLEROLEID <pi> I<M>ROLENAMEVA20ROLENOTETXT60dentifier_1 <pi>ROOMID <pi> N20<M>ROOMCHECK N10ROOMREMARKId

8、entifier_1 <pi>ROOMTICKETORDERID<pi>NCLI ENTINDATEVA20CLIENTOUTDATEVA20CLI ENTMARGINN20CLI ENTAMOUNTN20ORDERTIMEVA20ORDERREMARKTXT100<M>Identifier_1 <pi>Relation'ship_ 仃ORDERIDTXT100CARDIDCUSTINFO<pi>CUSTSEX CUSTPHONE-o-冷0- VIPCHECK懇gtionshiP/CuSTDATEIdentifier_1 &l

9、t;pi>Relationship 13VA20 <M>VA10VA20N10VA20DESKTYPEID<pi>N<M>DESKSEATNUMBERN<M>DESKDIRECTIONVA10<M>DESKTYPEREMARKVA50DESKTYPEIdentifier_1 <pi>FOODTICKETORDERTIME<pi><M>Relationship_5VA20<M>REALPAYMONEYTOTALMONEYORDERSTATUSORDERREMARKldentifier

10、_1 <pi>Relatihip_11<M>VA50Relationship_16-"-Relationsbip_14DESKIDDESK<pi> NDESKISUSING NDESKREMARKVA50<M><M>Identifier_1 <pi>DEPARTMENTDEPARTMENTID <pi> DEPARTMENTNAME DEPARTMENTNOTE PARENTIDIVA10TXT6(Identifier_1 <pi>4 shuyuUSERID<pi>IUSERN

11、AMEVA10USERPWDVA20USERNOTETXT60REALNAMEVA20USERAGEIUSERSEXVA5USERINDATEVA20USERPHONEVA15USERS<M>Identifier_1 <pi>MENUREMARKFOODLISTFOODLISTID <pi> FOODSTATUS<M>VA20 <M>VA50FOODTYPEFOODTYPEIDFOODTYPENAME<pi><M>VA20 <M>FOODTYPEREMARKIdentifier_1 <pi&g

12、t;VA50Identifier_1 <pi>Relatjdnship_6Relationship_8FOODID<pi>N<M>FOODNAMEVA20<M>FOODPRICEN<M>FOODHELPCODEVA10<M>FOODREMARKVA50Identifier_1 <pi>FOOD圖3-1數(shù)據(jù)庫概念模型圖數(shù)據(jù)庫物理模型圖如圖3-2所示:ROOMTYPEROOMTYPEIDNUMBER(10<pk> ROOMTYPENAMVARCHAR2(20) ROOMTYPEPAY NUMBER(20

13、) ROOMTYPEREMCERKBf FROOMINFOROOMCUSTINFOROOMCUSTNUMBER <pk>NUMBER <fk>ROOMID NUMBER(2G)pk： ROOMTYPEIDUMBER(1«k> ROOMCHECKUMBER(10) ROOMREMARLOBORDERIDCNAMECIDVARCHAR2(15)VARCHAR2(20)PERMISSIONGROUPGROUPID INTEGER <pk>GROUPNAMARCHAR2(15)FK_PORDERIDUSERIDCARDIDPERMISSIONPERM

14、ISSIONIDINTEGER <pk>INTEGER <fk>ROUPIDPERMISSIONNAMARCHAR2(20)PERMISSIONUFVARCHAR2(25)PERMISSIONNOTOBR9ROLEPERROLEPERID INTEGERpk：ROLEID INTEGERfk1>PERMISSIONNDTEGERfk2>ROLEDEPARTMENTDEPARTMENTIDINTEGER <pk>DEPARTMENTNAARCHAR2(10)DEPARTMENTNOTOBPARENTIDINTEGERROOMTICKETNUMBER

15、 <pk>INTEGER <fk1>VARCHAR2(<k2>NUMBER(20<fk3>ROOMIDCLIENTINDATEVARCHAR2(20)CLIENTOUTDATRCHAR2(20)CLIENTMARGINUMBER(20)CLIENTAMOUNUMBER(20) ORDERTIME VARCHAR2(20) ORDERREMAFCLOBFOODTICKETFK R4ORDERIDUSERID CARDIDNUMBER <pk>INTEGER <fk1>VARCHAR2(<k2>VARCHAR2(2

16、0)FK T1CUSTINFOCARDID VARCHAR2(20X：CUSTSEX VARCHAR2(10)CUSTPHONVARCHAR2(20) VIPCHECKNUMBER(10)CUSTDATEVARCHAR2(20)DESKTYPEDESKTYPEID NUMBER <pkDESKSEATNUMENUMIBERDESKDIRECTIONVARCHAR2(10)DESKTYPEREMARRCHAR2(50)TICKET DESKTDID NUMBERpk：ORDERIDUMBERfkl：FK_R0ORDERTIMETOTALMONEYNUMBERORDERSTATUISUMBE

17、RORDERREMARVARCHAR2(50)USERSREALPAYMONEUMBERROLEID INTEGER <pk>ROLENAMARCHAR2(20) ROLENOTELOBFK F6FK UUSERIDROLEIDINTEGERINTEGER<pk><fk2>DESKIDNUMBERfk2>FK D1T2DESKDESKIDDESKISUSINGJMBERDESKREMAVARCHAR2(50)NUMBER<pkDESKTYPEIDUMBER<fkDEPARTMENWEGERUSERNAMEUSERPWDUSERNOTEREA

18、LNAMEUSERAGEUSERSEX<fk1>VARCHAR2(10)VARCHAR2(20) CLOBVARCHAR2(20)INTEGERVARCHAR2(5)USERINDATEVARCHAR2(20)USERPHONEVARCHAR2(15)FK_F5FOODLISTIDNUMBER <pk> FOODIDNUMBER<fk1：USERIDINTEGER<fk3：ORDERID NUMBER <fk2： FOODSTATUSSARCHAR2(20) MENUREMAVARCHAR2(50)FKF8FOODLIST圖3-2數(shù)據(jù)庫物理模型圖FOO

19、DTYPEFOODTYPEID NUMBER <pk>FOODTYPENAMVARCHAR2(20)FOODTYPEREMARRCHAR2(50)FOODNUMBER <pk>FOODTYPEID NUMBER <fk>FOODIDFOODNAME VARCHAR2(20)FOODPRICE NUMBERFOODHELPCOVARCHAR2(10)FOODREMARKARCHAR2(50)本系統(tǒng)數(shù)據(jù)庫采用Oracle數(shù)據(jù)庫，系統(tǒng)數(shù)據(jù)庫名稱為HotelDB，共包含17X表。菜系表：用來存儲菜系的信息，其中FOODTYPEI段為主鍵。表 3-3-1 菜系：FOO

20、DYPE字段名稱類型允許空主鍵外鍵外鍵參考表說明FOODTYPEIDNUMBE(5)NOTYES菜系IDFOODTYPENAMEVARCHAR2(20)NOT菜系名稱FOODTYPEREMARKVARCHAR2(50)YES備注菜品表：用于菜品的所有信息，也是點菜的菜單的一個信息來源表，從中可獲得菜品的全部信息。其中字段 FOODTYPEIC用來描述該菜品屬于哪個菜系是外鍵參參考表FOODTYPE根據(jù)此字段的值，可以知道菜品屬于相應(yīng)的哪個菜系。表 3-3-2 菜品：FOOD字段名稱類型允許空主鍵外鍵外鍵參考表說明FOODIDNUMBER(5)NOTYES菜品IDFOODNAMEVARCHAR2

21、(20)NOT菜品名稱FOODTYPEIDNUMBER(5)NOTYESFOODYPE所屬菜系IDFOODPRICENUMBER(5)NOT菜品價格FOODHELPCODVARCHARNOT助記碼E2(10)FOODREMARKVARCHAR2(50)YES備注客房類別表：用來存儲客房類別的信息,表3-3-3客房類別表： ROOMTYPE字段名稱類型允許空主鍵外鍵外鍵參考表說明ROOMTYPEIDNUMBER(5)NOTYES客房類別編號ROOMTYPENAMEVARCHAR2(20)NOT客房類別名稱ROOMTYPEPAYNUMBER(5)NOT類別價格ROOMTYPEREMARKVARCH

22、AR2(50)NOT備注客房信息表：用來存儲客房信息。表3-3-4客房信息表：ROOMINFO字段名稱類型允許空主鍵外鍵AL A?-# 4占豐說明外鍵參考表ROOMIDNUMBER(5)NOTYES房間編號ROOMTYPEIDNUMBER(5)NOTYESROOMTYPE客房類別編號續(xù)表5-4字段名稱類型允許空主鍵外鍵外鍵參考表說明ROOMCHECKNUMBER(5)NOT客房狀態(tài)ROOMREMARKVARCHAR2(50)YES備注客戶信息表：用來存儲酒店客戶的相關(guān)信息。表3-3-5客戶信息表：CUSTINFO字段名稱類型允許空主鍵外鍵外鍵參考表說明CARDIDVARCHAR2(20)NOT

23、YES某某號CUSTNAMEVARCHAR2(20)NOT某某CUSTSEXVARCHAR2(10)NOT性別CUSTPHONEVARCHAR2(20)YESVIPCHECKNUMBER(5)YES是否會員CUSTDATEVARCHAR2(20)YES信息錄入時間四、系統(tǒng)實現(xiàn)過程新建一個標(biāo)準(zhǔn)工程，會出現(xiàn)forml，可以遵循默認(rèn)格式，也可以更改名稱，這 里默認(rèn)。添加所需控件mainmenu,雙擊控件在其中參加所要進(jìn)展的功能如下：步 Farm 1卷 Forml I-IKI9I-III-IKI9I-II!11 r F H bsBiBriainiia“ Tr*BnciBriainnaMwriBr-ee

24、"1!?-!！!ifjigiipyBfiigmgiipjaplriigIarr)a|nBF|Bg|UBjaps|g|UBjaps|g|s * ! - SI.4Kial.lSI.JKIJK&iia！ aaiaBiBitiBiaaiBa u '添加控件Image插入圖片，選中image控件，在其屬性表中選中picture，選擇 需要的圖片：再建立一個Form2,默認(rèn)格式即可。在其中參加客房登記所需控件:再建立一個Form3,默認(rèn)格式即可,并且在project-options 中設(shè)置其為主窗 體。在其中參加客房登記所需控件,8個label , 8個Edit，兩個bitbtn

25、如圖：二桂宕：LA Fo 10*14客人信息查詢？i: :»備隹rtir n r ai _ d d -a111Ml u7芙協(xié)可以在bitbtn按鈕中添加圖片，使其更加生動，選中按鈕，在其屬性選擇Glyph， 選擇需要的圖片即可，注意圖片格式要符合要求，還可以為界面換顏色。再建立一個Form4,默認(rèn)格式即可。在其中參加客人信息查詢所需控件，1個DBGridlabel ， 一 個 Edit ，2 個按鈕，1 個這里需要數(shù)據(jù)庫，與krxx表中的信息進(jìn)展。連接方式為: 首先添加一個數(shù)據(jù)模板datemodule ，然后選擇 ADOQuery控件和datasource 控件添加到數(shù)據(jù)模板，選中A

26、DOQuery空件，在其屬性中找到connectionstring ， 進(jìn)展數(shù)據(jù)庫的，選擇再建立一個Form5,默認(rèn)格式即可。在其中參加客房登記所需控件，和上面一樣：這個窗體也要進(jìn)展數(shù)據(jù)庫，過程和上面一樣，只是的表名不同，這里的是kfxx表。雙擊確定添加代碼如下：with Data3.ADOQuery1 dobegi nClose;SQL.CIear;SQL.Add('select * from fjxx where房間=:a');Parameters.ParamByName('a').value:=Trim(edit1.Text);Ope n;end;關(guān)閉鍵的

27、代碼如下：form5.close;forml.show;這樣就完成了房間信息查詢的操作。(7)再建立一個Form6,默認(rèn)格式即可。在其中參加查看酒店信息所需控件：1 個 label ,1 個 按 鈕， 1 個 DBGrid畫二爻1酒店基本信息 樣這里主要就是數(shù)據(jù)庫的，改用另外一種方式為:首先再建立一個Form7,默認(rèn)格式即可。在其中參加查看客房信息所需控件，和 7一樣，不過這里可以采用5的方法進(jìn)展數(shù)據(jù)庫的。再建立一個再建立一個Form8，默認(rèn)格式即可。在其中參加退房所需控件：1個 label ， 1 個 Edit，兩個 bitbtn ， 1 個 DBGrid，和一個 DBNavigator 如

28、圖：將其與數(shù)據(jù)庫中表krxx后，輸入證件單擊DBNavigator控件上的V可以突出顯 示選擇的信息，然后點擊退房可以實現(xiàn)退房功能。進(jìn)展窗體之間的轉(zhuǎn)換1在form3中進(jìn)展密碼設(shè)置，雙擊登錄按鈕進(jìn)展 代碼輸入如下：varresults: Varia nt;BEGINresults:=ADOTable1 丄 ookup（'某某',edit1.text,'密碼'）;if results=edit2.Text the nbeg inform3.Hide;forml.Show;endelsebeg in即plication.MessageBox('某某或密碼錯誤&

29、#39;,'提示信息',64);editl.SetFocus;exit;end;end;退出代碼為：close; 2在form1中進(jìn)展剩余各form間的連接，在form1中分 別單擊要實現(xiàn)的功能菜單按鈕，并分別輸入代碼，得到的最后代碼如下：procedure TForm1.N2Click(Se nder: TObject);beg inform1.Hide;form2.showmodal;end;procedure TForm1.N3Click(Se nder: TObject);beg inform1.Hide;form4.showmodal;end;procedure TF

30、orm1.N4Click(Se nder: TObject);beg in form1.Hide;form5.ShowModal;end;procedure TForm1.N5Click(Se nder: TObject);beg inform1.Hide;form6.ShowModal;end;procedure TForm1.N6Click(Se nder: TObject);beg inform1.hide;form7.ShowModal;end;procedure TForm1.N8Click(Se nder: TObject);beg inform1.hide;form8.ShowM

31、odal;end;procedure TForm1.N7Click(Se nder: TObject);beg inclose;end;procedure TForm1.FormCreate(Se nder: TObject);beg inend;并且要在uint1的連接代碼上添加：usesWin dows, Messages, SysUtils, Varia nts. Classes, Graphics, Con trols.Forms,Dialogs, Me nus, DB, ADODB,u nit2,u nit4,u nit5,u nit6,u nit7,u nit8,;在form2中進(jìn)

32、展和form1間的轉(zhuǎn)換，代碼如下：雙擊關(guān)閉按鈕添加代碼：form2.close;form1.show;4在form4，form5，form6，form7中進(jìn)展form1間的轉(zhuǎn)換，代碼類似3。3、form1中退出菜單的實現(xiàn)雙擊退出菜單進(jìn)展代碼輸入：close;即可。至此完成了菜單管理的實現(xiàn)，可以運行后進(jìn)展各功能的實現(xiàn)。代碼設(shè)計Private Sub Toolbar1_Butto nClick(ByVal Button As MSctlLib.Butt on)Case "DJ"zsdj_ClickCase "TF"tf_ClickCase"FT&q

33、uot;ftck_ClickCase "CX"zscx_ClickCase "exit"If MsgBox(確定退出該系統(tǒng)？ ", 4,"系統(tǒng)提示")=vbYes ThenEndEnd IfEnd SelectEnd SubPrivate Sub sztx_Click()Dim StrmonDialog1.Filter = "BMP 圖片(*BMP)|*.BMP|JPG 圖片(*JPG)|*JPG|GIF 圖片(*.GIF)|*.GIF| 所有文件(*)|*"If mon Dialog1.FileName

34、 <> "" ThenImage2.Picture = LoadPicture(m on Dialog1.FileName)Ope n (App.Path & "picture.txt") For Output As #1Print #1, StrClose #1mon Dialog1.FileName =""Elsemon Dialog1.FileName =""End IfEnd SubPrivate Sub sf_Click() main.En abled = FalseEnd SubPr

35、ivate Sub sjhf_Click()End SubPrivate Sub zsdj_Click()main.En abled = FalseEnd SubPrivate Sub tf_Click() main.En abled = FalseEnd SubPrivate Sub kfcx_Click()main.En abled = FalseEnd SubPrivate Sub ftck_Click()main.En abled = FalseEnd SubPrivate Sub zscx_Click()Load main zscxmain.En abled = False End

36、SubPrivate Sub tfcx_Click()Load main_tfcxmain.En abled = FalseEnd Sub系統(tǒng)登錄模塊設(shè)計 窗體設(shè)計添加新窗體，命名為 main_Login , Caption屬性為“酒店客房管理系統(tǒng)"；添加Adodc控件以與兩個TextBox控件，Text1放在用戶名后，Text2放在密 碼后；添加兩個Image控件，分別設(shè)置Picture屬性，添加“確定"和“退出"按鈕。 代碼設(shè)計Private Sub Image1_Click()If Text1.Text = 7 And Text2.Text = 123456

37、 The nElseMsgBox '密碼錯誤! ", vbCritical,"提示"End IfEnd SubPrivate Sub lmage2_Click()EndEnd Sub窗體設(shè)計 添加新窗體命名為 main_kfdj , Caption屬性為“住宿登記"；添加兩個Adodc控件、TextBox控件數(shù)組以與2個DTPicker控件;添加3個boBox控件。代碼設(shè)計Private Sub dj_Click()Adodc1.Co nn ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oracle

38、i n OraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=1 23456"AdodcI.RecordSource = "select * from tb_kf where 房態(tài)='空房'"Adodc2.Co nn ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oraclei n OraDb11g_home1;"&"ser

39、ver=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=1 23456"Adodc2.RecordSource = "select * from tb_d order by 憑證"If Isph.Text = "" Then bh.Text = Fdate & "d" & Format(1, "#000")If Isph.Text <> "" The nyl.Text = Mon

40、 th(Fdate)y2.Text = Mon th(Left(Isph.Text, 10)If yl.Text = y2.Text The n'bh.Text = Fdate & "d" & Format(Val(Right(lsph.Text, 3) + 1, "#000")Textl.Text = Val(Right(lsph.Text, 3) + 1End IfIf yl.Text <> y2.Text The nbh.Text = Fdate & "d" & Format(

41、1, "#000")End IfEnd IfFor i = 0 To 2ZSDJ(i).Text =""ZSDJ(i).E nabled = TrueNext iFor i = 4 To 6ZSDJ(i).Text =""ZSDJ(i).E nabled = TrueNext ibo3.Text =""ok.E nabled = True: dj.En abled = Falsebo3.E nabled = True: bo1.E nabled = TrueZSDJ(0).SetFocusAdodc3.Co nn

42、ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oracien OraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=1 23456"Adodc3.RecordSource = "select * from tb_kf where 房態(tài)='空房'"If Adodc3.Recordset.RecordCou nt > 0 The n(房間號"

43、;).Value Next iEnd IfEnd SubPrivate Sub ok_Click()If ZSDJ(O) = "" Or bo3 = "" The nMsgBox "請輸入完整信息","系統(tǒng)提示ElseAdodc2.RecordSource = "select * from tb_d where 房間號 ='"& bo3.Text& "' and 標(biāo)志 like '1'"If Adodc2.Recordset.Record

44、Cou nt = 0 ThenIf ZSDJ(O).Text<> "" Then Adodc2.Recordset.Fields("某某")=ZSDJ(O).TextIf ZSDJ(1).Text<> "" Then Adodc2.Recordset.Fields("證件")= ZSDJ(1).Text(詳羊細(xì)地址")=ZSDJ (2).TextIf bo3.Text <> "" Then Adodc2.Recordset.Fields('房

45、間號")=Val(bo3.Text)If ZSDJ(4).Tex<> "" Then Adodc2.Recordset.Fields(客房類型")=ZSDJ .TextIf ZSDJ(5).Tex<> "" Then Adodc2.Recordset.Fields(客房價格")= Val(ZSD J( 5).Text)If ZSDJ(6).Tex<> "" Then Adodc2.Recordset.Fields(住宿天數(shù)")= ZSDJ (6).TextIf

46、 ZSDJ.Text<> "" Then Adodc2.Recordset.Fields("宿費")=ZSDJ .Textadoc on .Ope n "Provider=Microsoft .J et.OLEDB.4.0;Data Source=" & App.Path & "DB_KFGL.mdb;Persist Security In fo=False"adoRs.Open "select * from tb_djys", adocon, adOpenKeyse

47、t, adLockOptimisticIf ZSDJ(0).Text <> "" The n adoRs.Fielc某某")=ZSDJ(0).TextIf ZSDJ(1).Text <> "" Then adoRs.Fielc證件")=ZSDJ(1).TextIf ZSDJ(2).Text <> "" Then adoRs.Field詳細(xì)地址")=ZSDJ(2).TextIf ZSDJ(4).Text <> "" Then adoRs.F

48、ield客房類型")=ZSDJ.TextIf bo3.Text <> "" The n adoRs.Fields房 間號")=Val(bo3.Text)If ZSDJ(5).Text <> "" Then adoRs.Field客房價格")=Val(ZSDJ(5).Text)If ZSDJ(6).Text <> "" Then adoRs.Field住宿天數(shù)")=ZSDJ(6).TextIf ZSDJ(7).Text <> ""

49、 Then adoRs.Field宿費")=ZSDJ(7).TextAdodc1.RecordSource= "select * from tb_kf where 房間號 like '" + bo3.Text + "”'房 態(tài)")="入住"For i = 0 To 6ZSDJ(i).E nabled = FalseNext iZSDJ(8).E nabled = False: ZSDJ(10).E nabled = False: ZSDJ(11).E nabled =Falsebo3.E nabled = F

50、alse: bo1.E nabled = FalseEnd If ok.E nabled = False: prin t.E nabled = True: dj.E nabled = TrueEnd IfEnd SubPrivate Sub can cel_Click()For i = 0 To 2ZSDJ(i).E nabled = FalseNext iFor i = 4 To 6ZSDJ(i).E nabled = FalseNext iok.E nabled = False: bo3.E nabled = False bo1.E nabled = False: DTP3.E nable

51、d = False dj.En abled = TrueEnd SubPrivate Sub en d_Click()Un load Memain.En abled = TrueEnd Sub按照如上方法設(shè)計窗體如下:代碼設(shè)計:Private Sub Form_Load()Adodcl.Co nn ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oraclei n OraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=

52、scott;PWD=1 23456"Adodc1.RecordSource = "select * from tb_d"Adodc2.C onn ectio nStri ngOraDb11g_home1"PROVIDER=MSDASQL;DRIVER=Oraclein;" &"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=123456"Adodc2.RecordSource = "select * from tb

53、_kf"Adodc3.Co nn ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oraclei n OraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=1 23456"Adodc3.RecordSource = "select * from tb_gzmx"Adodc4.Co nn ectio nStri ng = "PROVIDER=MSDAS

54、QL;DRIVER=Oraclei n OraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=1 23456"Adodc4.RecordSource = "select * from tb_djys"Adodc5.Co nn ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oraclei n OraDb11g_home1;"&"server=

55、webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=1 23456"Adodc5.RecordSource = "select憑證 from tb_d where 標(biāo)志='1'order by 憑證IIIf Adodc5.Recordset.RecordCou nt > 0 Then'bo4.Addltem Adodc5.Recordset.Fields（憑證"）.Value'Next i'End IfEnd Sub-private Sub F

56、ormlACHVafeo-czy.Texf H main.ssreSBalM .pane-ss.Texf czy-DTP2.va-ue H Da莎 Hm2.va-ue H Timeprivate Sub b04lc=ck()_f bopTexf Av = ThenAdodcl 力02.5011§ H =se-ecf * from fbld where沖sH-= + b04.Texf +-f Adodck力 ecordseFRecordcounf V 0 Then-f Adodck力 ecodser*Fie-ds(=*=) Av = Then Texxm.Texf H Adodck力 ecodse!-*Fie-ds(»*=)-f Adodcl 力 codser*Fie-ds(-saw=) Av -三 Then bol.Texf H Adod