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)要求 -3二、系統(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)需求分析1.1系統(tǒng)開發(fā)的目的和意義 首先

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

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

4、據(jù)需求：DESKTYPE餐桌類別表（餐桌類別編號，餐桌座位數(shù)，餐桌方位，備注）。DESK餐桌表（餐桌編號，餐桌類別編號，餐桌狀態(tài)，備注）。FOODYPE菜系 （菜系編號，菜系名稱，備注）。FOOD菜品（菜品編號，菜單編號，所屬菜系，菜品名稱，菜品價格，助記碼，備注）。FOODTICKET餐飲訂單（訂單編號，餐桌編號，下單服務(wù)員編號，點菜時間，訂單狀態(tài)，備注）。ROOMCUSTINFO住房客戶信息表（住戶編號，客房類別編號，住戶姓名，住戶省份證號）。FOODLIST菜單（菜單編號，餐桌編號，菜品編號，廚師編號，狀態(tài)，備注）。ROOMTYPE客房類別表（客房類別編號，客房類型名稱，客房類別價格，備

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

6、號，權(quán)限名稱，備注）。ROLEPER 角色-權(quán)限關(guān)聯(lián)表（角色權(quán)限編號，角色編號，權(quán)限編號）。PERMISSIONGROUP 權(quán)限組表（權(quán)限組編號，權(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 客房訂單管理流程圖餐飲部分開臺流程圖如圖2-5所示圖2-5 餐飲部分開臺流程圖三、數(shù)據(jù)庫設(shè)計3.1數(shù)據(jù)庫概念模型數(shù)據(jù)庫概念模型圖如圖3-1所示：圖3-1數(shù)據(jù)庫概念模型圖3.2數(shù)據(jù)庫物理模型數(shù)據(jù)庫物理模型圖如圖3-2所示：圖3-2 數(shù)據(jù)庫物理模型圖3.3酒店管理系統(tǒng)部分數(shù)據(jù)字典本系統(tǒng)數(shù)據(jù)庫采用Oracle

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

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

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

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

11、添加控件Image插入圖片，選中image控件，在其屬性表中選中picture，選擇需要的圖片：再建立一個Form2，默認格式即可。在其中加入客房登記所需控件：再建立一個Form3，默認格式即可,并且在project-options中設(shè)置其為主窗體。在其中加入客房登記所需控件,8個label，8個Edit，兩個bitbtn如圖：可以在bitbtn按鈕中添加圖片，使其更加生動，選中按鈕，在其屬性選擇Glyph，選擇需要的圖片即可，注意圖片格式要符合要求，還可以為界面換顏色。再建立一個Form4，默認格式即可。在其中加入客人信息查詢所需控件，1個label，一個Edit，2個按鈕，1個DBGrid

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

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

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

15、dit2.Text thenbeginform3.Hide;form1.Show;endelsebeginapplication.MessageBox('姓名或密碼錯誤','提示信息',64); edit1.SetFocus; exit;end;end;退出代碼為：close;（2）在form1中進行剩余各form間的連接，在form1中分別單擊要實現(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中進行和form1間的轉(zhuǎn)換，代碼如下： 雙擊關(guān)閉按鈕添加代碼： form2.close; form1.show;（4）在form4，form5，form6，form7中進行form1間的轉(zhuǎn)換，代碼類似（3）。3、form1中退出菜單的實現(xiàn)雙擊退出菜單進行代碼輸入：close;即可。至此完成了菜單管理的實現(xiàn)，可以運行后進行各功能的實現(xiàn)。代碼設(shè)計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è)計窗體設(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 Then mai

24、n.Show Me.Hide Else MsgBox "密碼錯誤！", vbCritical, "提示" End IfEnd SubPrivate Sub Image2_Click()EndEnd Sub4.1.4住宿登記模塊窗體設(shè)計添加新窗體命名為main_kfdj，Caption屬性為“住宿登記”；添加兩個Adodc控件、TextBox控件數(shù)組以及2個DTPicker控件；添加3個ComboBox控件。代碼設(shè)計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 憑證號碼" 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("房間號").Value Adodc3.Recordset.MoveNext Next i

31、 End IfEnd SubPrivate Sub comok_Click() If ZSDJ(0) = "" Or Combo3 = "" Then MsgBox "請輸入完整信息", , "系統(tǒng)提示" Else Adodc2.RecordSource = "select * from tb_djb where 房間號 = '" & 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("憑證號碼") = 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("證件號碼") = ZSDJ(1).Text If ZSDJ(2).Text <> "" Then Adodc2.Recordset.Fields("詳細地址") = ZSDJ(2).Text If Combo3.Text <> "" Then Adodc

34、2.Recordset.Fields("房間號") = 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("客房價格") = Val(ZSDJ(5).Text) If ZSDJ(6).Text <> "" Then Adodc2.Recordset.Fields("住宿天數(shù)") = ZSDJ(6).Text If ZSDJ(7).Text <> "" Then Adodc2.Recordset.Fields("宿費") = 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("憑證號碼") = 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("證件號碼") = ZSDJ(1).Text If ZSDJ(2).Text <> "" Then adoRs.Fields("詳細地址") = ZSDJ(2).Text If ZSDJ(4).Text <> "" Then adoRs.Fields("客房類型") = ZSDJ(4).Text If Combo3.Text <> "" Then adoRs.Fi

39、elds("房間號") = Val(Combo3.Text) If ZSDJ(5).Text <> "" Then adoRs.Fields("客房價格") = 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("宿費") = ZSDJ(7).Text If DTP3.Value <> "" Then adoRs.Fields("退宿日期") = DTP3.Value adoRs.Update adocon.Close Adodc1.RecordSource = "select * from tb_kf where 房間號 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è)計窗體如下：代碼設(shè)計：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 憑證號碼 from tb_djb where 標(biāo)志='1'order by 憑證號碼" ' Adodc5.Ref

48、resh' If Adodc5.Recordset.RecordCount > 0 Then ' For i = 1 To Adodc5.Recordset.RecordCount 'Combo4.AddItem Adodc5.Recordset.Fields("憑證號碼").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 憑證號碼='" + 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("證件號碼") <> "" Then Texsfz.Text = Adodc1.Recordset.Fields("證件號碼") If Adodc1.Recordset.Fields("詳細地址") <> "" Then Texdz.Text = Adodc1.Recordset.Fields("詳細地址") If Adodc1.Recordset.Fields("房間號") <&

52、gt; "" Then DBCombo3.Text = Adodc1.Recordset.Fields("房間號") If Adodc1.Recordset.Fields("客房類型") <> "" Then DBCombo1.Text = Adodc1.Recordset.Fields("客房類型") If Adodc1.Recordset.Fields("客房價格") <> "" Then DBCombo2.Text = Ado

53、dc1.Recordset.Fields("客房價格") 'If Adodc1.Recordset.Fields("住宿日期") <> "" Then DTP1.Value = Adodc1.Recordset.Fields("住宿日期") 'If Adodc1.Recordset.Fields("住宿時間") <> "" Then TIM1.Value = Adodc1.Recordset.Fields("住宿時間"

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 '計算住宿天數(shù) 'If DTP2.Value > DT

56、P1.Value Then 'DTPicker控件返回包含于字符串內(nèi)的數(shù)字，字符串中是一個適當(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ù)都可以強制將一個表達式轉(zhuǎn)換成某種特定數(shù)據(jù)類型。 ' Else ' Texts.Text = DTP2.Value - CDate(DTP1.Value) + 0.5 'End If ' Else