畢業(yè)論文VB.NET 程序設計客房管理系統(tǒng)設計

1、唐 山 學 院畢 業(yè) 設 計設計題目：VB.NET 程序設計-客房管理系統(tǒng)系 別： 10級 班 級：速錄（2）班 姓 名： 陳麗梅 指 導 教 師：2012年8月31 日VB.NET 程序設計-客房管理系統(tǒng)摘 要本文主要針對客房信息管理系統(tǒng)設計原則以及步驟的一個簡單的介紹客房信息管理系統(tǒng)將是客房普遍應用的系統(tǒng)。因此作為計算機應用專業(yè)的人員不僅要掌握數(shù)據(jù)庫的知識，而且要開發(fā)適應的系統(tǒng)達到學以致用的目的，才能體現(xiàn)出大學生的素質所在。本系統(tǒng)主要對客房的基本設置進行瀏覽添加、修改、刪除等操作，以及對客戶的基本信息瀏覽添加、修改、刪除等操作。而且包括用戶權限的設置。附加功能主要有幫助信息，系統(tǒng)簡單易懂，

2、用戶操作起來既輕松又便捷。關鍵字:客房管理系統(tǒng) 數(shù)據(jù)庫 用戶權限目 錄摘要1關鍵字1一、概述21.1目的以及意義21.2系統(tǒng)實現(xiàn)的具體功能21.3系統(tǒng)的主要特點21.4系統(tǒng)運行的軟、硬件環(huán)境2二、功能需求分析32.1社會背景和發(fā)展狀況32.2功能需求分析32.3系統(tǒng)性能分析3三、系統(tǒng)設計33.1軟件的開發(fā)環(huán)境和開發(fā)平臺33.2系統(tǒng)框架圖43.3項目設計方案說明4四、技術實現(xiàn)54.1數(shù)據(jù)庫的設計54.2界面設計7五、總結12參考文獻14附錄15一、概述隨著經濟文化水平的顯著提高，人們對生活效率的提高，客房管理是各大賓館的主要日常管理工作之一，涉及到登記、結算等各個方面，隨著計算機的飛速發(fā)展，尤其

3、是以計算機與通信技術為基礎的信息系統(tǒng)正處于蓬勃發(fā)展的時期?？头抗芾砉ぷ魅遮叿敝?、復雜的工作。迫切需要研制開發(fā)一款功能強大，操作簡單，具有人性化的客房管理系統(tǒng)。1.1目的以及意義客房管理系統(tǒng)是與我們日常生活息息相關的問題?？头抗芾砣找鎻碗s, 這就需要借助日益發(fā)達的計算機技術和信息技術, 來建立一個客房管理系統(tǒng)作為管理輔助手段, 減少勞動強度, 提高服務質量和管理水平, 進而促進經濟效率, 為客房的有效運行提供保障。計算機系統(tǒng)為數(shù)據(jù)處理提供明確的尺度, 使之標準化、規(guī)范化。不僅大量的重復計算由計算機處理, 可以減輕人的勞動強度, 更重要的是：在輸入數(shù)據(jù)以后, 所有的處理都由計算機系統(tǒng)來完成, 可以

4、免去人工方式下許多中間的處理環(huán)節(jié), 達到減員的效果。1.2系統(tǒng)實現(xiàn)的具體功能客房管理系統(tǒng)是一個便捷、個性化的數(shù)據(jù)庫系統(tǒng)，它包括6方面為公司服務。即系統(tǒng)設置（包括用戶登陸、用戶管理、角色管理、修改密碼、退出系統(tǒng)），客房管理（包括客房信息的添加、修改、刪除、查詢），客戶管理（包括客戶的添加、修改、刪除），結算管理（進行賬目結算），關于和報表。1.3系統(tǒng)的主要特點該系統(tǒng)具有很好的容錯功能，如果系統(tǒng)登錄時沒有您的信息時，會提示您用戶不存在，只有用戶名和密碼對應了才可以進入主界面，本公司的管理角色已經固定，而經理才可以設置權限。本系統(tǒng)信息全、條理請、速度快、功能齊全，可以通過幫助了解本客房以及本軟件。1

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

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

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

8、具。Visual Basic.NET的要特點有： 強大的查詢與管理功能。 強大的數(shù)據(jù)庫開發(fā)功能。 擴大了對SQL語言的支持。 大量使用可視化的界面操作工具。 支持面向對象的程序設計。 多平臺支持。 支持網(wǎng)絡應用。 SQL server的廣泛應用3.2系統(tǒng)框架圖如圖3-1：客房管理系統(tǒng)查詢增加修改賬目結算客房管理系統(tǒng)設置用戶管理角色管理用戶登陸刪除結算管理報表關于客房信息數(shù)據(jù)報表關于系統(tǒng)修改密碼退出客房基本信息管理查詢增加修改客房管理刪除客房基本信息管理圖3-1 系統(tǒng)框架圖3.3項目設計方案說明本系統(tǒng)由登錄界面進入主界面，登陸界面是該系統(tǒng)的總入口，所有的用戶都將由此輸入正確的用戶名和密碼后才可以

9、登陸本系統(tǒng)進行使用，如果錯誤進行提示，本客房的經理可以對使用者設置權限，管理員可以對本賓館的設置，顧客的登記和入住情況進行查詢、添加、修改、刪除。根據(jù)顧客入住房間的類型不同，每個房間的價格也不同，顧客退房結賬時要根據(jù)房間的每日價格乘以天數(shù)計算出顧客入住的房費。四、技術實現(xiàn)4.1數(shù)據(jù)庫的設計通過上述需求分析，我們基本確定該系統(tǒng)所需要的數(shù)據(jù)庫由7張表組成，其結構和設計方法如下。數(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菜單信息表4.1.4客房信息表如圖4-4表4-4客房信息表4.1.

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

11、用戶進行管理(包括添加，修改，刪除)對用戶和基本信息情況，幫助信息。如圖4-11圖4-11 用戶管理設置添加、修改、刪除用戶信息，在添加用戶時，房間編號要與數(shù)據(jù)庫中的用戶編號不能重復，如果重復會有提示，選擇用戶類型時，會自動出現(xiàn)管理員和操作員的相關配置；修改用戶信息時，用戶編號要與數(shù)據(jù)庫中的房間編號對應，如果不對應，會有提示；在信息框中選中您所要刪除的房間信息，點擊刪除按鈕后會提示您是否確認刪除該用戶信息，確定后刪除成功。當操作員正確登錄到管理界面時，可以對用戶進行管理(包括添加，修改，刪除)對用戶和基本信息情況，幫助信息。如圖4-12圖4-12 角色管理館登記信息管理系統(tǒng)主添加、修改、刪除用

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

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

14、中進行查詢。五、總結本次設計是.為平臺制作出的客房管理系統(tǒng)，系統(tǒng)為客房的管理提供了方便，提高了公司的工作效率。通過這次設計，對所學的知識有了更加深刻的理解。不僅實現(xiàn)了理論與實踐相結合，受到一次綜合運用所學知識、獨立完成某項技術工作的訓練，從而培養(yǎng)和提高了我獨立工作的能力，為以后的就業(yè)提供了扎實的基礎。該系統(tǒng)主要的亮點有以下幾方面：1界面清晰，設計簡單。清晰簡單的界面可以使用戶一目了然，可以很輕松的找到所要進行的工作。不需要花費大量時間來尋找本系統(tǒng)的內容，浪費用戶時間。2系統(tǒng)操作簡單，易管理。系統(tǒng)的管理對于系統(tǒng)的維護來說很重要，客房的規(guī)定不斷的變化，設備在不斷地更新。因此越是操作簡單的系統(tǒng)越是受

15、到賓館客房的歡迎，本系統(tǒng)管理的所有功能集中在一個界面，用戶可以很方便的在各個功能之間切換。3容錯技術使系統(tǒng)更具有人性化。用戶在操作本系統(tǒng)時，在輸入錯誤信息時都會給出相應的提示信息。通過本次設計，使我充分的體會了編程給我?guī)淼臉啡ぁ?考 文 獻1 溫丹麗 主編. Visual Basic.NET 2005程序設計教程與實訓M. 北京: 清華大學出版社，2008，2 杜兆將 主編.SQL Server數(shù)據(jù)庫管理與開發(fā)教程與實踐M. 北京：北京大學出版社，2006.3.楊光宏主編，面向對象程序設計實用教程 Visual Basic可視化編程，北京：機械工業(yè)出版社 ， 2005年，第52-232頁4

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

17、quot;select ID,jueseID as 角色編碼,juesename as 角色名稱 from jueseInfo" Setsql適配器(strSQL, "jueseInfo") DataGridView3.DataSource = ds內存 DataGridView3.DataMember = "jueseInfo" DataGridView2.DataSource = ds內存 DataGridView2.DataMember = "jueseInfo" DataGridView1.DataSource =

18、ds內存 DataGridView1.DataMember = "jueseInfo" '設置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, DataGridView1) RefreshTabPage(Checke

19、dListBox2, 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 Dim VjueseId As String Dim bl1 A

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

21、t - 1 For i1 = 0 To i CheckedListBoxa.Items.Add(ds內存.Tables("caidanInfo").Rows(i1).Item("caidanname"), False) ListBoxa.Items.Add(ds內存.Tables("caidanInfo").Rows(i1).Item("caidanID") Next '使用數(shù)據(jù)表TQx_QxInfo，設置 CheckedListBox 的 Checked 屬性 Try Me.TextBox3.Text =

22、 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).Value strSQL = "SELECT * F

23、ROM 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內存.Tables("quanxianInfo").Rows.Count - 1 For

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

25、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 Object, ByVal e As System.Windo

26、ws.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 DataGridView2.CellClick RefreshTabPage(C

27、heckedListBox2, 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 Private Sub Button1_Click(ByVal sen

28、der 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("角色名稱不能為空。&q