軟件工程畢業(yè)設(shè)計(jì)-基于net酒店管理系統(tǒng)(編輯修改稿)

　

【文章內(nèi)容簡介】 name的子窗體，是子窗體獲得焦點(diǎn)并返回 True (i).Focus() Return True End If Next 39。不存在名為 Name的子窗體 False Return False End Function 實(shí)現(xiàn)系統(tǒng)登錄功能 (1)新建一個(gè)窗體，將其 Name屬性設(shè)置為“ frmLogin”，并為其圖 13加控件 14 圖 (2)為 frmLogin類添加如下兩個(gè)公共變量。 Public Class frmLogin Inherits 39。用于返回登陸結(jié)果 Public bResult As Boolean = False 39。登陸用戶的 ID Public UserId As String = 39。登陸的用戶名 Public UserName As String = Friend WithEvents Label1 As 39。登陸的用戶密碼 Private UserPwd As String = (3)為文本框 txbUserld添加 LostFocus事件響應(yīng)函數(shù) ByVal e As ) Handles 39。定義一個(gè)數(shù)據(jù)訪問類的對象 Dim db As DataBase = New DataBase 39。根據(jù)輸入的用戶 ID進(jìn)行查詢 Dim dv As DataView = _ _ (select 密碼 ,姓名 from 用戶清單 where 用戶編號 = 39。 _ + () + 39。) 39。判斷用戶 ID是否存在 If = 0 Then 39。用戶 ID不存在 15 = = = Else 39。用戶 ID存在 UserId = () 39。獲得用戶的密碼級用戶名 = (0)(密碼 ) = (0)(姓名 ) End If 39。釋放數(shù)據(jù)訪問類的占用資源 () End Sub 實(shí)現(xiàn)客房類型設(shè)置功能 (1)在【添加新項(xiàng)】對話框的【模板】列表框中選擇【繼承的窗體】選項(xiàng)，并命名為“ (2)為新建窗口添加如圖 14示控件 圖 (3)從工具箱中拖到一個(gè) SqlDataAdapter控件到窗體上，連接到設(shè)計(jì)的數(shù)據(jù)庫，并添加客房類型的數(shù)據(jù)庫信息 (4)為 TextBox控件以及 ComboBox控件設(shè)置數(shù)據(jù)源。 (5)重寫 frmRoomType類型 frmBase的函數(shù) (由于代碼較長，只摘錄部分代碼 ) Public Overrides Sub SaveForAdd() Dim dr As DataRow = (客房類型 ).NewRow() Try dr(類型編號 ) = 16 dr(類型名稱 ) = dr(可超預(yù)訂數(shù) ) = dr(拼房價(jià)格 ) = dr(價(jià)格 ) = dr(是否可拼房 ) = Catch ex As Exception (數(shù)據(jù)格式不正確！ ) Exit Sub End Try Try (客房類型 ).(dr) If = True Then (DataSet11) End If Catch ex As Exception (數(shù) 據(jù)添加失敗 !) End Try LoadData() = End Sub 實(shí)現(xiàn)客房信息設(shè)置功能 (1)在【添加新項(xiàng)】對話框的【模板】列表框中選擇【繼承的窗體】選項(xiàng)，并命名為“ ” ,單擊【打開】選項(xiàng)出現(xiàn)【繼承選擇器】對話框，在選擇 frmBase選項(xiàng)并為窗件添加圖 15 控件 圖 (2)客 房類型設(shè)置功能與客房信息設(shè)置功能相似，詳細(xì)代碼可參照客房信息功能模塊代碼 17 實(shí)現(xiàn)預(yù)訂管理功能 (1)在【添加新項(xiàng)】對話框的【模板】列表框中選擇【繼承的窗體】選項(xiàng)，并命名為“ ” ,單擊【打開】選項(xiàng)出現(xiàn)【繼承選擇器】對話框，在選擇 frmBase選項(xiàng)并為窗件添加圖 16 控件 圖 (2) 從工具箱中拖到一個(gè) SqlDataAdapter對象到窗體上，連接 hotelbook數(shù)據(jù)庫，添加預(yù)訂單，并選擇所有字段。 (3)在 SqlDataAdapter對象上右擊， 在彈出的快捷菜單中選擇【生成數(shù)據(jù)集】命令，在彈出的【生成數(shù)據(jù)集】對話框中單擊【確定】按鈕。 (4)為類 frmReserve添加以下變量 Public Class frmReserve Inherits 酒店管理系統(tǒng) .frmBase 39。用來標(biāo)示雙擊 dgdList,窗體是否自動(dòng)關(guān)閉 Public bClose As Boolean = False Private gridMouseDownTime As DateTime = New DateTime 39。客房 編號 Private strRoomCode As String = (5)為窗體類 frmReserve添加公有函數(shù) GetInfo。 Public Function GetInfo() As String 39。獲得 DataGrid當(dāng)前被選中的行號 Dim iRow As Integer = Dim sId As String 39。獲取 DataGrid當(dāng)前被選中的行的內(nèi)容 sId = (iRow)(預(yù)訂單號 ).ToString() Return sId End Function 18 實(shí)現(xiàn)入住管理功能 (1)在【添加新項(xiàng)】對話框的【模板】列表框中選擇【繼承的窗體】選項(xiàng)，并命名為“ ” ,單擊【打開】選項(xiàng)出現(xiàn)【繼承選擇器】對話框，在選擇 frmBase選項(xiàng)并為窗件添加如圖 17控件 圖 (2)從工具箱中拖到一個(gè) SqlDataAdapter對象到窗體上，連接 hotelbook數(shù)據(jù)庫，添加入住單，并選擇所有字段。 (3)為類“ ”添加以下變量 Public Class frmReside Inherits 酒店管理系統(tǒng) .frmBase Public bClose As Boolean = False Private gridMouseDownTime As DateTime = New DateTime Private strRoomCode As String = (4)更新客房信息，對已經(jīng)空房的房間，刪除之前的入住信息 Public Overrides Sub DeleteData() Try 39。更新客房信息表 (預(yù)訂單 ). _ Rows().Delete() Dim db As DataBase = New DataBase Dim strSQL As String = update 客房信息 set 狀態(tài) =39。空房 39。 + where 客房編號 =39。 + + 39。 (strSQL) () 39。刪除當(dāng)前行的數(shù)據(jù) (入住單 ). _ Rows().Delete() If = True Then 19 39。更新 DataSet11 (DataSet11) End If Catch ex As Exception (數(shù)據(jù)刪除失敗 !) End Try 實(shí)現(xiàn)消費(fèi)記賬功能 (1)在【添加新項(xiàng)】對話框的【模板】列表框中選擇【繼承的窗體】選項(xiàng)，并命名為“ ” ,單擊【打開】選項(xiàng)出現(xiàn)【繼承選擇器】對話框，在選擇 frmBase選項(xiàng)并為窗件添加圖 18 控件 圖 (2)從工具箱中拖到一個(gè) SqlDataAdapter控件到窗體上，連接到設(shè)計(jì)的數(shù)據(jù)庫，并添加客房類型的數(shù)據(jù)庫信息 (3)從工具箱中拖到一個(gè) SqlDataAdapter控件到窗體上，連接到設(shè)計(jì)的數(shù)據(jù)庫，并添加客房類型的數(shù)據(jù)庫信息 (4)為 TextBox控件以及 ComboBox控件設(shè)置數(shù)據(jù)源。 (5)功能實(shí)現(xiàn)的部分代碼如下 Public Overrides Sub SaveForAdd() Dim dr As DataRow = (帳單明細(xì) ).NewRow() Try dr(入住單號 ) = dr(消費(fèi)內(nèi)容 ) = dr(消費(fèi)金額 ) = dr(消費(fèi)時(shí)間 ) = dr(備注 ) = 20 Catch ex As Exception () 39。數(shù)據(jù)格式不正確！ ) Exit Sub End Try Try (帳單明細(xì) ).(dr) If = True Then (DataSet11) End If Catch ex As Exception (數(shù)據(jù)添加失敗 !) End Try LoadData() = End Sub 實(shí)現(xiàn)收銀退房功能 (1)在【添加新項(xiàng)】對話框的【模板】列表框中選擇【繼承的窗體】選項(xiàng)，并命名為“ ” ,單擊【打開】選項(xiàng)出現(xiàn)【繼承選擇器】對話框，在選擇“ frmBase” 選項(xiàng)并為窗件添加如圖 19所示的控件 圖 (2)從工具箱拖到一個(gè) SqlDataAdapter對象到窗體上，連接 hotelbook數(shù)據(jù)庫，添加入住單表并選擇“入住單號、客房類型、客房編號、抵店時(shí)間、離店時(shí)間、入住價(jià)格、加床價(jià)格、預(yù)收款、應(yīng)收賬款、結(jié)賬金額、是否結(jié)賬、結(jié)賬日期、付款方式”字段。 (3)在 SqlDataAdapter對象上右擊，在彈出的快捷菜單中選擇【生成數(shù)據(jù)集】命令。在彈出的【生成 21 數(shù)據(jù)集】對話框中單擊【新建】單選按鈕，然后單擊【確定】按鈕。 (4)功能實(shí)現(xiàn)部分代碼如下： Public Overrides Sub LoadData() 39。清空 DataSet11 () = Dim strSQL As String _ = SELECT 入住單號 , 客房類型 , 客房編號 , 抵店時(shí)間 , 離店時(shí)間 , 入住價(jià)格 , 加床價(jià)格 , 預(yù)收款 , 應(yīng)收帳款 , 結(jié)帳金額 , 是否結(jié)帳 , 結(jié)帳日期 , 付款方式 FROM 入住單 39。根據(jù)查詢條件重新填充 DataSet11 (DataSet