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