【正文】 = New SqlCommand(strsql, con) () () 39。 amp。代碼如下： Private Sub btnRestore_Click(ByVal sender As , ByVal e As ) Handles strsql = restore database HMIS from disk=39。 39。 amp。pwd=。database=HMIS。, 單據(jù)編號 in (select 入住單號 from 入住單表 )) (消費記錄表, ) (預訂單表, ) ………………………………………………… End If If = True Then (客房信息表, ) (客房類型表, ) ………………………………………………… End If MsgBox(數(shù)據(jù)清理完畢！ , , 操作成功) End Sub②點擊備份按鈕，對數(shù)據(jù)庫進行備份，代碼如下：Dim strsql As String 39。,單據(jù)編號=39。, 單據(jù)編號 in (select 預訂單號 from 預訂單表 )) (客房信息表, 客房狀態(tài)=39。,單據(jù)編號=39。)………………………………………………… If = True Then (客房信息表, 客房狀態(tài)=39。 and 39。)) (預訂單表, 預訂日期 between 39。 and 39。, 單據(jù)編號 in (select 預訂單號 from 預訂單表 where 預訂日期 between 39。,單據(jù)編號=39。（3）代碼設計 ①點擊確定按鈕，按用戶選定的條件對數(shù)據(jù)庫進行清理，代碼如下：Private Sub btnConfirm_Click(ByVal sender As , ByVal e As ) Handles If = True Then (客房信息表, 客房狀態(tài)=39。 （2）界面設計，并將此窗體設計成如圖79所示。在進行備份操作時，用戶可自由指定數(shù)據(jù)庫備份文件的路徑和名稱，點擊備份按鈕即可在指定路徑生成一個數(shù)據(jù)庫備份文件。即對系統(tǒng)數(shù)據(jù)庫進行全面初始化操作，刪除數(shù)據(jù)庫內(nèi)的所有數(shù)據(jù)。刪除商品信息表中的所有商品信息?？蓜h除指定時間內(nèi)或所有的營業(yè)記錄，包括入住單信息、預訂單信息、入住歷史、結(jié)帳單信息和消費記錄等。) ().Delete() (DataSetXFJL1, 消費記錄表) MsgBox(結(jié)帳成功, , 操作成功) () End Sub 數(shù)據(jù)庫維護窗體設計（1）窗體功能描述本窗體的功能是實現(xiàn)對于系統(tǒng)數(shù)據(jù)庫的維護功能，可以有效的提高系統(tǒng)內(nèi)數(shù)據(jù)的安全性和可靠性，是本系統(tǒng)中最重要的功能模塊之一。 ().Item(0) amp。) (入住單表, 入住單號 = 39。 ().Item(0) amp。) (消費記錄表, 入住單號 =39。 ().Item(0) amp。, 單據(jù)編號= 39。,單據(jù)編號=39。代碼如下： Private Sub btnJZ_Click(ByVal sender As , ByVal e As ) Handles (DataSetJZD1, 結(jié)帳單表).EndCurrentEdit() (DataSetJZD1, 結(jié)帳單表) (客房信息表, 客房狀態(tài)=39。實收金額=應收金額已收押金 ZL = GKZF SSJE 39。累計賓客的消費總額 XFJE += (消費記錄表).Rows(i).Item(6) Next YSJE = ZSFY + XFJE 39。 39。 amp。找零 = ().Item(0)…………………………………………………… = ().Item(9) Account() 39。已收押金 SSJE = 0 39。消費金額 YSJE = 0 39。代碼如下：Private Sub DataGrid1_MouseClick(ByVal sender As Object, ByVal e As ) Handles ZSFY = 0 39。 39。 amp。時間判斷函數(shù) If j 1 Then If 18 Then j = Else j = 1 End If Else If 12 Then j += Else j += 1 End If End If Return j End Function Private Sub Account() 39。（3）代碼設計①添加全局數(shù)據(jù)公共模塊和全局變量，方便事件過程間的費用計算。（2）界面設計新建窗體并命名為QuitRoomForm,將此窗體設計成如圖78所示。最后點擊結(jié)賬按鈕便完成了退房結(jié)賬手續(xù)。在入住賓客信息表選中要離店顧客的入住單記錄，顧客在店內(nèi)的消費記錄便出現(xiàn)在消費記錄表之中，且系統(tǒng)會自動計算住宿費用和消費金額，顯示出應收金額和實收金額。刪除選中行的記錄 End Sub 退房結(jié)賬模塊設計（1）窗體功能描述當顧客要辦理退房結(jié)賬時，操作員進入退房結(jié)賬窗體。) Next () End Sub④下面的代碼實現(xiàn)要選擇的空閑房間添加到DataGridview2中。 (i).Cells(0).Value amp。, 客房編號 = 39。 amp。,單據(jù)編號 = 39。更新數(shù)據(jù)并返回數(shù)據(jù)源 Dim i As Integer For i = 0 To 1 (客房信息表, 客房狀態(tài) = 39。抵店時間 (DataSetRZD1, 入住單表).EndCurrentEdit() 39。顯示入住單號End Sub③輸入開單信息之后，點擊確定即添加入住單信息。為入住單表添加新行 = RZ amp。 Private Sub RentRoomForm_Load(ByVal sender As Object, ByVal e As ) Handles (DataSetEmptyRoom1) 39。Dim YSJG, SJJG As Decimal 39。圖77 登記入住窗體登記入住窗體包括以下控件：窗體（Form），標簽（Label），組合框（Combobox），文本框（TextBox），按鈕（Button），框架（Panel），GroupBox控件,DataGirdview控件和SqlDataAdapter控件等。（2）窗體設計新建一個名“”的窗體。當顧客因故中途取消辦理入住時，為方便操作，節(jié)省時間，可點擊重置按鈕，則所有輸入框中的信息自動清空。代碼如下： Private Sub ToolBar1_ButtonClick(ByVal sender As Object, ByVal e As ) Handles Select Case () Case 0 () Case 1 () ……………………………… Case 7 End End Select End Sub 登記入住窗體設計（1）窗體功能描述顧客進入酒店后，需先到前臺辦理入住手續(xù)。 amp。 amp。 間 ZRZL = DQRZ / = (ZRZL * 100).ToString(.) amp。 間 = amp。 間 = amp。 間 = amp。 間 Dim i As Integer For i = 0 To 1 Select Case (i).Item(4) Case 入住 DQRZ = DQRZ + 1 Case 預訂 DQYD = DQYD + 1 Case 空閑 DQKG += 1 Case 維修 DQZY += 1 Case 自用 DQZY += 1 End Select Next = amp。向數(shù)據(jù)集中添加記錄 (DataSetYDD1) (DataSetRZD1) Dim DQRZ, DQYD, DQKG, DQZY, JRDD, JRLD As Integer Dim ZRZL As Double = amp。 圖76 系統(tǒng)菜單欄（3）代碼設計①主界面載入時，將數(shù)據(jù)庫中的客房信息顯示到DataGrid表格中，并顯示酒店客房營業(yè)的總體情況。圖75 系統(tǒng)主界面主界面主要包括以下控件：標簽（Label），文本框（TextBox），按鈕（Button），菜單欄（MenuStrip），工具欄（ToolBar），圖象列表（ImageList），SqldataAdapter控件和DataGrid控件組成。（2）窗體設計新建一個窗體并命名為“”，并把Text屬性改為“小型酒店管理系統(tǒng)”。 amp。并將所有的用戶名稱添加到Comobox控件中。各控件的屬性設置從圖74中即可看出，這里不做陳述。并按圖74進行界面設計。如果是超級用戶，將擁有系統(tǒng)的全部功能權(quán)限；如果是普通用戶，則“用戶設置”，“數(shù)據(jù)庫維護”和“系統(tǒng)日志”三個窗體將被禁用，其相應的菜單欄標題也將變?yōu)榛疑＂塾脩魴?quán)限判定。當用戶的合法性得到驗證時，則對用戶的當前狀態(tài)進行判定。②用戶當前狀態(tài)判定。首先判斷用戶輸入的用戶名和密碼是否正確，若正確，就進入用戶狀態(tài)判定，若錯誤；系統(tǒng)便發(fā)出警告信息。 End If Dim sql As New SqlCommand(str, sqlcon) () () End FunctionEnd Module 系統(tǒng)窗體構(gòu)架LoginFormFormClassMainFormFormClass系統(tǒng)主界面登記入住窗體客房預訂窗體系統(tǒng)登錄界面RentRoomFormFormClassBookRoomFormFormClassSearchInfFormFormClass信息查詢窗體ChangeRoomFormFormClass更換房間窗體SearchInfFormFormClass信息查詢窗體TallyFormFormClass消費記帳窗體QuitRoomFormFormClass結(jié)帳退房窗體YYTJFormFormClass營業(yè)統(tǒng)計窗體RoomManagementFormFormClass客房信息設置窗體CmdyManagementFormFormClass商品信息設置窗體RoomStateFormFormClass客房狀態(tài)設置窗體UserInfSetFormFormClass用戶管理窗體DataBaseFormFormClass數(shù)據(jù)庫維護窗體logFormFormClass系統(tǒng)日志窗體圖71 系統(tǒng)窗體總構(gòu)架圖RoomManagementFormFormClassAddRoomFormFormClassAddRoomTypeFormFormClass客房信息設置窗體添加 / 修改客房窗體添加 / 修改客房類型窗體圖72 客房信息設置窗體構(gòu)架圖商品信息設置窗體添加 / 修改商品窗體添加 / 修改商品類別窗體CmdyManagementFormForm