酒店管理系統(tǒng)Oracle數(shù)據(jù)庫的設(shè)計與實現(xiàn)概述

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)部分?jǐn)?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ā)的目的和意義 首先應(yīng)該在此次實踐中有所收獲，能夠?qū)W

2、習(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)的認(rèn)識和分析，我對酒店管理系統(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ù)據(jù)需求：DESKTYPE餐桌類別表（餐

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

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

6、角色-權(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)部分?jǐn)?shù)據(jù)字典本系統(tǒng)數(shù)據(jù)庫采用Oracle數(shù)據(jù)庫，系統(tǒng)數(shù)據(jù)庫名稱為HotelDB

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

8、許空主鍵外鍵外鍵參考表說明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客房類別編號ROOMTYPENAMEVARCHAR2(20)NO

9、T客房類別名稱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)信息。表3-3-5 客戶信息表: CUS

10、TINFO字段名稱類型允許空主鍵外鍵外鍵參考表說明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，可以遵循默認(rèn)格式，也可以更改名稱，這里默認(rèn)。添加所需控件mainmenu,雙擊控件在其中加入所要進行的功能如下： 添加控件Image插入圖片，選中image控

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

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

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

14、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=edit2.Text thenbeginform3.Hide;form1.Show;endelsebeginapplication.M

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

16、Form1.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.ShowModal;end;procedure TForm1.N8Click(Sender: TObject);beginform1.hide;form8.ShowModal;end

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

18、擊關(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.Button) Select Case Button.Key Case DJ zsdj_Click Case TF tf_Click Case FT ftck_Click Ca

19、se CX zscx_Click Case exit If MsgBox(確定退出該系統(tǒng)？, 4, 系統(tǒng)提示) = vbYes Then End End If End SelectEnd SubPrivate Sub sztx_Click()Dim StrCommonDialog1.Filter = BMP圖片(*.BMP)|*.BMP|JPG圖片(*.JPG)|*.JPG|GIF圖片(*.GIF)|*.GIF|所有文件(*.*)|*.*CommonDialog1.ShowOpenIf CommonDialog1.FileName ThenImage2.Picture = LoadPictur

20、e(CommonDialog1.FileName)Str = CommonDialog1.FileName Open (App.Path & picture.txt) 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 S

21、ubPrivate Sub zsdj_Click() main_kfdj.Show main.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 SubPrivate Sub zscx_Click() Load main

22、_zscx main_zscx.Show main.Enabled = FalseEnd SubPrivate 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_Cl

23、ick() If Text1.Text = 7 And Text2.Text = 123456 Then main.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.Connec

24、tionString = PROVIDER=MSDASQL;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 OraDb11g_home1 ; & server=we

25、bserver;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 = Fdate & d & Format(1, #000) If lsph.Text Then y1.Text = Month(Fdate) y2

26、.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 = Val(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

27、 Next i For i = 4 To 6 ZSDJ(i).Text = ZSDJ(i).Enabled = True Next i Combo3.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=;databasenam

28、e=aa;databasefile=d:aa;UID=scott;PWD=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 End IfEn

29、d 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.Refresh If Adodc2.Recordset.RecordCount = 0 Then Adodc2.Recordset.AddNew If bh.Text Then Adodc2.Recordset.Fields(憑證號碼)

30、= bh.Text If ZSDJ(0).Text Then Adodc2.Recordset.Fields(姓名) = ZSDJ(0).Text If Combo1.Text Then Adodc2.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 Adodc2.Rec

31、ordset.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.Recordset.Fields(客房價格) = Val(ZSDJ(5).Text) If ZSDJ(6).Text Then Adodc2.Recordset.Fields(住宿天數(shù)) = ZSDJ(6).Te

32、xt If ZSDJ(7).Text Then Adodc2.Recordset.Fields(宿費) = ZSDJ(7).Text If DTP3.Value Then Adodc2.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 * f

33、rom tb_djys, adocon, adOpenKeyset, 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 Then adoRs.Fields(證件號碼) = ZSDJ(1).Text If ZSDJ(2).Text Then adoRs.Fi

34、elds(詳細地址) = ZSDJ(2).Text If ZSDJ(4).Text Then adoRs.Fields(客房類型) = ZSDJ(4).Text If Combo3.Text Then adoRs.Fields(房間號) = 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(6).T

35、ext 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 + If Combo3.Text Then Adodc1.Recordset.Fields(房態(tài)) = 入住 Adodc1.Recordset.Update For i = 0 To 6 Z

36、SDJ(i).Enabled = False Next i ZSDJ(8).Enabled = False: ZSDJ(10).Enabled = False: ZSDJ(11).Enabled = False Combo3.Enabled = False: Combo1.Enabled = False End If Comok.Enabled = False: Comprint.Enabled = True: Comdj.Enabled = True Comprint.SetFocus End IfEnd SubPrivate Sub comcancel_Click() For i = 0

37、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 = False: DTP3.Enabled = False Comdj.Enabled = TrueEnd SubPrivate Sub comend_Click() Unload Me main.Enabled = TrueEnd Sub4.1.5退宿登記模塊按照如上方法設(shè)計窗體如下：代碼設(shè)計：Private

38、Sub Form_Load() Adodc1.ConnectionString = PROVIDER=MSDASQL;DRIVER=Oracle in OraDb11g_home1 ; & server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD=123456 Adodc1.RecordSource = select * from tb_djb Adodc1.Refresh Adodc2.ConnectionString = PROVIDER=MSDASQL;DRIVER=Oracle in OraDb11g_h

39、ome1 ; & server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD=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 A

40、dodc3.RecordSource = 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.Refresh Adodc5.ConnectionString = P

41、ROVIDER=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)志=1order by 憑證號碼 Adodc5.Refresh If Adodc5.Recordset.RecordCount 0 Then For i = 1 To Adodc5.Recordset.RecordCount Combo

42、4.AddItem Adodc5.Recordset.Fields(憑證號碼).Value Adodc5.Recordset.MoveNext Next i End If End SubPrivate Sub Form_Activate() czy.Text = main.StatusBar1.Panels(4).Text 賦值給czyDTP2.Value = Date: tim2.Value = TimePrivate Sub combo4_Click() If Combo4.Text Then Adodc1.RecordSource = select * from tb_djb where

43、 憑證號碼= + Combo4.Text + Adodc1.Refresh bh.Text = T & Combo4.Text 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 Adodc1.Recordset.Fields(證件號碼) Then

44、Texsfz.Text = Adodc1.Recordset.Fields(證件號碼) If Adodc1.Recordset.Fields(詳細地址) Then Texdz.Text = Adodc1.Recordset.Fields(詳細地址) If Adodc1.Recordset.Fields(房間號) Then DBCombo3.Text = Adodc1.Recordset.Fields(房間號) If Adodc1.Recordset.Fields(客房類型) Then DBCombo1.Text = Adodc1.Recordset.Fields(客房類型) If Adodc1

45、.Recordset.Fields(客房價格) Then DBCombo2.Text = Adodc1.Recordset.Fields(客房價格) If Adodc1.Recordset.Fields(住宿日期) Then DTP1.Value = Adodc1.Recordset.Fields(住宿日期) If Adodc1.Recordset.Fields(住宿時間) Then TIM1.Value = Adodc1.Recordset.Fields(住宿時間) If Adodc1.Recordset.Fields(住宿天數(shù)) Then Texts.Text = Adodc1.Recor

46、dset.Fields(住宿天數(shù)) If Adodc1.Recordset.Fields(預(yù)收金額) Then Texyj.Text = Adodc1.Recordset.Fields(預(yù)收金額) Else Texyj.Text = 0 If 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.

47、Value DTP1.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 Texts.Text = DTP2.Value - CD

48、ate(DTP1.Value) End If Else If TIM1.Value #6:00:00 PM# Then Texts.Text = 1 Else Texts.Text = 0.5 Else Texts.Text = 0.5 End If End If Texxf.Text = Val(Texts.Text) * Val(DBCombo2.Text) End IfEnd Sub4.1.6住宿查詢模塊按照如上方法設(shè)計窗體如下：代碼設(shè)計：Private Sub Form_Load() Adodc1.ConnectionString = PROVIDER=MSDASQL;DRIVER=O

49、racle in OraDb11g_home1 ; & server=webserver;DSN=;databasename=student;databasefile=d:student;UID=scott;PWD=123456 Adodc1.RecordSource = select * from tb_djb Adodc1.Refresh Set MSHFlexGrid1.DataSource = Adodc1 MSHFlexGrid1.ColWidth(8) = 0 MSHFlexGrid1.ColWidth(20) = 0 MSHFlexGrid1.ColWidth(24) = 0 M

50、SHFlexGrid1.ColWidth(25) = 0 MSHFlexGrid1.ColWidth(27) = 0End SubPrivate Sub Form_Unload(Cancel As Integer) main.Enabled = TrueEnd SubPrivate Sub Command1_Click() Adodc1.RecordSource = select * from tb_djb where 姓名 like % + Text1.Text + % Adodc1.Refresh MSHFlexGrid1.ColWidth(8) = 0 MSHFlexGrid1.ColW

51、idth(20) = 0 MSHFlexGrid1.ColWidth(24) = 0 MSHFlexGrid1.ColWidth(25) = 0 MSHFlexGrid1.ColWidth(27) = 0End SubPrivate Sub Command2_Click() main.Enabled = True Unload MeEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Command1.SetFocusEnd Sub4.1.7退宿查詢按照如上方法設(shè)計

52、窗體如下：代碼設(shè)計：Private Sub Form_Load() Adodc1.ConnectionString = PROVIDER=MSDASQL;DRIVER=Oracle in OraDb11g_home1 ; & server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD=123456 Adodc1.RecordSource = select * from tb_tfd Adodc1.Refresh Set DataGrid1.DataSource = Adodc1End SubPrivate Sub

53、Form_Unload(Cancel As Integer) main.Enabled = TrueEnd SubPrivate Sub Command1_Click()Adodc1.RecordSource = select * from tb_tfd where tb_tfd.姓名 = & Text1.Text & Adodc1.RefreshEnd SubPrivate Sub Command3_Click() main.Enabled = True Unload MeEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift A

54、s Integer) If KeyCode = 13 Then Command1.SetFocusEnd Sub4.1.8房間查詢按照如上方法設(shè)計窗體如下：代碼設(shè)計：Private Sub Command2_Click() Adodc1.RecordSource = select * from tb_kf where 房間號 like % + Text1.Text + % Adodc1.RefreshEnd SubPrivate Sub Form_Load() Adodc1.ConnectionString = PROVIDER=MSDASQL;DRIVER=Oracle in OraDb11

55、g_home1 ; & server=OracleServer.world; & UID=scott; & PWD=123456; Adodc1.RecordSource = select * from tb_kf Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(4).Width = 0End SubPrivate Sub Form_Unload(Cancel As Integer) main.Enabled = TrueEnd SubPrivate Sub Command3_Click() main.Ena

56、bled = True Unload MeEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Command2.SetFocusEnd Sub4.2系統(tǒng)各界面設(shè)計代碼系統(tǒng)登陸頁面前臺代碼 ：用戶密碼系統(tǒng)登陸后臺處理代碼：public String execute() List list=usersService.selectByUserName(userName);if(list.size()=0)flag=0;for (int i = 0; i list.siz

57、e(); i+) if(list.get(i).getUserpwd()=null&.equals(userPwd) | list.get(i).getUserpwd().equals(userPwd)flag=1; user=(Users)usersService.selectByUserName(userName).get(0);ActionContext.getContext().getSession().put(loginuser, user); List rolepers=roleperService.findByRole(user.getRole();List permission

58、list=new ArrayList(); List urllist=new ArrayList(); for (int j = 0; j rolepers.size(); j+) permissionlist.add(rolepers.get(j).getPermission(); urllist.add(rolepers.get(j).getPermission().getPermissionurl(); ActionContext.getContext().getSession().put(urllist,urllist); ActionContext.getContext().getS

59、ession().put(permissionlist,permissionlit);return LoginSuccess;elseflag=0;return LoginFail;菜單添加頁面前臺核心代碼： 菜品管理-添加菜品 菜單添加后臺處理核心代碼：public class AddFoodAction extends ActionSupportprivate String foodhelpcode;private String foodname;private String foodprice;private String foodremark;private int foodtypei

60、d;private FoodServices foodServices;private FoodTypeServices foodTypeServices;public FoodTypeServices getFoodTypeServices() return foodTypeServices;public void setFoodTypeServices(FoodTypeServices foodTypeServices) this.foodTypeServices = foodTypeServices;public String getFoodhelpcode() return foodh