【文章內(nèi)容簡(jiǎn)介】 以下代碼把選擇的房間狀態(tài)由“空閑”改為“營(yíng)業(yè)中” Dim str As String = update 房間表 set 狀態(tài) = 39。營(yíng)業(yè)中 39。 where 房號(hào) = 39。 amp。 .Rows().Item(0) amp。 39。 Dim sql As New SqlCommand(str, SqlConnection1) () () ‘ 執(zhí)行數(shù)據(jù)庫(kù)語(yǔ)句 ，即添加新行 MsgBox(錄入成功！ ) (Ds1,顧客信息表 ).CancelCurrentEdit() () (Ds1, 房間表 ) (Ds1, 顧客信息表 ).AddNew() Catch ex As Exception MsgBox() Finally () End Try End Sub 信息 的 管理 預(yù)訂信息管理在實(shí)現(xiàn)登記客人信息的同時(shí)，還完成了預(yù)訂入住和取消預(yù)訂等功能，并將顯示訂房客人信息和空閑房間信息在頁(yè)面上。當(dāng)用戶錄入客戶信息并點(diǎn)擊保存信息時(shí)，客戶信息顯示在已訂房間 Datagrid 中，同時(shí)減少可選擇的房間數(shù)量，將該房間的狀態(tài)更新為預(yù)訂。該模塊中，“取消預(yù)訂”功能實(shí)現(xiàn)取消已經(jīng)訂了房間的功能，將房間的狀態(tài)設(shè)為空閑，同時(shí)刪除“顧客信息表”中相應(yīng)的記錄?！邦A(yù)訂入住”功能實(shí)現(xiàn)把訂了的房間轉(zhuǎn)為入住狀態(tài)，同時(shí)把對(duì) 應(yīng)的顧客信息的狀態(tài)改為“入住” ，預(yù)訂日期為當(dāng)前日期。頁(yè)面如圖 4－ 3所示： 圖 4－ 3預(yù)訂界面 sqlDataAdapter1 Ds DataGrid1 DataGrid2 sqlDataAdapter2 DataSet2 DataSet1 TextBox、 ComboBox 類(lèi)型 姓名 房?jī)r(jià) 證件號(hào) DataSet 證件類(lèi)型 類(lèi)型 房號(hào) 性別 預(yù)訂 日期 人數(shù) 押金姓名 姓名 房號(hào) 押金姓名 預(yù)訂 日期 sqlDataAdapter3 房號(hào) 本窗體的數(shù)據(jù)關(guān)系如圖 4－ 4所示。 圖 4－ 4數(shù)據(jù)關(guān)系圖 程序初始化，從房間表中選擇狀態(tài)為空閑的房號(hào)， 類(lèi)型 , 房?jī)r(jià) ,狀態(tài) 返回到Datagrid1 控件體現(xiàn)出來(lái)，從“ 顧客信息表 ”中返回狀態(tài)為預(yù)訂的客人信息如姓名，房號(hào)，押金，預(yù)訂日期。 “保存信息”功能的實(shí)現(xiàn)和登記窗體中的類(lèi)似，為避免累贅在此就不在重復(fù)介紹了。 “取 消 預(yù)訂 ” 主要由以下代碼實(shí)現(xiàn) ： Private Sub btcancel_Click(ByVal sender As , ByVal e As ) Handles ‘首先判斷是否真的要取消預(yù)訂 ‘以下 將 取消的房間 狀態(tài) 設(shè)為 空閑 ，“顧客信息表”中客人的狀態(tài)改為“退房” Dim str1 As String=update 房間表 set 狀態(tài) =39?？臻e 39。where 房號(hào) =39。 amp。 .Rows().Item(1) amp。 39。 Dim str2 As String=update 顧客信息表 set 狀態(tài) =39。退房 39。where 房號(hào)=39。amp。 .Rows().Item(1)amp。39。 Dim sql1 As New SqlCommand(str1, SqlConnection1) Dim sql2 As New SqlCommand(str2, SqlConnection1) () () () .Rows().Delete() (DataSet21, 顧客信息表 ) () (Ds1, 房間表 ) ‘清窗數(shù)據(jù)集重新填充，把空閑的房 間重新顯示出來(lái) Catch Finally () End Try End Sub “ 預(yù)訂 入住” 主要由以下代碼實(shí)現(xiàn) ： Private Sub btbook_Click(ByVal sender As , ByVal e As ) Handles ‘判斷是否真的要辦理入住 ‘以下改變 房間表 和 顧客信息表 的狀態(tài) Dim str1 As String = update 房間表 set 狀態(tài) = 39。營(yíng)業(yè)中 39。 where 房號(hào) = 39。 amp。 .Rows().Item(1) amp。 39。 以下把狀態(tài)改為 入住 ,預(yù)訂 日期改為當(dāng)前時(shí)間 Dim str2 As String = update 顧客信息表 set 狀態(tài) = 39。入住 39。,入住日期 =39。amp。Now()amp。39。where 入 住 日 期 =39。amp。 DataSet21. 顧 客 信 息 表 . Rows().Item(3) amp。 39。 ??????????????????? End Sub 退房界面金額計(jì)算有兩種方式，建立一個(gè)“ account（）”過(guò)程，用作判斷房間是“鐘點(diǎn)房”還是其他類(lèi)型，根據(jù)不同的類(lèi)型用“ DataDiff”函數(shù)取出入住日期和退房日期的時(shí)間差（退房日期為當(dāng)前日期），不到一天或一小時(shí)按一天或一小時(shí)計(jì)算。最后計(jì)算出金額，“退房結(jié)算”按鈕的作用是把房間的狀態(tài)改為空閑并且更新客人的信息。 該窗體主要的代碼如下 ： “ account（）”過(guò)程計(jì)算金額： 首先判斷房間是鐘點(diǎn)房還是 其他類(lèi)型，定義 i為入住日期與退房日期的時(shí)間差，計(jì)算金額的主要代碼是 = Val() * (i+1)。 程序初始化： 從房間表中選擇狀態(tài)為營(yíng)業(yè)中的房間的房號(hào)，類(lèi)型，房?jī)r(jià)并將其信息返回到 Datagrid 控件體現(xiàn)出來(lái)。從“ 顧客信息表 ”中返回選中房號(hào)的客人信息：姓名、入住日期，退房日期返回為當(dāng)前日期。 = Now() () ‘調(diào)用 account（），計(jì)算金額 選 擇房間 時(shí)，“房號(hào)”項(xiàng)顯示所選房號(hào)，“房?jī)r(jià)”項(xiàng)顯示對(duì)應(yīng)的房 價(jià) “退房” 的實(shí)現(xiàn)：首先判斷是否真的要退房，若是則更新房間表的狀態(tài)為空閑，更新顧客信息表中房間的狀態(tài)為退房，退房日期為現(xiàn)在的日期。更新由update? set 實(shí)現(xiàn)。打開(kāi)數(shù)據(jù)庫(kù)連接，執(zhí)行數(shù)據(jù)庫(kù)命令，完成退房功能。 查看房間信息模塊實(shí)現(xiàn)了瀏覽房間狀態(tài)和添加新房間功能，添加項(xiàng)為“房號(hào)” 、“類(lèi)型” 、“房?jī)r(jià)” 。“狀態(tài)”項(xiàng)默認(rèn)為“空閑” 。添加新房間時(shí)，若沒(méi)有添加房號(hào)則有消息框彈出“請(qǐng)?jiān)鎏矸块g號(hào)”因?yàn)榉刻?hào)為房間表中的主鍵，為必添項(xiàng)。如所有信息添加完畢后，單擊確定則有消息框彈出 恭喜 !增添成功 ,規(guī)模又大了 !! 。系統(tǒng)中房間的狀態(tài)有營(yíng)業(yè)中、預(yù)訂和空閑三種，所有房間的信息都顯示在 中。頁(yè)面如圖 4－ 5： 圖 4－ 5查看房間信息界面 該窗體主要的代碼如下 ： Private Sub btsave_Click(ByVal sender As , ByVal e As ) Handles Try = 空閑 If = Then MsgBox(請(qǐng)?jiān)鎏矸块g號(hào) ! , ) Exit Sub End If (DataSet41,房間表 ).EndCurrentEdit() (DataSet41, 房間表 ) MsgBox( 恭喜 !增添成功 ,規(guī)模又大了 !! ) Catch ex As Exception MsgBox() End Try End Sub 客人 信息 查看客人信息主要 實(shí)現(xiàn) 了 “分類(lèi)”＋“模糊”查找客人的信息，包括已經(jīng)退房的客人信息?！罢?qǐng)選擇范圍”中有“姓名”和“證件號(hào)”兩種選擇。 RadioButton控件有 4 個(gè)，分別取名為“ RadioButton1” 、“ RadioButton2” 、“ RadioButton3” 、“ RadioButton4”分別對(duì)應(yīng)為“查看當(dāng)前入住客人信息” ，“查看 預(yù)訂 客人信息” ，“查看歷史客人信息” ，“查看所有客人信息” 。 進(jìn)行任何信息的查找，客人信息都將呈現(xiàn)在 Datagrid 中，該模塊主要由 實(shí)現(xiàn)，如下圖 4－ 6所示： 圖 4－ 6查看客人信息界面 實(shí)現(xiàn)該功能的主要代碼如下： Private Sub btfind_Click(ByVal sender As , ByVal e As ) Handles Try If = True Then = select 姓名 ,性別 ,房號(hào) ,類(lèi)型 ,證件類(lèi)型 ,證件號(hào) ,押金 ,人數(shù) ,入住日期 as 入住或 預(yù)訂日期 ,狀態(tài) from 顧客信息表 where (狀態(tài) =39。入住 39。)and ( amp。 amp。 like 39。 amp。 amp。 %39。) ElseIf = True Then = select 姓名 ,性別 ,房號(hào) ,類(lèi)型 ,證件類(lèi)型 ,證件號(hào) ,押金 ,人數(shù) ,入住日期 as 入住或 預(yù)訂日期 ,狀態(tài) from 顧客信息表 where (狀態(tài) =39。預(yù)訂 39。)and ( amp。 amp。 like 39。 amp。 amp。 %39。) ElseIf = True Then = select 姓名 ,性別 ,房號(hào) ,類(lèi)型 ,證件類(lèi)型 ,證件號(hào) ,押金 ,人數(shù) ,入住日期 as 入住或 預(yù)訂日期 ,退房日期 ,狀態(tài) from 顧客信息表 where (狀態(tài) =39。退房 39。)and ( amp。 amp。 like 39。 amp。 amp。 %39。) ElseIf = True Then = select 姓名 ,性別 ,房號(hào) ,類(lèi)型 ,證件類(lèi)型 ,證件號(hào) ,押金 ,人數(shù) ,入住日期 as 入住或 預(yù)訂日期 ,退房日期 ,狀態(tài) from 顧客信息表 where ( amp。 amp。 like 39。 amp。 amp。 %39。) End If () (DataSet51, 顧客信息表 ) Catch ex As Exception MsgBox() End Try End Sub 更改密碼只有當(dāng)新輸入的密碼與確認(rèn)密碼相同時(shí)，密碼才能修改成功。首先要更新管理員表中用戶名為 admin 的密碼，連接數(shù)據(jù)庫(kù)，執(zhí)行數(shù)據(jù)庫(kù)命令，兩次輸入密碼相同則密碼修改成功，不同則顯示 兩次輸入密碼不同！ 由于修改密碼功能的代碼較為簡(jiǎn)單，在此就不在介紹了。 該界面簡(jiǎn)單介紹了作者 的基本信息和本系統(tǒng)的環(huán)境。 使用本酒店 預(yù)訂 信息管理系統(tǒng)需要安裝 SQL Server 2021 以及 .NET 運(yùn)行的環(huán)境。登陸系統(tǒng)用戶名為： admin，初始密碼為 admin,登陸后可更改密碼。 結(jié) 論 本畢業(yè)設(shè)計(jì)完成了 基于 .NET 的酒店預(yù)訂信息管理系統(tǒng)的 設(shè)計(jì)與實(shí)現(xiàn)，包括數(shù)據(jù)庫(kù) 結(jié)構(gòu) 和程序的設(shè)計(jì)。 系統(tǒng)由 和 SQL Server 2021 制作而成的 ，功能和結(jié)構(gòu)較為簡(jiǎn)單，適合用于小型的酒店管理。 該系統(tǒng)實(shí)現(xiàn) 了登記 、訂房、 退房、 查看房間信息、查看客人信息、管理員密碼修改等主要功能 ，減少了管 理人員工作量，極大的提高酒店管理的運(yùn)作效率。同傳統(tǒng)的手工作業(yè)相比，通過(guò)該系統(tǒng)：管理人員可以方便快捷的對(duì)客人信息進(jìn)行登記 ； 根據(jù)情況的變換，取消客人預(yù)訂的房間或者改為預(yù)訂入??；退房結(jié)算能夠迅速準(zhǔn)確的計(jì)算出應(yīng)付金額，避免了手工計(jì)算的可能的失誤 ； 通過(guò)查看房間的狀態(tài)信息，可以隨時(shí)掌握酒店客房運(yùn)行情況 ； 隨著規(guī)模的擴(kuò)大，能夠添加新的房間 ；在查看客人信息的界面中，根據(jù)客人不同的狀態(tài)（入住、預(yù)訂、退房），能夠分類(lèi)進(jìn)行統(tǒng)計(jì)，并且對(duì)姓名、證件號(hào)實(shí)現(xiàn)模糊查詢的功能。 對(duì)于我而言是一門(mén) 新的語(yǔ)言， 在過(guò)去的十幾周里， 我從一無(wú) 所知到逐步了解再到熟悉使用這種語(yǔ)言進(jìn)行編程 ，最后成功的開(kāi)發(fā)出了該系統(tǒng)軟件。在實(shí)際設(shè)計(jì)過(guò)程中遇到了很多意想不到的問(wèn)題與困難，通過(guò)辛勤的汗水和不懈的努力最終得到了解決，其成功的喜悅與寶貴的實(shí)踐經(jīng)驗(yàn)讓我的付出有了回報(bào)和收獲。我 在此過(guò)程中不僅學(xué)到了新的編程語(yǔ)言， 而且學(xué)會(huì)了 如何在對(duì)某一領(lǐng)域毫不熟悉的情況下去尋找相關(guān)資料并 通過(guò)自學(xué) 逐步掌握該門(mén)知識(shí)的能力。這樣的經(jīng)驗(yàn)無(wú)疑增加了我對(duì)問(wèn)題的分析能力以及解決問(wèn)題的能力。 相信這次設(shè)計(jì)的完成對(duì)我今后的工作會(huì)有很大的幫助。