【正文】 設(shè)計(jì) 窗體 Private Sub Refresh_OrderList() 39。更改狀態(tài) Dim iStatus As Integer 39。房間編號(hào) (1).Width = 1200 39。預(yù)定 39。設(shè)置客戶類型的查詢條件，選擇全部時(shí)沒(méi)有查詢條件 If 0 Then sql1 = And =39。床位個(gè)數(shù) (4).Width = 800 39。 When 3 Then 39。設(shè)置客戶狀態(tài)的查詢條件，選擇全部時(shí)沒(méi)有查詢條件 If 0 Then sql2 = And = + Trim( 1) Else sql2 = End If 39。如果沒(méi)有原值，則顯示第 1 條記錄值 If 0 Then = 0 End If Else 39。==獨(dú)立衛(wèi)生間 .Toilet = 1 Else .Toilet = 0 End If If = True Then 39?？头款愋汀⒎块g數(shù)量、床位數(shù)量是必須輸入的 If Trim(txtRtype) = Then MsgBox 請(qǐng)輸入客房類型 Exit Sub End If If Trim(txtRnum) = Then MsgBox 請(qǐng)輸入房間數(shù)量 Exit Sub End If If Trim(txtBnum) = Then MsgBox 請(qǐng)輸入床位數(shù)量 Exit Sub End If 39。打開(kāi)主窗體的設(shè)計(jì)窗口，選擇“工具“菜單”項(xiàng)中的“菜單編輯器”，對(duì)菜單內(nèi)容進(jìn)行編輯，設(shè)置菜單項(xiàng)的屬性。登錄成功后將顯示系統(tǒng)主界面。 （ 2）、客房類型表 RoomType， 包括 typeld（類型編號(hào)，主鍵）、 typename（類型名稱）、 roomnum（房間數(shù)量）、 bednum（床位數(shù)量）、 airconditioning（是否有空調(diào)）、 tel（是否有電話）、 tv（是否有電視）、 toilet（是否有獨(dú)立衛(wèi)生間） 、 icebox（是否有冰箱）。酒店上網(wǎng)業(yè)務(wù)提高了賓館酒店的知名度以及服務(wù)檔次，在為顧客提供優(yōu)質(zhì)服務(wù)的同時(shí)，在增加了其自身的效益。 客房信息管理 基本信息管理 預(yù)定客房管理 入住登記管理 續(xù)住登記管理 退房登記管理 系統(tǒng)用戶管理 用戶信息管理 前臺(tái)接待管理 實(shí)收房款管理 前臺(tái)接待管理 客戶消費(fèi)統(tǒng)計(jì) 實(shí)收款統(tǒng)計(jì) 切換用戶 修改自身密碼 賓館酒店管理系統(tǒng) 客戶信息管理 客房類型管理 4． ADO數(shù)據(jù)庫(kù)訪問(wèn)技術(shù) 本文所做的主要工作 本文論述了分析、開(kāi)發(fā)、設(shè)計(jì)一個(gè)酒店管理系統(tǒng)的過(guò)程。 前臺(tái)開(kāi)發(fā)工具選擇 Visual Basic ， Visual Basic 是微軟公司推出的可視化編程工具 MSDN之一，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_(kāi)發(fā)工具。 、修改、刪除和查詢。然而占著絕大多數(shù)的中小型酒店、賓館由于資金、人員等多方面原因不易使用酒店管理類軟件，全憑原始的手工記錄管理，效率低、易出錯(cuò)；同時(shí)，市場(chǎng)上出現(xiàn)的 各類酒店管理軟件基本上都是為大型酒店專業(yè)設(shè)計(jì)的，有很多功能對(duì)于一般酒店、賓館根本用不上。 酒店服務(wù)項(xiàng)目眾多，客人信息內(nèi)容繁瑣，而且信息量大，因而在操作上經(jīng)常造成很多不便之處，浪費(fèi)了時(shí)間，降低了工作效率，而且極大地影 響了酒店的服務(wù)質(zhì)量和經(jīng)濟(jì)效益。因此，開(kāi)發(fā)這樣一套管理軟件主要全面的論述了賓館在正常運(yùn)營(yíng)中需要對(duì)客房資源、顧客信息、結(jié)算信息進(jìn)行管理，系統(tǒng)可以完成對(duì)各類信息的瀏覽、查詢 、添加、刪除、修改等功能。賓館酒店采用管理信息系統(tǒng)來(lái)管理日常工作，合理配置資源，提升管理水平，從而在市場(chǎng)競(jìng)爭(zhēng)中取得優(yōu)勢(shì)。應(yīng)用此管理系統(tǒng)后，該酒店對(duì)每位客人的具體情況便可以了如指掌，而且在對(duì)客人信息進(jìn)行操作時(shí)， 節(jié)省了大量時(shí)間，很大程度上提高了員工的工作效率和酒店的服務(wù)質(zhì)量。 課題的意義 E 時(shí)代的酒店管理具有四個(gè)鮮明特點(diǎn)：一是國(guó)際化、一是網(wǎng)絡(luò)化、一是高效化、一是靈活性。 ； 保存退房登記信息；保存實(shí)收房款信息。 后臺(tái)數(shù)據(jù)庫(kù)則選擇 SQL Server，是因?yàn)?SQL 語(yǔ)言集數(shù)據(jù)查詢、數(shù)據(jù)操縱、數(shù)據(jù)定義和數(shù)據(jù)控制 功能于一體，是作為關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)中的一種通用的結(jié)構(gòu)化查詢語(yǔ)言。 本文介紹了課題相關(guān)內(nèi)容，并通過(guò)設(shè)計(jì)分析，劃分?jǐn)?shù)據(jù)庫(kù)，將系統(tǒng)劃分為四個(gè)主要功能模塊：前臺(tái)管理、系統(tǒng)維護(hù)、經(jīng)理查詢、賓客系統(tǒng)。因此，采用全新的計(jì)算機(jī)網(wǎng)絡(luò)和賓館管理系統(tǒng)，已成為提高賓館管理效率、改善服務(wù)水準(zhǔn)的重要手段之一。 （ 6）、預(yù)定客房登記表 OrderList， 包 括 listld（記錄編號(hào)，主鍵）、 orderld（客戶編號(hào)）、 roomno（客房編號(hào)）、 indate（計(jì)劃入住日期）、 days（入住天數(shù)）、 price（預(yù)定單價(jià)）、 rate（預(yù)定折扣）、 otherfee（其它收費(fèi)金額）、 memo（備注）。判斷用戶是否存在 If (NameKey) = False Then MsgBox 用戶名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。系統(tǒng)主界面如下圖所示。==房間數(shù)量 .Bednum = Val(txtBnum) 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。保存客房類型的查詢條件 Dim sql2 As String 39?？辗?39。維修 39。狀態(tài) (7).Width = 2021 39。設(shè)置客戶狀態(tài)的查詢條件，選擇全部時(shí)沒(méi)有查詢條件 If 0 Then sql2 = And = + Trim( 1) Else sql2 = End If 39。 When 3 Then 39。床位個(gè)數(shù) (4).Width = 800 39。判斷主要域是否為空，其中客房編號(hào)、客房類型、價(jià)格必須輸入 If Trim() = Then MsgBox 請(qǐng)輸入客房編號(hào) Exit Sub End If If Trim() = Then MsgBox 請(qǐng)輸入客房類型 Exit Sub End If If Trim() = Then MsgBox 請(qǐng)輸入客房?jī)r(jià)格 Exit Sub End If With MyRoom .RoomNo = MakeStr() 39。 End If = Conn = TmpSource Set = Adodc1 39。入住時(shí)間 (5).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 其他說(shuō)明 , As 操作人 _ + FROM Registration r, Customer c , Users u _ + WHERE = And = And =1 If Trim(txtCustName) Then TmpSource = TmpSource + And LIKE 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,其布局如下圖所示。 End If 39。 + Trim() + 39。設(shè)置記錄源 = Conn = SELECT OptTime As 收費(fèi)日期 , Sum(Amount) As 收費(fèi)總金額 _ + FROM PayforRoom + strSearch + GROUP BY OptTime Set = Adodc1 (0).Width = 3200 (1).Width = 3300 End Sub 用戶信息管理模塊設(shè)計(jì) 根據(jù)用戶的不同，用戶管理模塊的功能也不相同。 10． 1． 3 在主界面中增加用戶管理代碼 （ 1）在主界面中單擊“系統(tǒng)用戶管理” /“用戶管理”菜單，將打開(kāi)用戶管理窗體，代碼如下： Private Sub m_Uers_Click() 39。武漢理工大學(xué)出版社 . [10].趙增敏 .SQL SERVER 2021 實(shí)用教程 .北京 :電子工業(yè)出版社 .