【正文】 詢條件 = Conn = SELECT As 房間編號 , as 房間類型 , _ + as 房間個數(shù) , as 床位數(shù)量 , as 朝向 , _ + as 價格 , (CASE When 0 Then 39。判斷 ComboRtype 組合框 listindex，在數(shù)組 Arr_RoomType()得到對應(yīng)的類別編號 Dim sql1 As String 39。房間編號 (1).Width = 1200 39。預(yù)定 39。設(shè)置客戶類型的查詢條件，選擇全部時沒有查詢條件 If 0 Then sql1 = And =39。讀取客戶類別到數(shù)組 Arr_CustType()中 39。==空調(diào) .AirConditioning = 1 Else .AirConditioning = 0 End If If = True Then 39。 設(shè)計(jì)客戶信息編輯窗體 客戶信息編輯窗體可以用來添加和修改客戶的基本信息，窗體名稱為 FrmCustEdit,窗體的布局如下圖所示。登錄成功，將當(dāng)前用戶的信息保存在 CurUser 中 (NameKey) 39。 （ 8）、實(shí)結(jié)房款信息表 PayforRoom， 包括 regld（登記編號）、 amount（結(jié)款金額：如果結(jié)款金額為負(fù)，則表示退款）、 username（經(jīng)辦人）、 opttime（結(jié)款日期）。另外， 隨著信息技術(shù)的發(fā)展和人們對賓館酒店的要求越來越高，賓館已明顯覺得手工管理已經(jīng)不能適應(yīng)當(dāng)前賓館高速發(fā)展的需要。如對客房、員工的設(shè)置修改，相關(guān)的顧客服務(wù)等。 2． 4 開發(fā)系統(tǒng)所需的實(shí)用技術(shù) 開發(fā)此數(shù)據(jù)庫管理信息系統(tǒng) 所需實(shí)用技術(shù)有： 1．所選開發(fā)工具的基本編程方法。 2． 2 系統(tǒng)體系結(jié)構(gòu)設(shè)計(jì)???????????????? 系統(tǒng)功能模塊示意 2． 3 開發(fā)工具的選擇 ???????????????? 4 本系統(tǒng)采用 ADO數(shù)據(jù)訪問技術(shù)，并將每個數(shù)據(jù)庫表的字段和操作封裝到類中，從而成功地將面向?qū)ο蟮某绦蛟O(shè)計(jì)思想應(yīng)用到數(shù)據(jù)庫應(yīng)用程序設(shè)計(jì)中。 賓館在正常的運(yùn)營中需要對客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用賓館管理信息系統(tǒng)及時了解各個環(huán)節(jié)中信息的變更， 有利于提高管理效率。國外許多發(fā)達(dá)國家在這一 方面采用先進(jìn)技術(shù)，發(fā)展水平領(lǐng)先一步。隨著科學(xué)技術(shù)的發(fā)展，今天的計(jì)算機(jī)已經(jīng)深入到社會和生活的各個領(lǐng)域，尤其在信息管理系統(tǒng)方面其發(fā)展的規(guī)模和應(yīng)用程度已經(jīng)成為一個國家現(xiàn)代化水平的重要標(biāo)志。賓館酒店管理系統(tǒng) 林麗娟 （ 浙江海洋學(xué)院 石化學(xué)院，浙江 舟山 316004） [摘要 ]： 對于賓館酒店等服務(wù)性行業(yè)，服務(wù)質(zhì)量是吸引客戶、提高經(jīng)濟(jì)效益的關(guān)鍵因素。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已成為人們深刻認(rèn)識，它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。在我國也已開始應(yīng)用于經(jīng)營管理的各個領(lǐng)域，在不同的部門、不同的層次上參與和支持著各種經(jīng)營、管理活動，扮演著越來越重要的角色，產(chǎn)生了一定的經(jīng)濟(jì)效益和社會效益。 第二章 賓館管理的系統(tǒng)分析 2． 1系統(tǒng)需求分析 ??????????? 酒店賓館管理系統(tǒng)應(yīng)充分利用信息技術(shù)提高賓客房的管理水平、服務(wù)水平。這也是本系統(tǒng)的特色和優(yōu)勢 。 2．基本的后臺數(shù)據(jù)庫管理方法，例如創(chuàng)建數(shù)據(jù)庫、創(chuàng)建表、創(chuàng)建視圖、備份和還原數(shù)據(jù)庫等。系統(tǒng)中的各業(yè)務(wù)管 理模塊既可單機(jī)獨(dú)立運(yùn)行，也可在服務(wù)器 /工作站組成的局域網(wǎng)絡(luò)平臺上聯(lián)網(wǎng)運(yùn)行。 系統(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 個表，即客戶信息表 Customer、客房類型表RoomType、客房信息表 Room、客房預(yù)定信息表 OrderRoom、預(yù)定客房登記表 OrderList、入住登記信息表 Registration、實(shí)結(jié)房款信息表 PayforRoom 和用戶信息表 Users。 （ 9）、用戶信息表 Users， 包括 username（用戶名，主鍵）、 empname（員工姓名）、 userpwd（密碼）、 usertype（用戶類 型： 1 表示領(lǐng)班用戶， 2 表示普通用戶）。關(guān)閉登錄對話框 Unload Me End Sub Private Sub Form_Load() End Sub 主界面設(shè)計(jì) 主窗體是工程的啟動對象，可以在系統(tǒng)菜單中選擇“工程” /“屬性”，打開屬性窗口設(shè)置啟動對象。 客戶信息管理窗體 5． 1． 3 客房類型信息編輯窗體 Private Sub Cmd_OK_Click() 39。==電話 .Tel = 1 Else .Tel = 0 End If If = True Then 39。依次把數(shù)組 Arr_CustType()中的數(shù)據(jù)添加到 ComboType 組合框中 i = 0 Do While Arr_CustType(i) Arr_CustType(i) i = i + 1 Loop 39。 + Trim() + 39。 When 2 Then 39。房間類型 (2).Width = 1000 39。保存客房類型的查詢條件 Dim sql2 As String 39?？辗?39。維修 39。狀態(tài) (7).Width = 2021 39。插入新記錄 .Insert Else If Trim() = OrgRId Then 39。入住信息記錄 Dim TmpSource As String TmpSource = SELECT As 編號 , As 客戶編號 , As 客戶姓名 , + As 房間編號 , As 入住時間 , As 退房時間 , + As 入住天數(shù) , As 報價 , 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。報價 (8).Width = 1000 39。入住時間 (5).Width = 1300 39。對于已結(jié)款記錄可以取消結(jié)款。 實(shí)收款統(tǒng)計(jì)表 實(shí)收款統(tǒng)計(jì)表窗體名稱為 FrmStatusPay,窗體界面布局如下圖所示。 + Trim() + 39。讀取當(dāng)前用戶數(shù)據(jù) () 39。如果當(dāng)前用戶是普通用戶，則打開用戶編輯窗體，編輯自己的用戶信息 With FrmUserEdit .OriUser = .txtUserName = .txtPass = .txtPass2 = .Modify = True .Show 1 End With End Sub 用戶只能修改自己的密碼，當(dāng)前用戶的信息在登錄時被保存在 CurUser 對象中。更改用戶密碼 With MyUser .UserPwd = MakeStr(txtPass) .UpdatePwd (MakeStr(txtUserName)) MsgBox 修改完成 End With Unload Me End Sub 程序?qū)⑴袛嘤脩裘欠褚呀?jīng)存在，密碼和確認(rèn)密碼是否相同、以及密碼長度是否大于等于６等，如果輸入的數(shù)據(jù)完全滿足條件，則保存到數(shù)據(jù)庫中。設(shè)置用戶類型 If Format(, ) = admin Then lblUserType = 系 統(tǒng)管理員 Else lblUserType = 普通用戶 End If End Sub 程序?qū)?dāng)前選擇用戶的信息讀取到 MyUser 對象中。等于 strSearch = WHERE OptTime=39。查詢條件 Select Case Case 0 39。 Private Sub Refresh_Customer() Dim strSearch As String 39。入住天數(shù) (7).Width = 1000 39。其他收費(fèi) (10).Width = 1000 39。 End If = Conn = TmpSource Set = Adodc1 (0).Width = 0 (1).Width = 1000 (2).Width = 1000 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 前臺接待管理模塊