【導(dǎo)讀】傳統(tǒng)的人工管理方式效率低，成本高，出錯(cuò)率高的缺點(diǎn)而設(shè)計(jì)開發(fā)的。信息管理、入住、預(yù)定、調(diào)房和退房管理是系統(tǒng)開發(fā)的重點(diǎn)。同時(shí)，也提供各種。方便快捷的查詢和實(shí)時(shí)更新功能。本論文立足于現(xiàn)階段中小酒店的特點(diǎn)進(jìn)行設(shè)。面闡述，從而開發(fā)出一個(gè)適合中小酒店管理使用的酒店客房管理信息系統(tǒng)。

　　

【正文】 各種功能，在實(shí)際工作中減少了人力、物力的耗費(fèi)。但由于一開始欠缺系統(tǒng)開發(fā)經(jīng)驗(yàn)，沒有較好的從總體把握好系統(tǒng)結(jié)構(gòu)的設(shè)計(jì)，導(dǎo)致在開發(fā)過程中走了一 些彎路，部分工作需要返工。但在指導(dǎo)老師的幫助和與小組成員康培燕同學(xué)的共同努力下，最終我們還是克服了重重的困難，如期完成了我們的畢業(yè)設(shè)計(jì)。 本次畢業(yè)設(shè)計(jì)，從系統(tǒng)的分析、設(shè)計(jì)、編碼、測試，自己都動(dòng)腦、動(dòng)手去解決。從而對軟件開發(fā)過程有了一個(gè)更深的認(rèn)識(shí)，同時(shí)也熟悉了基礎(chǔ)知識(shí)的運(yùn)用，受益良多。同時(shí)也出現(xiàn)一些問題，需要通過以后的進(jìn)一步實(shí)踐和學(xué)習(xí)去解決。 37 參考文獻(xiàn) [1]龔沛曾 ,楊志強(qiáng) ,陸慰民 .Visual Basic 程序設(shè)計(jì)教程 [M].高等教育出版社 ,2020,3. [2]黃梯 云 ,李一軍 .管理信息系統(tǒng) [M].高等教育出版社 ,2020,7. [3]刁成嘉 .UML 系統(tǒng)建模與分析設(shè)計(jì) [M].機(jī)械工業(yè)出版社 ,2020,6. [4] 薩師煊 ,王珊 .數(shù)據(jù)庫系統(tǒng)概論 [M].高等教育出版社 ,2020,6. [5] 張艷華 .中小型酒店管理信息系統(tǒng)設(shè)計(jì) [J].微機(jī)發(fā)展 ,2020,15(6):152154. [6] 彭偉民 ,唐平 ,易珺 .基于需求的酒店管理系統(tǒng)的建模與實(shí)現(xiàn) [J].微機(jī)發(fā)展 ,2020,15(6):7577. [7] 易珺 ,路璐等 .構(gòu)建基于 CRM 理念的中小型酒店管理信息系統(tǒng) [J].計(jì)算機(jī) 與數(shù)字工程 ,2020,33(6):1922. [8] 鄧良松 ,劉海巖等 .軟件工程 [M].西安 :西安電子科技大學(xué)出版社 ,2020. [9]翟廣宇 .基于 C/S 結(jié)構(gòu)的酒店管理系統(tǒng) . 蘭州工業(yè)高等?？茖W(xué)報(bào) ,. [10]薛華成 .管理信息系統(tǒng) [M].清華大學(xué)出版社 ,. [11]候炳輝 ,劉世峰 .信息管理系統(tǒng) [J].信息管理系統(tǒng)分析 ,:254562. [12]童德利 ,田娟 ,謝琪 ,陳世福 .基于 B/S 模式的構(gòu)件式酒店管理信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) .. [13]劉學(xué)明 .飯店客房管理 [M].廣東旅游出版社， . [14] 張亞東 . 酒店企業(yè)銷售管理信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) [J]. 管理信息系統(tǒng) , :45249. [15]李朝暉 .PowerBuilder 開發(fā)實(shí)例完全剖 [J].:122189. [16]馬秀蓮 ,高志安 .賓館管理系統(tǒng)的設(shè)計(jì) .黑龍江八一農(nóng)墾大學(xué)信息技術(shù)學(xué)院 ,. 38 附錄 1 系統(tǒng)功能實(shí)現(xiàn)方法 使用 ADO 方法訪問數(shù)據(jù)庫代碼設(shè)計(jì) Option Explicit ’強(qiáng)制變量定義 Public n As Public Conn As String Public strDB As String Dim Connect_Num As Integer Dim IsConnect As Boolean Dim CONNECT_LOOP_MAX As Integer Public strName As String 39。操作員 Private Sub Connect() 39。連接數(shù)據(jù)庫 If IsConnect = True Then 39。如果連接標(biāo)記為真，則返回。否則會(huì)出錯(cuò) Exit Sub End If Set n = New 39。關(guān)鍵 New 用于創(chuàng)建新對象 n = Conn 39。設(shè)置連接字符串 ConnectionString 屬性 39。打開到數(shù)據(jù)庫的連接 If adStateOpen Then 39。判斷連接的狀態(tài) MsgBox 數(shù)據(jù)庫連接失敗 , vbOKOnly + vbCritical, 警告 39。如果連接不成功，則顯示提示信息，退出程序 End End If IsConnect = True 39。設(shè)置連接標(biāo)記，表示已經(jīng)連接到數(shù)據(jù)庫 End Sub Public Sub Disconnect() 39。斷開與數(shù)據(jù)庫的連接 Dim rc As Long If IsConnect = False Then Exit Sub 39。如果連接標(biāo)記為假，標(biāo)明已經(jīng)斷開連接，則直接返回 39。關(guān)閉連接 Set n = Nothing IsConnect = False End Sub Public Sub DB_Connect() 39。使用 Connect_Num 控制數(shù)據(jù)庫連接 Connect_Num = Connect_Num + 1 Connect End Sub Public Sub DB_Disconnect() 39 If Connect_Num = CONNECT_LOOP_MAX Then Connect_Num = 0 Disconnect End If End Sub Public Sub DBapi_Disconnect() 39。強(qiáng)制關(guān)閉 api 方式訪問的數(shù)據(jù)庫，計(jì)數(shù)器復(fù)位 Connect_Num = 0 Disconnect End Sub Public Sub SQLExt(ByVal TmpSQLstmt As String) 39。執(zhí)行數(shù)據(jù)庫操作語句 Dim cmd As New 39。創(chuàng)建 Command 對象 cmd DB_Connect 39。連接到數(shù)據(jù)庫 Set = n 39。設(shè)置 cmd 的 ActiveConnection 屬性，指定與其關(guān)聯(lián)的數(shù)據(jù)庫連接 = TmpSQLstmt 39。設(shè)置要執(zhí)行的命令文本 Set cmd = Nothing DB_Disconnect End Sub Public Function QueryExt(ByVal TmpSQLstmt As String) As 39。執(zhí)行數(shù)據(jù)庫查詢語句 Dim rst As New DB_Connect 39。連接到數(shù)據(jù)庫 Set = n 39。設(shè)置 rst 的 ActiveConnection 屬性，指定與其關(guān)聯(lián)的數(shù)據(jù)庫連接 = adOpenKeyset = adLockOptimistic 39。設(shè)置鎖定類型 TmpSQLstmt 39。打開記錄集 Set QueryExt = rst 39。返回記錄集 End Function 主界面代碼設(shè)計(jì) Private Sub Command1_Click() 39。單擊前臺(tái)接待按鈕進(jìn)入前臺(tái)接待界面 前臺(tái)接待 .Show Unload Me End Sub Private Sub Command2_Click() ’單擊收銀管理按鈕進(jìn) 入收銀管理界面 Unload Me 收銀管理 .Show End Sub 40 Private Sub Command5_Click() 39。單擊會(huì)員管理按鈕進(jìn)入會(huì)員管理界面 會(huì)員管理 .Show Unload Me End Sub Private Sub Command6_Click() ’單擊退出按鈕退出系統(tǒng) Unload Me End Sub Private Sub Form_Load() 39。窗體加載過程讀取操作員類型，并分配權(quán)限 Label6 = 登錄框 .user Label7 = Date If 系統(tǒng)管理員 Then = False End If End Sub Private Sub Timer1_Timer() ’計(jì)時(shí)器，更新系統(tǒng)時(shí)間 = Time 39。每秒時(shí)間更新一次 End Sub 以前臺(tái)接待子系統(tǒng)為例的代碼設(shè)計(jì) Option Explicit ’強(qiáng)制變量定義 Public RoomId As String Public change As String Public yuding As String Dim iRoomState(5) As Integer 39。保存各種房態(tài)房間的數(shù)量 Private Sub cmdClean_Click() ’入住登記 Dim rs As Recordset Set rs = QueryExt(select * from 客房 where 房間號(hào) =39。 amp。 amp。 39。 ) If Then MsgBox 房間號(hào)錯(cuò)誤請重新輸入！ , , 提示 Exit Sub ElseIf rs(房態(tài) ) 空房 And rs(房態(tài) ) 預(yù)定 Then MsgBox 當(dāng)前房間不可入住，請重新選擇房間！ , , 提示 Exit Sub End If 住宿登記 .Show Unload 前臺(tái)接待 End Sub Private Sub cmdExit_Click() ‘退出 41 Unload Me 主界面 .Show End Sub Private Sub cmdFree_Click() ’房間預(yù)訂 Dim rs As Recordset Set rs = QueryExt(select * from 客房 where 房間號(hào) =39。 amp。 amp。 39。 ) If Then MsgBox 房間號(hào)錯(cuò)誤請重新輸入！ , , 提示 Exit Sub ElseIf rs(房態(tài) ) 空房 Then MsgBox 當(dāng)前房間不可預(yù)訂，請重新選擇房間！ , , 提示 Exit Sub End If 預(yù)定登記 .Show Unload Me End Sub Private Sub cmdMaint_Click() ’預(yù)定取消 Dim rs As Recordset Set rs = QueryExt(select * from 客房 where 房間號(hào) =39。 amp。 amp。 39。 ) If Then MsgBox 房間號(hào)錯(cuò)誤請重新輸入！ , , 提示 Exit Sub ElseIf rs(房態(tài) ) 預(yù)定 Then MsgBox 當(dāng)前房間未預(yù)定，請重新選擇房 間！ , , 提示 Exit Sub End If 預(yù)定取消 .Show Unload Me End Sub Private Sub cmdOWN_Click() ’房間調(diào)換 Dim rs As Recordset Set rs = QueryExt(select * from 客房 where 房間號(hào) =39。 amp。 amp。 39。 ) If Then MsgBox 房間號(hào)錯(cuò)誤請重新輸入！ , , 提示 Exit Sub ElseIf rs(房態(tài) ) 入住 Then 42 MsgBox 當(dāng)前房間不可調(diào)換，請重新選擇房間！ , , 提示 Exit Sub End If = InputBox(請輸目標(biāo)房號(hào) :, 查找窗 ) If = Then Exit Sub Set rs = QueryExt(select * from 客房 where 房間號(hào) =39。 amp。 amp。 39。) If Then MsgBox 房間號(hào)錯(cuò)誤請重 新輸入！ , , 提示 Exit Sub ElseIf rs(房態(tài) ) 空房 Then MsgBox 當(dāng)前房間不可入住，請重新選擇房間！ , , 提示 Exit Sub End If 調(diào)房登記 .Show Unload Me End Sub Private Sub Command6_Click() ’房態(tài)修改 Dim rs As Recordset Set rs = QueryExt(select * from 客房 where 房間號(hào) =39。 amp。 amp。 39。 ) If Then MsgBox 房間號(hào)錯(cuò)誤請重新輸入！ , , 提示 Exit Sub End If 房態(tài)修改 .Show Unload Me End Sub Private Sub Form_Load() RoomState 39。調(diào)用過程顯示房態(tài) End Sub Private Sub ListView1_ItemClick(ByVal Item As ) 39。獲取選中項(xiàng)的房 間號(hào) If Then = End If End Sub Private Sub Timer2_Timer() RoomState