【正文】 已收押金 SSJE = 0 39。最后點(diǎn)擊結(jié)賬按鈕便完成了退房結(jié)賬手續(xù)。更新數(shù)據(jù)并返回?cái)?shù)據(jù)源 Dim i As Integer For i = 0 To 1 (客房信息表 , 客房狀態(tài) = 39。 當(dāng)顧客因故 中途取消辦理入住時(shí)，為方便操作，節(jié)省時(shí)間，可點(diǎn)擊重置按鈕，則所有輸入框中的信息自動(dòng)清空。 間 Dim i As Integer For i = 0 To . 1 Select Case .Rows(i).Item(4) Case 入住 DQRZ = DQRZ + 1 Case 預(yù)訂 DQYD = DQYD + 1 Case 空閑 DQKG += 1 Case 維修 DQZY += 1 Case 自用 DQZY += 1 End Select Next = amp。并按圖 74進(jìn)行界面設(shè)計(jì)。 set amp。 CZNR amp。) 39。各個(gè)實(shí)體具體的 實(shí)體屬性 圖如下： 圖 61 客房類型實(shí)體屬性圖 圖 62 客房信息實(shí)體屬性圖 客房類型 客房價(jià)格 類型名稱 備注 客房信息 類型名稱 客房編號(hào) 客房位置 室內(nèi)電話 客房描述 單據(jù)編號(hào) 備注信息 客房狀態(tài) 15 圖 63 商品類別實(shí)體屬性圖 圖 64 商品信息實(shí)體屬性圖 圖 65 消費(fèi)記錄實(shí)體屬性圖 圖 66 入住單實(shí)體屬性圖 在入住單實(shí)體中主要包括以下屬性 ：入住單號(hào)、顧客姓名、顧客類型、顧客來源、證件類型、證件號(hào)碼、性別、公司名稱、聯(lián)系電話、顧客人數(shù)、主房編號(hào)、類型名稱、客房價(jià)格、入住價(jià)格、折扣比例、預(yù)收金額、抵店時(shí)間、預(yù)住天數(shù)、備注等。一般普通用戶可擁有前臺(tái)登記、收銀結(jié)賬以及對(duì)商品和客房信息進(jìn)行查詢和設(shè)置的權(quán)限；而超級(jí)用戶除擁有普通用戶的所有權(quán)限外，還可進(jìn)行系統(tǒng)用戶設(shè)置、數(shù)據(jù)庫維護(hù)和查看系統(tǒng)日志。 客房信息設(shè)置模塊 該模塊實(shí)現(xiàn)對(duì)酒店客房信息進(jìn)行管理，設(shè)置客房名稱、類型、數(shù)量等信息。 更換房間模塊 用戶可根據(jù)顧客的要求更換房間，但只能更換同類房間，且房價(jià)不變。 單據(jù)編號(hào)設(shè)定規(guī)則 在本系統(tǒng)中，入住單號(hào)、預(yù)訂單號(hào)及結(jié)賬單號(hào)的生成方法如下： 單據(jù)編號(hào)＝“單據(jù)名稱首字母組合”＋“當(dāng)天日期”＋“當(dāng)天入住顧客人數(shù)＋ 1”。同時(shí)還應(yīng)對(duì)合法用戶的權(quán)限進(jìn)行嚴(yán)格的控制，一般的酒店服務(wù)人員（普通用戶）只能進(jìn)行一般性的營業(yè)功能操作，而那些重要的營業(yè)及系統(tǒng)數(shù)據(jù)只有酒店管理人員（超級(jí)用戶）才能查看和更新。 在實(shí)際的開發(fā)過程和應(yīng)用中，數(shù)據(jù)庫和應(yīng)用程序均在同一計(jì)算機(jī)上運(yùn)行。用戶可以很好的使用客戶端系統(tǒng)從服務(wù)器檢索信息并進(jìn)行本地操作，服務(wù)器關(guān)注數(shù)據(jù)庫進(jìn)程，而用戶則關(guān)注信息的表示。 ，增加營業(yè)收入。這種工作模式不但效率低下，且極易出現(xiàn)錯(cuò)誤和遺漏，有時(shí)甚至?xí)?dǎo)致 嚴(yán)重的經(jīng)濟(jì)損失，給酒店的經(jīng)營帶來負(fù)面影響。 ，酒店?duì)I業(yè)情況一目了然，提高了經(jīng)營者的決策水平。在 中，可以使用以下方式創(chuàng)建連接： Dim myConn As SqlConnection=New SqlConnection(“ Server=localhost。并 且提供了大量的操作提示以及出錯(cuò)信息，大大的方便用戶的使用，同時(shí)也減少了出錯(cuò)的可能，確保了數(shù)據(jù)的正確性、完整性和一致性。 時(shí)間特性要求 在時(shí)間特性方面，要求在登記入住、客房預(yù)訂、收銀結(jié)賬等功能上要有便捷的操作方式，應(yīng) 盡量縮短顧客的等待時(shí)間。該模塊需要完成的功能主要有： （ 1）輸入預(yù)訂信息 。該模塊需要完成的功能主要有： （ 1）添加顧客消費(fèi)記錄。系統(tǒng)需要完成的功能主要有： （ 1）查看客房狀態(tài)。 ：類型名稱、客房價(jià)格、備注。 結(jié)賬單 顧客姓名 入住單號(hào) 消費(fèi)金額 離店時(shí)間 結(jié)算狀態(tài) …… 入住歷史 顧客姓名 入住單號(hào)號(hào) 入住價(jià)格 離店時(shí)間 折扣比例 …… 結(jié)賬單號(hào) 記錄編號(hào) 17 圖 610 實(shí)體 ER 圖 邏輯結(jié)構(gòu)設(shè)計(jì) 根據(jù)數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)，將數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為 SQL Server 20xx 所支持的實(shí)際數(shù)據(jù)模型，即數(shù)據(jù)庫的邏輯結(jié)構(gòu)。 39。 str1 amp。具體描述如下： ① 用戶合法性驗(yàn)證。代碼如下： Private Sub LoginForm_Load(ByVal sender As Object, ByVal e As ) Handles (DataSetUserInf1) Dim i As Integer For i = 0 To . 1 ( .Rows(i).Item(用戶名稱 )) Next End Sub ② 輸入用戶名和密碼，點(diǎn)擊確定按鈕即可實(shí)現(xiàn)對(duì)用戶身份的多重驗(yàn)證，代碼如下： Dim Times As Integer = 3 Private Sub OK_Click(ByVal sender As , ByVal e As ) Handles Dim i As Integer For i = 0 To . 1 If = .Rows(i).Item(用戶名稱 ) And = .Rows(i).Item(用戶密碼 ) Then If .Rows(i).Item(當(dāng)前狀態(tài) ) = 不可用 Then MsgBox(該用戶已被停用，請(qǐng)與管理員聯(lián)系！ , , 系統(tǒng)警告 ) Exit Sub End If If .Rows(i).Item(用戶權(quán)限 ) = 普通用 戶 Then = False = False 26 = False End If = .Rows(i).Item(用戶名稱 ) (登錄系統(tǒng) , ) () () Exit Sub End If Next Times = Times 1 If Times 1 Then MsgBox(登陸失敗，請(qǐng)重新啟動(dòng)程序！ , , 操作失敗 ) () Else MsgBox(密碼錯(cuò)誤，你還有 amp。 amp。 （ 3）代碼設(shè)計(jì) ① 由于存在費(fèi)用計(jì)算的問題，需要設(shè)定幾個(gè)全局變量，在各事件過程中進(jìn)行相關(guān)的運(yùn)算操作。 39。代碼如下： Dim ZSFY, XFJE, YSJE, YSYJ, SSJE, GKZF, ZL As Decimal Private Function TimeJudge(ByVal j As Decimal) 39。 amp。 (DataSetRoomInf1) Dim i As Integer Dim fee As Decimal = 0 Dim interval As Decimal = 0 For i = 0 To . 1 If .Rows(i).Item(1) = 鐘點(diǎn)房 Then interval = (, 表 .Rows().Item(抵店時(shí)間 ), Now()) interval = TimeJudge(interval) fee += interval * .Rows(i).Item(客房價(jià)格 ) Else interval = (, 表 .Rows().Item(抵店時(shí)間 ), Now()) interval = TimeJudge(interval) fee += interval * .Rows(i).Item(客房價(jià)格 ) End If Next ZSFY = (入住單表 ).Rows().Item(折扣比例 ) * fee End Sub ② 根據(jù)選擇的入住單計(jì)算住宿費(fèi)用和消費(fèi)金額。 Private Sub btnAddRoom_Click(ByVal sender As , ByVal e As ) Handles (0,().Cells(0).Value,().Cells(1).Value, ().Cells(2).Value) () 39。 () 39。 位 ??? ???????????????? = amp。其中菜單欄控件設(shè)計(jì)成如圖 76所示。若為“可用”，便進(jìn)行用戶權(quán)限判定；若為“停用”，系統(tǒng)發(fā)出警告信息，禁止用戶登錄。 str1 amp。 amp。命名空間，聲明包含對(duì) Sql Server數(shù)據(jù)庫的連接 Module DataUpdate Public UserName As String 39。 ：結(jié)賬單號(hào)、入住單號(hào)、顧客姓名、公司名稱、客房編號(hào)、抵店時(shí)間、離店時(shí)間、住宿費(fèi)用、消費(fèi)金額、應(yīng)收金額、預(yù)收金額、實(shí)收金額、結(jié)算狀態(tài)、是否開票、備注信息。 數(shù)據(jù)庫維護(hù)模塊 數(shù)據(jù)庫的維護(hù)對(duì)于本系統(tǒng)至關(guān)重要，通過對(duì)于數(shù)據(jù)庫的清理、備份和還原，既 可使系統(tǒng)的維護(hù)工作更加簡單易用，又可使系統(tǒng)能夠更加安全可靠的運(yùn)行。主要包含以下功能： （ 1）收銀結(jié)賬。 登記入住模塊 登記入住模塊實(shí)現(xiàn)顧客登記入住功能。如圖 42所 示。 因此，本系統(tǒng)的功能需求應(yīng)包括： 、登記入住，更換房間以及退房結(jié)賬等客房營銷功能； 、更新； ； ； ； ； 據(jù)庫維護(hù)功能，能夠?qū)?shù)據(jù)庫進(jìn)行備份和還原操作； ，只有擁有合法賬號(hào)的用戶才能進(jìn)入并使用本系統(tǒng)。 DataSet 對(duì)象 DataSet 是一種新的對(duì)象模型，是一個(gè)容器類，是 斷開式結(jié)構(gòu)的核心控件，Connection .NET數(shù)據(jù)提供程序 DataReader DataAdapter DataSet 斷開連接的 數(shù)據(jù)體系結(jié)構(gòu) Command 4 它將數(shù) 據(jù)庫中的數(shù)據(jù)檢索到內(nèi)存中，代表一個(gè)或者多個(gè)數(shù)據(jù)庫表中的數(shù)據(jù)的非連接視圖。 繼承了 VB 簡單、易學(xué)、易用的特點(diǎn)，同時(shí)增加了新的組件、修改了以前的集成開發(fā)環(huán)境界面，給開發(fā)人員帶來更多的新鮮、有用的東西，它本身自帶的各種函數(shù)和方法可以幫助我們快速和有效的實(shí)現(xiàn)系統(tǒng)功能的開發(fā)，從而大大減輕工作負(fù)擔(dān)。 服務(wù)的安排、調(diào)度是否周到，客人的要求是否能迅速地得到滿足，都直接影響到酒店的形象和聲譽(yù)。 項(xiàng)目研究意義及必要性 酒店作為高層次的服務(wù)行業(yè)之一， 最重要的就是 要 做 到 優(yōu)質(zhì)服務(wù) 。 簡介 Visual 是集成在 Visual Studio 中的一個(gè)強(qiáng)大的開發(fā)工具，它 以 .NET為框架對(duì) Visual Basic 進(jìn)行了非常大的改進(jìn)。 DataSetCommand 的主要目的是產(chǎn)生 DataSet，它的結(jié)構(gòu)相對(duì)來說比較復(fù)雜，如果用戶需要將數(shù)據(jù)批次寫回?cái)?shù)據(jù)庫，可以使用 DataSetCommand 提供的 Update 方法。這也就是一個(gè)小型酒店管理系統(tǒng)應(yīng)該具備的基本功能。 如果客人退房時(shí)間在住宿當(dāng)天，可以按如下算法：退房結(jié)賬時(shí)間早于 18:00，那么住宿天數(shù)為 天；退房結(jié)賬時(shí)間超過 18:00，那么住宿天數(shù)為 1 天。將顧客所預(yù)訂客房的狀態(tài)由“空閑”改為“預(yù)訂”?？梢詫?duì)顧客在店期間的住宿費(fèi)用及商品消費(fèi)一次性結(jié)賬。該模塊主要完成添加、修改和刪除用戶信息的功能，包括用戶名稱、密碼、用戶權(quán)限和當(dāng)前狀態(tài)。 ：預(yù)訂單號(hào)、顧客姓名、顧客類型、顧客來源、公司名稱、聯(lián)系電話、預(yù)訂房數(shù)、預(yù)訂日期、預(yù)抵時(shí)間、保留時(shí)間、備注。其具體代碼如下： Imports 39。,39。 End If Dim sql As New SqlCommand(str, sqlcon) () () End Function Public Function UpdateData(ByVal str1 As String, ByVal str2