1、數據庫課程設計課題酒店管理系統班級0904學號 34羅浩成績2010年10月30日酒店管理信息系統1. 編寫目的酒店在正常的運營中需要對客房資源、 顧客信息、結算信息進行管理，利用賓 館管理信息系統及時了解各個環節息的變更，有利于提高管理效率。2. 系統功能分析系統開發的總體任務是實現賓館各種信息的系統化、規化和自動化。主要完成功能：有關客房標準的制定、標準信息的輸入，包括標準編號、標準名稱、房間 面積、床位數量、住房單價、是否有空調、電視機、以及單獨衛生間等。客房標準信息的修改、查詢等。客房基本信息的輸入，包括客房編號、客房類型、客房位置、客房單價、備注等?？头炕拘畔⒌牟樵?、修改，包括客房

2、編號、客房類型、客房位置、客房 單價、備注等。剩余客房信息的查詢等。訂房信息的輸入，包括客房編號、客房種類、客房位置、客房單價、顧客、 顧客、入住日期、折扣、備注信息等。訂房信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、 顧客、顧客、入住日期、折扣、備注信息等。 結算信息的輸入，包括客房編號、客房種類、位置、客房單價、顧客、顧 客、入住日期、折扣、結算日期、備注信息等。 結算信息的修改和查詢， 包括客房編號、 客房種類、 客房位置、 客房單價、 顧客、顧客、入住日期、折扣、結日期、備注信息等。3. 系統功能模塊設計按結構化程序設計思想，分析得出如下系統功能模塊圖密碼管理用戶管理

3、圖I系統功能模塊圖4. 數據庫設計數據庫設計步驟：數據庫需求分析數據庫概念結構設計數據庫邏輯結構設計 數據庫需求分析分析調查有關賓館管理信息需求的基礎上得本系統所處理的數據流程圖H賓館管理信息系統數據流程圖針對一般賓館管理信息系統的需求，通過對賓館管理過程的容和流程分析， 設 計如下面所示的數據項和數據結構： 客房標準信息，包括的數據項有：標準編號、標準名稱、房間面積、床位 數量、住房單價、是否有空調、電視、單獨衛生間等。 客房信息，包括的數據項有：客房編號、客房種類、客房位置、客房單價、 備注等。 訂房信息，包括的數據項有：訂房編號、客房編號、客房種類、客房位置、 客房備注信息、顧客、顧客、

4、入住時間、折扣、備注等。 結算信息，包括的數據項有：訂房編號、客房編號、客房種類、客房位置、 客房備注信息、顧客、顧客、入住時間、折扣、結算時間、備注等。 數據庫概念結構設計本系統根據以上的設計規劃出的實體有：客房標準信息實體、客房信息實體、 訂房信息實體、結算信息實體。各個實體具體的描述E - R圖如下：客房標準信息實體E - R圖客房信息實體E - R圖訂房信息實體E - R圖結算信息實體E - R圖客房標準信息客房信息管理訂房信息管理結算信息管理實體之間關系E - R圖 數據庫邏輯結構設計首先將賓館管理信息系統的數據庫概念結構轉化為SQL 2000數據庫系統所支持的實際數據模型，即：數據

5、庫的邏輯結構。其各個表格的設計結果如下列名數據類型可否為空說明TypeidVareharNOT NULL標準編號Type nameVareharNOT NULL標準名稱AreaNumericNULL房間面積BednumNumericNULL床位數量Haire on diti onVareharNULL是否有空調Hteleph oneVareharNULL是否有Htelevisi onVareharNULL是否有電視HtoiletVareharNULL是否有單獨衛生間PriceNumerieNULL單價Roomtype客房標準信息表列名數據類型可否為空說明roomNOVarcharNOT NUL

6、L客房編號RoomtypeVarcharNOT NULL客房種類Roompositi onVarcharNULL客房位置RoompriceNumericNULL單價PutupVarcharNOT NULL是否被預定RoommemoTextNULL備注Rooms客房信息表列名數據類型可否為空說明BooknoVarcharNOT NULL訂房編號Custo mn ameVarcharNOT NULL顧客CustomIDVarcharNOT NULLRoomnoVarcharNOT NULL客房編號In dateDatetimeNULL入住日期Disco untNumericNULL折扣Inmeno

7、TextNULL備注CheckdateDatetimeNULL結算日期AmountNumericNULL金額Bookin訂房信息表5. 數據庫結構的實現利用SQL 2000數據庫系統中的查詢分析實現數據庫的邏輯結構，其表格如 下：創建系統用戶表格usernfoCREATE TABLE dbo.user_l nfo1(user_IDchar(10) COLLATE Chi nese_PRC_CI_AS NOT NULL, user_PWD char (10) COLLATE Chi nese_PRC_CI_AS NULL, user_Des char(10) COLLATE Chi nese_P

8、RC_CI_AS NULL )ON PRIMARY創建客房標準信息表格roomtypeCREATE TABLE dbo.roomtype(typeidchar(10) COLLATE Chi nese_PRC_CI_AS NOT NULL,type namechar(10) COLLATE Chi nese_PRC_CI_AS NOT NULL,area numeric(5,0) NULL,bed nu m numeric(2,0) NULL,hairco nditio nchar (2) COLLATE Chi nese_PRC_CI_AS NULL, htelepho nechar (2)

9、 COLLATE Chi nese_PRC_CI_AS NULL, htelevisio nchar(2) COLLATE Chi nese_PRC_CI_AS NULL, htoiletchar (2) COLLATE Chi nese_PRC_CI_AS NULL, price nu meric(10,2)NULL)ON PRIMARY創建客房信息表格roomsCREATE TABLE dbo.rooms(roomNOchar(10) COLLATE Chi nese_PRC_CI_AS NOT NULL,roomtypechar(10) COLLATE Chinese_PRC_CI_AS

10、 NOT NULL, roompositionchar(20) COLLATE Chinese_PRC_CI_AS NULL, roompricenumeric(10,2) NULL,putupchar(2) COLLATE Chinese_PRC_CI_AS NOT NULL, roommemotext COLLATE Chinese_PRC_CI_AS NULL) ON PRIMARY TEXTIMAGE_ON PRIMARY創建訂房信息表 bookinCREATE TABLE dbo.bookin( booknochar(14) COLLATE Chinese_PRC_CI_AS NOT

11、 NULL, customnamechar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, customIDchar(18) COLLATE Chinese_PRC_CI_AS NOT NULL, roomnochar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, indatedatetime NULL,discountnumeric(2,0) NULL,inmemotext COLLATE Chinese_PRC_CI_AS NULL, checkdatedatetime NULL,ammountnumeric(10,2) N

12、ULL) ON PRIMARY TEXTIMAGE_ON PRIMARY&賓館管理信息系統具體程序實現客房信息管理模塊的創建客房信息管理模塊主要實現如下功能：添加客房信息修改客房信息刪除客房信息查詢客房信息 具體實現代碼如下：Private Sub From_Load() 載入窗體時，自動添加客房信息種類Dim sSql As StringDim intCount As IntegerDim MsgText As StringDim mrcc As ADODB.RecordsetIf gintRmode=1 Then 判斷是否處于添加狀態Me.Caption=me.Caption&am

13、p; “添加”txtSQL= ” select DISTINCT typename from roomtype ”Set mrc=ExecuteSQL(txtSQL,MsgText)If Not mrc.EOF ThenDo While Not mrc.EOF cboItem(0).AddItem Trim(mrc.Fields(0) mrc.MoveNextLoopcboItem(0).ListIndex=0 顯示記錄容ElseMsgBox “請先進行客房標準設置 ! ”,vbOKOnly+vbExclamation,“越壬”警告”cmdSave.Enabled=FalseExit SubE

14、nd If mrc.CloseElseIf gintRmode=2 Then 判斷是否處于修改狀態Setmrcc=ExecuteSQL(txtSQL,MsgText)'設置 SQL語句顯示當前選擇記錄If mrcc.EOF=False ThenWith mrcctxtItem(0)=.Fields(0)For intCount=1 To 2IfNot IsNull(.Fields(intCount+1)Then 判斷容是否為空txtItem(intCount)=.Fields(intCount+1)End IfNext intCount txtItem(3)=.Fields(5) tx

15、tSQL=”select DISTINCT typename from roomtype ”Set mrc=ExecuteSQL(txtSQL,MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0).AddItem Trim(mrc.Fields(0) mrc.MoveNextLoopcboItem(0).ListIndex=0ElseMsgBox“ 請 先 進 行 客 房 標 準 設置！ ” ,vbOKOnly+vbExclamation, “警告” cmdSave.Enabled=FalseExit SubEnd Ifmrc.Cl

16、oseEnd WithEnd Ifmrcc.CloseMe.Caption=Me.Caption&“修改”End IfmblChange=FalseEnd SubPrivate Sub cmdSave_Click() 單擊保存按鈕觸發事件Dim intCount As IntegerDim sMeg As StringDim mrcc As ADODB.RecordsetDim Msgtext As String)= ” ThenFor intCount=0 To 3If Trim(TxtItem(intCount)& Select Case intCountCase 0sMe

17、g=“客房編號”Case 1sMeg=“客房位置”End Select“越壬”警告”where roomNO=sMeg=sMeg& “不能為空！” MsgBox sMeg,vbOKOnly+vbExclamation, txtItem(intCount).SetFocusExit SubEnd IfNext intCountIf gintRmode=1 Then判斷是否有重復記錄txtSQL= ” select * from rooms&Trim(txtItem(0)&Set mrc=ExecuteSQL(txtSQL,msgText)If mrc.EOF=False

18、ThenMsgBox“ 已經存在此客房編號的記錄！ ”,vbOKOnly+vbExclamation,“做小”“警告”txtItem(0).SetFocusExit SubEnd Ifmrc.CloseEnd IfIf gintRmode=2 Then判斷是否處于修改狀態txtSQL=”delete from rooms where roomNO= ”&Trim(txtItem(0)&Set mrc=ExecuteSQL(txtSQL,MsgText)End IftxtSQL= ” select*from rooms ”再加入新記錄Set mrc=ExecuteSQL(txtS

19、QL,MsgText) mrc.AddNew 為數據庫對象添加記錄 mrc.Fields(0)=Trim(txtItem(0) mrc.Fields(1)=Trim(txtItem(0)For intCount=1 To 2If Trim(txtItem(intCount)&”)= ” Thenmrc.Fields(intCount+1)=NullElse mrc.Fields(intCount+1)=Trim(txtItem(intCount)End IfNext intCount mrc.Fields(4)= ”mrc.Fields(5)=Trim(txtItem(3)mrc.Up

20、date mrc.CloseIf gintRmode=1 ThenFor intCount=0 To 3 txtItem(intCount)= ”Next intCount mblChange=False If flagRedit ThenUnload frmRoom frmRoom.txtSQL=” select*from rooms ”重新顯示數據frmRoom.ShowEnd IfElseIf gintRmode=2 ThenUnload MeIf flagRedit ThenUnload frmRoomEnd If frmRoom.txtSQL=” select*from rooms

21、”frmRoom.ShowEnd IfEnd Sub修改客房信息Private Sub menuModifyroom_Click() 選擇修改房間信息，觸 menuModifyroom 的Click事件,程序判斷為修改狀態后，首先 刪除原有記錄，然后把新容加入到數據庫中 Dim intCount As IntegerIf flagRedit Then 判斷記錄窗體是否打開判斷客房信息列表容是否為空 gintRmode=2 設置為修改狀態紀錄當前記錄位置 frmRoom1.txtSQL= ” select*from rooms where roomNO='”'” frmRoom1

22、.ShowElseCall menuAddroom_Click 添加記錄End IfElse frmRoom.txtSQL= ”select*from rooms ” frmRoom.ShowEnd IfEnd Sub刪除客房信息Private Sub menuDeleteroom_Click()Dim txtSQL As StringDim intCount As IntegerDim mrc As ADODB.RecordsetDim MsgText As StringIf flagTedit Then判斷客房信息列表容是否為空If MsgBox“( 真的要刪除這條文件記錄么？” ,vbO

23、KCancel+vbExclamation, “警告” )=vbOK Then記載當前記錄位置txtSQL= ” delete from rooms where roomNO= ” ”'” Set mrc=ExecuteSQL(txtSQL,MsgText) 執行刪除操作 Unload frmRoomfrmRoom.txtSQL=” select*from rooms ”frmRoom.ShowEnd IfEnd IfEnd IfEnd Sub查詢客房信息Private Sub From_Load() 載入窗體時，將自動加入所有記錄的入庫時間Dim i As IntegerDim j As IntegerDim sSql As StringDim txtSQL As StringDim MsgText As StringDim mrc As ADODB.RecordsettxtSQL= ”select DISTINCT typename from roomtype ”初始化客房種類Set mrc=ExecuteSQL(txtSQL,MsgText)If Not mrc.EOF T