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

唐 山 学 院毕 业 设 计设计题目：VB.NET 程序设计-客房管理系统 系 别： 10级 班 级： 速录（2）班 姓 名： 陈丽梅 指 导 教 师： 2012年8月31 日VB.NET 程序设计-客房管理系统 摘 要 本文主要针对客房信息管理系统设计原则以及步骤的一个简单的介绍客房信息管理系统将是客房普遍应用的系统。因此作为计算机应用专业的人员不仅要掌握数据库的知识，而且要开发适应的系统达到学以致用的目的，才能体现出大学生的素质所在。本系统主要对客房的基本设置进行浏览添加、修改、删除等操作，以及对客户的基本信息浏览添加、修改、删除等操作。而且包括用户权限的设置。附加功能主要有帮助信息，系统简单易懂，用户操作起来既轻松又便捷。关键字: 客房管理系统 数据库 用户权限目 录摘要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一、概述随着经济文化水平的显著提高，人们对生活效率的提高，客房管理是各大宾馆的主要日常管理工作之一，涉及到登记、结算等各个方面，随着计算机的飞速发展，尤其是以计算机与通信技术为基础的信息系统正处于蓬勃发展的时期。客房管理工作日趋繁重、复杂的工作。迫切需要研制开发一款功能强大，操作简单，具有人性化的客房管理系统。1.1目的以及意义客房管理系统是与我们日常生活息息相关的问题。客房管理日益复杂, 这就需要借助日益发达的计算机技术和信息技术, 来建立一个客房管理系统作为管理辅助手段, 减少劳动强度, 提高服务质量和管理水平, 进而促进经济效率, 为客房的有效运行提供保障。计算机系统为数据处理提供明确的尺度, 使之标准化、规范化。不仅大量的重复计算由计算机处理, 可以减轻人的劳动强度, 更重要的是：在输入数据以后, 所有的处理都由计算机系统来完成, 可以免去人工方式下许多中间的处理环节, 达到减员的效果。1.2系统实现的具体功能客房管理系统是一个便捷、个性化的数据库系统，它包括6方面为公司服务。即系统设置（包括用户登陆、用户管理、角色管理、修改密码、退出系统），客房管理（包括客房信息的添加、修改、删除、查询），客户管理（包括客户的添加、修改、删除），结算管理（进行账目结算），关于和报表。1.3系统的主要特点该系统具有很好的容错功能，如果系统登录时没有您的信息时，会提示您用户不存在，只有用户名和密码对应了才可以进入主界面，本公司的管理角色已经固定，而经理才可以设置权限。本系统信息全、条理请、速度快、功能齐全，可以通过帮助了解本客房以及本软件。1.4系统运行的软、硬件环境系统运行于windowsxp上，内存256M以上，硬盘80G以上。采用VB.NET语言设计，既满足查询用户集中、处理数据量大的要求，又满足查询者最大范围地使用该系统。二、功能需求分析2.1社会背景以及发展状况随着社会和计算机技术的发展，我们已经进入了信息化的时代。信息资源已经成为我们最重要和最宝贵的资源之一，建立一个行之有效的信息管理系统是企业组织生存和发展的重要条件。各个客房的需求也在不断提高自己的要求，因此，创建一个客房管理系统是对客房进行管理的有效方法，可以节省更多的人力资源，提高工作效率，加强了经济效益。2.2功能需求分析社会发展不断加快，对各种需求就日益升高，从而产生了对所需求的东西不断的发展，让人们可以在这样快节奏的生活工作中能更方便快捷的解决问题，客房管理系统就是针对那些经常出门的人群准备的。这个人群由于经常出差或者外出旅行，所以对客房的需求量比较大，从而产生了客房管理系统这一便民的系统平台，本平台不仅操作方便，更能对各种信息进行汇总和查询，充分体现方便快捷的功能。该系统是一个客房管理系统，主要用于对客房的管理，根据所学的数据库原理与程序设计的知识，能够针对一个小型的客房管理系统，进行系统的需求分析，系统设计，数据库设计，编码，测试等，完成题目要求的功能，从而达到掌握开发一个小型数据库的目的。通过数据浏览、数据维护、数据查询等各项功能来满足客房各项要求。2.3系统性能分析一个系统的好坏不仅在于系统运行的速度，还涉及到系统是否具有人性化的提示信息。该系统无论是在登录、查询时，还是在进入到后台管理进行对数据的添加、修改、删除时都给与了清晰的提示信息，让用户感到该系统所设计的一大特点人性化。三、系统设计3.1软件的开发环境以及开发平台系统运行于windowsxp上，在数据库和开发工具的选择上，我选择了SQL Server2000数据库管理系统和美国Microsoft公司的Visual Basic.NET等软件一起实现设计功能。在pc机数据库应用程序的开发领域，Visual Basic.NET 是一个全面支持面向对象程序设计的数据库语言工具。Visual Basic.NET的要特点有： 强大的查询与管理功能。 强大的数据库开发功能。 扩大了对SQL语言的支持。 大量使用可视化的界面操作工具。 支持面向对象的程序设计。 多平台支持。 支持网络应用。 SQL server的广泛应用3.2系统框架图如图3-1：客房管理系统查询增加修改账目结算客房管理系统设置用户管理角色管理用户登陆删除结算管理报表关于客房信息数据报表关于系统修改密码退出客房基本信息管理查询增加修改客房管理删除客房基本信息管理图3-1 系统框架图3.3项目设计方案说明本系统由登录界面进入主界面，登陆界面是该系统的总入口，所有的用户都将由此输入正确的用户名和密码后才可以登陆本系统进行使用，如果错误进行提示，本客房的经理可以对使用者设置权限，管理员可以对本宾馆的设置，顾客的登记和入住情况进行查询、添加、修改、删除。根据顾客入住房间的类型不同，每个房间的价格也不同，顾客退房结账时要根据房间的每日价格乘以天数计算出顾客入住的房费。四、技术实现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.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 主界面当操作员正确登录到管理界面时，可以对用户进行管理(包括添加，修改，删除)对用户和基本信息情况，帮助信息。如图4-11图4-11 用户管理设置添加、修改、删除用户信息，在添加用户时，房间编号要与数据库中的用户编号不能重复，如果重复会有提示，选择用户类型时，会自动出现管理员和操作员的相关配置；修改用户信息时，用户编号要与数据库中的房间编号对应，如果不对应，会有提示；在信息框中选中您所要删除的房间信息，点击删除按钮后会提示您是否确认删除该用户信息，确定后删除成功。当操作员正确登录到管理界面时，可以对用户进行管理(包括添加，修改，删除)对用户和基本信息情况，帮助信息。如图4-12图4-12 角色管理馆登记信息管理系统主添加、修改、删除用户信息，在添加角色时，角色编号要与数据库中的角色编号不能重复，如果重复会有提示，通过权限设置，来实现管理员和操作员的区别；修改角色信息时，用户编号要与数据库中的角色编号对应，如果不对应，会有提示；在信息框中选中您所要删除的角色信息，点击删除按钮后会提示您是否确认删除该用户信息，确定后删除成功。如图4-13图4-13 修改密码图4-13 修改密码馆登记信息管理系统主修改密码时用户名为只读，首先判断原密码与数据库是否对应，如果一致判断新密码和确认密码是否一致，如果一致修改成功，否则提示。如图4-14图4-14 客房管理馆登记信息管理系统主界面客房管理，房间号如果与数据库里登记表重复，会有提示，否则添加成功。如图4-15图4-15 客房添加馆登记信息管理系统主界面客房添加的房间号首先与数据库里客房表里客房编码是否重复，如果重复提示，否则与客房信息表里的客房编码是否重复，如果重复提示，否则预订成功。还可以实现客房的查询，修改，删除等功能。在此就不一一列举。如图4-16图4-16客户信息管理馆登记信息管理系统主界面根据客户信息表里的姓名和客户编号确定他们原来的客户信息，然后选择进行添加修改、删除，如果客户姓名与客户信息表的信息重复，提示信息，如果没有重复，则成功。如图4-17图4-17 结算管理馆登记信息管理系统主界面通过输入信息，根据计算按钮进行结算，通过保存来进行结算信息保存，并在数据库中进行查询。五、总结本次设计是.为平台制作出的客房管理系统，系统为客房的管理提供了方便，提高了公司的工作效率。通过这次设计，对所学的知识有了更加深刻的理解。不仅实现了理论与实践相结合，受到一次综合运用所学知识、独立完成某项技术工作的训练，从而培养和提高了我独立工作的能力，为以后的就业提供了扎实的基础。该系统主要的亮点有以下几方面：1界面清晰，设计简单。清晰简单的界面可以使用户一目了然，可以很轻松的找到所要进行的工作。不需要花费大量时间来寻找本系统的内容，浪费用户时间。2系统操作简单，易管理。系统的管理对于系统的维护来说很重要，客房的规定不断的变化，设备在不断地更新。因此越是操作简单的系统越是受到宾馆客房的欢迎，本系统管理的所有功能集中在一个界面，用户可以很方便的在各个功能之间切换。3容错技术使系统更具有人性化。用户在操作本系统时，在输入错误信息时都会给出相应的提示信息。通过本次设计，使我充分的体会了编程给我带来的乐趣。参 考 文 献1 温丹丽 主编. Visual Basic.NET 2005程序设计教程与实训M. 北京: 清华大学出版社，2008，2 杜兆将 主编.SQL Server数据库管理与开发教程与实践M. 北京：北京大学出版社，2006. 3.杨光宏主编，面向对象程序设计实用教程 Visual Basic可视化编程，北京：机械工业出版社 ， 2005年，第52-232页4.茅健编著， 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 = 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 = 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(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 Dim VjueseId As String Dim bl1 As 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.Count - 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 = 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 * 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内存.Tables(quanxianInfo).Rows.Count - 1 For 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(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.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 DataGridView2.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 Private 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(角色名称不能为空。) Exit Sub End If strSQL = select * from jueseInfo where jueseID=CS1 SelectChar1(strSQL, Trim(TextBox1.Text) If (dr.Read() Then MsgBox(该角色编码已经存在,请选择修改角色!) Exit Sub End If mk = False j = CheckedListBox1.Items.Count - 1 For j1 = 0 To j mk = mk Or CheckedListBox1.GetItemChecked(j1) Next If Not mk Then MsgBox(功能选择不能为空。) Exit Sub End If strSQL = insert into jueseInfo(jueseID,juesename)values(CS1,CS2) NonSelectChar2(strSQL, Trim(TextBox1.Text), Trim(TextBox2.Text) j = CheckedListBox1.Items.Count - 1 For j1 = 0 To j If CheckedListBox1.GetItemChecked(j1) Then vIsEnabled = 1 Else vIsEnabled = 0 End If strSQL = insert into quanxianInfo(jueseID,caidanID,IsEnabled)values(CS1,CS2,CS3) NonSelectChar2Bit1(strSQL, Trim(TextBox1.Text), ListBox1.Items(j1), vIsEnabled) Next 处理数据表DataGridView、处理填菜单项CheckedListBox 角色管理_Activated(sender, e) MsgBox(添加角色成功!) End Sub ag an employment tribunal clai Emloyment tribunals sort out disagreements between employers and employees. You may need to make a claim to an employment tribunal if: you dont agree with the disciplinary action your employer has taken against you your employer dismisses you and you think that you have been dismissed unfairly. For more informu, take advice from one of the organisations listed underFurther help. Employment tribunals are less formal than some other courts, but it is still a legal process and you will need to give evidence under an oath or affirmation. Most people find making a claim to an employment tribunal challenging. If you are thinking about making a claim to an employment tribunal, you should get help straight away from one of the organisations listed underFurther help. ation about dismissal and unfair dismissal, seeDismissal. You can make a claim to an employment tribunal, even if you haventappealedagainst the disciplinary action your employer has taken against you. However, if you win your case, the tribunal may reduce any compensation awarded to you as a result of your failure to appeal. Remember that in most cases you must make an application to an employment tribunal within three months of the date when the event you are complaining about happened. If your application is received after this time limit, the tribunal will not usually accept i. If you are worried about how the time limits apply to you If you are being represented by a solicitor at the tribunal, they may ask you to sign an agreement where you pay their fee out of your compensation if you win the case. This is known as adamages-based agreement. In England and Wales, your solicitor cant charge you more than 35% of your compensation if you win the case.youre clear about the terms of the agreement. It might be best to get advice from an experienced adviser, for example, at a Citizens Advice Bureau. To find your nearest CAB, including those that give advice by e-mail, click onnearest CAB.For more information about making a claim to an employment tribunal, seeEmployment tribunals.The (lack of) air up there Watch m Cay man Islands-based Webb, the head of Fifas anti-racism taskforce, is in London for the Football Associations 150th anniversary celebrations and will attend Citys Premier League match at Chelsea on Sunday.I am going to be at the match tomorrow and I have asked to meet Ya ya Toure, he told BBC Sport.For me its about how he felt and I would like to speak to him first to find out what his experience was.Uefa hasopened disciplinary proceedings against CSKAfor the racist behaviour of their fans duringCitys 2-1 win.Michel Platini, president of European footballs governing body, has also ordered an immediate investigation into the referees actions.CSKA said they were surprised and disappointed by Toures complaint. In a statement the Russian side added: We found no racist insults from fans of CSKA.Age has reached the end of the beginning of a word. May be guilty in his seems to passing a lot of different life became the appearance of the same day; May be back in the past, to oneself the paranoid weird belief disillusionment, these days, my mind has been very messy, in my mind constantly. Always feel oneself should go to do something, or write something. Twenty years of life trajectory deeply shallow, suddenly feel something, do it.一字开头的年龄已经到了尾声。或许是愧疚于自己似乎把转瞬即逝的很多个不同的日子过成了同一天的样子；或许是追溯过去，对自己那些近乎偏执的怪异信念的醒悟，这些天以来，思绪一直很凌乱，在脑海中不断纠缠。总觉得自己似乎应该去做点什么，或者写点什么。二十年的人生轨迹深深浅浅，突然就感觉到有些事情，非做不可了。The end of our life, and can meet many things really do?而穷尽我们的一生，又能遇到多少事情是真正地非做不可？During my childhood, think lucky money and new clothes are necessary for New Year, but as the advance of the age, will be more and more found that those things are optional; Junior high school, thought to have a crush on just means that the real growth, but over the past three years later, his writing of alumni in peace, suddenly found that isnt really grow up, it seems is not so important; Then in high school, think dont want to give vent to out your inner voice can be in the high school children of the feelings in a period, but was eventually infarction when graduation party in the throat, later again stood on the pitch he has sweat profusely, looked at his thrown a basketball hoops, suddenly found himself has already cant remember his appearance.童年时，觉得压岁钱和新衣服是过年必备，但是随着年龄的推进，会越来越发现，那些东西根本就可有可无；初中时，以为要有一场暗恋才意味着真正的成长，但三年过去后，自己心平气和的写同学录的时候，突然就发现是不是真正的成长了，好像并没有那么重要了；然后到了高中，觉得非要吐露出自己的心声才能为高中生涯里的懵懂情愫划上一个句点，但毕业晚会的时候最终还是被梗塞在了咽喉，后来再次站在他曾经挥汗如雨的球场，看着他投过篮球的球框时，突然间发现自己已经想不起他的容颜。Originally, this world, can produce a chemical reaction to an event, in addition to resolutely, have to do, and time.原来，这个世界上，对某个事件能产生化学反应的，除了非做不可的坚决，还有，时间。A persons time, your ideas are always special to clear. Want, want, line is clear, as if nothing could shake his. Also once seemed to be determined to do something, but more often is he backed out at last. Dislike his cowardice, finally found that there are a lot of love, there are a lot of miss, like shadow really have been doomed. Those who do, just green years oneself give oneself an arm injection, or is a self-righteous spiritual.一个人的时候，自己的想法总是特别地清晰。想要的，不想要的，界限明确，好像没有什么可以撼动自己。也曾经好像已经下定了决心去做某件事，但更多的时候是最后又打起了退堂鼓。嫌恶过自己的怯懦，最终却发现有很多缘分，有很多错过，好像冥冥之中真的已经注定。那些曾经所谓的非做不可，只是青葱年华里自己给自己注射的一支强心剂，或者说，是自以为是的精神寄托罢了。At the moment, the sky is dark, the air is fresh factor after just rained. Suddenly thought of blue plaid shirt; Those were broken into various shapes of stationery; From the corner at the beginning of deep friendship; Have declared the end of the encounter that havent start planning. Those years, those days of do, finally, like youth, will end in our life.此刻，天空是阴暗的，空气里有着刚下过雨之后的清新因子。突然想到那件蓝格子衬衫；那些被折成各种各样形状的信纸；那段从街角深巷伊始的友谊；还有那场还没有开始就宣告了终结的邂逅计划那些年那些天的非做不可，终于和青春一样，都将在我们的人生中谢幕。Baumgartner the disappointing news: Mission aborted. r plays an important role in this mission. Starting at the ground, conditi