毕业论文VB.NET 程序设计客房管理系统设计

1、唐 山 学 院毕 业 设 计设计题目：VB.NET 程序设计-客房管理系统系 别： 10级 班 级：速录（2）班 姓 名： 陈丽梅 指 导 教 师：2012年8月31 日VB.NET 程序设计-客房管理系统摘 要本文主要针对客房信息管理系统设计原则以及步骤的一个简单的介绍客房信息管理系统将是客房普遍应用的系统。因此作为计算机应用专业的人员不仅要掌握数据库的知识，而且要开发适应的系统达到学以致用的目的，才能体现出大学生的素质所在。本系统主要对客房的基本设置进行浏览添加、修改、删除等操作，以及对客户的基本信息浏览添加、修改、删除等操作。而且包括用户权限的设置。附加功能主要有帮助信息，系统简单易懂，

2、用户操作起来既轻松又便捷。关键字:客房管理系统 数据库 用户权限目 录摘要1关键字1一、概述21.1目的以及意义21.2系统实现的具体功能21.3系统的主要特点21.4系统运行的软、硬件环境2二、功能需求分析32.1社会背景和发展状况32.2功能需求分析32.3系统性能分析3三、系统设计33.1软件的开发环境和开发平台33.2系统框架图43.3项目设计方案说明4四、技术实现54.1数据库的设计54.2界面设计7五、总结12参考文献14附录15一、概述随着经济文化水平的显著提高，人们对生活效率的提高，客房管理是各大宾馆的主要日常管理工作之一，涉及到登记、结算等各个方面，随着计算机的飞速发展，尤其

3、是以计算机与通信技术为基础的信息系统正处于蓬勃发展的时期。客房管理工作日趋繁重、复杂的工作。迫切需要研制开发一款功能强大，操作简单，具有人性化的客房管理系统。1.1目的以及意义客房管理系统是与我们日常生活息息相关的问题。客房管理日益复杂, 这就需要借助日益发达的计算机技术和信息技术, 来建立一个客房管理系统作为管理辅助手段, 减少劳动强度, 提高服务质量和管理水平, 进而促进经济效率, 为客房的有效运行提供保障。计算机系统为数据处理提供明确的尺度, 使之标准化、规范化。不仅大量的重复计算由计算机处理, 可以减轻人的劳动强度, 更重要的是：在输入数据以后, 所有的处理都由计算机系统来完成, 可以

4、免去人工方式下许多中间的处理环节, 达到减员的效果。1.2系统实现的具体功能客房管理系统是一个便捷、个性化的数据库系统，它包括6方面为公司服务。即系统设置（包括用户登陆、用户管理、角色管理、修改密码、退出系统），客房管理（包括客房信息的添加、修改、删除、查询），客户管理（包括客户的添加、修改、删除），结算管理（进行账目结算），关于和报表。1.3系统的主要特点该系统具有很好的容错功能，如果系统登录时没有您的信息时，会提示您用户不存在，只有用户名和密码对应了才可以进入主界面，本公司的管理角色已经固定，而经理才可以设置权限。本系统信息全、条理请、速度快、功能齐全，可以通过帮助了解本客房以及本软件。1

5、.4系统运行的软、硬件环境系统运行于windowsxp上，内存256M以上，硬盘80G以上。采用VB.NET语言设计，既满足查询用户集中、处理数据量大的要求，又满足查询者最大范围地使用该系统。二、功能需求分析2.1社会背景以及发展状况随着社会和计算机技术的发展，我们已经进入了信息化的时代。信息资源已经成为我们最重要和最宝贵的资源之一，建立一个行之有效的信息管理系统是企业组织生存和发展的重要条件。各个客房的需求也在不断提高自己的要求，因此，创建一个客房管理系统是对客房进行管理的有效方法，可以节省更多的人力资源，提高工作效率，加强了经济效益。2.2功能需求分析社会发展不断加快，对各种需求就日益升高

6、，从而产生了对所需求的东西不断的发展，让人们可以在这样快节奏的生活工作中能更方便快捷的解决问题，客房管理系统就是针对那些经常出门的人群准备的。这个人群由于经常出差或者外出旅行，所以对客房的需求量比较大，从而产生了客房管理系统这一便民的系统平台，本平台不仅操作方便，更能对各种信息进行汇总和查询，充分体现方便快捷的功能。该系统是一个客房管理系统，主要用于对客房的管理，根据所学的数据库原理与程序设计的知识，能够针对一个小型的客房管理系统，进行系统的需求分析，系统设计，数据库设计，编码，测试等，完成题目要求的功能，从而达到掌握开发一个小型数据库的目的。通过数据浏览、数据维护、数据查询等各项功能来满足客

7、房各项要求。2.3系统性能分析一个系统的好坏不仅在于系统运行的速度，还涉及到系统是否具有人性化的提示信息。该系统无论是在登录、查询时，还是在进入到后台管理进行对数据的添加、修改、删除时都给与了清晰的提示信息，让用户感到该系统所设计的一大特点人性化。三、系统设计3.1软件的开发环境以及开发平台系统运行于windowsxp上，在数据库和开发工具的选择上，我选择了SQL Server2000数据库管理系统和美国Microsoft公司的Visual Basic.NET等软件一起实现设计功能。在pc机数据库应用程序的开发领域，Visual Basic.NET 是一个全面支持面向对象程序设计的数据库语言工

8、具。Visual Basic.NET的要特点有： 强大的查询与管理功能。 强大的数据库开发功能。 扩大了对SQL语言的支持。 大量使用可视化的界面操作工具。 支持面向对象的程序设计。 多平台支持。 支持网络应用。 SQL server的广泛应用3.2系统框架图如图3-1：客房管理系统查询增加修改账目结算客房管理系统设置用户管理角色管理用户登陆删除结算管理报表关于客房信息数据报表关于系统修改密码退出客房基本信息管理查询增加修改客房管理删除客房基本信息管理图3-1 系统框架图3.3项目设计方案说明本系统由登录界面进入主界面，登陆界面是该系统的总入口，所有的用户都将由此输入正确的用户名和密码后才可以

9、登陆本系统进行使用，如果错误进行提示，本客房的经理可以对使用者设置权限，管理员可以对本宾馆的设置，顾客的登记和入住情况进行查询、添加、修改、删除。根据顾客入住房间的类型不同，每个房间的价格也不同，顾客退房结账时要根据房间的每日价格乘以天数计算出顾客入住的房费。四、技术实现4.1数据库的设计通过上述需求分析，我们基本确定该系统所需要的数据库由7张表组成，其结构和设计方法如下。数据库名称：客房管理系统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界面设计用户运行就会出现登陆界面，用户登录成功后才可以进入主界面，经理才可以对用户进行权限设置，管理员可以对客房的设置和顾客登记、基本信息进行添加、修改、删除。用户登录后，系统根据判断登陆者的角色进而使用软件。如图4-9图4-9 登录用户名和密码与数据库对应才可以进入主界面,用户类型的选择，对主窗体里面的权限有关系，用户类型不同，登陆者的权限就不同。密码使用*来表示，增加了登陆者的安全性。如图4-10图4-10 主界面当操作员正确登录到管理界面时，可以对

11、用户进行管理(包括添加，修改，删除)对用户和基本信息情况，帮助信息。如图4-11图4-11 用户管理设置添加、修改、删除用户信息，在添加用户时，房间编号要与数据库中的用户编号不能重复，如果重复会有提示，选择用户类型时，会自动出现管理员和操作员的相关配置；修改用户信息时，用户编号要与数据库中的房间编号对应，如果不对应，会有提示；在信息框中选中您所要删除的房间信息，点击删除按钮后会提示您是否确认删除该用户信息，确定后删除成功。当操作员正确登录到管理界面时，可以对用户进行管理(包括添加，修改，删除)对用户和基本信息情况，帮助信息。如图4-12图4-12 角色管理馆登记信息管理系统主添加、修改、删除用

12、户信息，在添加角色时，角色编号要与数据库中的角色编号不能重复，如果重复会有提示，通过权限设置，来实现管理员和操作员的区别；修改角色信息时，用户编号要与数据库中的角色编号对应，如果不对应，会有提示；在信息框中选中您所要删除的角色信息，点击删除按钮后会提示您是否确认删除该用户信息，确定后删除成功。如图4-13图4-13 修改密码图4-13 修改密码馆登记信息管理系统主修改密码时用户名为只读，首先判断原密码与数据库是否对应，如果一致判断新密码和确认密码是否一致，如果一致修改成功，否则提示。如图4-14图4-14 客房管理馆登记信息管理系统主界面客房管理，房间号如果与数据库里登记表重复，会有提示，否则

13、添加成功。如图4-15图4-15 客房添加馆登记信息管理系统主界面客房添加的房间号首先与数据库里客房表里客房编码是否重复，如果重复提示，否则与客房信息表里的客房编码是否重复，如果重复提示，否则预订成功。还可以实现客房的查询，修改，删除等功能。在此就不一一列举。如图4-16图4-16客户信息管理馆登记信息管理系统主界面根据客户信息表里的姓名和客户编号确定他们原来的客户信息，然后选择进行添加修改、删除，如果客户姓名与客户信息表的信息重复，提示信息，如果没有重复，则成功。如图4-17图4-17 结算管理馆登记信息管理系统主界面通过输入信息，根据计算按钮进行结算，通过保存来进行结算信息保存，并在数据库

14、中进行查询。五、总结本次设计是.为平台制作出的客房管理系统，系统为客房的管理提供了方便，提高了公司的工作效率。通过这次设计，对所学的知识有了更加深刻的理解。不仅实现了理论与实践相结合，受到一次综合运用所学知识、独立完成某项技术工作的训练，从而培养和提高了我独立工作的能力，为以后的就业提供了扎实的基础。该系统主要的亮点有以下几方面：1界面清晰，设计简单。清晰简单的界面可以使用户一目了然，可以很轻松的找到所要进行的工作。不需要花费大量时间来寻找本系统的内容，浪费用户时间。2系统操作简单，易管理。系统的管理对于系统的维护来说很重要，客房的规定不断的变化，设备在不断地更新。因此越是操作简单的系统越是受

15、到宾馆客房的欢迎，本系统管理的所有功能集中在一个界面，用户可以很方便的在各个功能之间切换。3容错技术使系统更具有人性化。用户在操作本系统时，在输入错误信息时都会给出相应的提示信息。通过本次设计，使我充分的体会了编程给我带来的乐趣。参 考 文 献1 温丹丽 主编. Visual Basic.NET 2005程序设计教程与实训M. 北京: 清华大学出版社，2008，2 杜兆将 主编.SQL Server数据库管理与开发教程与实践M. 北京：北京大学出版社，2006.3.杨光宏主编，面向对象程序设计实用教程 Visual Basic可视化编程，北京：机械工业出版社 ， 2005年，第52-232页4

16、.茅健编著， Visual Basic.NET+SQL Server全程指南，北京：电子工业出版社，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 '- '使用与菜单项相匹配的数据表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 '使用数据表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