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

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

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

3、改、刪除及查詢；客房信息的添 加、修改、刪除及查詢；訂單查詢及退房管理等。二、 系統(tǒng)總體設(shè)計(jì)2.1 系統(tǒng)功能需求 通過對(duì)互聯(lián)網(wǎng)上的各大酒店管理系統(tǒng)的認(rèn)識(shí)和分析， 我對(duì)酒店管 理系統(tǒng)有了基本的了解， 我覺得該系統(tǒng)至少應(yīng)該具有以下的一些基本 功能：(1) 系統(tǒng)管理模塊 : 包括登錄系統(tǒng)，用戶管理，權(quán)限管理，角色管理，以及查詢統(tǒng)計(jì)，客戶管理折扣管理和開臺(tái)管理等。(2) 基本設(shè)置管理模塊：包括廚師的管理，買單管理等。(3) 客戶管理模塊：包括客戶點(diǎn)菜，上菜，結(jié)賬，統(tǒng)計(jì)等。(4) 客戶訂房管理模塊：包括訂房，續(xù)房，查房，退房，結(jié)算 等。2.2 系統(tǒng)數(shù)據(jù)需求根據(jù)數(shù)據(jù)需求分析可知該系統(tǒng)至少應(yīng)該具有以下的一些

4、數(shù)據(jù)需求：DESKTYP餐桌類別表(餐桌類別編號(hào)，餐桌座位數(shù)，餐桌方位，備注)DESK餐桌表（餐桌編號(hào)，餐桌類別編號(hào)，餐桌狀態(tài)，備注）。FOODYF菜系（菜系編號(hào)，菜系名稱，備注）。F00菜品（菜品編號(hào)，菜單編號(hào)，所屬菜系，菜品名稱，菜品價(jià)格，助記 碼，備注）。FOODTICKE餐飲訂單（訂單編號(hào)，餐桌編號(hào)，下單服務(wù)員編號(hào)，點(diǎn)菜時(shí)間， 訂單狀態(tài)，備注）。ROOMCUSTIN住房客戶信息表（住戶編號(hào)，客房類別編號(hào)，住戶，住戶省 份證號(hào)）。FOODLIS菜單（菜單編號(hào)，餐桌編號(hào)，菜品編號(hào)，廚師編號(hào)，狀態(tài)，備注）。ROOMTYI客房類別表（客房類別編號(hào)，客房類型名稱，客房類別價(jià)格，備 注）。ROOM

5、INF客房信息表（房間編號(hào)，客房類別編號(hào)，客房狀態(tài)，備注）。ROOMTICK客房訂單管理表 （訂單編號(hào)，房間號(hào)，下單服務(wù)員ID，號(hào)，入 住時(shí)間，離開時(shí)間，押金金額，結(jié)算金額，下單時(shí)間，備注）。CUSTINF客戶信息表 （號(hào)，客戶，客戶性別，客戶，是否會(huì)員，信息錄入 時(shí)間，備注）。USER用戶信息表（用戶編號(hào)，角色編號(hào)，部門編號(hào)，用戶名，用戶密碼， 是否審核通過，年齡，性別，生日，聯(lián)系，備注）。ROLE用戶角色表（角色編號(hào)，角色名，備注）。DEPARMEN部門表（部門編號(hào)，名稱，上級(jí)部門編號(hào)，備注）。 PERMISSIONS限表（權(quán)限編號(hào)，權(quán)限組編號(hào)，權(quán)限名稱，備注）。 ROLEPE角色-權(quán)限關(guān)

6、聯(lián)表（角色權(quán)限編號(hào)，角色編號(hào)，權(quán)限編號(hào)）。 PERMISSIONGRO權(quán)限組表（權(quán)限組編號(hào)，權(quán)限組名稱）。2.3系統(tǒng)功能模塊圖酒店管理系統(tǒng)功能結(jié)構(gòu)如圖2-3所示圖2-3系統(tǒng)功能結(jié)構(gòu)圖2.4系統(tǒng)部分流程圖客房訂單流程圖如圖2-4所示圖2-4客房訂單管理流程圖餐飲部分開臺(tái)流程圖如圖2-5所示三、數(shù)據(jù)庫(kù)設(shè)計(jì)3.1數(shù)據(jù)庫(kù)概念模型數(shù)據(jù)庫(kù)概念模型圖如圖3-1所示:ROOMTYPEROOMTYPEID<pi>N100<M>ROOMTYPENAMEVA20ROOMTYPEPAYN20ROOMTYPEREMARKTXT100ldentifier_1 <pi>Relations

7、hip_15ROOMCUSTINFOROOMCUSTIDXpiA N<M>CNAMEVA15CIDVA20Identifier_1 <pi>ROOMTICKETCUSTINFOPERMISSIONGROUPGROUPID <pi> I<M>GROUPNAMEVA15Identifier_1 <pi>ORDERID<pi>NCLI ENTINDATEVA20CLIENTOUTDATEVA20CLI ENTMARGINN20CLI ENTAMOUNTN20ORDERTIMEVA20ORDERREMARKTXT100<M&

8、gt;Identifier_1 <pi>Relationship.CARDIDCUSTSEX<pi>VA20 <M>VA10CUSTPHONEVIPCHECK1CustdateIdentifier_1 <pi>VA20N10VA20shuyu1PERMISSIONPERMISSIONID <pi>IPERMISSIONNAMEVA20PERMISSIONURLVA25PERMISSIONNOTETXT6Ildentifier_1 <pi>ztRelationship'13DESKTYPEID<pi>N&

9、lt;M>DESKSEATNUMBERN<M>DESKDIRECTIONVA10<M>DESKTYPEREMARKVA50DESKTYPEIdentifier_1 <pi>RelatiRelationship_ 仃FOODTICKETORDERID<pi><M>ORDERTIMEVA20<M>REALPAYMONEYROLEROLEID <pi> I<M>ROLENAMEROLENOTEVA20TXT60TOTALMONEYORDERSTATUSORDERREMARK<M>VA50

10、Identifier_1 <pi>ldentifier_1 <pi>DEPARTMENTDEPARTMENTID <pi> DEPARTMENTNAME DEPARTMENTNOTE PARENTID1VA10TXT601dentifier_1 <pi>Relatihip_11Relationship 16FOODLISTMENUREMARKFOODLISTID <pi> FOODSTATUS<M>VA20 <M>VA50Identifier_1 <pi>Relationship_8圖3-1數(shù)據(jù)庫(kù)概

11、念模型圖3.2數(shù)據(jù)庫(kù)物理模型Relationship 5DESKRelationship_14DESKID<pi>NDESKISUSINGNDESKREMARKVA50Identifier 1 <pi>FOODTYPEFOODTYPEID<M><pi> NFOODTYPENAMEVA20 <M>FOODTYPEREMARKVA50FOODID<pi>N<M>FOODNAMEVA20<M>FOODPRICEN<M>FOODHELPCODEVA10<M>FOODREMARKVA5

12、0FOODIdentifier_1 <pi>Identifier_1 <pi>數(shù)據(jù)庫(kù)物理模型圖如圖3-2所示:ROOMTYPEROOMTYPEID NUMBER(100pk> ROOMTYPENAM1EARCHAR2(20) ROOMTYPEPAYNUMBER(20) ROOMTYPEREMCERKBrFK_R1ROOMINFOROOMCUSTINFOROOMCUSTNUMBER <pk>NUMBER <fk>ROOMID NUMBER(20<pk： ROOMTYPEINUMBER(100k> ROOMCHECNUMBER(10

13、) ROOMREMACKOBORDERIDCNAMEVARCHAR2(15)VARCHAR2(20)CIDPERMISSIONGROUPORDERIDUSERIDFK PPERMISSIONGROUPIDINTEGERCARDID ROOMIDPERMISSIONNAMARCHAR2(20)PERMISSIONUFVARCHAR2(25)PERMISSIONNOTOBGROUPID INTEGER <pk>GROUPNAMARCHAR2(15)PERMISSIONIDINTEGER<pk><fk>ROOMTICKETNUMBER <pk>INTE

14、GER <fk1>VARCHAR2(<H)2>NUMBER(20<fk3>CLIENTINDATE/ARCHAR2(20)CLIENTOUTDATRCHAR2(20)CLIENTMARGINUMBER(20) CLIENTAMOUNUMBER(20) ORDERTIME VARCHAR2(20) ORDERREMAFCLOBROLEPERFOODTICKETCUSTINFOROLEPERID INTEGERpk>ROLEID INTEGERfk1>ORDERIDUSERIDPERMISSIONNTEGERfk2>CARDIDVARCHAR2

15、(20I)2>VARCHAR2(20)REALPAYMONEUMBERTOTALMONEYNUMBERORDERTIMEROLEFK R0ORDERSTATUISUMBERORDERREMAFVARCHAR2(50)USERSROLEID INTEGER <pk>ROLENAMARCHAR2(20) ROLENOTELOBFK R4DESKTYPETICKET DESKFK D1DESKIDNUMBERfk2T2DESKFK F6DESKIDDESKISUSINGJMBERDESKREMAVARCHAR2(50)DESKDIRECTIONVARCHAR2(1O)DESKTYP

16、EREMAVARCHAR2(50)CARDID VARCHAR2(2Q)k：CUSTSEX VARCHAR2(10)CUSTPHONARCHAR2(20)VIPCHECKNUMBER(10)CUSTDATEVARCHAR2(20)NUMBER <pk>INTEGER <fk1>DESKTYPEID NUMBER <pkDESKSEATNUMENUMIBERTDIDNUMBERpk>ORDERIDUMBERfklNUMBER<pkDESKTYPEIDUMBE<fkDEPARTMENTDEPARTMENTIDINTEGER <pk>DEP

17、ARTMENTNAARCHAR2(10) DEPARTMENTNOTOBFK UUSERIDROLEIDINTEGERINTEGER<pk><fk2>PARENTIDINTEGERDEPARTMENWEGERUSERNAME USERPWDUSERNOTEREALNAMEUSERAGEUSERSEX<fk1>VARCHAR2(20)INTEGERVARCHAR2(10)VARCHAR2(20)CLOBFOODLISTFOODLISTIDNUMBER<pk>FOODIDNUMBER<fk1>USERIDINTEGER<fk3>

18、;ORDERIDNUMBER<fk2>FOODSTATUSARCHAR2(20)MENUREMAVARCHAR2(50)FOODTYPEFOODTYPEID NUMBER <pk>FOODTYPENAMVARCHAR2(20)FOODTYPEREMARRCHAR2(50)VARCHAR2(5)USERINDATEVARCHAR2(20)USERPHONEVARCHAR2(15)FOODNUMBER <pk>FOODTYPEID NUMBER <fk>FOODIDFOODNAME VARCHAR2(20)FOODPRICE NUMBERFOODHE

19、LPCOVARCHAR2(1O)FOODREMARKARCHAR2(5O)圖3-2數(shù)據(jù)庫(kù)物理模型圖3.3酒店管理系統(tǒng)部分?jǐn)?shù)據(jù)字典本系統(tǒng)數(shù)據(jù)庫(kù)采用Oracle數(shù)據(jù)庫(kù)，系統(tǒng)數(shù)據(jù)庫(kù)名稱為 HotelDB，共包含17表。菜系表：用來存儲(chǔ)菜系的信息，其中FOODTYPE I字段為主鍵。表 3-3-1 菜系：FOODYPE字段名稱類型允許空主鍵外鍵外鍵參考表說明FOODTYPEIDNUMBE(5)NOTYES菜系IDFOODTYPENAME VARCHAR2(20)NOT菜系名稱FOODTYPEREMaKRVARCHAR2(50)YES備注菜品表：用于菜品的所有信息， 也是點(diǎn)菜的菜單的一個(gè)信息來源表，從中

20、可獲得菜品的全部信息。其中字段FOODTYPEI用來描述該菜品屬于哪個(gè)菜系是外鍵參參考表FOODTYPE根據(jù)此字段的值，可以知道菜品屬于相應(yīng)的哪個(gè)菜系。表 3-3-2 菜品：FOOD字段名稱類型允許空主鍵外鍵外鍵參考表說明FOODIDNUMBER(5)NOTYES菜品IDFOODNAMEVARCHAR：(20)>'NOT菜品名稱FOODTYPEIDNUMBER(5)NOTYESFOODYPE所屬菜系IDFOODPRICENUMBER(5)NOT菜品價(jià)格FOODHELPCODVARCHAR E(10)>'NOT助記碼FOODREMARK.VARCHAR'(50

21、)>'YES備注客房類別表：用來存儲(chǔ)客房類別的信息,表3-3-3客房類別表：ROOMTYPE字段名稱類型允許空主鍵外鍵外鍵參考表說明ROOMTYPEIDNUMBER(5)NOTYES客房類別編號(hào)ROOMTYPENAMEVARCHAF2(20)NOT客房類別名稱ROOMTYPEPAY,NUMBER(5)NOT類別價(jià)格ROOMTYPEREMKAVARCHAF2(50)NOT備注客房信息表：用來存儲(chǔ)客房信息。表3-3-4 客房信息表：ROOMINFO字段名稱類型允許空主鍵外鍵AL A?-# 4占豐說明外鍵參考表ROOMIDNUMBER(5)NOTYES房間編號(hào)ROOMTYPEIDNUM

22、BER(5)NOTYESROOMTYPE客房類別編號(hào)續(xù)表5-4字段名稱類型允許空主鍵外鍵外鍵參考表說明ROOMCHECKNUMBER(5)NOT客房狀態(tài)ROOMREMARVARCHAR K 2(50)YES備注客戶信息表：用來存儲(chǔ)酒店客戶的相關(guān)信息。表3-3-5 客戶信息表：CUSTINFO字段名稱類型允許空主鍵外鍵外鍵參考表說明CARDIDVARCHAR2(20)NOTYES號(hào)CUSTNAMEVARCHAR2(20)NOTCUSTSEXVARCHAR2(10)NOT性別CUSTPHONEVARCHAR2(20)YESVIPCHECKNUMBER(5)YES是否會(huì)員CUSTDATEVARCHA

23、R2(20)YES信息錄入時(shí)間四、系統(tǒng)實(shí)現(xiàn)過程4.1設(shè)計(jì)過程窗體設(shè)計(jì)新建一個(gè)標(biāo)準(zhǔn)工程，會(huì)出現(xiàn)forml，可以遵循默認(rèn)格式，也可以更改名稱，這 里默認(rèn)。添加所需控件mainmenu雙擊控件在其中加入所要進(jìn)行的功能如下:Forml色 Farm!a B B -* - - ' l p " r * :詁$: BUB1.JBilBB1.4B添加控件Image插入圖片，選中image控件，在其屬性表中選中picture，選擇 需要的圖片：再建立一個(gè)Form2,默認(rèn)格式即可。在其中加入客房登記所需控件：再建立一個(gè)Form3,默認(rèn)格式即可,并且在project-options 中設(shè)置其為主窗

24、體。在其中加入客房登記所需控件,8個(gè)label，8個(gè)Edit，兩個(gè)bitbtn如圖：可以在bitbtn按鈕中添加圖片，使其更加生動(dòng)，選中按鈕，在其屬性選擇Glyph, 選擇需要的圖片即可，注意圖片格式要符合要求，還可以為界面換顏色。再建立一個(gè)Form4,默認(rèn)格式即可。在其中加入客人信息查詢所需控件，1個(gè)label，一個(gè) Edit，2 個(gè)按鈕，1 個(gè) DBGrid:這里需要數(shù)據(jù)庫(kù)，與krxx表中的信息進(jìn)行。連接方式為：首先添加一個(gè)數(shù)據(jù)模板(datemodule)，然后選擇 ADOQuery控件和datasource 控件添加到數(shù)據(jù)模板，選中ADOQuer控件，在其屬性中找到connections

25、tring ， 進(jìn)行數(shù)據(jù)庫(kù)的，選擇再建立一個(gè)Form5,默認(rèn)格式即可。在其中加入客房登記所需控件，和上面一 樣：0 Firii：房間信息査詢X關(guān)陽(yáng)I -kfxx這個(gè)窗體也要進(jìn)行數(shù)據(jù)庫(kù)，過程和上面一樣，只是的表名不同，這里的是 表。雙擊確定添加代碼如下：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)閉鍵的代碼如下：f

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

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

28、信息',64);edit1.SetFocus;exit;end;end;退出代碼為：close;(2) 在form1中進(jìn)行剩余各form間的連接，在form1中分別單擊要實(shí)現(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 TForm1.N4Cli

29、ck(Sender: TObject); beginform1.Hide;form5.ShowModal;end;procedure TForm1.N5Click(Sender: TObject); beginform1.Hide;form6.ShowModal;end;procedure TForm1.N6Click(Sender: TObject); beginform1.hide;form7.ShowModal;end;procedure TForm1.N8Click(Sender: TObject); beginform1.hide;form8.ShowModal;end;proced

30、ure TForm1.N7Click(Sender: TObject); beginclose;end;procedure TForm1.FormCreate(Sender: TObject);beginend;并且要在 uint1 的連接代碼上添加：usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms,Dialogs, Menus, DB, ADODB,unit2,unit4,unit5,unit6,unit7,unit8,;在 form2 中進(jìn)行和 form1 間的轉(zhuǎn)換，代碼如下： 雙擊關(guān)閉

31、按鈕添加代碼：form2.close;form1.show;(4)在 form4 ， form5 ， form6 ，form7 中進(jìn)行 form1 間的轉(zhuǎn)換，代碼類似( 3)。3、form1 中退出菜單的實(shí)現(xiàn) 雙擊退出菜單進(jìn)行代碼輸入： close; 即可。至此完成了菜單管理的實(shí)現(xiàn)，可以運(yùn)行后進(jìn)行各功能的實(shí)現(xiàn)代碼設(shè)計(jì)Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.KeyCase "DJ" zsdj_ClickCase "TF"tf

32、_ClickCase "FT" ftck_ClickCase "CX" zscx_ClickCase "exit"If MsgBox(" 確定退出該系統(tǒng)？ ", 4, " 系統(tǒng)提示 ") = vbYes Then EndEnd IfEnd SelectEnd SubPrivate Sub sztx_Click()Dim StrCommonDialogl.Filter = "BMP圖片(*BMP)|*.BMP|JPG 圖片(*JPG)|*JPG|GIF 圖片(*.GIF)|*.GIF|所

33、有文件(*.*)|*.*"CommonDialog1.ShowOpenIf CommonDialog1.FileName <> "" ThenImage2.Picture = LoadPicture(CommonDialog1.FileName)Str = CommonDialog1.FileNameOpen (App.Path & "picture.txt") For Output As #1Print #1, StrClose #1CommonDialog1.FileName = ""ElseComm

34、onDialog1.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 SubPrivate Sub tf_Click() main_tf.Show main.Enabled = False End SubPrivate Sub kfc

35、x_Click() main_kfcx.Show main.Enabled = False End 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 Sub系統(tǒng)登錄模塊設(shè)計(jì)窗體設(shè)計(jì)添加新窗體

36、，命名為 main_Login , Caption屬性為“酒店客房管理系統(tǒng)”;添加Adodc控件以及兩個(gè)TextBox控件，Textl放在用戶名后，Text2放在密 碼后；添加兩個(gè) Image 控件，分別設(shè)置 Picture 屬性，添加“確定”和“退出”按鈕。 代碼設(shè)計(jì)Private Sub Image1_Click()If Text1.Text = 7 And Text2.Text = 123456 Then main.ShowMe.HideElseMsgBox " 密碼錯(cuò)誤！ ", vbCritical, " 提示"End IfEnd SubPriv

37、ate Sub lmage2_Click()EndEnd Sub住宿登記模塊窗體設(shè)計(jì)添加新窗體命名為main_kfdj , Caption屬性為“住宿登記”;添加兩個(gè)Adodc控件、TextBox控件數(shù)組以及2個(gè)DTPicker控件; 添加3個(gè)ComboBoX空件。代碼設(shè)計(jì)Private Sub comdj_Click()Adodc1.Co nn ectio nStri ng= "PROVIDER=MSDASQL;DRIVER=OracieiOraDb11g_home1;"&"server=webserver;DSN=;database name=aa;d

38、atabasefile=d:aa;UID=scot t;PWD=123456"Adodc1.RecordSource = "select * from tb_kf where房態(tài)='空房'"Adodcl.RefreshAdodc2.Co nn ectio nStri ng= "PROVIDER=MSDASQL;DRIVER=OracieiOraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scot t;PW

39、D=123456"Adodc2.RecordSource = "select * from tb_djb order by憑證"Adodc2.RefreshIf lsph.Text = "" Then bh.Text = Fdate & "d" & Format(1, "#000")If lsph.Text <> "" The ny1.Text = Month(Fdate)y2.Text = Month(Left(lsph.Text, 10)If y1.Te

40、xt = y2.Text Then'bh.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).Tex

41、t = ""ZSDJ(i).Enabled = TrueNext iFor i = 4 To 6ZSDJ(i).Text = ""ZSDJ(i).Enabled = TrueNext iCombo3.Text = ""Comok.Enabled = True: Comdj.Enabled = FalseCombo3.Enabled = True: Combo1.Enabled = TrueZSDJ(0).SetFocusAdodc3.ConnectionString = "PROVIDER=MSDASQL;DRIVER=Or

42、aclien OraDb11g_home1 ;" & "server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scot t;PWD=123456"Adodc3.RecordSource = "select * from tb_kf where房態(tài) = ' 空房 '"Adodc3.RefreshCombo3.Clear> 0 ThenFor i = 1 房間號(hào) ").ValueNext iEnd IfEnd SubPrivate Sub co

43、mok_Click()If ZSDJ(0) = "" Or Combo3 = "" ThenMsgBox " 請(qǐng)輸入完整信息 ", , " 系統(tǒng)提示ElseAdodc2.RecordSource = "select * from tb_djb where房間號(hào) = '" &Combo3.Text & "' and 標(biāo)志 like '1'"Adodc2.Refresh= 0 ThenIf bh.Text <> "&qu

44、ot; 憑 證 ") =bh.TextIf ZSDJ(0).Text <> "" = ZSDJ(0).TextIf Combo1.Text <> "" 證件名稱 ") = Combo1.TextIf ZSDJ(1).Text <> "" 證件 ")= ZSDJ(1).TextIf ZSDJ(2).Text <> "" 詳細(xì)地址") = ZSDJ(2).TextIf Combo3.Text <> ""

45、; 房間號(hào)") = Val(Combo3.Text)If ZSDJ(4).Text <> "" 客房類型") = ZSDJ(4).TextIf DTP1.Value <> "" 住宿日期") = DTP1.ValueIf ZSDJ(5).Text <> "" 客房?jī)r(jià)格") = Val(ZSDJ(5).Text)If ZSDJ(6).Text <> "" 住宿天數(shù)") = ZSDJ(6).TextIf ZSDJ(7).T

46、ext <> "" 宿費(fèi) ")= ZSDJ(7).TextIf DTP3.Value <> "" 退宿日期") = DTP3.ValueAdodc2.Refresh& App.Path & "DB_KFGL.mdb;Persist Security Info=False"adoRs.Open "select * from tb_djys", adocon, adOpenKeyset, adLockOptimisticadoRs.AddNewIf bh.Te

47、xt <> "" Then adoRs.Fields("憑證") = bh.TextIf ZSDJ(0).Text <> "" Then adoRs.Fields("") = ZSDJ(0).TextIf Combo1.Text <> "" Then adoRs.Fields(" 證 件 名 稱 ") = Combo1.TextIf ZSDJ(1).Text <> "" Then adoRs.Fields(&

48、quot; 證 件 ") = ZSDJ(1).TextIf ZSDJ(2).Text <> "" Then adoRs.Fields(" 詳 細(xì) 地 址 ") =ZSDJ(2).TextIfZSDJ(4).Text<> ""Then adoRs.Fields(" 客 房 類 型 ")ZSDJ(4).TextIfCombo3.Text<> ""Then adoRs.Fields(" 房 間 號(hào) ")Val(Combo3.Text)I

49、fZSDJ(5).Text<> ""Then adoRs.Fields(" 客 房 價(jià) 格 ")Val(ZSDJ(5).Text)IfDTP1.Value<> ""Then adoRs.Fields(" 住 宿 日 期 ")DTP1.ValueIfZSDJ(6).Text<> ""Then adoRs.Fields(" 住 宿 天 數(shù) ")ZSDJ(6).TextIfZSDJ(7).Text<>"" Then

50、 adoRs.Fields(" 宿 費(fèi) ")ZSDJ(7).TextIfDTP3.Value<> ""Then adoRs.Fields(" 退 宿 日 期 ")DTP3.ValueadoRs.Updateadocon.CloseAdodc1.RecordSource= "select * from tb_kf where 房間號(hào) like'" + Combo3.Text + "'"IfCombo3.Text <> "" 房態(tài) &quo

51、t;) =" 入住 "For i = 0 To 6ZSDJ(i).Enabled = FalseNext iZSDJ(8).Enabled = False: ZSDJ(10).Enabled = False: ZSDJ(11).Enabled = FalseCombo3.Enabled = False: Combo1.Enabled = FalseEnd IfComok.Enabled = False: Comprint.Enabled = True: Comdj.Enabled = TrueComprint.SetFocusEnd IfEnd SubPrivate Sub

52、 comcancel_Click()For i = 0 To 2ZSDJ(i).Enabled = FalseNext iFor i = 4 To 6ZSDJ(i).Enabled = FalseNext iComok.Enabled = False: Combo3.Enabled = FalseCombo1.Enabled = False: DTP3.Enabled = FalseComdj.Enabled = TrueEnd SubPrivate Sub come nd_Click()Un load Memain.En abled = TrueEnd Sub退宿登記模塊按照如上方法設(shè)計(jì)窗體

53、如下:代碼設(shè)計(jì)：Private Sub Form_Load()Adodc1.Co nn ectio nStri ng= "PROVIDER=MSDASQL;DRIVER=OracieiOraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scot t;PWD=123456"Adodc1.RecordSource = "select * from tb_djb"'Adodcl.RefreshAdodc2.Co nn e

54、ctio nStri ng= "PROVIDER=MSDASQL;DRIVER=OracieiOraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scot t;PWD=123456"Adodc2.RecordSource = "select * from tb_kf"'Adodc2.RefreshAdodc3.Co nn ectio nStri ng= "PROVIDER=MSDASQL;DRIVER=O

55、racieiOraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=123456"Adodc3.RecordSource = "select * from tb_gzmx"'Adodc3.RefreshAdodc4.ConnectionString = "PROVIDER=MSDASQL;DRIVER=Oraclien OraDb11g_home1 ;" & "serve

56、r=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scot t;PWD=123456"Adodc4.RecordSource = "select * from tb_djys"'Adodc4.RefreshAdodc5.ConnectionString = "PROVIDER=MSDASQL;DRIVER=Oraclein OraDb11g_home1 ;" & "server=webserver;DSN=;databasename=aa;databasefi

57、le=d:aa;UID=scot t;PWD=123456"Adodc5.RecordSource = "select憑證 from tb_djb where 標(biāo)志 ='1'orderby 憑證 "' Adodc5.Refresh> 0 Then' For i = 1 憑證 "）.Value'Next i'End IfEnd Sub'Private Sub Form_Activate（）'czy.Text = main.StatusBar1.Panels（4）.Text ''DTP2.Value = Date: tim2.Value = TimePrivate Sub combo4_Click（）If Combo4.Text <> "" ThenAdodc1.RecordSource = "select * from tb_djb where Combo4.Text + "'"Adodc1.Refresh'bh.Text = "T" & Combo4.Text