【正文】 10． 1． 3 在主界面中增加用戶管理代碼 （ 1）在主界面中單擊“系統(tǒng)用戶管理” /“用戶管理”菜單，將打開用戶管理窗體，代碼如下： Private Sub m_Uers_Click() 39。 + Trim() + 39。如果是已退房記錄，則不能再執(zhí)行退房操作 If = 0 Then = True Else = False End If End Sub Private Sub DataGrid1_Click() End Sub 退房登記管理 收銀統(tǒng)計(jì)管理模塊設(shè)計(jì) 收銀統(tǒng)計(jì)管理模塊可以實(shí)現(xiàn)以下功能： 實(shí)收房款管理 客戶消費(fèi)統(tǒng)計(jì)表 實(shí)收款統(tǒng)計(jì)表 實(shí)收房款信息編輯窗體的名稱為 FrmFRoomEdit,其布局如下圖所示。入住時(shí)間 (5).Width = 1000 39。判斷主要域是否為空，其中客房編號、客房類型、價(jià)格必須輸入 If Trim() = Then MsgBox 請輸入客房編號 Exit Sub End If If Trim() = Then MsgBox 請輸入客房類型 Exit Sub End If If Trim() = Then MsgBox 請輸入客房價(jià)格 Exit Sub End If With MyRoom .RoomNo = MakeStr() 39。 When 3 Then 39。狀態(tài) (7).Width = 2021 39?？辗?39。判斷當(dāng)前房間類型是否存在 If .In_DB(.TypeName) = True Then MsgBox 當(dāng)前房間類型已經(jīng)存在 Exit Sub End If .Insert Else If .TypeName OriType Then 39。系統(tǒng)主界面如下圖所示。 （ 6）、預(yù)定客房登記表 OrderList， 包 括 listld（記錄編號，主鍵）、 orderld（客戶編號）、 roomno（客房編號）、 indate（計(jì)劃入住日期）、 days（入住天數(shù)）、 price（預(yù)定單價(jià)）、 rate（預(yù)定折扣）、 otherfee（其它收費(fèi)金額）、 memo（備注）。 本文介紹了課題相關(guān)內(nèi)容，并通過設(shè)計(jì)分析，劃分?jǐn)?shù)據(jù)庫，將系統(tǒng)劃分為四個(gè)主要功能模塊：前臺管理、系統(tǒng)維護(hù)、經(jīng)理查詢、賓客系統(tǒng)。 ； 保存退房登記信息；保存實(shí)收房款信息。應(yīng)用此管理系統(tǒng)后，該酒店對每位客人的具體情況便可以了如指掌，而且在對客人信息進(jìn)行操作時(shí)， 節(jié)省了大量時(shí)間，很大程度上提高了員工的工作效率和酒店的服務(wù)質(zhì)量。因此，開發(fā)這樣一套管理軟件主要全面的論述了賓館在正常運(yùn)營中需要對客房資源、顧客信息、結(jié)算信息進(jìn)行管理，系統(tǒng)可以完成對各類信息的瀏覽、查詢 、添加、刪除、修改等功能。然而占著絕大多數(shù)的中小型酒店、賓館由于資金、人員等多方面原因不易使用酒店管理類軟件，全憑原始的手工記錄管理，效率低、易出錯(cuò)；同時(shí)，市場上出現(xiàn)的 各類酒店管理軟件基本上都是為大型酒店專業(yè)設(shè)計(jì)的，有很多功能對于一般酒店、賓館根本用不上。 前臺開發(fā)工具選擇 Visual Basic ， Visual Basic 是微軟公司推出的可視化編程工具 MSDN之一，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。酒店上網(wǎng)業(yè)務(wù)提高了賓館酒店的知名度以及服務(wù)檔次，在為顧客提供優(yōu)質(zhì)服務(wù)的同時(shí)，在增加了其自身的效益。登錄成功后將顯示系統(tǒng)主界面?？头款愋?、房間數(shù)量、床位數(shù)量是必須輸入的 If Trim(txtRtype) = Then MsgBox 請輸入客房類型 Exit Sub End If If Trim(txtRnum) = Then MsgBox 請輸入房間數(shù)量 Exit Sub End If If Trim(txtBnum) = Then MsgBox 請輸入床位數(shù)量 Exit Sub End If 39。如果沒有原值，則顯示第 1 條記錄值 If 0 Then = 0 End If Else 39。 When 3 Then 39。設(shè)置客戶類型的查詢條件，選擇全部時(shí)沒有查詢條件 If 0 Then sql1 = And =39。房間編號 (1).Width = 1200 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è)計(jì) 窗體 Private Sub Refresh_OrderList() 39。其他收費(fèi) (10).Width = 1000 39。 Private Sub Refresh_Customer() Dim strSearch As String 39。等于 strSearch = WHERE OptTime=39。更改用戶密碼 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)前用戶數(shù)據(jù) () 39。 實(shí)收款統(tǒng)計(jì)表 實(shí)收款統(tǒng)計(jì)表窗體名稱為 FrmStatusPay,窗體界面布局如下圖所示。入住時(shí)間 (5).Width = 1300 39。入住信息記錄 Dim TmpSource As String TmpSource = SELECT As 編號 , As 客戶編號 , As 客戶姓名 , + As 房間編號 , 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。狀態(tài) (7).Width = 2021 39?？辗?39。房間類型 (2).Width = 1000 39。 + Trim() + 39。==電話 .Tel = 1 Else .Tel = 0 End If If = True Then 39。關(guān)閉登錄對話框 Unload Me End Sub Private Sub Form_Load() End Sub 主界面設(shè)計(jì) 主窗體是工程的啟動(dòng)對象，可以在系統(tǒng)菜單中選擇“工程” /“屬性”，打開屬性窗口設(shè)置啟動(dòng)對象。 系統(tǒng)流程分析如圖 第四章 數(shù)據(jù)庫系統(tǒng)功能模塊設(shè)計(jì)????? ????????? 16 4． 1 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì) A dm i n 用戶 普通用戶 1 系統(tǒng)的所有其他功能 用戶登錄 開 始 讀取用戶類型 成功 失敗 失敗超過 3 次 是 退出程序 否 重試 領(lǐng)班用戶 ① 管理自己的用戶信息 ② 管理領(lǐng)班用戶的用戶信息 ③ 管理普通用戶的用戶信息 3 普通用戶管理模塊 ① 管理自己的用戶信息 ② 管理普通用戶的用戶信息 管理自己的用戶信息 用戶管理模塊 賓館酒店管理模塊 2 領(lǐng)班用戶管理模塊 賓館酒店管理系統(tǒng)數(shù)據(jù)庫包含 8 個(gè)表，即客戶信息表 Customer、客房類型表RoomType、客房信息表 Room、客房預(yù)定信息表 OrderRoom、預(yù)定客房登記表 OrderList、入住登記信息表 Registration、實(shí)結(jié)房款信息表 PayforRoom 和用戶信息表 Users。 2．基本的后臺數(shù)據(jù)庫管理方法，例如創(chuàng)建數(shù)據(jù)庫、創(chuàng)建表、創(chuàng)建視圖、備份和還原數(shù)據(jù)庫等。 第二章 賓館管理的系統(tǒng)分析 2． 1系統(tǒng)需求分析 ??????????? 酒店賓館管理系統(tǒng)應(yīng)充分利用信息技術(shù)提高賓客房的管理水平、服務(wù)水平。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已成為人們深刻認(rèn)識，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。隨著科學(xué)技術(shù)的發(fā)展，今天的計(jì)算機(jī)已經(jīng)深入到社會(huì)和生活的各個(gè)領(lǐng)域，尤其在信息管理系統(tǒng)方面其發(fā)展的規(guī)模和應(yīng)用程度已經(jīng)成為一個(gè)國家現(xiàn)代化水平的重要標(biāo)志。 賓館在正常的運(yùn)營中需要對客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用賓館管理信息系統(tǒng)及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更， 有利于提高管理效率。 2． 4 開發(fā)系統(tǒng)所需的實(shí)用技術(shù) 開發(fā)此數(shù)據(jù)庫管理信息系統(tǒng) 所需實(shí)用技術(shù)有： 1．所選開發(fā)工具的基本編程方法。另外， 隨著信息技術(shù)的發(fā)展和人們對賓館酒店的要求越來越高，賓館已明顯覺得手工管理已經(jīng)不能適應(yīng)當(dāng)前賓館高速發(fā)展的需要。登錄成功，將當(dāng)前用戶的信息保存在 CurUser 中 (NameKey) 39。==空調(diào) .Air