基于vb的賓館客房管理系統(tǒng)(參考版)
2025-05-17 21:28本頁(yè)面
【正文】 最后還要感謝所有幫組我，關(guān)心我的人！ 參考文獻(xiàn) [1] 楊富榮 . 淺談客房管理的目標(biāo)與要求 . 桂林旅游高等?？茖W(xué)校學(xué)報(bào)， 1999， 10： 12 [2] 王海龍，王行愚 . 客房自動(dòng)監(jiān)控中心系統(tǒng) . 計(jì)算機(jī)工程與應(yīng)用 ， 2021， 03： 251 [3] 羅朝盛，余文芳 . Visual Basic 程序設(shè)計(jì)基礎(chǔ)教程 . 北京：人民郵電出版社， 2021， 1315 [4] 李玉東，李罡，李雷 . Visual Basic ： 2021： 1479 [5] 郭招娣 . 基于 VB 的網(wǎng)絡(luò)通信 . 杭州應(yīng)用工程技術(shù)學(xué)院學(xué)報(bào)， 2021， 13（ 2）： 2730 [6] 里德 . TCP/IP 基礎(chǔ) . 北京：電子工業(yè)出版社， 2021， 1355 [7] 王鳳嶺，馮文 . Access 2021 實(shí)用教程 . 北京 ：電子工業(yè)出版社， 2021： 1276 [8]王道容，林信誠(chéng) 《 Visual Basic 6 數(shù)據(jù)庫(kù)處理》第一版 21頁(yè) [9]代航陽(yáng) ，《 基于 VB的酒店客房管理系統(tǒng)設(shè)計(jì)》 。同時(shí)也要感謝 和我 同組的 其他同學(xué)，本論文的完成與他們的密切合作 及幫助 是分不開(kāi) 的 。 在學(xué) 習(xí)上，不能死讀書(shū)，讀死書(shū)；在 生活上，不能因?yàn)橐稽c(diǎn)挫折而心灰意冷，要以一種積極進(jìn)去、樂(lè)觀的態(tài)度去面對(duì)。 基于 VB 的賓館客房管理系統(tǒng) 23 致謝 在四年的生活學(xué)習(xí)中，有悲傷也有歡樂(lè)。 2. 系統(tǒng)控制界面軟件采用 Visual 開(kāi)發(fā)，操作方法與 windows 應(yīng)用 程序一致，圖形化感覺(jué)好，與其他開(kāi)發(fā)語(yǔ)言相比更具有可操作性。更新記錄 = : = : = MsgBox (操作員設(shè)置成功！ ) End If Else MsgBox (請(qǐng)輸入操作員！ ) End If End Sub 第五章 總結(jié) 基于 VB 的賓館客房管理系統(tǒng)的設(shè)計(jì)與現(xiàn)階段同類系統(tǒng)相比， 有以 下優(yōu)點(diǎn)： 1. 基于 VB 賓館客房管理系統(tǒng)的軟件設(shè)計(jì)靈活。 圖 主要程序如下： Private Sub Command1_Click() 39。刪除退宿記錄 If 0 Then End If End Sub Private Sub Command3_Click() = True Unload Me End Sub 操作員設(shè)置 操作員設(shè)置窗口如圖 所示。按客人姓名查詢 退宿信息 = select * from tfd where like + Chr(34) + + * + Chr(34) + End Sub Private Sub Command1_Click() 39。 \ 39。通通過(guò) data 控件實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的連接，系統(tǒng)已經(jīng)將退宿信息存放在名為 tfd 的表中，再通過(guò) DBGrid 這個(gè)數(shù)據(jù)感知控件將數(shù)據(jù)庫(kù)實(shí)時(shí)顯示在窗口上。查詢住宿信息 = select * from djb where 姓名 like + Chr(34) + + * + Chr(34) + End Sub Private Sub Command2_Click() 基于 VB 的賓館客房管理系統(tǒng) 20 = True Unload Me End Sub 退宿查詢 退宿查詢窗口如圖 所示。 \ 39。主要功能是實(shí)現(xiàn)對(duì)住宿登記的查詢， 通過(guò) data 控件實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的連接，再通過(guò) DBGrid 這個(gè)數(shù)據(jù)感知控件將數(shù)據(jù)庫(kù)實(shí)時(shí)顯示在窗口上。允許修改客房信息 = True End Sub Private Sub Command2_Click() 39。 圖 其操作程序如下： Private Sub Text1_Change() 39。本論文中使用了 DBGrid 控件。設(shè)置控件有效或無(wú)效 = False: = False 基于 VB 的賓館客房管理系統(tǒng) 18 = True: = True End Sub 客房查詢 客房查詢窗口如圖 所示。編輯客房信息 If Then (房間號(hào) ) = If Then (房態(tài) ) = If Then (房間類型 ) = If Then (價(jià)格 ) = If Then (營(yíng)業(yè)日期 ) = If Then (使用設(shè)置 ) = If Then (配置 ) = If Then (備注 ) = If Then (標(biāo)志 ) = 0 39。添加客房 If Then (房間號(hào) ) = If Then (房間類型 ) = If Then (房態(tài) ) = If Then (價(jià)格 ) = If Then (營(yíng)業(yè)日期 ) = If Then (使用設(shè)置 ) = If Then (配置 ) = If Then (備注 ) = If Then (標(biāo)志 ) = 0 39。 圖 其程序代碼如下： Private Sub save_Click() 39。 基于 VB 的賓館客房管理系統(tǒng) 16 圖 客房設(shè)置 客房設(shè)置窗口如圖 所示。它的功能是根據(jù)開(kāi)房登記時(shí)保存的相關(guān)信息，計(jì)算出實(shí)住天數(shù)以及宿費(fèi)，在根據(jù)預(yù)付金額情況，確定余額。其功能是根據(jù)開(kāi)房登記時(shí)保存的記錄，通過(guò)開(kāi)房登記時(shí)生成的憑證號(hào)碼選擇不同的住宿者，進(jìn)行追加押金設(shè)置。 Format(1, 000) End If 基于 VB 的賓館客房管理系統(tǒng) 15 End If 39。 Format(Val(Right(, 3)) + 1, 000) End If If Then = Date amp。 Format(1, 000) If Then = Month(Date) = Month(Left(, 6)) If = Then = Date amp。生成憑證號(hào)碼 = select * from djb order by
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1