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