(精品論文)酒店管理信息系統(tǒng)

酒店管理信息系統(tǒng)系統(tǒng)平臺：Windows 2000數(shù)據(jù)庫服務器：Microsoft SQL Server 2000開發(fā)工具：Visual Basic 6.0系統(tǒng)開發(fā)人員： 編寫目的酒店在正常的運營中需要對客房資源、顧客信息、結算信息進行管理，利用賓館管理信息系統(tǒng)及時了解各個環(huán)節(jié)中信息的變更，有利于提高管理效率。系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務是實現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動化。主要完成功能： 有關客房標準的制定、標準信息的輸入，包括標準編號、標準名稱、房間面積、床位數(shù)量、住房單價、是否有空調(diào)、電視機、電話以及單獨衛(wèi)生間等。 客房標準信息的修改、查詢等。 客房基本信息的輸入，包括客房編號、客房類型、客房位置、客房單價、備注等。 客房基本信息的查詢、修改，包括客房編號、客房類型、客房位置、客房單價、備注等。 剩余客房信息的查詢等。 訂房信息的輸入，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。 訂房信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。 結算信息的輸入，包括客房編號、客房種類、位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結算日期、備注信息等。 結算信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結日期、備注信息等。系統(tǒng)功能模塊設計 按結構化程序設計思想，分析得出如下系統(tǒng)功能模塊圖 賓館管理信息系統(tǒng)結算信息管理訂房信息管理客房信息管理系統(tǒng)管理結算信息查詢結算信息修改結算信息添加訂房信息查詢訂房信息修改訂房信息添加剩余客房信息查詢設置客房信息設置客房標準密碼管理用戶管理客房信息查詢客房信息修改客房信息添加客房標準修改客房標準添加 圖系統(tǒng)功能模塊圖數(shù)據(jù)庫設計數(shù)據(jù)庫設計步驟： 數(shù)據(jù)庫需求分析 數(shù)據(jù)庫概念結構設計 數(shù)據(jù)庫邏輯結構設計數(shù)據(jù)庫需求分析分析調(diào)查有關賓館管理信息需求的基礎上得本系統(tǒng)所處理的數(shù)據(jù)流程 客房標準設置基本信息輸入客房登記基本信息錄入客房信息管理顧客登記訂房信息管理訂房信息管理結算信息輸入結算信息管理客房信息返回圖 賓館管理信息系統(tǒng)數(shù)據(jù)流程圖 針對一般賓館管理信息系統(tǒng)的需求，通過對賓館管理過程的內(nèi)容和流程分析，設計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結構： 客房標準信息，包括的數(shù)據(jù)項有：標準編號、標準名稱、房間面積、床位數(shù)量、住房單價、是否有空調(diào)、電視、電話、單獨衛(wèi)生間等。 客房信息，包括的數(shù)據(jù)項有：客房編號、客房種類、客房位置、客房單價、備注等。 訂房信息，包括的數(shù)據(jù)項有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入住時間、折扣、備注等。 結算信息，包括的數(shù)據(jù)項有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入住時間、折扣、結算時間、備注等。數(shù)據(jù)庫概念結構設計 本系統(tǒng)根據(jù)以上的設計規(guī)劃出的實體有：客房標準信息實體、客房信息實體、訂房信息實體、結算信息實體。各個實體具體的描述-圖如下：客房標準信息實體標準編號標準名稱床位數(shù)量客房單價客房標準信息實體-圖客房信息實體客房標準客房編號客房位置客房單價客房信息實體-圖訂房信息實體客房信息顧客信息折 扣入住時間訂房信息實體-圖結算信息實體客房信息顧客信息結算時間結算金額結算信息實體-圖客房標準信息客房登記客房信息管理訂 房訂房信息管理結算信息管理客房結算實體之間關系-圖數(shù)據(jù)庫邏輯結構設計 首先將賓館管理信息系統(tǒng)的數(shù)據(jù)庫概念結構轉化為SQL 2000數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，即：數(shù)據(jù)庫的邏輯結構。其各個表格的設計結果如下列名數(shù)據(jù)類型可否為空說明TypeidVarcharNOT NULL標準編號TypenameVarcharNOT NULL標準名稱AreaNumericNULL房間面積BednumNumericNULL床位數(shù)量HairconditionVarcharNULL是否有空調(diào)HtelephoneVarcharNULL是否有電話HtelevisionVarcharNULL是否有電視HtoiletVarcharNULL是否有單獨衛(wèi)生間PriceNumericNULL單價Roomtype 客房標準信息表列名數(shù)據(jù)類型可否為空說明roomNOVarcharNOT NULL客房編號RoomtypeVarcharNOT NULL客房種類RoompositionVarcharNULL客房位置RoompriceNumericNULL單價PutupVarcharNOT NULL是否被預定RoommemoTextNULL備注Rooms 客房信息表列名數(shù)據(jù)類型可否為空說明Bookno VarcharNOT NULL訂房編號CustomnameVarcharNOT NULL 顧客姓名CustomIDVarcharNOT NULL身份證號碼RoomnoVarcharNOT NULL客房編號IndateDatetimeNULL入住日期DiscountNumericNULL折扣InmenoTextNULL備注CheckdateDatetimeNULL結算日期AmountNumericNULL金額Bookin 訂房信息表數(shù)據(jù)庫結構的實現(xiàn)利用SQL 2000數(shù)據(jù)庫系統(tǒng)中的查詢分析實現(xiàn)數(shù)據(jù)庫的邏輯結構，其表格如下：創(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) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY 創(chuàng)建客房標準信息表格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, htelephonechar(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_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_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, ammountnumeric(10,2) NULL) ON PRIMARY TEXTIMAGE_ON PRIMARY賓館管理信息系統(tǒng)具體程序實現(xiàn)創(chuàng)建公用模塊 Module1.bas 添加公共數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語句。添加函數(shù)ExecuteSQL，代碼如下：Public Function ExecuteSQL(ByValSQL As String,MsgString AsString)_ As ADODB.Recordset 執(zhí)行SQL語句，并返回記錄集對象Dim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As String異常處理On Error GoTo ExecuteSQL_Error用Split函數(shù)產(chǎn)生一個包含各個子串的數(shù)組 sTokens=Split(SQL) Set cnn=NEW ADODB.Connection打開連接 cnn.Open ConnectString If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0) Then Cnn.Execute SQL MsgString=sTokens(0)&”query successful” Else Set rst=NEW ADODO.Recordset rst.Open Trim$(SQL),cnn,adOpenKeyset,adLockOptimistic rst.MoveLast get RecordCount 返回記錄集對象 Set ExecuteSQL=rst MsgString=”查詢到”&rst.RecordCount&”條記錄” End IfExecuteSQL_Exit: Set rst=Nothing Set cnn=Nothing Exit FunctionExecuteSQL_Error: MsgString=”查詢錯誤:”&Err.Description Resume ExecuteSQL_ExitEnd FunctionPublic Sub EnterToTab(Keyasc As Integer)判斷是否為回車鍵 If Keyasc=13 Then Keyasc用來保存當前按鍵 轉換成Tab鍵 SendKeys”TAB” End IfEnd sub添加全局變量，用來記錄各個窗口的讀寫狀態(tài)，代碼如下：Public flagTedit As Boolean 標示是否進入修改的窗體Public flagRedit As BooleanPublic flagBedit As BooleanPublic flagCedit As BooleanPublic gintCmode As Integer Public gintTmode As Integer 記錄是添加還是修改狀態(tài)，1為添加，2為修改Public gintRmode As IntegerPublic gintBmode As Integer Public flagSedit As Boolean系統(tǒng)用戶管理模塊的創(chuàng)建 用戶管理模塊主要實現(xiàn)： 用戶登陸。 添加用戶。修改用戶 具體客房標準添加代碼：Private Sub Form_Load() 載入窗體后，判斷所處狀態(tài) Dim intCount As Integer Dim MsgText As String Dim i As Integer If gintTmode=1 Then 判斷是否屬于添加狀態(tài) Me.Caption=Me.Caption & ”添加” For i=0 To 3 Combo1(i).AddItem ”否” Combo1(i).AddItem ”是” Combo1(i).ListIndex=0 Next i ElseIf gintTmode=2 Then 判斷是否處于修改狀態(tài) Set mrc=ExecuteSql(txtSQL,MsgText) If mrc.EOF=false Then With mrc For intCount=0 To 3 txtItem(intCount)=.Fields(intCount) Next intCount txtItem(4)=.Fileds(8) For i=0 To 3 Combo1(i).Additem ”否” Combo1(i).Additem ”是” Combo1(i).ListIndex=0 Next i End With txtItem(0).Enabled=False End If Me.Caption=Me.caption&”修改”End IfmblChang=False End SubPrivate Sub cmd_Click()用戶輸入內(nèi)容完畢后，單擊cmdSave按鈕觸發(fā)Click事件 Dim intCount As Integer Dim sMeg As String Dim MsgText As String For intCount=0 To 4 判斷是否輸入內(nèi)容 If Trim(txtItem(intCount)&”)=” Then Select Case intCount Case 0 sMeg=”標準編號” Case 1 sMeg=”標準名稱” Case 2 sMeg=”房間面積” Case 3 sMeg=”床位數(shù)量” Case 4 sMeg=”床位單價” End Select sMeg=sMeg&”不能為空!” MsgBox sMeg,vbOkOnly+vbExclamation,”警告” txtItem(intCount).SetFocus Exit Sub End if Next intCount 判斷輸入內(nèi)容是否為數(shù)字 For intCount=2 To 4 If Not IsNumeric(Trim(txtItem(intCount) Then Select Case intCount Case 2 sMeg=”房間面積” Case 3 sMeg=”床位數(shù)量” Case 4 sMeg=”床位單價” End Select sMeg=sMeg&”請輸入數(shù)字!”MsgBox sMeg,vbOKOnly+vbExclamation,”警告”txtItem(intCount).SeFocusExit Sub End If Next intCount If gintTmode=1 Then 判斷是否有相同ID記錄 txtSQL=”select*from roomtype where typeid_ =”&Trim(txtItem(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 txtSQL=”select * from roomtype where typeid”&Trim(txtItem(0)&”and typename=”&Trim(txtItem(1)&” Set mrc=ExecuteSQL(txtSQL,MsgText) If mrc.EOF=False Then MsgBox”已經(jīng)存在相同客房標準的記錄!”,vbOKOnly+vbExclamation,“警告” txtItem(1).Setfocus Exit Sub End If txtSQL=”delete from roomtype where typeid=”&Trim(txtItem(0)&”刪除已有記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) txtSQL=”select *from roottype”添加新記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) mrc.AddNew For intCount=0 To 3 mrc.Fields(intCount)=Trim(txtItem(intCount) Next intCount For intCount=0 To 3 mrc.Fields(intCount+4)=Trim(Combo1(intCount) Next intCount mrc.Fields(8)=Trim(txtItem(4) mrc.Update 更新數(shù)據(jù)庫 mrc.Close if gintTmode=1 Then 判斷是否屬于添加狀態(tài) MsgBox “添加紀錄成功!”,vbOKOnly+vbExclamtion,“添加記錄” For intCount=0 To 4 txtItem(intCount)=” 清除已經(jīng)輸入的內(nèi)容 Next intCount For intCount=0 To 3 Combo1(intCount).ListIndex=0 Next intCount mblChange=False判斷是否打開窗口 if flagTedit Then Unload frmRoomtype frmRoomtype.txtSQL=“select *from roomtype” frmRoomtype.Show End If ElseIf gintTmode=2 Then 判斷是否處于修改狀態(tài) Unload Me If flagTedit Then Unload frmRoomtype EndIf frmRoomtype.txtSQL=”select *from roomtype” frmRoomtype.Show End If End SubPrivate Sub txtItem_GotFocus(Index As Integer)文本框獲得焦點時觸發(fā)該事件，即自動選中輸入的內(nèi)容，便于修改txtItem(Index).SelStart=0txtItem(Index).SelLength=Len(txtItem(Index)End SubPrivate Sub cmdExit_Click()單擊按鈕cmdExit取消添加信息If mblChange And cmdSave.Enabled Then If MsgBox(“保存當前記錄的變化嗎？”,vbOKCancel+vbExclamation,”警告”)=vbOK Then 保存 Call cmdSave_Click End IfEnd IfUnload MeEnd SubPrivate Sub txtItem_KeyDown(Index As Integer,KeyCode As Integer,Shift_ As Integer)輸入完內(nèi)容，單擊回車鍵將自動進入下一個文本框，觸發(fā)文本框的Keydown事件 EnterToTab KeyCodeEnd Sub修改客房標準窗體的創(chuàng)建Private Sub From_Load()ShowTitleShowDataflagTedit=TrueEnd SubPrivate Sub ShowTitle()調(diào)用showTitle函數(shù)，顯示表頭Dim i As IntegerWith msgList .Cols=10 .TextMatrix(0,1)=”標準編號” .TextMatrix(0,2)=”標準名稱” .TextMatrix(0,3)=”房間面積” .TextMatrix(0,4)=”床位數(shù)量” .TextMatrix(0,5)=”是否有空調(diào)” .TextMatrix(0,6)=”是否有電話” .TextMatrix(0,7)=”是否有電視” .TextMatrix(0,8)=”是否有衛(wèi)生間” .TextMatrix(0,9)=”房間單價” .FixedRows=1固定表頭 For i=0 To 9 設置各列的對齊方式 .ColAlignment(i)=0 Next i .FillStyle=flexFillRepeat表頭項居中 .Col=0 .Row=0 .RowSel=1 .ColSel=.Cols-1 .CellAlignment=4 .ColWidth(0)=300設置單元大小 .ColWidth(1)=1000 .ColWidth(2)=2000 .ColWidth(3)=2000 .ColWidth(4)=1000 .ColWidth(5)=1000 .ColWidth(6)=1000 .ColWidth(7)=1000 .ColWidth(8)=1000 .ColWidth(9)=1000 .Row=1End WithEnd SubPrivate Sub ShowData()調(diào)用showData函數(shù)，顯示記錄列表 Dim i As Integer Set mrc=ExecuteSQL(txtSQL,MsgText)根據(jù)需要設置SQL語句，顯示需要的記錄 With msgList .Rows=1 Do While Not mrc.EOF .Rows=Rows+1 For i=1 To mrc.Fields.Count Select Case mrc.Fields(i-1).Type Case adDBDate .TextMatrix(.Rows-1,i)=Format(mrc.Fields(i-1)&”,”yyyy-mm-dd”) Case Else .TextMatrix(.Rows-1,i)=mrc.Fields(i-1)&” End Select Next i Mrc.MoveNext Loop End With mrc.CloseEnd SubPrivate Sub msgList_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)選擇記錄，然后單擊鼠標右鍵，觸發(fā)MouseUp事件 If Button=2 And Shift=0 Then PopupMenu fMainFrom.menuRoomtype End IfEnd SubPrivate Sub menuModifyroomtype_Click() Dim intCount As Integer If flagTedit Then 判斷是否打開記錄窗體 If frmRoomtype.msgList.Rows1 Then fintTmode=2設置為修改狀態(tài) intCount=frmRoomtype.msgList.Row記下選擇記錄 frmRoomtype1.txtSQL=”select*from roomtype where typeid”&Trim(frmRoomtype.msgList.TextMatrix(intCount,1)&” frmRoomtype1.Show Else Call menuAddroomtype_Click End If Else frmRoomtype.txtSQL=”select*from roomtype” frmRoomtype.Show End IfEnd SubPrivate Sub From_Resize()窗體變化時，調(diào)整標簽和表格位置，使標簽處于窗體的最上方，而表格始終處于標簽下方 If Me.WindowStatevbMinimized And fMainFrom.WindowStatevbMinimized Then邊界處理 If Me.Scaleheight10*lblTitle.Height Then Exit Sub End If If Me.ScaleWidth1 Then If MsgBox(“真的要刪除這條文件記錄么？”，vbOKCancel+vbExclamation,”警告”)=vbOK Then intCount=frmRoomtype.msgList.Row txtSQL=”delete from roomtype where typeid”&Trim(frmRoomtype.msgList.TextMatrix(intCount,1)&” Set mrc=ExecuteSQL(txtSQL,MsgText) Unload frmRoomtype關閉記錄窗體 frmRoomtype.txtSQL=”select*from roomtype”重新選擇所有記錄 frmRoomtype.Show End If End If End IfEnd Sub客房信息管理模塊的創(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 Then 判斷是否處于添加狀態(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 “請先進行客房標準設置!”,vbOKOnly+vbExclamation,“警告” cmdSave.Enabled=False Exit Sub End If mrc.Close ElseIf gintRmode=2 Then 判斷是否處于修改狀態(tài) Set mrcc=ExecuteSQL(txtSQL,MsgText)設置SQL語句顯示當前選擇記錄 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) 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“請先進行客房標準設置!”,vbOKOnly+vbExclamation,“警告” 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(TxtItem(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判斷是否有重復記錄 txtSQL=”select * from rooms where roomNO=”&Trim(txtItem(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,MsgText) 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(intCoun