【正文】 + WHERE = And = And =1 If Trim(txtCustName) Then TmpSource = TmpSource + And LIKE 39。房間編號 (4).Width = 1000 39。報價 (8).Width = 1000 39。其他說明 (11).Width = 1000 End Sub 續(xù)住登記申請編輯 Public Sub Refresh_Reg() 39。入住時間 (5).Width = 1300 39。將此入住記錄保存 With MyReg .CustId = lblCid .RoomNo = lblRoomNo .InDate = MakeStr(txtInDate) .LeaveDate = MakeStr(txtLeaveDate) .Days = Val(txtDays) .Price = Val(txtPrice) .Rate = Val(ComboRate) .OtherFee = Val(txtOtherFee) .FirstPay = Val(txtFirstPay) .Memo = MakeStr(txtMemo) .UserName = .Update (TmpId) End With Unload Me End Sub 退房登記編輯和管理 Private Sub ComboStatus_Click() Refresh_Reg 39。對于已結(jié)款記錄可以取消結(jié)款。% + Trim(txtCid) + %39。 實收款統(tǒng)計表 實收款統(tǒng)計表窗體名稱為 FrmStatusPay,窗體界面布局如下圖所示。大于 strSearch = WHERE OptTime39。 + Trim() + 39。 End Select 39。讀取當前用戶數(shù)據(jù) () 39。 （ 2） 當用戶單擊“刪除”按鈕時觸發(fā) Cmd_del_click 事件。如果當前用戶是普通用戶，則打開用戶編輯窗體，編輯自己的用戶信息 With FrmUserEdit .OriUser = .txtUserName = .txtPass = .txtPass2 = .Modify = True .Show 1 End With End Sub 用戶只能修改自己的密碼，當前用戶的信息在登錄時被保存在 CurUser 對象中。 第六章 結(jié)束語 本章以開發(fā)一個實例的方式，詳細講解了酒店客房管理系統(tǒng)的開發(fā)過程，并給出了部分源代碼，主要內(nèi)容包括： 1． 酒店客房管理系統(tǒng)的需求分析 2． 酒店客房管理系統(tǒng)的 UML 建模 3． 酒店客房管理系統(tǒng)的系統(tǒng)配置 4． 酒店客房管理系統(tǒng)的數(shù)據(jù)庫分析和設(shè)計 參考文獻 [1].Dianne Basic 開發(fā)指南 — SQL Server 篇 .北京 :電子工業(yè)出版社 . [2].李春葆 曾慧 SQL Server 2021 應(yīng)用系統(tǒng)開發(fā)教程 . 北京 :清華大學(xué)出版社 . [3].薩師煊 ,王珊 .數(shù)據(jù)庫系統(tǒng)概論 (第三版 ). 北京 :高等教育出版社 . 頁 [4].劉炳文 ,楊明福 ,陳定中 .VISUAL BASIC 程序設(shè)計 .北京 :高等教育出版社 .頁 [5].王穎 ,李敏業(yè) .VISUAL BASIC +SQL 2021 應(yīng)用實例 北京 :人民郵電出版社 .頁 [6].芳蕓 , 柴躍廷 . CIMS環(huán)境下 —— 集成化管理信息系統(tǒng)的分析、設(shè)計與實施 .北京 :清華大學(xué)出版社 . [7].玉琳 趙保華 . 軟件工程 —— 方法 .工具和實現(xiàn) .北京 : [8]. 張海潘 .軟件工程導(dǎo)論（第四版） 北京 清華大學(xué)出版社 2021 11頁 [9].陳和平 ,邵平凡 .可視化編程技術(shù)及應(yīng)用 (普通高等學(xué)校計算機科學(xué)與技術(shù)專業(yè)新編系列教材 ). 武漢 。更改用戶密碼 With MyUser .UserPwd = MakeStr(txtPass) .UpdatePwd (MakeStr(txtUserName)) MsgBox 修改完成 End With Unload Me End Sub 程序?qū)⑴袛嘤脩裘欠褚呀?jīng)存在，密碼和確認密碼是否相同、以及密碼長度是否大于等于６等，如果輸入的數(shù)據(jù)完全滿足條件，則保存到數(shù)據(jù)庫中。如果當前用戶為 Admin，則打開 用戶管理窗體 If Format(, ) = admin Then 1 Else MsgBox 沒有權(quán)限 End If End Sub （ 2）只有用戶才能進入“用戶管理”窗口。設(shè)置用戶類型 If Format(, ) = admin Then lblUserType = 系 統(tǒng)管理員 Else lblUserType = 普通用戶 End If End Sub 程序?qū)斍斑x擇用戶的信息讀取到 MyUser 對象中。 本系統(tǒng)以下情形： （ 1） Admin 用戶可以創(chuàng)建普通用戶，對普通用戶的用戶名和密碼進行修改，刪除普通用戶“ （ 2） Admin 用戶也可以修改自身的密碼 （ 3）普通用戶只能修改自身的用戶名和密碼； 用戶管理窗體的創(chuàng)建 本窗體的名稱為 FrmUserMan，布局如下： （ 1）當用戶單擊用啟名列表時觸發(fā) DataList_list 事件，代碼如下： Private Sub DataList1_Click() 39。等于 strSearch = WHERE OptTime=39。 Case 2 39。查詢條件 Select Case Case 0 39。設(shè)置數(shù)據(jù)源 = Conn = SELECT as 客戶編號 , as 客戶姓名 , Sum() As 消費總金額 _ + FROM Customer c, Registration r, PayforRoom p WHERE = And = _ + strSearch + GROUP BY , ORDER BY Set = Adodc1 End Sub 在 SELECT 語句中涉及到 3 個表：表 Customer、表 Registration 和表 PayforRoom。 Private Sub Refresh_Customer() Dim strSearch As String 39。 實收房款信息管理名稱為 FrmPayFRoomMan，窗體布局如下圖所示。入住天數(shù) (7).Width = 1000 39。% + MakeStr(txtCustName) + %39。其他收費 (10).Width = 1000 39。退房時間 (6).Width = 800 39。 End If = Conn = TmpSource Set = Adodc1 (0).Width = 0 (1).Width = 1000 (2).Width = 1000 39。設(shè)置顯示格式 With DataGrid1 .Columns(0).Width = 0 .Columns(1).Width = 2021 .Columns(2).Width = 2021 .Columns(3).Width = 2021 .Columns(4).Width = 2021 .Columns(5).Width = 1800 End With End Sub 客房入住登記信息編輯和管理 Private Sub Refresh_Room() 39。如果原始編號不等于現(xiàn)有編號，而且表沒有此新的編號，則修改記錄； If .In_DB(OrgRId) = True Then .Update (OrgRId) Else MsgBox 已經(jīng)存在此客房編號，請重新輸入客房編號 Exit Sub End If End If End If End With Unload Me End Sub 前臺接待管理模塊設(shè)計 窗體 Private Sub Refresh_OrderList() 39。 是當前選擇房間類型的 TypeId 字段值 .TypeId = Val() .Position = MakeStr() .ObjList = MakeStr() .Price = Val() 39。更改狀態(tài) Dim iStatus As Integer 39。朝向 (5).Width = 1400 39。房間編號 (1).Width = 1200 39。退房 39。預(yù)定 39。返回查詢條件 sqlStr = sql1 + sql2 39。設(shè)置客戶類型的查詢條件，選擇全部時沒有查詢條件 If 0 Then sql1 = And =39。物品清單 End Sub 5． 1． 6 客房信息管理窗體 Public Sub Refresh_Room() 39。床位個數(shù) (4).Width = 800 39。 End) As 狀態(tài) , + as 物品清單 FROM Room r, RoomType t WHERE = _ + sqlStr + ORDER BY Set = Adodc2 (0).Width = 1000 39。 When 3 Then 39。 _ + When 1 Then 39。設(shè)置客戶狀態(tài)的查詢條件，選擇全部時沒有查詢條件 If 0 Then sql2 = And = + Trim( 1