1、Oracle數據庫的設計與實現選題名稱：酒店管理系統姓 名：學 號：專 業：班 級：指導老師：設計地點：一、系統需求分析1.1 系統開發的目的和意義 31.2 系統要求 3二、系統總體設計2.1 系統功能需求 42.2 系統數據需求 42.3 系統功能結構圖 52.4 系統部分流程圖 5三、數據庫設計3.1 數據庫概念模型 73.2 數據庫物理模型 83.3 酒店管理系統部分數據字典 -9四、系統實現過程4.1 設計過程 114.2 系統各界面設計代碼 28五、實驗總結5.1 實驗中遇到的問題 355.2 心得體會 35一、系統需求分析1.1 系統開發的目的和意義首先應該在此次實踐中有所收獲，

2、能夠學習到相關軟件的功能， 和進行實踐設計需要的知識的。能夠在實踐中學習。面對酒店行業的高速發展和酒店行業信息化發展的過程中出現 的各種情況，酒店客房管理系統在實施后應達到以下目的：實現多點操作的信息共享，相互之間的信息傳遞準確、快捷、順 暢；服務管理信息化，可隨時掌握客人住宿情況； 系統界面友好美觀，操作簡單易行，查詢靈活方便，數據存儲安 全。實現客房的登記入住和查詢功能，查詢酒店信息，客人信息，客 房信息等功能。實現 Delphi 和 oracle 的連接，進行數據的插入。1.2系統要求要求實現酒店員工信息管理、客戶信息管理、客房信息管理、訂 單管理等功能，包括客戶信息的添加、修改、刪除及

3、查詢；客房信息 的添加、修改、刪除及查詢；訂單查詢及退房管理等。二、 系統總體設計2.1系統功能需求 通過對互聯網上的各大酒店管理系統的認識和分析， 我對酒店管 理系統有了基本的了解， 我覺得該系統至少應該具有以下的一些基本 功能：（1）系統管理模塊 :包括登錄系統，用戶管理，權限管理，角色 管理，以及查詢統計，客戶管理折扣管理和開臺管理等。（2）基本設置管理模塊：包括廚師的管理，買單管理等。（3）客戶管理模塊：包括客戶點菜，上菜，結賬，統計等。（4）客戶訂房管理模塊：包括訂房，續房，查房，退房，結算 等。2.2 系統數據需求根據數據需求分析可知該系統至少應該具有以下的一些數據需求：DESKT

4、YP餐桌類別表（餐桌類別編號，餐桌座位數，餐桌方位，備注） 。 DESK餐桌表（餐桌編號，餐桌類別編號，餐桌狀態，備注）。 FOODYF菜系（菜系編號，菜系名稱，備注）。F00菜品（菜品編號，菜單編號，所屬菜系，菜品名稱，菜品價格，助記 碼，備注）。FOODTICKE餐飲訂單（訂單編號，餐桌編號，下單服務員編號，點菜時間， 訂單狀態，備注）。ROOMCUSTIN住房客戶信息表（住戶編號，客房類別編號，住戶姓名，住 戶省份證號）。FOODLIS菜單（菜單編號，餐桌編號，菜品編號，廚師編號，狀態，備注）。 ROOMTYPI房類別表（客房類別編號，客房類型名稱，客房類別價格，備 注）。ROOMINF

5、客房信息表（房間編號，客房類別編號，客房狀態，備注）。 ROOMTICK客房訂單管理表 （訂單編號，房間號，下單服務員ID，身份證 號，入住時間，離開時間，押金金額，結算金額，下單時間，備注）CUSTINF客戶信息表 （身份證號，客戶姓名，客戶性別，客戶電話，是否 會員，信息錄入時間，備注）。USER用戶信息表（用戶編號，角色編號，部門編號，用戶名，用戶密碼， 是否審核通過，年齡，性別，生日，聯系電話，備注）。ROLE用戶角色表（角色編號，角色名，備注）。DEPARMEN部門表（部門編號，名稱，上級部門編號，備注）。 PERMISSIONS限表（權限編號，權限組編號，權限名稱，備注）。 ROL

6、EPE角色-權限關聯表（角色權限編號，角色編號，權限編號）。 PERMISSIONGRO權限組表（權限組編號，權限組名稱）。2.3系統功能模塊圖酒店管理系統功能結構如圖2-3所示*護計0自新t吏juj .懐 ¥AJ dji 查看空畬庭冋報髀唸吐書伽；潁莉F _性II 軋市-圖2-3系統功能結構圖2.4系統部分流程圖客房訂單流程圖如圖2-4所示圖2-4客房訂單管理流程圖餐飲部分開臺流程圖如圖2-5所示三、數據庫設計3.1數據庫概念模型數據庫概念模型圖如圖3-1所示:ROOMTYPEROOMTYPEID ROOMTYPENAME<pi>N100<M>VA20ROO

7、MTYPEPAYN20ROOMTYPEREMARKTXT100Identifier 1 <pi>Relationship_15ROOMINFOROOMID <pi> N20<M>ROOMCHECK N10ROOMREMARKTXT100ROOMCUSTINFOROOMCUSTIDXpiA N<M>CNAMEVA15CIDVA20Identifier_1 <pi>PERMISSIONGROUPGROUPID <pi> I<M>GROUPNAMEVA15RelationshipORDERIDldentifier_1

8、 <pi>shuyu1PERMISSIONPERMISSIONID <pi>PERMISSIONNAMEVA2CPERMISSIONURLVA25PERMISSIONNOTETXT6 0Identifier 1 <pi>RelationShip_12ROOMTICKET<pi>CLIENTINDATECLIENTOUTDATECLIENTMARGIN CLIENTAMOUNTORDERTIMEORDERREMARKldentifier_1 <pi><M>VA20VA20N20N20VA20TXT100CARDIDCUSTI

9、NFO<pi>VA20 <M>Identifier_1 <pi>Relationship_4iRelationship_17ORDERIDCUSTSEX CUSTPHONEVA10VA20>0S 'Felationship_1Relationship 13FOODTICKET<pi><M>ORDERTIMEVA20<M>REALPAYMONEYROLETOTALMONEYORDERSTATUS<M>ROLEID <pi><M>ORDERREMARKVA50ROLENAMEV

10、A20ROLENOTETXT60Identifier_1 <pi>VIPCHECK1CustdateIdentifier_1 <pi>N10VA20Relation6hip_14DESKTYPEID<pi>N<M>DESKSEATNUMBERN<M>DESKDIRECTIONVA10<M>DESKTYPEREMARKVA50DESKTYPEIdentifier_1 <pi>Relationship_5DESKDESKIDDEPARTMENTDEPARTMENTID <pi> DEPARTMENTNA

11、ME DEPARTMENTNOTE PARENTIDIVA10TXT6Ildentifier_1 <pi>USERSUSERID<pi>I<M>USERNAMEVA10USERPWDVA20USERNOTETXT60REALNAMEVA20USERAGEIUSERSEXVA5USERINDATEVA20USERPHONEVA15Identifier_1 <pi>shuyuRelatiohip_11ldentifier_1 <pi>Relationship_16FOODLIST<M><pi><M>DE

12、SKISUSINGDESKREMARKldentifier_1 <pi><M>VA50,Relatianghip_19FOODLISTID <pi> NFOODSTATUS VA20 <M>MENUREMARKVA50FOODTYPEFOODTYPEID<pi>N<M>FOODTYPENAMEVA20<M>FOODTYPEREMARKVA50ldentifier_1 <pi>1Identifier_1 <pi>Relationship_8Relationship_6FOODID<p

13、i>N<M>FOODNAMEVA20<M>FOODPRICEN<M>FOODHELPCODEVA10<M>FOODREMARKVA50FOODldentifier_1 <pi>圖3-1數據庫概念模型圖3.2數據庫物理模型數據庫物理模型圖如圖3-2所示:ROOMTYPEROOMTYPEID NUMBER(10G<pk>-ROOMTYPENAMVARCHAR2(20)ROOMTYPEPAYNUMBER(20) ROOMTYPEREMALOB-FK_R1ROOMINFOROOMCUSTINFOROOMCUSTIDMBER

14、<pk> ORDERID NUMBER <fk>ROOMID NUMBER(20)pk> ROOMTYPEIDUMBER(1<k> ROOMCHECKUMBER(10) ROOMREMARLOBCNAME VARCHAR2(15)VARCHAR2(20)CIDPERMISSIONGROUPGROUPID INTEGER <pk>GROUPNAMVARCHAR2(15)PERMISSIONGROUPIDPERMISSIONNAMU3CHAR2(20)PERMISSIONURVARCHAR2(25)PERMISSIONNOTOBPERMISSI

15、ONIDINTEGER<pkNTEGER<fk>ROLEPERROLEPERIDINTEGERpk> ROLEID INTEGERfkl：PERMISSIONNTEGERfk2>jfFK_R7ROLEROLEID INTEGER <pk>ROLENAMVARCHAR2(20)ROLENOTCLOBROOMTICKETORDERIDUSERIDCARDIDFOODTICKETORDERIDORDERTIMETOTALMONEYNUMBERUSERSUSERID CARDIDVARCHAR2(20)2>NUMBER(20<fk3>ORDE

16、RSTATUISUMBERORDERREMARVARCHAR2(50)ROOMIDCLIENTINDATVARCHAR2(20)CLIENTOUTDATARCHAR2(20)INTEGER <fk1>NUMBER <pk> INTEGER <fk1： VARCHAR2(<H)2： VARCHAR2(20)REALPAYMONEUMBERNUMBER <pk>FK R4CLIENTMARGNUMBER(20)CLIENTAMOUNUMBER(20) ORDERTIME VARCHAR2(20) ORDERREMACKOBFK_F6USERIDINT

17、EGERROLEIDINTEGER<pk><fk2>CUSTINFOCARDID VARCHAR2(<Pk CUSTSEX VARCHAR2(10)CUSTPHONARCHAR2(2O)VIPCHECKNUMBER(10)CUSTDATEVARCHAR2(20)DESKTYPEDESKT YPEID NUMBER <pkDESKSEATNUMNUMBERDESKDIRECTIOVARCHAR2(10)DESKTYPEREMARRCHAR2(50)DESKIDNUMBERfk2DEPARTMENTDEPARTMENINDJEGER<fk1>DEPA

18、RTMENTIDNTEGER <pk>DEPARTMENTNAMECHAR2(10)DEPARTMENTNOTOBFK UUSERNAMEUSERPWDVARCHAR2(10)VARCHAR2(20)PARENTIDINTEGERUSERNOTEREALNAMEUSERAGECLOBVARCHAR2(20)INTEGERFOODLISTFOODLISTIDNUMBER<pk>FOODIDNUMBER<fk1：USERIDINTEGER<fk3：ORDERIDNUMBER<fk2：FOODSTATUSARCHAR2(20)MENUREMARARCHAR2

19、(50)TICKET DESKFK D1DESKDESKIDDESKISUSINGJMBERDESKREMAVARCHAR2(50)TDID NUMBERpk> ORDERIDUMBERfklNUMBER<pkDESKTYPEIDUMBER<fkFOODTYPEFOODTYPEID NUMBER <pk>FOODTYPENAMVARCHAR2(20)FOODTYPEREMARRCHAR2(50)USERSEXVARCHAR2(5)USERINDATEVARCHAR2(20)USERPHONEVARCHAR2(15)FOODNUMBER <pk>FOOD

20、TYPEIDNUMBER <fk>FOODIDFOODNAME VARCHAR2(20)FOODPRICE NUMBERFOODHELPCOVARCHAR2(10)FOODREMARVARCHAR2(50)圖3-2數據庫物理模型圖3.3酒店管理系統部分數據字典本系統數據庫采用Oracle數據庫，系統數據庫名稱為HotelDB，共包含17張表。菜系表：用來存儲菜系的信息，其中FOODTYPEI字段為主鍵。表 3-3-1 菜系：FOODYPE字段名稱類型允許空主鍵外鍵外鍵參考表說明FOODTYPEIDNUMBE(5)NOTYES菜系IDFOODTYPENAMEVARCHAR2(20)N

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

22、OODHELPCODEVARCHAR2(10)NOT助記碼FOODREMARKVARCHAR2(50)YES備注客房類別表：用來存儲客房類別的信息,表3-3-3客房類別表： ROOMTYPE字段名稱類型允許空主鍵外鍵外鍵參考表說明ROOMTYPEIDNUMBER(5)NOTYES客房類別編號ROOMTYPENAMEVARCHAR2(20)NOT客房類別名稱ROOMTYPEPAYNUMBER(5)NOT類別價格ROOMTYPEREMARKVARCHAR2(50)NOT備注客房信息表：用來存儲客房信息。表3-3-4客房信息表：ROOMINFO字段名稱類型允許空主鍵外鍵AL A?-# 4占豐說明外鍵

23、參考表ROOMIDNUMBER(5)NOTYES房間編號ROOMTYPEIDNUMBER(5)NOTYESROOMTYPE客房類別編號續表5-4字段名稱類型允許空主鍵外鍵外鍵參考表說明ROOMCHECKNUMBER(5)NOT客房狀態ROOMREMAR KVARCHAR2(50)YES備注客戶信息表：用來存儲酒店客戶的相關信息。表3-3-5客戶信息表：CUSTINFO字段名稱類型允許空主鍵外鍵外鍵參考表說明CARDIDVARCHAR2(20)NOTYES身份證號CUSTNAMEVARCHAR2(20)NOT姓名CUSTSEXVARCHAR2(10)NOT性別CUSTPHONEVARCHAR2(

24、20)YES電話VIPCHECKNUMBER(5 )YES是否會員CUSTDATEVARCHAR2(20)YES信息錄入時間四、系統實現過程4.1設計過程窗體設計forml，可以遵循默認格式，也可以更改名稱，這新建一個標準工程，會出現里默認。添加所需控件mainmenu雙擊控件在其中加入所要進行的功能如下:Forml添加控件Image插入圖片，選中image控件，在其屬性表中選中picture，選擇 需要的圖片：再建立一個Form2,默認格式即可。在其中加入客房登記所需控件：再建立一個Form3,默認格式即可,并且在project-options 中設置其為主窗 體。在其中加入客房登記所需控件

25、,8個label，8個Edit，兩個bitbtn如圖：$ Form2 *性育莖記可以在bitbtn按鈕中添加圖片，使其更加生動，選中按鈕，在其屬性選擇Glyph, 選擇需要的圖片即可，注意圖片格式要符合要求，還可以為界面換顏色。再建立一個Form4,默認格式即可。在其中加入客人信息查詢所需控件，1個label，一個 Edit，2 個按鈕，1 個 DBGrid:r 1i n rii ir-iri hi k 客人信息查詢 nun i n n i n h i n i a u n u ； h fi 11 hei im i 議:-:»確宦:y關闍:這里需要鏈接數據庫，與krxx表中的信息進行鏈

26、接。連接方式為：首先添加一個數據模板(datemodule)，然后選擇 ADOQuery控件和datasource 控件添加到數據模板，選中ADOQuery空件，在其屬性中找到connectionstring ， 進行數據庫的鏈接，選擇再建立一個Form5,默認格式即可。在其中加入客房登記所需控件，和上面一 樣：居間信息養詢*-.-s 越碉卡 I X空閉I這個窗體也要進行數據庫鏈接，過程和上面一樣，只是鏈接的表名不同，這里鏈 接的是kfxx表。雙擊確定添加代碼如下：with Data3.AD0Query1 dobegi nClose;SQL.CIear;SQL.Add('select

27、* from fjxx where房間號碼=:a');Parameters.ParamByName('a').value:=Trim(edit1.Text);Ope n;end;關閉鍵的代碼如下：form5.close;forml.show;這樣就完成了房間信息查詢的操作。（7）再建立一個Form6,默認格式即可。在其中加入查看酒店信息所需控件:1 個 label，1 個按鈕，1 個 DBGrid：-o-11-E總 Form &工圖二團匸回酒店基本信息這里主要就是數據庫的鏈接，改用另外一種方式為：首先再建立一個Form7,默認格式即可。在其中加入查看客房信息所需

28、控件，和 （7） 樣，不過這里可以采用（5）的方法進行數據庫的鏈接。再建立一個再建立一個 Form8，默認格式即可。在其中加入退房所需控件：X關閉個 label , 1 個 Edit，兩個 bitbtn , 1 個 DBGrid，和一個 DBNavigator 如圖:r Ul I I TK-Tufj*« psis-詁ITTT卜卜miTX氓jfl將其與數據庫中表krxx鏈接后，輸入證件號碼單擊 DBNavigator控件上的“可 以突出顯示選擇的信息，然后點擊退房可以實現退房功能。進行窗體之間的轉換（1）在form3中進行密碼設置，雙擊登錄按鈕進行代碼輸入如下：varresults:

29、Varia nt;BEGINresults:=ADOTable1 丄 ookup（' 姓名',edit1.text,'密碼'）;if results=edit2.Text the nbeg inform3.Hide;form1.Show;endelsebeg in即plication.MessageBox（'姓名或密碼錯誤','提示信息',64）;edit1.SetFocus;exit;end;end;退出代碼為：close;（2）在form1中進行剩余各form間的連接，在form1中分別單擊要實現的功能 菜單按鈕，并分別輸入代

30、碼，得到的最后代碼如下：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.N4Click(Sender: TObject); beginform1.Hide; form5.ShowModal;end;procedure TForm1.N5Click(Sender: TObject); begin

31、form1.Hide;form6.ShowModal;end;procedure TForm1.N6Click(Sender: TObject); beginform1.hide; form7.ShowModal;end;procedure TForm1.N8Click(Sender: TObject); beginform1.hide;form8.ShowModal;end;procedure TForm1.N7Click(Sender: TObject); beginclose;end;procedure TForm1.FormCreate(Sender: TObject); begin

32、end;并且要在 uint1 的連接代碼上添加：usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms,Dialogs, Menus, DB, ADODB,unit2,unit4,unit5,unit6,unit7,unit8,;在 form2 中進行和 form1 間的轉換，代碼如下： 雙擊關閉按鈕添加代碼：form2.close;form1.show;（4）在 form4 ， form5 ， form6 ，form7 中進行 form1 間的轉換，代碼類似（ 3）。 3、form1 中退出菜單

33、的實現 雙擊退出菜單進行代碼輸入： close; 即可。 至此完成了菜單管理的實現，可以運行后進行各功能的實現。代碼設計Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.KeyCase "DJ"zsdj_ClickCase "TF"tf_ClickCase "FT"ftck_ClickCase "CX"zscx_ClickCase "exit"If MsgBox(確定退出該

34、系統？ ", 4,"系統提示”)=vbYes ThenEndEnd IfEnd SelectEnd SubPrivate Sub sztx_Click()Dim StrCommonDialogl.Filter = "BMP圖片(*BMP)|*BMP|JPG 圖片(*JPG)|*JPG|GIF圖片(*.GIF)|*.GIF| 所有文件 (*.*)|*.*"CommonDialog1.ShowOpenIf CommonDialog1.FileName <> "" ThenImage2.Picture = LoadPicture

35、(CommonDialog1.FileName)Str = CommonDialog1.FileNameOpen (App.Path & "picture.txt") For Output As #1Print #1, StrClose #1CommonDialog1.FileName = ""ElseCommonDialog1.FileName = ""End IfEnd SubPrivate Sub sjbf_Click()main_sjbf.Showmain.Enabled = FalseEnd SubPrivate S

36、ub sjhf_Click()main_sjhf.ShowEnd SubPrivate Sub zsdj_Click()main_kfdj.Showmain.Enabled = FalseEnd SubPrivate Sub tf_Click() main_tf.Show main.Enabled = FalseEnd SubPrivate Sub kfcx_Click() main_kfcx.Show main.Enabled = FalseEnd SubPrivate Sub ftck_Click() main_ftcx.Show main.Enabled = FalseEnd SubPr

37、ivate 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 Sub4.1.3 系統登錄模塊設計窗體設計添加新窗體，命名為 main_Login , Caption屬性為“酒店客房管理系統”;添加Adodc控件以及兩個TextBox控件，Textl放在用戶名后，Text2放在密 碼后;添加兩個 Image 控件，分別設置 Picture 屬性，添

38、加“確定” 和“退出” 按鈕。 代碼設計Private Sub Image1_Click()If Text1.Text = 7 And Text2.Text = 123456 Then main.ShowMe.HideElseMsgBox "密碼錯誤！ ", vbCritical, "提示"End IfEnd SubPrivate Sub Image2_Click()EndEnd Sub住宿登記模塊窗體設計添加新窗體命名為main_kfdj , Caption屬性為“住宿登記”;添加兩個Adodc控件、TextBox控件數組以及2個DTPicker控件;

39、 添加3個ComboBoX空件。代碼設計Private Sub comdj_Click()Adodc1.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"Adodc1.RecordSource = "select * from tb_kf where 房態='空房'

40、"Adodcl.RefreshAdodc2.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"Adodc2.RecordSource = "select * from tb_djb order by 憑證號碼"Adodc2.RefreshIf Not Adodc

41、2.Recordset.EOF The n Adodc2 .R ecordset.MoveLastIf lsph.Text = "" Then bh.Text = Fdate & "d" & Format(1, "#000")If lsph.Text <> "" The nyl.Text = Mon th(Fdate)y2.Text = Month(Left(lsph.Text, 10)If y1.Text = y2.Text Then'bh.Text = Fdate &

42、 "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).Text = ""ZSDJ(i).Enabled = TrueNext

43、 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=Oraclein OraDb11g_home1 ;" & "

44、server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD=1 23456"Adodc3.RecordSource = "select * from tb_kf where 房態 = '空房'"Adodc3.RefreshCombo3.ClearIf Adodc3.Recordset.RecordCount > 0 ThenFor i = 1 房間號 ”).ValueNext iEnd lfEnd SubPrivate Sub comok_Click()lf ZS

45、DJ(0) = "" Or Combo3 = "" ThenMsgBox "請輸入完整信息 ", , "系統提示 "ElseAdodc2. RecordSource= "select * from tb_djb where 房間號 = '" &Combo3.Text & "' and 標志 like '1'"Adodc2.RefreshIf Adodc2.Recordset.RecordCount = 0 Then憑證號碼&qu

46、ot;)=bh.TextIf ZSDJ(O).Text<> "" Then Adodc2.Recordset.Fields("姓名")= ZSDJ(0).Text(證件名稱")= Combo1.TextIf ZSDJ(1).Tex<> "" Then Adodc2.Recordset.Fields(證件號碼")=ZSDJ(1).Text(詳羊細地址")= ZSDJ(2).TextIf Combo3.Text <> "" Then Adodc2.Rec

47、ordset.Fields(房間號")= Val(Combo3.Text)If ZSDJ(4).Tex<> "" Then Adodc2.Recordset.Fields(客房類型")= ZSDJ(4).TextIf DTP1.Value<> "" Then Adodc2.Recordset.Fields(住宿日期")= DTP1.ValueIf ZSDJ(5).Tex<> "" Then Adodc2.Recordset.Fields(客房價格")=Val(

48、ZSDJ(5).Text)If ZSDJ(6).Tex<> "" Then Adodc2.Recordset.Fields(住宿天數")=ZSDJ(6).TextIf ZSDJ.Text<> "" Then Adodc2.Recordset.Fields("宿費")= ZSDJ(7).Text(退宿日期")= DTP3.ValueAdodc2.Refreshadocon.Open "Provider=Microsoft.Jet.OLEDB.4.O;Data Source="

49、; &App.Path & "DB_KFGL.mdb;Persist Security Info=False"adoRs.Open "select * from tb_djys", adocon, adOpenKeyset, adLockOptimisticadoRs.AddNewIf bh.Text <> "" Then adoRs.Fields憑證號碼")=bh.TextIf ZSDJ(0).Text <> "" The n adoRs.Field姓名"

50、;) = ZSDJ(0).TextIf Combo1.Text <> "" Then adoRs.Fields證件名稱")=Combo1.TextIf ZSDJ(1).Text <> "" Then adoRs.Fielc證件號碼")=ZSDJ(1).TextIf ZSDJ(2).Text <> "" Then adoRs.Field羊細地址")=ZSDJ(2).TextIf ZSDJ(4).Text <> "" Then adoRs.F

51、ielc客房類型")=ZSDJ.TextIf Combo3.Text <> "" The n adoRs.Fields房間號")=Val(Combo3.Text)If ZSDJ(5).Text <> "" Then adoRs.Fielc客房價格")=Val(ZSDJ(5).Text)If DTPl.Value <> "" Then adoRs.Field住宿日期")=DTPl.ValueIf ZSDJ(6).Text <> ""

52、; Then adoRs.Field住宿天數")=ZSDJ(6).TextIf ZSDJ(7).Text <> "" The n adoRs.Field宿費")=ZSDJ(7).TextIf DTP3.Value <> "" Then adoRs.Field退宿日期")=DTP3.Value adoRs.Update adocon.CloseAdodc1.RecordSource= "select * from tb_kf where 房間號 like '" + Combo

53、3.Text + "'"If Combo3.Text <> "" The n Adodc1 .R ecordset.Fields房 態")="入住"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.Enabl

54、ed = False: Comprint.Enabled = True: Comdj.Enabled = True Comprint.SetFocusEnd IfEnd SubPrivate Sub 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.En

55、abled = TrueEnd SubPrivate Sub comend_Click()Unload Me main.Enabled = TrueEnd Sub4.1.5 退宿登記模塊 按照如上方法設計窗體如下：代碼設計：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=sc

56、ott;PWD=1 23456"Adodc1.RecordSource = "select * from tb_djb"'Adodcl.RefreshAdodc2.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"Adodc2.RecordSource = "select * from tb_kf"'Adodc2.RefreshAdodc3.Co nn ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oraclei n OraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d: