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