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