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)： 目 錄一、 系統(tǒng)需求分析1.1系統(tǒng)開(kāi)發(fā)的目的和意義 -31.2系統(tǒng)要求 -3二、系統(tǒng)總體設(shè)計(jì)2.1系統(tǒng)功能需求 -42.2系統(tǒng)數(shù)據(jù)需求 -42.3系統(tǒng)功能結(jié)構(gòu)圖 -52.4系統(tǒng)部分流程圖 -5三、數(shù)據(jù)庫(kù)設(shè)計(jì)3.1數(shù)據(jù)庫(kù)概念模型 -73.2數(shù)據(jù)庫(kù)物理模型 -83.3酒店管理系統(tǒng)部分?jǐn)?shù)據(jù)字典 -9四、系統(tǒng)實(shí)現(xiàn)過(guò)程4.1設(shè)計(jì)過(guò)程 -114.2系統(tǒng)各界面設(shè)計(jì)代碼 -28五、實(shí)驗(yàn)總結(jié)5.1實(shí)驗(yàn)中遇到的問(wèn)題 -355.2心得體會(huì) -35一、系統(tǒng)需求分析1.1系統(tǒng)開(kāi)發(fā)的目的和意義 首先

2、應(yīng)該在此次實(shí)踐中有所收獲，能夠?qū)W習(xí)到相關(guān)軟件的功能，和進(jìn)行實(shí)踐設(shè)計(jì)需要的知識(shí)的。能夠在實(shí)踐中學(xué)習(xí)。 面對(duì)酒店行業(yè)的高速發(fā)展和酒店行業(yè)信息化發(fā)展的過(guò)程中出現(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)要求要求實(shí)現(xiàn)酒店員工信息管理、客戶信息管理、客房信息管理、訂單管理等功能，包括客戶信息的添

3、加、修改、刪除及查詢；客房信息的添加、修改、刪除及查詢；訂單查詢及退房管理等。二、 系統(tǒng)總體設(shè)計(jì)2.1系統(tǒng)功能需求 通過(guò)對(duì)互聯(lián)網(wǎng)上的各大酒店管理系統(tǒng)的認(rèn)識(shí)和分析，我對(duì)酒店管理系統(tǒng)有了基本的了解，我覺(jué)得該系統(tǒng)至少應(yīng)該具有以下的一些基本功能： (1) 系統(tǒng)管理模塊:包括登錄系統(tǒng)，用戶管理，權(quán)限管理，角色管理，以及查詢統(tǒng)計(jì)，客戶管理折扣管理和開(kāi)臺(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)該具有以下的一些數(shù)

4、據(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)，客房類別編號(hào)，住戶姓名，住戶省份證號(hào)）。FOODLIST菜單（菜單編號(hào)，餐桌編號(hào)，菜品編號(hào)，廚師編號(hào)，狀態(tài)，備注）。ROOMTYPE客房類別表（客房類別編號(hào)，客房類型名稱，客房類別價(jià)格，備

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

6、號(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)限組名稱）。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 客房訂單管理流程圖餐飲部分開(kāi)臺(tái)流程圖如圖2-5所示圖2-5 餐飲部分開(kāi)臺(tái)流程圖三、數(shù)據(jù)庫(kù)設(shè)計(jì)3.1數(shù)據(jù)庫(kù)概念模型數(shù)據(jù)庫(kù)概念模型圖如圖3-1所示：圖3-1數(shù)據(jù)庫(kù)概念模型圖3.2數(shù)據(jù)庫(kù)物理模型數(shù)據(jù)庫(kù)物理模型圖如圖3-2所示：圖3-2 數(shù)據(jù)庫(kù)物理模型圖3.3酒店管理系統(tǒng)部分?jǐn)?shù)據(jù)字典本系統(tǒng)數(shù)據(jù)庫(kù)采用Oracle

7、數(shù)據(jù)庫(kù)，系統(tǒng)數(shù)據(jù)庫(kù)名稱為HotelDB，共包含17張表。菜系表：用來(lái)存儲(chǔ)菜系的信息，其中FOODTYPEID字段為主鍵。表3-3-1 菜系：FOODYPE字段名稱類型允許空主鍵外鍵外鍵參考表 說(shuō)明FOODTYPEIDNUMBE(5)NOTYES菜系IDFOODTYPENAMEVARCHAR2(20)NOT菜系名稱FOODTYPEREMARKVARCHAR2(50)YES備注菜品表：用于菜品的所有信息，也是點(diǎn)菜的菜單的一個(gè)信息來(lái)源表，從中可獲得菜品的全部信息。其中字段FOODTYPEID用來(lái)描述該菜品屬于哪個(gè)菜系是外鍵參參考表FOODTYPE，根據(jù)此字段的值，可以知道菜品屬于相應(yīng)的哪個(gè)菜系。表3

8、-3-2 菜品：FOOD字段名稱類型允許空主鍵外鍵外鍵參考表說(shuō)明FOODIDNUMBER(5)NOTYES菜品IDFOODNAMEVARCHAR2(20)NOT菜品名稱FOODTYPEIDNUMBER(5)NOTYESFOODYPE所屬菜系IDFOODPRICENUMBER(5)NOT菜品價(jià)格FOODHELPCODEVARCHAR2(10)NOT助記碼FOODREMARKVARCHAR2(50)YES備注客房類別表：用來(lái)存儲(chǔ)客房類別的信息，表3-3-3客房類別表：ROOMTYPE字段名稱類型允許空主鍵外鍵外鍵參考表說(shuō)明ROOMTYPEIDNUMBER(5)NOTYES客房類別編號(hào)ROOMTYP

9、ENAMEVARCHAR2(20)NOT客房類別名稱ROOMTYPEPAYNUMBER(5)NOT類別價(jià)格ROOMTYPEREMARKVARCHAR2(50)NOT備注客房信息表:用來(lái)存儲(chǔ)客房信息。表3-3-4 客房信息表：ROOMINFO字段名稱類型允許空主鍵外鍵外鍵參考表說(shuō)明ROOMIDNUMBER(5)NOTYES房間編號(hào)ROOMTYPEIDNUMBER(5)NOTYESROOMTYPE客房類別編號(hào)續(xù)表 5-4字段名稱類型允許空主鍵外鍵外鍵參考表說(shuō)明ROOMCHECKNUMBER(5)NOT客房狀態(tài)ROOMREMARKVARCHAR2(50)YES備注客戶信息表:用來(lái)存儲(chǔ)酒店客戶的相關(guān)信

10、息。表3-3-5 客戶信息表: CUSTINFO字段名稱類型允許空主鍵外鍵外鍵參考表說(shuō)明CARDIDVARCHAR2(20)NOTYES身份證號(hào)CUSTNAMEVARCHAR2(20)NOT姓名CUSTSEXVARCHAR2(10)NOT性別CUSTPHONEVARCHAR2(20)YES電話VIPCHECKNUMBER(5)YES是否會(huì)員CUSTDATEVARCHAR2(20)YES信息錄入時(shí)間四、 系統(tǒng)實(shí)現(xiàn)過(guò)程4.1設(shè)計(jì)過(guò)程4.1.1窗體設(shè)計(jì)新建一個(gè)標(biāo)準(zhǔn)工程，會(huì)出現(xiàn)form1，可以遵循默認(rèn)格式，也可以更改名稱，這里默認(rèn)。添加所需控件mainmenu,雙擊控件在其中加入所要進(jìn)行的功能如下：

11、添加控件Image插入圖片，選中image控件，在其屬性表中選中picture，選擇需要的圖片：再建立一個(gè)Form2，默認(rèn)格式即可。在其中加入客房登記所需控件：再建立一個(gè)Form3，默認(rèn)格式即可,并且在project-options中設(shè)置其為主窗體。在其中加入客房登記所需控件,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

12、：這里需要鏈接數(shù)據(jù)庫(kù)，與krxx表中的信息進(jìn)行鏈接。連接方式為：首先添加一個(gè)數(shù)據(jù)模板（datemodule），然后選擇ADOQuery控件和datasource控件添加到數(shù)據(jù)模板，選中ADOQuery控件，在其屬性中找到connectionstring，進(jìn)行數(shù)據(jù)庫(kù)的鏈接，選擇再建立一個(gè)Form5，默認(rèn)格式即可。在其中加入客房登記所需控件，和上面一樣：這個(gè)窗體也要進(jìn)行數(shù)據(jù)庫(kù)鏈接，過(guò)程和上面一樣，只是鏈接的表名不同，這里鏈接的是kfxx表。雙擊確定添加代碼如下：with Data3.ADOQuery1 do begin Close; SQL.Clear; SQL.Add('select *

13、 from fjxx where 房間號(hào)碼=:a'); Parameters.ParamByName('a').value:=Trim(edit1.Text); Open; end;關(guān)閉鍵的代碼如下：form5.close;form1.show;這樣就完成了房間信息查詢的操作。（7） 再建立一個(gè)Form6，默認(rèn)格式即可。在其中加入查看酒店信息所需控件：1個(gè)label，1個(gè)按鈕，1個(gè)DBGrid：這里主要就是數(shù)據(jù)庫(kù)的鏈接，改用另外一種方式為：首先再建立一個(gè)Form7，默認(rèn)格式即可。在其中加入查看客房信息所需控件，和（7）一樣，不過(guò)這里可以采用（5）的方法進(jìn)行數(shù)據(jù)庫(kù)的鏈接。

14、再建立一個(gè)再建立一個(gè)Form8 ，默認(rèn)格式即可。在其中加入退房所需控件：1個(gè)label，1個(gè)Edit，兩個(gè)bitbtn，1個(gè)DBGrid，和一個(gè)DBNavigator如圖：將其與數(shù)據(jù)庫(kù)中表krxx鏈接后，輸入證件號(hào)碼單擊DBNavigator控件上的可以突出顯示選擇的信息，然后點(diǎn)擊退房可以實(shí)現(xiàn)退房功能。4.1.2 進(jìn)行窗體之間的轉(zhuǎn)換（1）在form3中進(jìn)行密碼設(shè)置，雙擊登錄按鈕進(jìn)行代碼輸入如下：varresults: Variant;BEGINresults:=ADOTable1.Lookup('姓名',edit1.text,'密碼');if results=e

15、dit2.Text thenbeginform3.Hide;form1.Show;endelsebeginapplication.MessageBox('姓名或密碼錯(cuò)誤','提示信息',64); edit1.SetFocus; exit;end;end;退出代碼為：close;（2）在form1中進(jìn)行剩余各form間的連接，在form1中分別單擊要實(shí)現(xiàn)的功能菜單按鈕，并分別輸入代碼，得到的最后代碼如下：procedure TForm1.N2Click(Sender: TObject);beginform1.Hide;form2.showmodal;end;pro

16、cedure TForm1.N3Click(Sender: TObject);beginform1.Hide;form4.showmodal;end;procedure TForm1.N4Click(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.ShowM

17、odal;end;procedure TForm1.N8Click(Sender: TObject);beginform1.hide;form8.ShowModal;end;procedure TForm1.N7Click(Sender: TObject);beginclose;end;procedure TForm1.FormCreate(Sender: TObject);beginend;并且要在uint1的連接代碼上添加：uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dial

18、ogs, Menus, DB, ADODB,unit2,unit4,unit5,unit6,unit7,unit8,;在form2中進(jìn)行和form1間的轉(zhuǎn)換，代碼如下： 雙擊關(guān)閉按鈕添加代碼： 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.Bu

19、tton) Select Case Button.Key Case "DJ" zsdj_Click Case "TF" tf_Click Case "FT" ftck_Click Case "CX" zscx_Click Case "exit" If MsgBox("確定退出該系統(tǒng)？", 4, "系統(tǒng)提示") = vbYes Then End End If End SelectEnd SubPrivate Sub sztx_Click()Dim StrCo

20、mmonDialog1.Filter = "BMP圖片(*.BMP)|*.BMP|JPG圖片(*.JPG)|*.JPG|GIF圖片(*.GIF)|*.GIF|所有文件(*.*)|*.*"CommonDialog1.ShowOpenIf CommonDialog1.FileName <> "" ThenImage2.Picture = LoadPicture(CommonDialog1.FileName)Str = CommonDialog1.FileName Open (App.Path & "picture.txt&quo

21、t;) For Output As #1 Print #1, Str Close #1 CommonDialog1.FileName = ""Else CommonDialog1.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.Show main.Enabled =

22、 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 SubPrivate Sub zscx_Click() Load main_zscx main_zscx.Show main.Enabled = FalseEnd SubPrivate

23、Sub tfcx_Click() Load main_tfcx main_tfcx.Show main.Enabled = FalseEnd Sub4.1.3 系統(tǒng)登錄模塊設(shè)計(jì)窗體設(shè)計(jì)添加新窗體，命名為main_Login，Caption屬性為“酒店客房管理系統(tǒng)”；添加Adodc控件以及兩個(gè)TextBox控件，Text1放在用戶名后，Text2放在密碼后；添加兩個(gè)Image控件，分別設(shè)置Picture屬性，添加“確定”和“退出”按鈕。代碼設(shè)計(jì)Private Sub Image1_Click() If Text1.Text = 7 And Text2.Text = 123456 Then mai

24、n.Show Me.Hide Else MsgBox "密碼錯(cuò)誤！", vbCritical, "提示" End IfEnd SubPrivate Sub Image2_Click()EndEnd Sub4.1.4住宿登記模塊窗體設(shè)計(jì)添加新窗體命名為main_kfdj，Caption屬性為“住宿登記”；添加兩個(gè)Adodc控件、TextBox控件數(shù)組以及2個(gè)DTPicker控件；添加3個(gè)ComboBox控件。代碼設(shè)計(jì)Private Sub comdj_Click() Adodc1.ConnectionString = "PROVIDER=MSDA

25、SQL;DRIVER=Oracle in OraDb11g_home1 ;" & "server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD=123456" Adodc1.RecordSource = "select * from tb_kf where 房態(tài)='空房'" Adodc1.Refresh Adodc2.ConnectionString = "PROVIDER=MSDASQL;DRIVER=Oracle in OraD

26、b11g_home1 ;" & "server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD=123456" Adodc2.RecordSource = "select * from tb_djb order by 憑證號(hào)碼" Adodc2.Refresh If Not Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast If lsph.Text = "" Then bh.Text =

27、Fdate & "d" & Format(1, "#000") If lsph.Text <> "" Then y1.Text = Month(Fdate) y2.Text = Month(Left(lsph.Text, 10) If y1.Text = y2.Text Then 'bh.Text = Fdate & "d" & Format(Val(Right(lsph.Text, 3) + 1, "#000") Text1.Text = V

28、al(Right(lsph.Text, 3) + 1 End If If y1.Text <> y2.Text Then bh.Text = Fdate & "d" & Format(1, "#000") End If End If For i = 0 To 2 ZSDJ(i).Text = "" ZSDJ(i).Enabled = True Next i For i = 4 To 6 ZSDJ(i).Text = "" ZSDJ(i).Enabled = True Next i Com

29、bo3.Text = "" Comok.Enabled = True: Comdj.Enabled = False Combo3.Enabled = True: Combo1.Enabled = True ZSDJ(0).SetFocus Adodc3.ConnectionString = "PROVIDER=MSDASQL;DRIVER=Oracle in OraDb11g_home1 ;" & "server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD

30、=123456" Adodc3.RecordSource = "select * from tb_kf where 房態(tài) = '空房'" Adodc3.Refresh Combo3.Clear If Adodc3.Recordset.RecordCount > 0 Then For i = 1 To Adodc3.Recordset.RecordCount Combo3.AddItem Adodc3.Recordset.Fields("房間號(hào)").Value Adodc3.Recordset.MoveNext Next i

31、 End IfEnd SubPrivate Sub comok_Click() If ZSDJ(0) = "" Or Combo3 = "" Then MsgBox "請(qǐng)輸入完整信息", , "系統(tǒng)提示" Else Adodc2.RecordSource = "select * from tb_djb where 房間號(hào) = '" & Combo3.Text & "' and 標(biāo)志 like '1'" Adodc2.Refres

32、h If Adodc2.Recordset.RecordCount = 0 Then Adodc2.Recordset.AddNew If bh.Text <> "" Then Adodc2.Recordset.Fields("憑證號(hào)碼") = bh.Text If ZSDJ(0).Text <> "" Then Adodc2.Recordset.Fields("姓名") = ZSDJ(0).Text If Combo1.Text <> "" Then Ado

33、dc2.Recordset.Fields("證件名稱") = Combo1.Text If ZSDJ(1).Text <> "" Then Adodc2.Recordset.Fields("證件號(hào)碼") = ZSDJ(1).Text If ZSDJ(2).Text <> "" Then Adodc2.Recordset.Fields("詳細(xì)地址") = ZSDJ(2).Text If Combo3.Text <> "" Then Adodc

34、2.Recordset.Fields("房間號(hào)") = Val(Combo3.Text) If ZSDJ(4).Text <> "" Then Adodc2.Recordset.Fields("客房類型") = ZSDJ(4).Text If DTP1.Value <> "" Then Adodc2.Recordset.Fields("住宿日期") = DTP1.Value If ZSDJ(5).Text <> "" Then Adodc2

35、.Recordset.Fields("客房?jī)r(jià)格") = Val(ZSDJ(5).Text) If ZSDJ(6).Text <> "" Then Adodc2.Recordset.Fields("住宿天數(shù)") = ZSDJ(6).Text If ZSDJ(7).Text <> "" Then Adodc2.Recordset.Fields("宿費(fèi)") = ZSDJ(7).Text If DTP3.Value <> "" Then Adodc

36、2.Recordset.Fields("退宿日期") = DTP3.Value Adodc2.Recordset.Update Adodc2.Refresh adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DB_KFGL.mdb;Persist Security Info=False" adoRs.Open "select * from tb_djys", adocon, adOpenKeyset,

37、adLockOptimistic adoRs.AddNew If bh.Text <> "" Then adoRs.Fields("憑證號(hào)碼") = bh.Text If ZSDJ(0).Text <> "" Then adoRs.Fields("姓名") = ZSDJ(0).Text If Combo1.Text <> "" Then adoRs.Fields("證件名稱") = Combo1.Text If ZSDJ(1).Text &

38、lt;> "" Then adoRs.Fields("證件號(hào)碼") = ZSDJ(1).Text If ZSDJ(2).Text <> "" Then adoRs.Fields("詳細(xì)地址") = ZSDJ(2).Text If ZSDJ(4).Text <> "" Then adoRs.Fields("客房類型") = ZSDJ(4).Text If Combo3.Text <> "" Then adoRs.Fi

39、elds("房間號(hào)") = Val(Combo3.Text) If ZSDJ(5).Text <> "" Then adoRs.Fields("客房?jī)r(jià)格") = Val(ZSDJ(5).Text) If DTP1.Value <> "" Then adoRs.Fields("住宿日期") = DTP1.Value If ZSDJ(6).Text <> "" Then adoRs.Fields("住宿天數(shù)") = ZSDJ

40、(6).Text If ZSDJ(7).Text <> "" Then adoRs.Fields("宿費(fèi)") = ZSDJ(7).Text If DTP3.Value <> "" Then adoRs.Fields("退宿日期") = DTP3.Value adoRs.Update adocon.Close Adodc1.RecordSource = "select * from tb_kf where 房間號(hào) like '" + Combo3.Text + &q

41、uot;'" If Combo3.Text <> "" Then Adodc1.Recordset.Fields("房態(tài)") = "入住" Adodc1.Recordset.Update For i = 0 To 6 ZSDJ(i).Enabled = False Next i ZSDJ(8).Enabled = False: ZSDJ(10).Enabled = False: ZSDJ(11).Enabled = False Combo3.Enabled = False: Combo1.Enabled

42、= False End If Comok.Enabled = False: Comprint.Enabled = True: Comdj.Enabled = True Comprint.SetFocus End IfEnd SubPrivate Sub comcancel_Click() For i = 0 To 2 ZSDJ(i).Enabled = False Next i For i = 4 To 6 ZSDJ(i).Enabled = False Next i Comok.Enabled = False: Combo3.Enabled = False Combo1.Enabled =

43、False: DTP3.Enabled = False Comdj.Enabled = TrueEnd SubPrivate Sub comend_Click() Unload Me main.Enabled = TrueEnd Sub4.1.5退宿登記模塊按照如上方法設(shè)計(jì)窗體如下：代碼設(shè)計(jì)：Private Sub Form_Load() Adodc1.ConnectionString = "PROVIDER=MSDASQL;DRIVER=Oracle in OraDb11g_home1 ;" & "server=webserver;DSN=;databa

44、sename=aa;databasefile=d:aa;UID=scott;PWD=123456" Adodc1.RecordSource = "select * from tb_djb" 'Adodc1.Refresh Adodc2.ConnectionString = "PROVIDER=MSDASQL;DRIVER=Oracle in OraDb11g_home1 ;" & "server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD

45、=123456" Adodc2.RecordSource = "select * from tb_kf" 'Adodc2.Refresh Adodc3.ConnectionString = "PROVIDER=MSDASQL;DRIVER=Oracle in OraDb11g_home1 ;" & "server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD=123456" Adodc3.RecordSource = "

46、select * from tb_gzmx" 'Adodc3.Refresh Adodc4.ConnectionString = "PROVIDER=MSDASQL;DRIVER=Oracle in OraDb11g_home1 ;" & "server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD=123456" Adodc4.RecordSource = "select * from tb_djys" 'Adodc4.

47、Refresh Adodc5.ConnectionString = "PROVIDER=MSDASQL;DRIVER=Oracle in OraDb11g_home1 ;" & "server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD=123456" Adodc5.RecordSource = "select 憑證號(hào)碼 from tb_djb where 標(biāo)志='1'order by 憑證號(hào)碼" ' Adodc5.Ref

48、resh' If Adodc5.Recordset.RecordCount > 0 Then ' For i = 1 To Adodc5.Recordset.RecordCount 'Combo4.AddItem Adodc5.Recordset.Fields("憑證號(hào)碼").Value 'Adodc5.Recordset.MoveNext 'Next i 'End If End Sub'Private Sub Form_Activate() 'czy.Text = main.StatusBar1.Pan

49、els(4).Text '賦值給czy'DTP2.Value = Date: tim2.Value = TimePrivate Sub combo4_Click() If Combo4.Text <> "" Then Adodc1.RecordSource = "select * from tb_djb where 憑證號(hào)碼='" + Combo4.Text + "'" Adodc1.Refresh 'bh.Text = "T" & Combo4.Text

50、 If Adodc1.Recordset.RecordCount > 0 Then If Adodc1.Recordset.Fields("姓名") <> "" Then Texxm.Text = Adodc1.Recordset.Fields("姓名") If Adodc1.Recordset.Fields("證件名稱") <> "" Then Combo1.Text = Adodc1.Recordset.Fields("證件名稱") If A

51、dodc1.Recordset.Fields("證件號(hào)碼") <> "" Then Texsfz.Text = Adodc1.Recordset.Fields("證件號(hào)碼") If Adodc1.Recordset.Fields("詳細(xì)地址") <> "" Then Texdz.Text = Adodc1.Recordset.Fields("詳細(xì)地址") If Adodc1.Recordset.Fields("房間號(hào)") <&

52、gt; "" Then DBCombo3.Text = Adodc1.Recordset.Fields("房間號(hào)") If Adodc1.Recordset.Fields("客房類型") <> "" Then DBCombo1.Text = Adodc1.Recordset.Fields("客房類型") If Adodc1.Recordset.Fields("客房?jī)r(jià)格") <> "" Then DBCombo2.Text = Ado

53、dc1.Recordset.Fields("客房?jī)r(jià)格") 'If Adodc1.Recordset.Fields("住宿日期") <> "" Then DTP1.Value = Adodc1.Recordset.Fields("住宿日期") 'If Adodc1.Recordset.Fields("住宿時(shí)間") <> "" Then TIM1.Value = Adodc1.Recordset.Fields("住宿時(shí)間"

54、;) If Adodc1.Recordset.Fields("住宿天數(shù)") <> "" Then Texts.Text = Adodc1.Recordset.Fields("住宿天數(shù)") 'If Adodc1.Recordset.Fields("預(yù)收金額") <> "" Then Texyj.Text = Adodc1.Recordset.Fields("預(yù)收金額") Else Texyj.Text = "0" 'I

55、f Adodc1.Recordset.Fields("結(jié)款方式") <> "" Then Combo2.Text = Adodc1.Recordset.Fields("結(jié)款方式") 'If Adodc1.Recordset.Fields("折扣") <> "" Then Texzk.Text = Adodc1.Recordset.Fields("折扣") End If '計(jì)算住宿天數(shù) 'If DTP2.Value > DT

56、P1.Value Then 'DTPicker控件返回包含于字符串內(nèi)的數(shù)字，字符串中是一個(gè)適當(dāng)類型的數(shù)值。 'If tim2.Value > #11:59:00 AM# Then 'If tim2.Value > #6:00:00 PM# 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 'End If ' Else