【正文】 lStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () End Sub……………………………………………… Private Sub 用戶設(shè)置UToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () End Sub③當點擊ToolBar控件上的圖象按鈕時，將激活相應(yīng)的功能窗體。代碼如下： Private Sub ToolBar1_ButtonClick(ByVal sender As Object, ByVal e As ) Handles Select Case () Case 0 () Case 1 () ……………………………… Case 7 End End Select End Sub26 / 43 登記入住窗體設(shè)計（1）窗體功能描述顧客進入酒店后，需先到前臺辦理入住手續(xù)。操作員輸入客人的相關(guān)信息，并根據(jù)顧客的要求選擇相應(yīng)的客房，操作員可手動設(shè)定折扣比例，系統(tǒng)會自動計算客房價格，收取一定的入住押金，最后點擊確定按鈕即完成入住手續(xù)的辦理。當顧客因故中途取消辦理入住時，為方便操作，節(jié)省時間，可點擊重置按鈕，則所有輸入框中的信息自動清空。最后點擊取消按鈕即可退出登記入住窗體。（2）窗體設(shè)計新建一個名“”的窗體。并利用相關(guān)控件設(shè)計成如圖 77 所示。圖 77 登記入住窗體登記入住窗體包括以下控件：窗體（Form） ，標簽（Label） ，組合框（Combobox） ，文本框（TextBox） ，按鈕（Button） ，框架（Panel） ，GroupBox 控件,DataGirdview 控件和 SqlDataAdapter 控件等。（3）代碼設(shè)計①由于存在費用計算的問題，需要設(shè)定幾個全局變量，在各事件過程中進行相關(guān)的運算操作。Dim YSJG, SJJG As Decimal 39。預(yù)設(shè)價格和實際價格②窗體載入時，先將客房信息填充入數(shù)據(jù)集DataSetEmptyRoom1，并將全部記錄添27 / 43加到客房信息表中。 Private Sub RentRoomForm_Load(ByVal sender As Object, ByVal e As ) Handles (DataSetEmptyRoom1) 39。顯示空凈房信息 Dim i As Integer For i = 0 To 1 (0, (客房信息表).Rows(i).Item(0), (客房信息表).Rows(i).Item(1), (客房信息表).Rows(i).Item(2)) Next (DataSetRZD1, 入住單表).AddNew() 39。為入住單表添加新行 = RZ amp。 () 39。顯示入住單號End Sub③輸入開單信息之后，點擊確定即添加入住單信息。代碼如下： Private Sub btnRentRoomConfirm_Click(ByVal sender As Object, ByVal e As ) Handles = Now 39。抵店時間 (DataSetRZD1, 入住單表).EndCurrentEdit() 39。將數(shù)據(jù)返回數(shù)據(jù)集 (DataSetRZD1, 入住單表) 39。更新數(shù)據(jù)并返回數(shù)據(jù)源 Dim i As Integer For i = 0 To 1 (客房信息表, 客房狀態(tài) = 39。入住39。,單據(jù)編號 = 39。 amp。 amp。 39。, 客房編號 = 39。 amp。 (i).Cells(0).Value amp。 39。) Next () End Sub④下面的代碼實現(xiàn)要選擇的空閑房間添加到DataGridview2中。 Private Sub btnAddRoom_Click(ByVal sender As , ByVal e As ) Handles (0,().Cells(0).Value,().Cells(1).Value, ().Cells(2).Value) () 39。刪除選中行的記錄 End Sub 退房結(jié)賬模塊設(shè)計（1）窗體功能描述當顧客要辦理退房結(jié)賬時，操作員進入退房結(jié)賬窗體。系統(tǒng)自動生成結(jié)賬單號。在入住賓客信息表選中要離店顧客的入住單記錄，顧客在店內(nèi)的消費記錄便出現(xiàn)在消費記錄表之中，且系統(tǒng)會自動計算住宿費用和消費金額，顯示出應(yīng)收金額和實收金額。填入顧客支付金額后，系統(tǒng)會自動計算出需要找還的金額數(shù)。最后點擊結(jié)賬按鈕便完28 / 43成了退房結(jié)賬手續(xù)。如果要免除某個顧客的所有費用，只要選中“免費”選項框，則實收金額清零，且結(jié)賬單中的“結(jié)算狀態(tài)”標記為“免費” 。（2）界面設(shè)計新建窗體并命名為 QuitRoomForm,將此窗體設(shè)計成如圖 78 所示。圖 78 退房結(jié)賬窗體退房結(jié)賬窗體包括以下控件：窗體（Form） ，標簽（Label） ，組合框（ComboBox） ，文本框（TextBox） ，按鈕（Button） ，框架（Panel） ，選項框（CheckBox） ，DataGird控件和 SqlDataAdapter 控件等。（3）代碼設(shè)計①添加全局數(shù)據(jù)公共模塊和全局變量，方便事件過程間的費用計算。代碼如下：Dim ZSFY, XFJE, YSJE, YSYJ, SSJE, GKZF, ZL As Decimal Private Function TimeJudge(ByVal j As Decimal) 39。時間判斷函數(shù) If j 1 Then If 18 Then j = Else j = 1 End If Else If 12 Then j += Else j += 1 End If29 / 43 End If Return j End Function Private Sub Account() 39。計算住宿費用 .Clear() = SELECT , 客房類, , FROM 客房信息表 INNER JOIN 客房類型表 ON = where 單據(jù)編號 = 39。 amp。 (, 0) amp。 39。 (DataSetRoomInf1) Dim i As Integer Dim fee As Decimal = 0 Dim interval As Decimal = 0 For i = 0 To 1 If (i).Item(1) = 鐘點房 Then interval = (, .Rows().Item(抵店時間), Now()) interval = TimeJudge(interval) fee += interval * .Rows(i).Item(客房價格) Else interval = (, .Rows().Item(抵店時間), Now()) interval = TimeJudge(interval) fee += interval * .Rows(i).Item(客房價格) End If Next ZSFY = (入住單表).Rows().Item(折扣比例) * fee End Sub ②根據(jù)選擇的入住單計算住宿費用和消費金額。代碼如下：Private Sub DataGrid1_MouseClick(ByVal sender As Object, ByVal e As ) Handles ZSFY = 0 39。住宿費用 XFJE = 0 39。消費金額 YSJE = 0 39。應(yīng)收金額 YSYJ = 0 39。已收押金 SSJE = 0 39。實收金額 ZL = 0 39。找零 = ().Item(0)…………………………………………………… = ().Item(9) Account() 39。調(diào)用計算金額過程 () = select * from 消費記錄表 where 入住單號= 30 / 4339。 amp。 amp。 39。 (DataSetXFJL1) Dim i As Integer For i = 0 To 1 39。累計賓客的消費總額 XFJE += (消費記錄表).Rows(i).Item(6) Next YSJE = ZSFY + XFJE 39。應(yīng)收金額=住宿費用 +消費金額 SSJE = YSJE YSYJ 39。實收金額=應(yīng)收金額已收押金 ZL = GKZF SSJE 39。找零=顧客支付實收金額 = (c)End Sub③點擊結(jié)帳按鈕，添加結(jié)賬單信息，刪除入住單信息。代碼如下： Private Sub btnJZ_Click(ByVal sender As , ByVal e As ) Handles (DataSetJZD1, 結(jié)帳單表).EndCurrentEdit() (DataSetJZD1, 結(jié)帳單表) (客房信息表, 客房狀態(tài)=39。空閑39。,單據(jù)編號=39。39。, 單據(jù)編號= 39。 amp。 ().Item(0) amp。 39。) (消費記錄表, 入住單號 =39。 amp。 .Rows().Item(0) amp。 39。) (入住單表, 入住單號 = 39。 amp。 .Rows().Item(0) amp。 39。) ().Delete() (DataSetXFJL1, 消費記錄表) MsgBox(結(jié)帳成功, , 操作成功) () End Sub 數(shù)據(jù)庫維護窗體設(shè)計（1）窗體功能描述本窗體的功能是實現(xiàn)對于系統(tǒng)數(shù)據(jù)庫的維護功能，可以有效的提高系統(tǒng)內(nèi)數(shù)據(jù)的安全性和可靠性，是本系統(tǒng)中最重要的功能模塊之一。用戶（這里指超級用戶）可以進行如下操作：①刪除營業(yè)數(shù)據(jù)。可刪除指定時間內(nèi)或所有的營業(yè)記錄，包括入住單信息、預(yù)訂單信息、入住歷史、結(jié)帳單信息和消費記錄等。②清空商品信息。刪除商品信息表中的所有商品信息。③清空所有數(shù)據(jù)庫表。即對系統(tǒng)數(shù)據(jù)庫進行全面初始化操作，刪除數(shù)據(jù)庫內(nèi)的所有數(shù)據(jù)。④手動備份和還原數(shù)據(jù)庫的功能。在進行備份操作時，用戶可自由指定數(shù)據(jù)庫備31 / 43份文件的路徑和名稱，點擊備份按鈕即可在指定路徑生成一個數(shù)據(jù)庫備份文件。而還原操作時，用戶也可根據(jù)需要選擇某個數(shù)據(jù)庫備份文件進行還原，表現(xiàn)出了較強的靈活性。 （2）界面設(shè)計，并將此窗體設(shè)計成如圖79所示。圖79 數(shù)據(jù)庫維護窗體該窗體所用到的控件主要包括：窗體（Form） ，標簽（Label） ，文本框（TextBox） ，按鈕（Button） ，框架（Panel） ，選項框（CheckBox）和GroupBox控件等。（3）代碼設(shè)計 ①點擊確定按鈕，按用戶選定的條件對數(shù)據(jù)庫進行清理，代碼如下：Private Sub btnConfirm_Click(ByVal sender As , ByVal e As ) Handles If = True Then (客房信息表, 客房狀態(tài)=39?？臻e39。,單據(jù)編號=39。39。, 單據(jù)編號 in (select 預(yù)訂單號 from 預(yù)訂單表 where 預(yù)訂日期 between 39。 + + 39。 and 39。 + + 39。)) (預(yù)訂單表, 預(yù)訂日期 between 39。 + + 39。 and 39。 + + 39。)………………………………………………… If = True Then (客房信息表, 客房狀態(tài)