VB.NET 程序設(shè)計(jì)--客房管理系統(tǒng)VIP

1、更多相關(guān)參考論文設(shè)計(jì)文檔資源請?jiān)L問畢 業(yè) 設(shè) 計(jì)設(shè)計(jì)題目：VB.NET 程序設(shè)計(jì)-客房管理系統(tǒng)VB.NET 程序設(shè)計(jì)-客房管理系統(tǒng)摘 要 本文主要針對客房信息管理系統(tǒng)設(shè)計(jì)原則以及步驟的一個(gè)簡單的介紹客房信息管理系統(tǒng)將是客房普遍應(yīng)用的系統(tǒng)。因此作為計(jì)算機(jī)應(yīng)用專業(yè)的人員不僅要掌握數(shù)據(jù)庫的知識，而且要開發(fā)適應(yīng)的系統(tǒng)達(dá)到學(xué)以致用的目的，才能體現(xiàn)出大學(xué)生的素質(zhì)所在。本系統(tǒng)主要對客房的基本設(shè)置進(jìn)行瀏覽添加、修改、刪除等操作，以及對客戶的基本信息瀏覽添加、修改、刪除等操作。而且包括用戶權(quán)限的設(shè)置。附加功能主要有幫助信息，系統(tǒng)簡單易懂，用戶操作起來既輕松又便捷。關(guān)鍵字: 客房管理系統(tǒng) 數(shù)據(jù)庫 用戶權(quán)限本參考設(shè)

2、計(jì)材料，包含項(xiàng)目源代碼、完整CAD設(shè)計(jì)文件、項(xiàng)目設(shè)計(jì)說明書、任務(wù)書、報(bào)告書以及文獻(xiàn)參考翻譯等，資料請聯(lián)系68661508索要目 錄摘要1關(guān)鍵字1一、概述21.1目的以及意義21.2系統(tǒng)實(shí)現(xiàn)的具體功能21.3系統(tǒng)的主要特點(diǎn)21.4系統(tǒng)運(yùn)行的軟、硬件環(huán)境2二、功能需求分析32.1社會(huì)背景和發(fā)展?fàn)顩r32.2功能需求分析32.3系統(tǒng)性能分析3三、系統(tǒng)設(shè)計(jì)33.1軟件的開發(fā)環(huán)境和開發(fā)平臺(tái)33.2系統(tǒng)框架圖43.3項(xiàng)目設(shè)計(jì)方案說明4四、技術(shù)實(shí)現(xiàn)54.1數(shù)據(jù)庫的設(shè)計(jì)54.2界面設(shè)計(jì)7五、總結(jié)12參考文獻(xiàn)14附錄15一、概述隨著經(jīng)濟(jì)文化水平的顯著提高，人們對生活效率的提高，客房管理是各大賓館的主要日常管理工作

3、之一，涉及到登記、結(jié)算等各個(gè)方面，隨著計(jì)算機(jī)的飛速發(fā)展，尤其是以計(jì)算機(jī)與通信技術(shù)為基礎(chǔ)的信息系統(tǒng)正處于蓬勃發(fā)展的時(shí)期?？头抗芾砉ぷ魅遮叿敝亍?fù)雜的工作。迫切需要研制開發(fā)一款功能強(qiáng)大，操作簡單，具有人性化的客房管理系統(tǒng)。1.1目的以及意義客房管理系統(tǒng)是與我們?nèi)粘Ｉ钕⑾⑾嚓P(guān)的問題。客房管理日益復(fù)雜, 這就需要借助日益發(fā)達(dá)的計(jì)算機(jī)技術(shù)和信息技術(shù), 來建立一個(gè)客房管理系統(tǒng)作為管理輔助手段, 減少勞動(dòng)強(qiáng)度, 提高服務(wù)質(zhì)量和管理水平, 進(jìn)而促進(jìn)經(jīng)濟(jì)效率, 為客房的有效運(yùn)行提供保障。計(jì)算機(jī)系統(tǒng)為數(shù)據(jù)處理提供明確的尺度, 使之標(biāo)準(zhǔn)化、規(guī)范化。不僅大量的重復(fù)計(jì)算由計(jì)算機(jī)處理, 可以減輕人的勞動(dòng)強(qiáng)度, 更重要的

4、是：在輸入數(shù)據(jù)以后, 所有的處理都由計(jì)算機(jī)系統(tǒng)來完成, 可以免去人工方式下許多中間的處理環(huán)節(jié), 達(dá)到減員的效果。1.2系統(tǒng)實(shí)現(xiàn)的具體功能客房管理系統(tǒng)是一個(gè)便捷、個(gè)性化的數(shù)據(jù)庫系統(tǒng)，它包括6方面為公司服務(wù)。即系統(tǒng)設(shè)置（包括用戶登陸、用戶管理、角色管理、修改密碼、退出系統(tǒng)），客房管理（包括客房信息的添加、修改、刪除、查詢），客戶管理（包括客戶的添加、修改、刪除），結(jié)算管理（進(jìn)行賬目結(jié)算），關(guān)于和報(bào)表。1.3系統(tǒng)的主要特點(diǎn)該系統(tǒng)具有很好的容錯(cuò)功能，如果系統(tǒng)登錄時(shí)沒有您的信息時(shí)，會(huì)提示您用戶不存在，只有用戶名和密碼對應(yīng)了才可以進(jìn)入主界面，本公司的管理角色已經(jīng)固定，而經(jīng)理才可以設(shè)置權(quán)限。本系統(tǒng)信息全、條

5、理請、速度快、功能齊全，可以通過幫助了解本客房以及本軟件。1.4系統(tǒng)運(yùn)行的軟、硬件環(huán)境系統(tǒng)運(yùn)行于windowsxp上，內(nèi)存256M以上，硬盤80G以上。采用VB.NET語言設(shè)計(jì)，既滿足查詢用戶集中、處理數(shù)據(jù)量大的要求，又滿足查詢者最大范圍地使用該系統(tǒng)。二、功能需求分析2.1社會(huì)背景以及發(fā)展?fàn)顩r隨著社會(huì)和計(jì)算機(jī)技術(shù)的發(fā)展，我們已經(jīng)進(jìn)入了信息化的時(shí)代。信息資源已經(jīng)成為我們最重要和最寶貴的資源之一，建立一個(gè)行之有效的信息管理系統(tǒng)是企業(yè)組織生存和發(fā)展的重要條件。各個(gè)客房的需求也在不斷提高自己的要求，因此，創(chuàng)建一個(gè)客房管理系統(tǒng)是對客房進(jìn)行管理的有效方法，可以節(jié)省更多的人力資源，提高工作效率，加強(qiáng)了經(jīng)濟(jì)效

6、益。2.2功能需求分析社會(huì)發(fā)展不斷加快，對各種需求就日益升高，從而產(chǎn)生了對所需求的東西不斷的發(fā)展，讓人們可以在這樣快節(jié)奏的生活工作中能更方便快捷的解決問題，客房管理系統(tǒng)就是針對那些經(jīng)常出門的人群準(zhǔn)備的。這個(gè)人群由于經(jīng)常出差或者外出旅行，所以對客房的需求量比較大，從而產(chǎn)生了客房管理系統(tǒng)這一便民的系統(tǒng)平臺(tái)，本平臺(tái)不僅操作方便，更能對各種信息進(jìn)行匯總和查詢，充分體現(xiàn)方便快捷的功能。該系統(tǒng)是一個(gè)客房管理系統(tǒng)，主要用于對客房的管理，根據(jù)所學(xué)的數(shù)據(jù)庫原理與程序設(shè)計(jì)的知識，能夠針對一個(gè)小型的客房管理系統(tǒng)，進(jìn)行系統(tǒng)的需求分析，系統(tǒng)設(shè)計(jì)，數(shù)據(jù)庫設(shè)計(jì)，編碼，測試等，完成題目要求的功能，從而達(dá)到掌握開發(fā)一個(gè)小型數(shù)據(jù)

7、庫的目的。通過數(shù)據(jù)瀏覽、數(shù)據(jù)維護(hù)、數(shù)據(jù)查詢等各項(xiàng)功能來滿足客房各項(xiàng)要求。2.3系統(tǒng)性能分析一個(gè)系統(tǒng)的好壞不僅在于系統(tǒng)運(yùn)行的速度，還涉及到系統(tǒng)是否具有人性化的提示信息。該系統(tǒng)無論是在登錄、查詢時(shí)，還是在進(jìn)入到后臺(tái)管理進(jìn)行對數(shù)據(jù)的添加、修改、刪除時(shí)都給與了清晰的提示信息，讓用戶感到該系統(tǒng)所設(shè)計(jì)的一大特點(diǎn)人性化。三、系統(tǒng)設(shè)計(jì)3.1軟件的開發(fā)環(huán)境以及開發(fā)平臺(tái)系統(tǒng)運(yùn)行于windowsxp上，在數(shù)據(jù)庫和開發(fā)工具的選擇上，我選擇了SQL Server2000數(shù)據(jù)庫管理系統(tǒng)和美國Microsoft公司的Visual Basic.NET等軟件一起實(shí)現(xiàn)設(shè)計(jì)功能。在pc機(jī)數(shù)據(jù)庫應(yīng)用程序的開發(fā)領(lǐng)域，Visual Ba

8、sic.NET 是一個(gè)全面支持面向?qū)ο蟪绦蛟O(shè)計(jì)的數(shù)據(jù)庫語言工具。Visual Basic.NET的要特點(diǎn)有： 強(qiáng)大的查詢與管理功能。 強(qiáng)大的數(shù)據(jù)庫開發(fā)功能。 擴(kuò)大了對SQL語言的支持。 大量使用可視化的界面操作工具。 支持面向?qū)ο蟮某绦蛟O(shè)計(jì)。 多平臺(tái)支持。 支持網(wǎng)絡(luò)應(yīng)用。 SQL server的廣泛應(yīng)用3.2系統(tǒng)框架圖如圖3-1：客房管理系統(tǒng)查詢增加修改賬目結(jié)算客房管理系統(tǒng)設(shè)置用戶管理角色管理用戶登陸刪除結(jié)算管理報(bào)表關(guān)于客房信息數(shù)據(jù)報(bào)表關(guān)于系統(tǒng)修改密碼退出客房基本信息管理查詢增加修改客房管理刪除客房基本信息管理圖3-1 系統(tǒng)框架圖3.3項(xiàng)目設(shè)計(jì)方案說明本系統(tǒng)由登錄界面進(jìn)入主界面，登陸界面是該系

9、統(tǒng)的總?cè)肟?，所有的用戶都將由此輸入正確的用戶名和密碼后才可以登陸本系統(tǒng)進(jìn)行使用，如果錯(cuò)誤進(jìn)行提示，本客房的經(jīng)理可以對使用者設(shè)置權(quán)限，管理員可以對本賓館的設(shè)置，顧客的登記和入住情況進(jìn)行查詢、添加、修改、刪除。根據(jù)顧客入住房間的類型不同，每個(gè)房間的價(jià)格也不同，顧客退房結(jié)賬時(shí)要根據(jù)房間的每日價(jià)格乘以天數(shù)計(jì)算出顧客入住的房費(fèi)。四、技術(shù)實(shí)現(xiàn)4.1數(shù)據(jù)庫的設(shè)計(jì)通過上述需求分析，我們基本確定該系統(tǒng)所需要的數(shù)據(jù)庫由7張表組成，其結(jié)構(gòu)和設(shè)計(jì)方法如下。數(shù)據(jù)庫名稱：客房管理系統(tǒng)4.1.1用戶信息表如圖4-1表4-1用戶信息表4.1.2角色信息表如圖4-2表4-2角色信息表4.1.3菜單信息表如圖4-3表4-3菜單信

10、息表4.1.4客房信息表如圖4-4表4-4客房信息表4.1.5客戶信息表如圖4-5表4-5客戶信息表4.1.6權(quán)限信息表如圖4-6表4-6權(quán)限信息表4.1.7賬目結(jié)算表如圖4-7表4-7賬目結(jié)算表4.2界面設(shè)計(jì)用戶運(yùn)行就會(huì)出現(xiàn)登陸界面，用戶登錄成功后才可以進(jìn)入主界面，經(jīng)理才可以對用戶進(jìn)行權(quán)限設(shè)置，管理員可以對客房的設(shè)置和顧客登記、基本信息進(jìn)行添加、修改、刪除。用戶登錄后，系統(tǒng)根據(jù)判斷登陸者的角色進(jìn)而使用軟件。如圖4-9圖4-9 登錄用戶名和密碼與數(shù)據(jù)庫對應(yīng)才可以進(jìn)入主界面,用戶類型的選擇，對主窗體里面的權(quán)限有關(guān)系，用戶類型不同，登陸者的權(quán)限就不同。密碼使用*來表示，增加了登陸者的安全性。如圖4

11、-10圖4-10 主界面當(dāng)操作員正確登錄到管理界面時(shí)，可以對用戶進(jìn)行管理(包括添加，修改，刪除)對用戶和基本信息情況，幫助信息。如圖4-11圖4-11 用戶管理設(shè)置添加、修改、刪除用戶信息，在添加用戶時(shí)，房間編號要與數(shù)據(jù)庫中的用戶編號不能重復(fù)，如果重復(fù)會(huì)有提示，選擇用戶類型時(shí)，會(huì)自動(dòng)出現(xiàn)管理員和操作員的相關(guān)配置；修改用戶信息時(shí)，用戶編號要與數(shù)據(jù)庫中的房間編號對應(yīng)，如果不對應(yīng)，會(huì)有提示；在信息框中選中您所要?jiǎng)h除的房間信息，點(diǎn)擊刪除按鈕后會(huì)提示您是否確認(rèn)刪除該用戶信息，確定后刪除成功。當(dāng)操作員正確登錄到管理界面時(shí)，可以對用戶進(jìn)行管理(包括添加，修改，刪除)對用戶和基本信息情況，幫助信息。如圖4-1

12、2圖4-12 角色管理館登記信息管理系統(tǒng)主添加、修改、刪除用戶信息，在添加角色時(shí)，角色編號要與數(shù)據(jù)庫中的角色編號不能重復(fù)，如果重復(fù)會(huì)有提示，通過權(quán)限設(shè)置，來實(shí)現(xiàn)管理員和操作員的區(qū)別；修改角色信息時(shí)，用戶編號要與數(shù)據(jù)庫中的角色編號對應(yīng)，如果不對應(yīng)，會(huì)有提示；在信息框中選中您所要?jiǎng)h除的角色信息，點(diǎn)擊刪除按鈕后會(huì)提示您是否確認(rèn)刪除該用戶信息，確定后刪除成功。如圖4-13圖4-13 修改密碼圖4-13 修改密碼館登記信息管理系統(tǒng)主修改密碼時(shí)用戶名為只讀，首先判斷原密碼與數(shù)據(jù)庫是否對應(yīng)，如果一致判斷新密碼和確認(rèn)密碼是否一致，如果一致修改成功，否則提示。如圖4-14圖4-14 客房管理館登記信息管理系統(tǒng)主

13、界面客房管理，房間號如果與數(shù)據(jù)庫里登記表重復(fù)，會(huì)有提示，否則添加成功。如圖4-15圖4-15 客房添加館登記信息管理系統(tǒng)主界面客房添加的房間號首先與數(shù)據(jù)庫里客房表里客房編碼是否重復(fù)，如果重復(fù)提示，否則與客房信息表里的客房編碼是否重復(fù)，如果重復(fù)提示，否則預(yù)訂成功。還可以實(shí)現(xiàn)客房的查詢，修改，刪除等功能。在此就不一一列舉。如圖4-16圖4-16客戶信息管理館登記信息管理系統(tǒng)主界面根據(jù)客戶信息表里的姓名和客戶編號確定他們原來的客戶信息，然后選擇進(jìn)行添加修改、刪除，如果客戶姓名與客戶信息表的信息重復(fù)，提示信息，如果沒有重復(fù)，則成功。如圖4-17圖4-17 結(jié)算管理館登記信息管理系統(tǒng)主界面通過輸入信息，

14、根據(jù)計(jì)算按鈕進(jìn)行結(jié)算，通過保存來進(jìn)行結(jié)算信息保存，并在數(shù)據(jù)庫中進(jìn)行查詢。五、總結(jié)本次設(shè)計(jì)是.為平臺(tái)制作出的客房管理系統(tǒng)，系統(tǒng)為客房的管理提供了方便，提高了公司的工作效率。通過這次設(shè)計(jì)，對所學(xué)的知識有了更加深刻的理解。不僅實(shí)現(xiàn)了理論與實(shí)踐相結(jié)合，受到一次綜合運(yùn)用所學(xué)知識、獨(dú)立完成某項(xiàng)技術(shù)工作的訓(xùn)練，從而培養(yǎng)和提高了我獨(dú)立工作的能力，為以后的就業(yè)提供了扎實(shí)的基礎(chǔ)。該系統(tǒng)主要的亮點(diǎn)有以下幾方面：1界面清晰，設(shè)計(jì)簡單。清晰簡單的界面可以使用戶一目了然，可以很輕松的找到所要進(jìn)行的工作。不需要花費(fèi)大量時(shí)間來尋找本系統(tǒng)的內(nèi)容，浪費(fèi)用戶時(shí)間。2系統(tǒng)操作簡單，易管理。系統(tǒng)的管理對于系統(tǒng)的維護(hù)來說很重要，客房的規(guī)

15、定不斷的變化，設(shè)備在不斷地更新。因此越是操作簡單的系統(tǒng)越是受到賓館客房的歡迎，本系統(tǒng)管理的所有功能集中在一個(gè)界面，用戶可以很方便的在各個(gè)功能之間切換。3容錯(cuò)技術(shù)使系統(tǒng)更具有人性化。用戶在操作本系統(tǒng)時(shí)，在輸入錯(cuò)誤信息時(shí)都會(huì)給出相應(yīng)的提示信息。通過本次設(shè)計(jì)，使我充分的體會(huì)了編程給我?guī)淼臉啡?。?考 文 獻(xiàn)1 溫丹麗 主編. Visual Basic.NET 2005程序設(shè)計(jì)教程與實(shí)訓(xùn)M. 北京: 清華大學(xué)出版社，2008，2 杜兆將 主編.SQL Server數(shù)據(jù)庫管理與開發(fā)教程與實(shí)踐M. 北京：北京大學(xué)出版社，2006. 3.楊光宏主編，面向?qū)ο蟪绦蛟O(shè)計(jì)實(shí)用教程 Visual Basic可視化

16、編程，北京：機(jī)械工業(yè)出版社 ， 2005年，第52-232頁4.茅健編著， Visual Basic.NET+SQL Server全程指南，北京：電子工業(yè)出版社，2008 ，第73-196頁5.葛小東，鄧秋媛等. VB.NET編程技巧與實(shí)例集粹 ，北京：北京希望電子出版社，2003 , 第66-262頁附錄Public Class 角色管理Private Sub 角色管理_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated '設(shè)置DataGridView1、DataGri

17、dView2、DataGridView3 strSQL = "select ID,jueseID as 角色編碼,juesename as 角色名稱 from jueseInfo" Setsql適配器(strSQL, "jueseInfo") DataGridView3.DataSource = ds內(nèi)存 DataGridView3.DataMember = "jueseInfo" DataGridView2.DataSource = ds內(nèi)存 DataGridView2.DataMember = "jueseInfo&qu

18、ot; DataGridView1.DataSource = ds內(nèi)存 DataGridView1.DataMember = "jueseInfo" '設(shè)置CheckedListBox TabControl1_Click(sender, e) End Sub Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.Click RefreshTabPage(CheckedListBox1, ListBox1, DataG

19、ridView1) RefreshTabPage(CheckedListBox2, ListBox2, DataGridView2) RefreshTabPage(CheckedListBox3, ListBox3, DataGridView3) End Sub Private Sub RefreshTabPage(ByVal CheckedListBoxa As CheckedListBox, ByVal ListBoxa As ListBox, ByVal DataGridViewa As DataGridView) Dim i As Integer Dim i1 As Integer D

20、im VjueseId As String Dim bl1 As Boolean Dim bl2 As Boolean '- '使用與菜單項(xiàng)相匹配的數(shù)據(jù)表TQx_MnItm生成 CheckedListBox、ListBox的條目 strSQL = "SELECT * FROM caidanInfo order by caidanID" Setsql適配器(strSQL, "caidanInfo") CheckedListBoxa.Items.Clear() ListBoxa.Items.Clear() i = ds內(nèi)存.Tables(&q

21、uot;caidanInfo").Rows.Count - 1 For i1 = 0 To i CheckedListBoxa.Items.Add(ds內(nèi)存.Tables("caidanInfo").Rows(i1).Item("caidanname"), False) ListBoxa.Items.Add(ds內(nèi)存.Tables("caidanInfo").Rows(i1).Item("caidanID") Next '使用數(shù)據(jù)表TQx_QxInfo，設(shè)置 CheckedListBox 的 Ch

22、ecked 屬性 Try Me.TextBox3.Text = DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells(1).Value Me.TextBox4.Text = DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells(2).Value Catch ex As Exception End Try Try VjueseId = DataGridViewa.Rows(DataGridViewa.CurrentCell.RowIndex).Cells(1).

23、Value strSQL = "SELECT * FROM quanxianInfo where jueseID=CS1" Setsql適配器Char1(strSQL, "quanxianInfo", Trim(VjueseId) Dim j As Integer Dim j1 As Integer j = CheckedListBoxa.Items.Count - 1 For j1 = 0 To j CheckedListBoxa.SetItemChecked(j1, False) Next i = ds內(nèi)存.Tables("quanxian

24、Info").Rows.Count - 1 For i1 = 0 To i j = ListBoxa.Items.Count - 1 For j1 = 0 To j bl1 = (ds內(nèi)存.Tables("quanxianInfo").Rows(i1).Item("caidanID") = ListBoxa.Items(j1) bl2 = (ds內(nèi)存.Tables("quanxianInfo").Rows(i1).Item("IsEnabled") = True) If bl1 And bl2 Then

25、CheckedListBoxa.SetItemChecked(j1, True) End If Next Next Catch ex As Exception End Try End Sub Private Sub 角色管理_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing QXFlag = True End Sub Private Sub DataGridView1_CellClick(ByVal sender As

26、Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick RefreshTabPage(CheckedListBox1, ListBox1, DataGridView1) End Sub Private Sub DataGridView2_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridV

27、iew2.CellClick RefreshTabPage(CheckedListBox2, ListBox2, DataGridView2) End Sub Private Sub DataGridView3_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView3.CellClick RefreshTabPage(CheckedListBox3, ListBox3, DataGridView3) End Sub Priv

28、ate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim j As Integer Dim j1 As Integer Dim mk As Boolean Dim vIsEnabled As Int16 If Trim(TextBox1.Text) = "" Then MsgBox("角色編碼不能為空。") Exit Sub End If If Trim(TextBox2.Text) = "" Then MsgBox("角色名稱不能為空。