【正文】 SFY = (入住單表 ).Rows().Item(折扣比例 ) * fee End Sub ② 根據(jù)選擇的入住單計算住宿費用和消費金額。調(diào)用計算金額過程 .Clear() = select * from 消費記錄表 where 入住單號 = 39。 amp。住宿費用 XFJE = 0 39。代碼如下： Dim ZSFY, XFJE, YSJE, YSYJ, SSJE, GKZF, ZL As Decimal Private Function TimeJudge(ByVal j As Decimal) 39。系統(tǒng)自動生成結(jié)賬單號。 39。代碼如下： Private Sub btnRentRoomConfirm_Click(ByVal sender As Object, ByVal e As ) Handles = Now 39。 （ 3）代碼設(shè)計 ① 由于存在費用計算的問題，需要設(shè)定幾個全局變量，在各事件過程中進行相關(guān)的運算操作。 位 End Sub ② 單擊菜單中某個選項時，就彈出相應(yīng)的窗體，代碼如下： Private Sub 登記入住 IToolStripMenuItem_Click(ByVal sender As Object, ByVal e As ) Handles 登記入住 () End Sub Private Sub 客房預(yù)訂 BToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 客房預(yù)訂 () End Sub ?????????????????? Private Sub 用戶設(shè)置 UToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 用戶設(shè)置 () End Sub ③ 當(dāng)點擊 ToolBar控件上的圖象按鈕時，將激活相應(yīng)的功能窗體。 amp。代碼如下： Private Sub MainForm_Load(ByVal sender As , ByVal e As ) Handles (DataSetRoom1) 39。代碼如下： 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 ② 輸入用戶名和密碼，點擊確定按鈕即可實現(xià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(該用戶已被停用，請與管理員聯(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(登陸失敗，請重新啟動程序！ , , 操作失敗 ) () Else MsgBox(密碼錯誤，你還有 amp。即對于擁有登錄權(quán)限的合法用戶進行權(quán)限判定。具體描述如下： ① 用戶合法性驗證。 str2 amp。 str1 amp。 39。 39。database=HMIS。 結(jié)賬單 顧客姓名 入住單號 消費金額 離店時間 結(jié)算狀態(tài) …… 入住歷史 顧客姓名 入住單號號 入住價格 離店時間 折扣比例 …… 結(jié)賬單號 記錄編號 17 圖 610 實體 ER 圖 邏輯結(jié)構(gòu)設(shè)計 根據(jù)數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計，將數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為 SQL Server 20xx 所支持的實際數(shù)據(jù)模型，即數(shù)據(jù)庫的邏輯結(jié)構(gòu)。 概念結(jié)構(gòu)設(shè)計 概念設(shè)計用于信息世界的建模，是現(xiàn)實世界到信息世界的第一層抽象 。 ：類型名稱、客房價格、備注。 系統(tǒng)日志模塊 系統(tǒng)日志記錄用戶對于系統(tǒng)數(shù)據(jù)的添加、修改和刪除操作，如客房信息設(shè)置、商品信息設(shè)置和房態(tài)設(shè)置等，而不記錄用戶一般性的營業(yè)操作，如登記入住、客房預(yù)訂等。系統(tǒng)需要完成的功能主要有： （ 1）查看客房狀態(tài)。同時將入住單相關(guān)記錄轉(zhuǎn)入入住歷史中； （ 2）可對特殊顧客進行免單操作，“免費”賬單所有費用清零，結(jié)算狀態(tài)標記為“免費”； （ 3）更新客房狀態(tài)。該模塊需要完成的功能主要有： （ 1）添加顧客消費記錄。該模塊的功能主要有： （ 1）登記入住。該模塊需要完成的功能主要有： （ 1）輸入預(yù)訂信息 。 更換房間規(guī)則 由于客人的住宿習(xí)慣不一樣，有些客人會在住宿過程中要求更換客房，例如客人要求換一間光線較好的客房或者空調(diào)房等等，這就要求本系統(tǒng)應(yīng)該具備換房功能。 時間特性要求 在時間特性方面，要求在登記入住、客房預(yù)訂、收銀結(jié)賬等功能上要有便捷的操作方式，應(yīng) 盡量縮短顧客的等待時間。 系統(tǒng)界面應(yīng)采用 Windows 窗體風(fēng)格和命令按鈕化設(shè)計，按用戶的習(xí)慣制定操作提示和出 錯信息，使得操作人員不需要經(jīng)過專門的培訓(xùn)就能夠快速的掌握操作方法。并 且提供了大量的操作提示以及出錯信息，大大的方便用戶的使用，同時也減少了出錯的可能，確保了數(shù)據(jù)的正確性、完整性和一致性。方法如下： DataAdapter 對象 .Fill（ DataSet） 或使用如下形式： DataAdapter 對象 .Fill(DataSet,TableName) 以上語句用于用給定的表中的記錄填充 DataSet， TableName 是指從源表映射到DataSet 中表的名字。在 中，可以使用以下方式創(chuàng)建連接： Dim myConn As SqlConnection=New SqlConnection(“ Server=localhost。 SQL Server 20xx 簡介 Microsoft SQL Server 20xx 建立于 Windows NT 的可伸縮性和可管理性之上，提供了功能強大的客戶服務(wù)器平臺。 ，酒店營業(yè)情況一目了然，提高了經(jīng)營者的決策水平。酒店信息化管理 已成為 酒店 現(xiàn)代科學(xué)管理的重要內(nèi)容，是 酒店 經(jīng)營 中 必不可缺少的現(xiàn)代科學(xué)工具。這種工作模式不但效率低下，且極易出現(xiàn)錯誤和遺漏，有時甚至?xí)?dǎo)致 嚴重的經(jīng)濟損失，給酒店的經(jīng)營帶來負面影響。雖然信息化并不是酒店走向成功的關(guān)鍵元素，但它可以幫助那些真正影響成敗的要素發(fā)揮更大的效用。 ，增加營業(yè)收入。綜合權(quán)衡自己對于各種工具的熟練程度以及它們的優(yōu)缺點后，決定采用 Visual Studio 20xx 集成開發(fā)環(huán)境中的 Visual 語言開發(fā)本系統(tǒng)，后臺數(shù)據(jù)庫則采用 SQL Server 20xx 開發(fā)。用戶可以很好的使用客戶端系統(tǒng)從服務(wù)器檢索信息并進行本地操作，服務(wù)器關(guān)注數(shù)據(jù)庫進程，而用戶則關(guān)注信息的表示。Password=。 在實際的開發(fā)過程和應(yīng)用中，數(shù)據(jù)庫和應(yīng)用程序均在同一計算機上運行。只有將這兩者完美的融入到計算機管理系統(tǒng)中去，才能說是實現(xiàn)了酒店業(yè)務(wù)的信 息化管理。同時還應(yīng)對合法用戶的權(quán)限進行嚴格的控制，一般的酒店服務(wù)人員（普通用戶）只能進行一般性的營業(yè)功能操作，而那些重要的營業(yè)及系統(tǒng)數(shù)據(jù)只有酒店管理人員（超級用戶）才能查看和更新。 客房宿費的計算方法 在宿費的計算方法上，根據(jù)實際情況，設(shè)置為如下方法： 如果是“鐘點房”，計算時間差以小時為單位。 單據(jù)編號設(shè)定規(guī)則 在本系統(tǒng)中，入住單號、預(yù)訂單號及結(jié)賬單號的生成方法如下： 單據(jù)編號＝“單據(jù)名稱首字母組合”＋“當(dāng)天日期”＋“當(dāng)天入住顧客人數(shù)＋ 1”。為已預(yù)訂客房的顧客辦理登記入住，同時刪除相關(guān)的預(yù)訂信息。 更換房間模塊 用戶可根據(jù)顧客的要求更換房間，但只能更換同類房間，且房價不變。即刪除消費記錄，取消商品交易。 客房信息設(shè)置模塊 該模塊實現(xiàn)對酒店客房信息進行管理，設(shè)置客房名稱、類型、數(shù)量等信息。 用戶管理模塊 該模塊實現(xiàn)用戶信息管理，系統(tǒng)將用戶分為超級用戶和普通用戶兩級權(quán)限。一般普通用戶可擁有前臺登記、收銀結(jié)賬以及對商品和客房信息進行查詢和設(shè)置的權(quán)限；而超級用戶除擁有普通用戶的所有權(quán)限外，還可進行系統(tǒng)用戶設(shè)置、數(shù)據(jù)庫維護和查看系統(tǒng)日志。 ：記錄編號、入住單號、商品名稱、商品類別、購買價格、購買數(shù)量、消費金額、購買日期。各個實體具體的 實體屬性 圖如下： 圖 61 客房類型實體屬性圖 圖 62 客房信息實體屬性圖 客房類型 客房價格 類型名稱 備注 客房信息 類型名稱 客房編號 客房位置 室內(nèi)電話 客房描述 單據(jù)編號 備注信息 客房狀態(tài) 15 圖 63 商品類別實體屬性圖 圖 64 商品信息實體屬性圖 圖 65 消費記錄實體屬性圖 圖 66 入住單實體屬性圖 在入住單實體中主要包括以下屬性 ：入住單號、顧客姓名、顧客類型、顧客來源、證件類型、證件號碼、性別、公司名稱、聯(lián)系電話、顧客人數(shù)、主房編號、類型名稱、客房價格、入住價格、折扣比例、預(yù)收金額、抵店時間、預(yù)住天數(shù)、備注等。 在本系統(tǒng)中就創(chuàng)建了幾個這樣的模塊。) 39。 amp。 CZNR amp。 where amp。 set amp。 ② 用戶當(dāng)前狀態(tài)判定。并按圖 74進行界面設(shè)計。 （ 2）窗體設(shè)計 新建一個窗體并命名為“ ” ， 并把 Text 屬性改為“小型酒店管理系統(tǒ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。 間 ZRZL = DQRZ / . = (ZRZL * 100).ToString(.) amp。 當(dāng)顧客因故 中途取消辦理入住時，為方便操作，節(jié)省時間，可點擊重置按鈕，則所有輸入框中的信息自動清空。 30 Private Sub RentRoomForm_Load(ByVal sender As Object, ByVal e As ) Handles (DataSetEmptyRoom1) 39。更新數(shù)據(jù)并返回數(shù)據(jù)源 Dim i As Integer For i = 0 To 1 (客房信息表 , 客房狀態(tài) = 39。 (i).Cells(0).Value amp。最后點擊結(jié)賬按鈕便完成了退房結(jié)賬手續(xù)。 amp。已收押金 SSJE = 0 39。累計賓客的消費總額 XFJE += (消費記錄表 ).Rows(i).Item(6) Next