1、數(shù)據(jù)庫課程設(shè)計課題酒店管理系統(tǒng)班級0904學(xué)號 34羅浩成績2010年10月30日酒店管理信息系統(tǒng)1. 編寫目的酒店在正常的運營中需要對客房資源、 顧客信息、結(jié)算信息進行管理，利用賓 館管理信息系統(tǒng)及時了解各個環(huán)節(jié)息的變更，有利于提高管理效率。2. 系統(tǒng)功能分析系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)化和自動化。主要完成功能：有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入，包括標(biāo)準(zhǔn)編號、標(biāo)準(zhǔn)名稱、房間 面積、床位數(shù)量、住房單價、是否有空調(diào)、電視機、以及單獨衛(wèi)生間等。客房標(biāo)準(zhǔn)信息的修改、查詢等。客房基本信息的輸入，包括客房編號、客房類型、客房位置、客房單價、備注等。客房基本信息的查詢、修改，包括客房

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

3、圖I系統(tǒng)功能模塊圖4. 數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計步驟：數(shù)據(jù)庫需求分析數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 數(shù)據(jù)庫需求分析分析調(diào)查有關(guān)賓館管理信息需求的基礎(chǔ)上得本系統(tǒng)所處理的數(shù)據(jù)流程圖H賓館管理信息系統(tǒng)數(shù)據(jù)流程圖針對一般賓館管理信息系統(tǒng)的需求，通過對賓館管理過程的容和流程分析， 設(shè) 計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)： 客房標(biāo)準(zhǔn)信息，包括的數(shù)據(jù)項有：標(biāo)準(zhǔn)編號、標(biāo)準(zhǔn)名稱、房間面積、床位 數(shù)量、住房單價、是否有空調(diào)、電視、單獨衛(wèi)生間等。 客房信息，包括的數(shù)據(jù)項有：客房編號、客房種類、客房位置、客房單價、 備注等。 訂房信息，包括的數(shù)據(jù)項有：訂房編號、客房編號、客房種類、客房位置、 客房備注信息、顧客、顧客、

4、入住時間、折扣、備注等。 結(jié)算信息，包括的數(shù)據(jù)項有：訂房編號、客房編號、客房種類、客房位置、 客房備注信息、顧客、顧客、入住時間、折扣、結(jié)算時間、備注等。 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計本系統(tǒng)根據(jù)以上的設(shè)計規(guī)劃出的實體有：客房標(biāo)準(zhǔn)信息實體、客房信息實體、 訂房信息實體、結(jié)算信息實體。各個實體具體的描述E - R圖如下：客房標(biāo)準(zhǔn)信息實體E - R圖客房信息實體E - R圖訂房信息實體E - R圖結(jié)算信息實體E - R圖客房標(biāo)準(zhǔn)信息客房信息管理訂房信息管理結(jié)算信息管理實體之間關(guān)系E - R圖 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計首先將賓館管理信息系統(tǒng)的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為SQL 2000數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，即：數(shù)據(jù)

5、庫的邏輯結(jié)構(gòu)。其各個表格的設(shè)計結(jié)果如下列名數(shù)據(jù)類型可否為空說明TypeidVareharNOT NULL標(biāo)準(zhǔn)編號Type nameVareharNOT NULL標(biāo)準(zhǔn)名稱AreaNumericNULL房間面積BednumNumericNULL床位數(shù)量Haire on diti onVareharNULL是否有空調(diào)Hteleph oneVareharNULL是否有Htelevisi onVareharNULL是否有電視HtoiletVareharNULL是否有單獨衛(wèi)生間PriceNumerieNULL單價Roomtype客房標(biāo)準(zhǔn)信息表列名數(shù)據(jù)類型可否為空說明roomNOVarcharNOT NUL

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

7、TextNULL備注CheckdateDatetimeNULL結(jié)算日期AmountNumericNULL金額Bookin訂房信息表5. 數(shù)據(jù)庫結(jié)構(gòu)的實現(xiàn)利用SQL 2000數(shù)據(jù)庫系統(tǒng)中的查詢分析實現(xiàn)數(shù)據(jù)庫的邏輯結(jié)構(gòu)，其表格如 下：創(chuàng)建系統(tǒng)用戶表格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創(chuàng)建客房標(biāo)準(zhǔn)信息表格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創(chuàng)建客房信息表格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創(chuàng)建訂房信息表 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&賓館管理信息系統(tǒng)具體程序?qū)崿F(xiàn)客房信息管理模塊的創(chuàng)建客房信息管理模塊主要實現(xiàn)如下功能：添加客房信息修改客房信息刪除客房信息查詢客房信息 具體實現(xiàn)代碼如下：Private Sub From_Load() 載入窗體時，自動添加客房信息種類Dim sSql As StringDim intCount As IntegerDim MsgText As StringDim mrcc As ADODB.RecordsetIf gintRmode=1 Then 判斷是否處于添加狀態(tài)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 “請先進行客房標(biāo)準(zhǔn)設(shè)置 ! ”,vbOKOnly+vbExclamation,“越壬”警告”cmdSave.Enabled=FalseExit SubE

14、nd If mrc.CloseElseIf gintRmode=2 Then 判斷是否處于修改狀態(tài)Setmrcc=ExecuteSQL(txtSQL,MsgText)'設(shè)置 SQL語句顯示當(dāng)前選擇記錄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“ 請 先 進 行 客 房 標(biāo) 準(zhǔn) 設(shè)置！ ” ,vbOKOnly+vbExclamation, “警告” cmdSave.Enabled=FalseExit SubEnd Ifmrc.Cl

16、oseEnd WithEnd Ifmrcc.CloseMe.Caption=Me.Caption&“修改”End IfmblChange=FalseEnd SubPrivate Sub cmdSave_Click() 單擊保存按鈕觸發(fā)事件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判斷是否有重復(fù)記錄txtSQL= ” select * from rooms&Trim(txtItem(0)&Set mrc=ExecuteSQL(txtSQL,msgText)If mrc.EOF=False

18、ThenMsgBox“ 已經(jīng)存在此客房編號的記錄！ ”,vbOKOnly+vbExclamation,“做小”“警告”txtItem(0).SetFocusExit SubEnd Ifmrc.CloseEnd IfIf gintRmode=2 Then判斷是否處于修改狀態(tài)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 為數(shù)據(jù)庫對象添加記錄 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 ”重新顯示數(shù)據(jù)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事件,程序判斷為修改狀態(tài)后，首先 刪除原有記錄，然后把新容加入到數(shù)據(jù)庫中 Dim intCount As IntegerIf flagRedit Then 判斷記錄窗體是否打開判斷客房信息列表容是否為空 gintRmode=2 設(shè)置為修改狀態(tài)紀(jì)錄當(dāng)前記錄位置 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記載當(dāng)前記錄位置txtSQL= ” delete from rooms where roomNO= ” ”'” Set mrc=ExecuteSQL(txtSQL,MsgText) 執(zhí)行刪除操作 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