數(shù)據(jù)庫課程設(shè)計酒店管理信息系統(tǒng)

1、數(shù)據(jù)庫課程設(shè)計課題 酒店管理系統(tǒng) 班級 0904 學(xué)號 0942001458134 姓名 羅 浩 成績 2010年 10 月 30 日酒店管理信息系統(tǒng)編寫目的酒店在正常的運營中需要對客房資源、顧客信息、結(jié)算信息進行管理，利用賓館管理信息系統(tǒng)及時了解各個環(huán)節(jié)中信息的變更，有利于提高管理效率。系統(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)功能模塊圖 賓館管理信息系統(tǒng)結(jié)算信息管理訂房信息管理客房信息管理系統(tǒng)管理結(jié)算信息查詢結(jié)算信息修改結(jié)算信息添加訂房信息查詢訂房信息修改訂房信息添加剩余客房信息查詢設(shè)置客房信息設(shè)置客房標(biāo)準(zhǔn)密碼管理用戶管理客房信息查詢客房信息修改客房信息添加客房標(biāo)準(zhǔn)修改客房標(biāo)準(zhǔn)添加 圖系統(tǒng)功能模塊圖數(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ù)流程 客房標(biāo)準(zhǔn)設(shè)置基本信息輸入客房登記基本信息錄入客房信息管理顧客登記訂房信息管理訂房信息管理結(jié)算信息

4、輸入結(jié)算信息管理客房信息返回圖 賓館管理信息系統(tǒng)數(shù)據(jù)流程圖 針對一般賓館管理信息系統(tǒng)的需求，通過對賓館管理過程的內(nèi)容和流程分析，設(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ù)項有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入住時間、折扣、備注等。 結(jié)算信息，包括的數(shù)據(jù)項有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入

5、住時間、折扣、結(jié)算時間、備注等。數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 本系統(tǒng)根據(jù)以上的設(shè)計規(guī)劃出的實體有：客房標(biāo)準(zhǔn)信息實體、客房信息實體、訂房信息實體、結(jié)算信息實體。各個實體具體的描述-圖如下：客房標(biāo)準(zhǔn)信息實體標(biāo)準(zhǔn)編號標(biāo)準(zhǔn)名稱床位數(shù)量客房單價客房標(biāo)準(zhǔn)信息實體-圖客房信息實體客房標(biāo)準(zhǔn)客房編號客房位置客房單價客房信息實體-圖訂房信息實體客房信息顧客信息折 扣入住時間訂房信息實體-圖結(jié)算信息實體客房信息顧客信息結(jié)算時間結(jié)算金額結(jié)算信息實體-圖客房標(biāo)準(zhǔn)信息客房登記客房信息管理訂 房訂房信息管理結(jié)算信息管理客房結(jié)算實體之間關(guān)系-圖數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 首先將賓館管理信息系統(tǒng)的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為SQL 2000數(shù)據(jù)庫系統(tǒng)所

6、支持的實際數(shù)據(jù)模型，即：數(shù)據(jù)庫的邏輯結(jié)構(gòu)。其各個表格的設(shè)計結(jié)果如下列名數(shù)據(jù)類型可否為空說明TypeidVarcharNOT NULL標(biāo)準(zhǔn)編號TypenameVarcharNOT NULL標(biāo)準(zhǔn)名稱AreaNumericNULL房間面積BednumNumericNULL床位數(shù)量HairconditionVarcharNULL是否有空調(diào)HtelephoneVarcharNULL是否有電話HtelevisionVarcharNULL是否有電視HtoiletVarcharNULL是否有單獨衛(wèi)生間PriceNumericNULL單價Roomtype 客房標(biāo)準(zhǔn)信息表列名數(shù)據(jù)類型可否為空說明roomNOVar

7、charNOT NULL客房編號RoomtypeVarcharNOT NULL客房種類RoompositionVarcharNULL客房位置RoompriceNumericNULL單價PutupVarcharNOT NULL是否被預(yù)定RoommemoTextNULL備注Rooms 客房信息表列名數(shù)據(jù)類型可否為空說明Bookno VarcharNOT NULL訂房編號CustomnameVarcharNOT NULL 顧客姓名CustomIDVarcharNOT NULL身份證號碼RoomnoVarcharNOT NULL客房編號IndateDatetimeNULL入住日期DiscountNum

8、ericNULL折扣InmenoTextNULL備注CheckdateDatetimeNULL結(jié)算日期AmountNumericNULL金額Bookin 訂房信息表數(shù)據(jù)庫結(jié)構(gòu)的實現(xiàn)利用SQL 2000數(shù)據(jù)庫系統(tǒng)中的查詢分析實現(xiàn)數(shù)據(jù)庫的邏輯結(jié)構(gòu)，其表格如下：創(chuàng)建系統(tǒng)用戶表格 user_Info CREATE TABLE dbo.user_Info1( user_IDchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, user_PWD char (10) COLLATE Chinese_PRC_CI_AS NULL, user_Des char(10) COL

9、LATE Chinese_PRC_CI_AS NULL ) ON PRIMARY 創(chuàng)建客房標(biāo)準(zhǔn)信息表格roomtype CREATE TABLE dbo.roomtype( typeidchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, typenamechar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, areanumeric(5,0) NULL, bednumnumeric(2,0) NULL, hairconditionchar(2) COLLATE Chinese_PRC_CI_AS NULL, htelepho

10、nechar(2) COLLATE Chinese_PRC_CI_AS NULL, htelevisionchar(2) COLLATE Chinese_PRC_CI_AS NULL, htoiletchar(2) COLLATE Chinese_PRC_CI_AS NULL, pricenumeric(10,2)NULL ) ON PRIMARY創(chuàng)建客房信息表格roomsCREATE TABLE dbo.rooms( roomNOchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, roomtypechar(10) COLLATE Chinese_PRC_

11、CI_AS 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_

12、AS NOT 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, ammountnumeri

13、c(10,2) NULL) ON PRIMARY TEXTIMAGE_ON PRIMARY賓館管理信息系統(tǒng)具體程序?qū)崿F(xiàn)客房信息管理模塊的創(chuàng)建 客房信息管理模塊主要實現(xiàn)如下功能： ·添加客房信息 ·修改客房信息 ·刪除客房信息 ·查詢客房信息 具體實現(xiàn)代碼如下：Private Sub From_Load()載入窗體時，自動添加客房信息種類 Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As ADODB.Recordset If gintRmode=1 Th

14、en 判斷是否處于添加狀態(tài) Me.Caption=me.Caption&“添加” txtSQL=”select DISTINCT typename from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not mrc.EOF Then Do While Not mrc.EOF cboItem(0).AddItem Trim(mrc.Fields(0) mrc.MoveNext Loop cboItem(0).ListIndex=0顯示記錄內(nèi)容 Else MsgBox “請先進行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamati

15、on,“警告” cmdSave.Enabled=False Exit Sub End If mrc.Close ElseIf gintRmode=2 Then 判斷是否處于修改狀態(tài) Set mrcc=ExecuteSQL(txtSQL,MsgText)設(shè)置SQL語句顯示當(dāng)前選擇記錄 If mrcc.EOF=False Then With mrcc txtItem(0)=.Fields(0) For intCount=1 To 2 If Not IsNull(.Fields(intCount+1)Then判斷內(nèi)容是否為空 txtItem(intCount)=.Fields(intCount+1)

16、 End If Next intCount txtItem(3)=.Fields(5) txtSQL=”select DISTINCT typename from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not mrc.EOF Then Do While Not mrc.EOF cboItem(0).AddItem Trim(mrc.Fields(0) mrc.MoveNext Loop cboItem(0).ListIndex=0 Else MsgBox“請先進行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamation,“警告”

17、cmdSave.Enabled=False Exit Sub End If mrc.Close End With End If mrcc.Close Me.Caption=Me.Caption&“修改” End If mblChange=FalseEnd SubPrivate Sub cmdSave_Click()單擊保存按鈕觸發(fā)事件 Dim intCount As Integer Dim sMeg As String Dim mrcc As ADODB.Recordset Dim Msgtext As String For intCount=0 To 3 If Trim(TxtIte

18、m(intCount)&”)=” Then Select Case intCount Case 0 sMeg=“客房編號” Case 1 sMeg=“客房位置” End Select sMeg=sMeg&“不能為空！” MsgBox sMeg,vbOKOnly+vbExclamation,“警告” txtItem(intCount).SetFocus Exit Sub End If Next intCount If gintRmode=1 Then判斷是否有重復(fù)記錄 txtSQL=”select * from rooms where roomNO=”&Trim(txtI

19、tem(0)&” Set mrc=ExecuteSQL(txtSQL,msgText) If mrc.EOF=False Then MsgBox “已經(jīng)存在此客房編號的記錄！”,vbOKOnly+vbExclamation,“警告” txtItem(0).SetFocus Exit Sub End If mrc.Close End If If gintRmode=2 Then 判斷是否處于修改狀態(tài) txtSQL=”delete from rooms where roomNO=”&Trim(txtItem(0)&” Set mrc=ExecuteSQL(txtSQL,Ms

20、gText) End If txtSQL=”select*from rooms”再加入新記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) mrc.AddNew為數(shù)據(jù)庫對象添加記錄 mrc.Fields(0)=Trim(txtItem(0) mrc.Fields(1)=Trim(txtItem(0) For intCount=1 To 2 If Trim(txtItem(intCount)&”)=” Then mrc.Fields(intCount+1)=Null Else mrc.Fields(intCount+1)=Trim(txtItem(intCount

21、) End If Next intCount mrc.Fields(4)=” mrc.Fields(5)=Trim(txtItem(3) mrc.Update mrc.Close If gintRmode=1 Then For intCount=0 To 3 txtItem(intCount)=” Next intCount mblChange=False If flagRedit Then Unload frmRoom frmRoom.txtSQL=”select*from rooms”重新顯示數(shù)據(jù) frmRoom.Show End If ElseIf gintRmode=2 Then Un

22、load Me If flagRedit Then Unload frmRoom End If frmRoom.txtSQL=”select*from rooms” frmRoom.Show End If End Sub·修改客房信息Private Sub menuModifyroom_Click()選擇修改房間信息，觸menuModifyroom的Click事件,程序判斷為修改狀態(tài)后，首先刪除原有記錄，然后把新內(nèi)容加入到數(shù)據(jù)庫中 Dim intCount As Integer If flagRedit Then 判斷記錄窗體是否打開 If frmRoom.msgList.Rows&

23、gt;1 Then判斷客房信息列表內(nèi)容是否為空 gintRmode=2設(shè)置為修改狀態(tài)紀(jì)錄當(dāng)前記錄位置frmRoom1.txtSQL=”select*from rooms where roomNO=”&Trim(frmRoom.msgList.TextMatrix(intCount,1)&”frmRoom1.Show Else Call menuAddroom_Click添加記錄End If Else frmRoom.txtSQL=”select*from rooms” frmRoom.ShowEnd IfEnd Sub ·刪除客房信息Private Sub menuD

24、eleteroom_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As ADODB.Recordset Dim MsgText As String If flagTedit Then If frmRoom.msgList.Rows>1 Then判斷客房信息列表內(nèi)容是否為空 If MsgBox(“真的要刪除這條文件記錄么？”,vbOKCancel+vbExclamation,“警告”)=vbOK Then記載當(dāng)前記錄位置 txtSQL=”delete from rooms where roomNO=”&Tr

25、im(frmRoom.msgList.TextMatrix(intCount,1)&” Set mrc=ExecuteSQL(txtSQL,MsgText)執(zhí)行刪除操作Unload frmRoom frmRoom.txtSQL=”select*from rooms” frmRoom.Show End If End If End If End Sub·查詢客房信息Private Sub From_Load()載入窗體時，將自動加入所有記錄的入庫時間 Dim i As Integer Dim j As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset txtSQL=”select DISTINCT typename from