【正文】 oration and Warehouse Management Systems[M], Press, 2021:83104. [3] Frank Buschman, Kevlin Henney, Douglas C. Schmidt, PatternOriented Software Architecture: A Pattern Language for Distributed Computing[M], John Wiley and Sons Press,2021:6065. [4] 薛華成 . 管理信息系統(tǒng) [M ]. 清華大學(xué)出版社 , 2021. [5] 朱達(dá)欣．蔡丹琳．酒店住宿管理系統(tǒng)的設(shè)計與實現(xiàn) [J]．泉州師范學(xué)院學(xué)報， 2021年 04期． [6] 陳偉，朱峰，魏敏：飯店顧客滿意綜合評價理論體系及實證研究 [J]．桂林旅游高等?？茖W(xué)校學(xué)報， ，第 4 卷，第 5 期。 [7] 黃梯云 .管理信息系統(tǒng)［ M］ .北京：高等教育出版社， 2021： 25－ 39． [8] 任民宏 . 客房管理系統(tǒng)的設(shè)計與實現(xiàn) [J]. 電腦知識與技術(shù) (學(xué)術(shù)交流 ),2021, (10) . [9] 趙建功 ,秦曉明 . 賓館客房信息管理系統(tǒng)的設(shè)計與實現(xiàn) [J]. 襄樊職業(yè)技術(shù)學(xué)院學(xué)報 , 2021, (04) . [10] 馬秀蓮 ,高志安 . 賓館管理系統(tǒng)的設(shè)計 [J]. 邊疆經(jīng)濟(jì)與文化 , 2021, (06) . [11] 劉啟明 ,王峰 . 客房管理系統(tǒng)的實現(xiàn)與應(yīng)用 [J]. 電腦與電信 , 2021, (Z1) [12] 代航陽 .基于 VB的酒店客房管理系統(tǒng)設(shè) 計 [D]. 中國優(yōu)秀博碩士學(xué)位論文全文數(shù)據(jù)庫 (碩士 ),2021,(12) [13] 董志文 ,張軍 . 對酒店計算機(jī)信息管理系統(tǒng)的分析與展望 [J].海岸工程 。 [14]劉月蘭 ,巫紅 ,譚振武 .多用戶酒店管理信息系統(tǒng) [J].信息技術(shù) ,Information 。 [15]馬玉潔 .酒店管理信息系統(tǒng)的設(shè)計與實現(xiàn) [J].商丘師范學(xué)院學(xué)報 . 2021 [16]張艷華 .中小型酒店管理信息系統(tǒng)設(shè)計 [J].微機(jī)發(fā)展 ,Microputer Development. 37 2021。 [17]佟紅梅 .企業(yè)管理信息系統(tǒng)現(xiàn)狀分析 [J].黑龍江科技信息 ,Science and Technology [18]鄭毅 .酒店管理信息系統(tǒng)的設(shè)計與實現(xiàn) [D].山東 :山東大學(xué) 。 2021 38 致 謝 經(jīng)過幾個月的努力，畢業(yè)設(shè)計基本 完成了。這是大學(xué)學(xué)習(xí)中規(guī)模最大、時間最長、應(yīng)用知識最多的一次設(shè)計 ，也是對自己的一次最好的鍛煉和實踐機(jī)會。 整個的設(shè)計過程中， 我不斷地給自己提出新的問題，然后去論證、推翻，再接著提出新的問題。在這個循環(huán)往復(fù)的過程中，我這篇稚嫩的設(shè)計日臻完善。獲 得 每一次改進(jìn)我都收 獲 良多，每一次修改后的成功我都能興奮好長一段時間。雖然我的設(shè)計作 品不是很成熟，即使借鑒前人的很多資料仍然還有很多不足之處，但我仍然心里有一種莫大的幸福感，因為我實實在在地走過了一個完整的設(shè)計所應(yīng)該走的每一個過程，并 且享受了每一個過程 。 兩年 半 的讀書生活在這個季節(jié)即將劃上一個句號，而于我的人生卻只是一個逗號，我將面對又一次征程的開始。 兩年 半 的求學(xué)生 涯在師長、親友的大力支持下，走得辛苦卻也收獲滿囊，在論文即將 完成 之際，思緒萬千，心情久久不能平靜。 我感謝在我成長過程中教育和幫助過我的所有老師，正是你們的教導(dǎo)，使我完成大學(xué)學(xué) 業(yè)并學(xué)到很多東西。還要感謝我的導(dǎo)師聶維同 老師 ， 他 認(rèn)真 負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我 受益匪淺 。 聶 老師幾次審閱我們的設(shè)計報告，提出了許多寶貴的意見。 他 無論在理論上還是在實踐中，都給與我很大的幫助，使我得到 很大 的提高 ， 這對于我以 后 的工作和學(xué)習(xí)都 是 一 次 巨大的幫助 。 39 附 錄 （ 1）客房登記核心代碼 Private Sub dj_Click() 39。查詢空閑房間信息 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_kf where 房態(tài) =39?？辗?39。 39。查詢客房數(shù)據(jù)表 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_djb order by 憑證號碼 39。按憑證號碼排序數(shù)據(jù) If Not Then 39。移動記錄集到最后一條記錄 If = Then = Fdate amp。 d amp。 Format(1, 000) 39。當(dāng) lsph 值為空為憑證號碼文本框賦值 If Then 39。當(dāng) lsph 值不空時 = Month(Fdate) 39。把當(dāng)前月份賦給 y1 = Month(Left(, 10)) 39。把 lsph 中的月份賦給 y2 If = Then 39。如果 y1 文本框中內(nèi)容與 y2 相同 = Fdate amp。 d amp。 Format(Val(Right(, 3)) + 1, 000) 39。為憑證號碼文本框賦值 = Val(Right(, 3)) + 1 39。text1 中存儲lsph 文本框中后三位數(shù) End If 40 If Then 39。如果 y1 文本框中內(nèi)容與 y2 不同 = Fdate amp。 d amp。 Format(1, 000) 39。為憑證號碼文本框賦值 End If End If 39。清空數(shù)據(jù) For i = 0 To 6 ZSDJ(i).text = ZSDJ(i).Enabled = True Next i ZSDJ(8).text = : ZSDJ(10).text = : ZSDJ(11).text = : = 39。設(shè)置控件有效或無效 = True: = False: = False: ZSDJ(8).Enabled = True ZSDJ(10).Enabled = True: ZSDJ(11).Enabled = True: = True: = True = True: ZSDJ(0).SetFocus 39。ZSDJ(0)獲得焦點 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_kf where 房態(tài) = 39。空房 39。 If 0 Then For i = 1 To (房間號 ).Value 41 Next i End If End Sub （ 2）調(diào)房核心代碼 Private Sub ok_Click() 39。確定調(diào)房 Dim bh As String 39。定義一個字符串類型的變量 39。查詢空閑房間信息 = select * from tb_kf where 房間號 =39。 amp。 amp。 39。and 房態(tài) =39?？辗?39。 39。刷新記錄 If 0 Then 39。如果記錄數(shù)大于 0 39。查詢所有住宿登記信息 If Texbz = Then 39。如果備注信息為空則提示輸入 MsgBox 請輸入備注信息 , , 系統(tǒng)提示 39。消息提示 39。文本框 Texbz 獲得焦點 Else = select * from tb_djb where 房間號=39。 + + 39。 and 標(biāo)志 =39。139。 39。查詢數(shù)據(jù)表 bh = (憑證號碼 ) 39。憑證號碼賦給 bh Provider=。Data Source= amp。 amp。 \。Persist Security Info=False 39。打開數(shù)據(jù)庫 Set adoRs = (update tb_djb set 房間號 =39。 + + 39。,備注 =39。 + + 39。,標(biāo)志 =39。139。,摘要 = 39。由源房 39。 amp。 39。 + + 39。 amp。 39。調(diào)到目標(biāo)房 39。 amp。39。 + + 39。 where 憑證號碼 =39。 + (憑證號碼 ) + 39。) 39。執(zhí)行查詢 = (憑證號碼 ) 39。為文本框 42 賦值 39。關(guān)閉數(shù)據(jù)庫 = select * from tb_djys where 憑證號碼 =39。 + (憑證號碼 ) + 39。 39。查詢數(shù)據(jù)表 39。刷新數(shù)據(jù) If = False Then 39。如果不是尾記錄的下一條，移到最后一條記錄 If = False Then 39。如果不是首記錄前一條，移到第一條記錄 If 0 Then 39。如果記錄數(shù)大于0 Provider=。Data Source= amp。 amp。 \。Persist Security Info=False 39。打開數(shù)據(jù)庫 Set adoRs = (update tb_djys set 房間號=39。 + + 39。,備注 =39。 + + 39。,標(biāo)志 =39。139。,摘要 = 39。由源房 39。 amp。 39。 + + 39。 amp。 39。調(diào)到目標(biāo)房 39。 amp。 39。 + + 39。 where 憑證號碼 =39。 + + 39。 ) 39。查詢數(shù)據(jù)表 39。關(guān)閉數(shù)據(jù)庫 End If 39。編輯客房狀態(tài) = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False 39。打開數(shù)據(jù)庫 = select * from tb_kf where 房間號 = 39。 amp。 amp。 39。 39。查詢數(shù)據(jù)表 39。刷新記錄 (房態(tài) ) = 入住 39。為“房態(tài)”字段43 賦值 39。更新記錄 = select * from tb_kf where 房間號 = 39。 amp。 amp。 39。 39。查詢數(shù)據(jù)表 39。刷新記錄 (房態(tài) ) = 空房 39。為“房態(tài)”字段賦值 39。更新記錄 39。查詢空閑房間信息 = select * from tb_kf where 房態(tài) =39?？辗?39。 39。查詢房態(tài)為空房的記錄 39。刷新記錄 39。設(shè)置控件有效或無效 = False: = False: = False = False: = False: = False = False: = True 39。清空數(shù)據(jù) = : = : = = : = : = 39。Comdj 獲得焦點 End If Else MsgBox 請選擇正確房間號 ,再保存 !!!, , 系統(tǒng)提示 39。提示信息 End If End Sub