毕业设计（论文）-基于VB.NET的酒店管理系统设计.doc

湖南理工职业技术学院湖南理工职业技术学院毕业设计说明书毕业设计说明书题题目目：酒店管理系统年级专业年级专业：06级计算机信息管理学生姓名学生姓名：指导教师指导教师：2009年月日II湖南理工职业技术学院毕业设计任务书毕业设计题目：酒店管理系统题目类型软件开发题目来源学生自选题毕业设计时间从2009.至2009.07.011.毕业设计内容要求：1题目类型：(1)理论研究(2)实验研究(3)工程设计(4)应用研究(5)软件开发2题目来源：(1)教师科研题(2)生产实际题(3)模拟或虚构题(4)学生自选题III2.主要参考资料3.毕业设计进度安排阶段阶段内容起止时间1开讲个人选题报告2着手收集资料，并报送提纲审定3集中指导与个别指导，提交初稿审查4修改，经审稿后定稿交稿5导师批阅毕业设计6答辩与鉴定指导老师（签名）_时间：_教研室主任(签名)_时间：_系主任（签名）_时间：_IV摘要随着人类社会的进步，计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业工资管理是适应现代企业制度要求、推动企业管理走向科学化、规范化的必要条件；本酒店管理系统是用VB.NET和SQLServer2000制作而成的。酒店管理是酒店日常运作的一个重要环节，学习制作酒店管理系统很有必要。同时，它也是服务行业管理软件的一个综合性代表。本酒店管理系统有登记、订房、退房、查看房间信息、查看客人信息、统计修等主要功能。系统建立了两个数据表，一个表记录房间信息；第三个表记录客人信息。房间信息有三种状态，即“营业中”、“预定”、和“空闲”，客人信息包括有：“姓名”、“性别”、“房号”、“类型”、“证件类型”、“证件号码”、“押金”、“人数”、“入住日期”、“状态”。这些状态可以对房间的情况和客人的情况进行统计。主要介绍了酒店管理在酒店日常运作中的作用以及酒店管理系统的必要性。第二章介绍酒店管理系统的功能。第三章介绍了酒店管理系统的数据库设计。第四章介绍了酒店管理系统模块的实现。数据库结构设计包括数据库概论结构设计和数据库逻辑结构设计。程序设计为6个界面的制作过程包括、“主界面”、“登记界面”等等界面，并且给出了界面设计的部分主要的源代码。关键词关键词酒店管理系统、VB.NET、数据库设计、程序设计V目录第一章第一章概述概述.11.1MIS系统开发方法.11.1.1原型法.11.1.2面向对象方法.21.2MIS系统开发过程.2第二章第二章系统分析系统分析.42.1需求分析.42.2系统目标设计.42.3系统功能分析.42.4系统各功能模块设计.52.5数据流程图.7第三章第三章数据库设计数据库设计.93.1数据库需求分析.93.2数据库逻辑结构设计.10第四章第四章工资管理系统的具体实现工资管理系统的具体实现.104.1VISUALBASIC.NET开发工具简介.104.2VISUALBASIC.NET应用程序开发的基本步骤.114.3SQLSERVER2000简介.114.4具体窗口的实现.134.5结果分析.23结束语结束语.25致致谢谢.26参考文献参考文献.271第一章概述1.1MIS系统开发方法管理信息系统的开发方法有生命周期法、原型法和面向对象的开发方法等：生命周期法（LifeCycle）是20世纪60年代发展起来的一种应用广泛且比较成熟的管理系统开发方法，它的基本思想是将系统的开发工作从开始到结束划分为若干个阶段，每个阶段都有明确的任务，而系统开发出来后，并不意味着生命周期的结束，而意味着根据组织的需要对系统的修改和重建的开始。1.1.1原型法1、原型法产生的原因运用结构化系统开发生命周期法的前提条件是要求用户在项目开始初期就非常明确地陈述其需求，需求陈述出现错误，对信息系统开发的影响尤为严重，因此，这种方法不允许失败。事实上这种要求又难以做到。人们设想，有一种方法，能够迅速发现需求错误。当图形用户界面(GraphicUserInterfaceGUI)出现后，自80年代中期以来，原型法逐步被接受，并成为一种流行的信息系统开发方法。2、基本思想原型法（Prototyping）是在系统开发初期，凭借系统开发人员对用户需求的了解和系统主要功能的要求，在强有力的软件环境支持下，迅速构造出系统的初始原型，然后与用户一起不断对原型进行修改、完善，直到满足用户需求。3、优缺点优点：对系统需求的认识取得突破，确保用户的要求得到较好的满足。改进了用户和系统开发人员的交流方式。开发的系统更加贴近实际，提高了用户的满意程度。降低了系统开发风险，一定程度上减少了开发费用。缺点：2开发工具要求高。解决复杂系统和大型系统很困难。对用户的管理水平要求高。1.1.2面向对象方法1、面向对象方法（ObjectOriented）产生的原因以前的开发方法，只是单纯地反映管理功能的结构状况，或者只是侧重反映事物的信息特征和信息流程，只能被动应和实际问题需要的做法。面向对象的方法把数据和过程包装成为对象，以对象为基础对系统进行分析与设计，为认识事物提供了一种全新的思路和办法，是一种综合性的开发方法。2、基本思想客观世界是由各种各样的对象组成的，每种对象都有各自的内部状态和运动规律，不同对象之间的相互作用和联系就构成了各种不同的系统。对象(Object)是客观世界中的任何事物或人们头脑中的各种概念在计算机程序世界里的抽象表示。是面向对象程序设计的基本元素。1.2MIS系统开发过程一个MIS系统的开发过程一般包括如下几个步骤：（1）需求分析：需求分析主要是了解用户的需求。需求了解得越详细，程序的后期开发与维护费用就会越少。一般的开发团队中，需求分析都是由资历较深的系统分析员或项目经理担当，可见它的重要性。需求分析制订好后，需要反复修改。将最后的结果交给用户审定，确认无误后，由系统分析员完成需求分析文档，再开始下一步工作。（2）概要设计：概要设计紧跟在需求分析之后。用户需求明确后，将得到的数据分析后，开始构建数据库的逻辑结构。此时，数据库中的表格还未成形，通过各种分析工具画出数据流图，最后就可抽象出数据库的具体表结构。这时由系统分析人员反复审核。确认所有的需求都考虑在内，没有遗漏后，就可以开始制订概要设计文档。3概要设计文档形成后，整个程序的逻辑框架也就形成了。（3）详细设计：概要设计完成后，根据设计中制订的业务模块。就可以进行详细分析设计了。详细设计就是将各个业务模块的窗口全部建好，各个窗口控件的处理代码全部用语言表达出。所以详细设计是整个系统中最繁琐的环节。详细设计完成后，整个程序就确定了，再由编程人员根据详细设计文档将代码完成。整个开发工作就宣告结束。程序编码：程序编码相对于其他环节来说比较简单，程序员只需要根据详细分析文档写程序编码，保证代码没有错误即可。程序编码需要注意的是整个程序书写中命名的规范化与编程风格的规范化，这需要较长时间的培养来形成。需要在不断的实践中形成自己独特的风格。总的来说，不要过分地追求复杂的算法，因为那可能会导致后期维护人员无法读懂你的代码而造成维护的困难。（4）测试：程序编码完成后，就需要测试。测试有几种类型，主要是测试代码有无逻辑错误以及在加载数据环境下程序的稳定性问题。测试工作中发现的错误应及时改正，然后将它记录到测试文档中。（5）打包：测试完成，确认无误后。程序就可以打包发行了。打包一般使用工具如PWISE等。以上是一个完整的MIS系统开发过程，其实不仅MIS系统，其他类型的程序开发也基本相同。4第二章系统分析2.1需求分析随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成企业工资管理的日常事务，是适应现代企业制度要求、推动企业管理走向科学化、规范化的必要条件；计算机管理所无法比拟的优点检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高工资管理的效率也是企业的科学化、正规化管理与世界接轨的重要条件。酒店管理系统是酒店日常运作的一个重要环节，其应用面相当烦人广泛，学习制作酒店管理系统是很有必要的。同时，它也是服务行业管理类软件的一个综合性代表。本系统使用的后台数据库采用SQLServer2000采用文本框和网格控件同步显示数据的方式，让用户更清晰的从界面了解重要的信息，也可以让用户快速查看数据，并可以对相应的数据进行相应管理。企业工资管理系统是典型的信息管理系统（MIS），前台程序开发工具采用微软的VisualBasic2005，后台数据库采用SQLServer2000数据库。VisualBasic2005是一种面向对象的开发工具，具有组件丰富、语言简单、功能强大的优点。SQLServer2000数据库具有与VisualBasic2005无缝连接、操作简单、易于使用的优点。2.2系统目标设计酒店管理是企业对整个酒店客人、房间等管理的一个重要内容。随着酒店规模的越来越壮大，需求量也越来越多，同时其管理工作也变的越来越复杂。因此，则需要5设计一套酒店管理系统来极大地提高工作效率，节省人力和物力，最终满足企业管理的需要。同时，这也成为了现代化企业管理的标志。2.3系统功能分析根据以上功能，将工资管理系统的数据分为：数据输入部分：主要包括客人入住、预定房间客人信息的录入、工资基本信息的录入、考勤统计情况的录入。数据输出部分：主要是各种统计查询包括：根据客人入住信息（如职工编号、职工姓名等）查询客人的基本信息、房间状态的查询以及入住人数营业额等。数据处理部分：主要设计入住客人信息和房间信息的处理。2.4系统各功能模块设计通过对客户及酒店需求的分析，我们可以分析出该酒店管理系统大致可以分为六个模块：开房信息模块、订房信息模块、查看客人信息模块、查看房间信息管块、退房信息模块，统计信息模块。现在对这五个模块做具体说明：旅客开房信息管理模块提供不同档次的各类房间供旅客选择。可以对旅客信息进行编辑，包括同房人信息操作。包含以下信息：姓名、性别、房号、类型、证件类型、证件号码、押金、人数、入住日期。旅客订房信息管理模块提供不同档次的各类房间供旅客选择。可以显示查看已定房间信息。可以实现从预定房间到入住房间的状态以及取消预定，同时改变房间的状态。包含以下信息：姓名、性别、房号、类型、证件类型、证件号码、押金、人数、入住日期。查看房间信息管理模块可以查看房间营业状态。包含以下信息：房间的空闲、营业中、预定三种状态。查看客人信息管理模块根据不同条件查询客人信息。模糊条件查询历史客人信息根据需要可以打印客人的相关信息。包含以下条件信息：当前入住客人信息、预定客人信息以及历史客人信息。退房信息管理模块可以浏览入住的房间。当办理退房以后及时将房间状态改为空闲。6结算入住期间的一切费用包含以下信息：旅客姓名、入住日期、房价、房号、退房日期、总额。(6)统计客人信息管理模块统计入住客人人数。统计营业额。其功能模块图，如图2.1所示:酒店管理系统开房模块查看客人信息模块订房模块查看房间信息模块退房模块统计模块保存信息办理下一个同房人信息退房结算统计月住人数统计营业额当前入住人信息预定客人信息历史客人信息保存、办理下一个预定、取消入住图2.1系统功能模块建立应用程序时生成有如下项目文件，如图2.2所示7图2.2项目文件图2.5数据流程图说明：数据流程图是描述系统逻辑模型的主要工具，通过几个特定的符号，可以综合地反映出信息在系统中的使用、加工处理、传递、存储的整体情况。数据流程图是系统结构化分析行之有效的工具，它抽象地描述了系统数据处理的情况，但却无法表达所有处理的详细内容，因此还要对数据流程图中出现的数据流和处理等做进一步的补充说明，这就是数据字典和变换逻辑说明。（1）入住客人信息的录入如图2.3所示:8读取数据库开房界面运行程序进入数据库录入信息房号选择Y房号选择N录入成功！图2.3入住客人信息登记流程图说明：对入住客人基本信息进行保存，按职工编号、职工姓名进行查询。9第三章数据库设计数据库的设计是MIS系统的核心部分，设计数据库，首先要进行需求分析，然后进行数据库的概念结构设计、逻辑结构设计、数据库结构实现等步骤。3.1数据库需求分析客户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输入和输出。针对酒店管理系统需求，通过对酒店管理工作过程的内容和数据流程分析，设计如下所示的数据项和数据结构和系统操作流程图：1房间信息表，包括的数据项有：房号、类型、房价、状态。2客人信息表，包括的数据项有：姓名、性别、房号、类型、证件类型、证件号码、押金、人数、入住日期、状态。3系统运行流程图，如图3.2所示:主窗体Main.vb统计窗体Countent.vb查看房间信息RoomInf.vb开房窗体RentRoom.vb退房窗体QuitRoom.vb查看客人信息ClientInf.vb订房窗体BookRoom.vb运行程序图3.1系统运行流程图103.2数据库逻辑结构设计工资管理系统数据库中各个表的设计结果如下面几个表格所示。1.房间信息，如表3.1说明：房号设为主键。表3.1房间表字段名称数据类型长度必填字段房号字符16是类型字符8否房价数字8否状态字符50否2客人信息，如表3.2说明：入住日期设为主键。表3.2客人信息表字段名称数据类型字段大小必填字段姓名字符16否性别字符4否房号字符16否类型字符16否证件类型字符16否证件号码字符16否押金数字8否人数数字8否入住日期时间8是退房日期时间8否状态字符8否11第四章工资管理系统的具体实现4.1VisualBasic.NET开发工具简介VisualBasic.NET一改以前版本的VB(VisualBasic)的开发环境风格，注入了新的开发思想，形成了新的开发界面。功能比以前任何版本都强大，而且更方便开发者操作。业界又称VB.NET是复活了的VB。由此可见，它不是VB6.0简单的升级版。VisualBasic7也被称作VB.NET，是Microsoft公司的VisualStudio.NET集成开发软件的成员之一。VB.NET继承了VB6.0简单、易学、易用的特点，同时增加了新的组件，修改了以前的集成开发环境界面，增强了面向对象的特性。给开发人员带来更多新鲜、有用的东西。VB.NET不仅是一个单纯的程序编辑器，它还是一个集成开发工具，集中了设计、编译、调试、运行等多个功能，其中每个功能都相对独立，具有自己的界面。4.2VisualBasic.NET应用程序开发的基本步骤我们要开发应用程序时，首先要对它进行分析。无论哪种、哪方面的应用程序，都要先建立一个应用对象。下面我们介绍以下VisualBasic.NET应用程序开发的基本步骤：（1）首先要创建VisualBasic项目，并选择“Windows应用程序”模板。（2）创建应用程序的界面。在界面里放置各种控件并编写事件响应的脚本。（3）创建用户对象。如果想要重复使用某个控件的功能，可以把窗口上经常放置的控件定义为用户对象并设置用户界面各对象的属性。（5）创建数据窗口。数据窗口可以检索数据库中的数据，可以建立各种报或统计表，可以修改数据库。（6）创建函数、结构、事件。为了能够更好地支持脚本，编写自定义的函数，定义结构类型变量，也可以为对象和控件定义自己的事件。（7）运行与调试。可以在开发环境中随时运行应用程序，发现错误后，可以用调试工具进行调试。（8）最后，保存并生成可执行文件。4.3SQLSERVER2000简介SQLServer2000，是Microsoft公司推出的SQLServer数据库管理系统的新12版本。该版本继承了SQLServer7.0版本的优点，同时又比它增加了许多更先进的功能，具有使用方便、可伸缩性好、与相关软件集成程度高等优点。可跨越从运行MicrosoftWindows98的膝上型电脑，到运行MicrosoftWindows2000的大型多处理器的服务器等多种平台使用。SQL语言是数据库的标准语言，应用非常简单，但是这并不意味着能轻松地掌握它。SQL数据库中的数据都存储在数据表中。一般所谓的将信息存储在数据库中，实际上就是将信息存储在数据表中，当考虑怎样把信息存储在数据库中时，就相当于是在考虑怎样把它们存储在数据表中。当考虑如何从表中读取这些记录时，一般会想到按照记录的先后顺序来读取它们。例如，假如想从一个数据表中读取特定的记录，也许回尝试通过一个循环，逐个扫描记录，然后选出符合条件的记录。但是，在SQL中，不允许这种读取记录的方式，因为这样做会降低SQL读取记录的效率。使用SQL，只能按照查询条件来读取记录。例如，想从数据表user中读取用户名为“jack”的记录，如果使用传统的编程语言，也许会构造一个循环，逐个查看表中的记录，看用户名UserName列的值是否为“jack”。这种选择记录的方法是可行的，但是效率不高。如果使用SQL语言，只要在数据库中执行这条命令：“选择所有用户名列的值等于jack的记录”，SQL就会选出所有符合条件的记录。SQL会确定实现查询的最佳方法。由于SQL不根据位置来读取记录，所以它读取记录的速度是很快的。综上所述，SQL有两个特点：所有数据存储在数据表中；表中的记录没有顺序。所以在SQL中，不能按照传统的方式来读取记录。二、方法和属性的命名1、方法无论是函数还是子程序，方法都必须以动词或动词短语命名。无需区分函数和子程序，也无需指明返回类型。2、属性原则上，字段（Field）是不能公开的，要访问字段的值，一般使用属性。属性以13简洁清晰的名词命名。3、事件事件是特殊的属性，只能在事件处理上下文中使用。命名的原则一般是动词或动词的分词，通过时态表明事件发生的时间。4.4具体窗口的实现程序设计主要的应用程序对象与窗口界面设计如下：（1）酒店管理系统主界面设计(酒店管理工作)主页面，对所有界面的管理，能通过其将所有的界面连接在一起，并能体现其他界面的功能。操作方法：点击相应的选项，弹出所要使用的功能窗口主界面窗口名为：酒店管理工作酒店管理工作窗口界面如图4.1所示：图4.1酒店管理工作界面代码分析：添加一个模块定义“Main.vb”的全局对象。在“Module1”添加以下代码：ModuleModule1PublicOb_MainAsNewMain14Submain()Application.Run(Ob_Main)EndSubEndModule在“Main.vb”界面设计，开房”按钮，具体代码如下：PrivateSubBtRentRoom_Click(ByValsenderAsSystem.ObjectByValeAsSystem.EventArgs)HandlesBtRentRoom.ClickDimob_RentRoomAsNewRentRoomob_RentRoom.Show()EndSub“订房”按钮，具体代码如下：PrivateSubBtBookRoom_Click(ByValsenderAsSystem.ObjectByValeAsSystem.EventArgs)HandlesBtBookRoom.ClickDimob_BookRoomAsNewBookRoomob_BookRoom.Show()EndSub“退房”按钮，具体代码如下：PrivateSubBtQuitRoom_Click(ByValsenderAsSystem.ObjectByValeAsSystem.EventArgs)HandlesBtQuitRoom.ClickDimob_QuitRoomAsNewQuitRoomob_QuitRoom.Show()EndSub“查看房间信息”按钮，具体代码如下：PrivateSubBtViewInf_Click(ByValsenderAsSystem.ObjectByValeAsSystem.EventArgs)HandlesBtViewInf.ClickDimob_RoomInfAsNewRoomInfob_RoomInf.Show()EndSub“查看客人信息”按钮，具体代码如下：PrivateSubBtClientInf_Click(ByValsenderAsSystem.ObjectByValeAsSystem.EventArgs)HandlesBtClientInf.ClickDimob_ClientInfAsNewClientInfob_ClientInf.Show()EndSub“统计”按钮，具体代码如下：PrivateSubButton1_Click(ByValsenderAsSystem.ObjectByValeAsSystem.EventArgs)HandlesButton1.Click15Dimob_CountentAsNewcountentob_Countent.Show()EndSub“退出”按钮，具体代码如下：PrivateSubBtExit_Click(ByValsenderAsSystem.ObjectByValeAsSystem.EventArgs)HandlesBtExit.ClickApplication.Exit()EndSub(2)开房界面设计(开房)功能介绍：对入住客人信息进行登记操作方法：在文本框中输入相应的内容，点击“保存信息”按纽进行客人信息的保存，点击“办理下一个”按纽进行下一个客人的信息办理点击“同房人信息”按纽记录同房人信息。开房窗口名为：RentRoomRentRoom窗口界面如图4.2所示：图4.2开房（RentRoom.vb）窗体界面代码分析：RentRoom_Load过程中代码如下:TrySqlDataAdapter1.SelectCommand.CommandText=select房号类型房价from房间表where状态=空闲SqlDataAdapter1.Fill(Ds11房间表)Me.BindingContext(Ds11客人信息表).AddNew()CatchexAsException16MsgBox(ex.Message)EndTry“保存信息”按钮的主要代码：PrivateSubBtSave_Click(ByValsenderAsSystem.ObjectByValeAsSystem.EventArgs)HandlesBtSave.ClickTryIfTxtRoomNumber.Text=ThenMsgBox(请选择房间!)ExitSubEndIfMe.BindingContext(Ds11客人信息表).EndCurrentEdit()SqlDataAdapter2.Update(Ds11客人信息表)Ds11.Tables(客人信息表).Clear()DimcomstrAsString=update房间表set状态=营业中where房号=&Ds11.房间表.Rows(DataGrid1.CurrentRowIndex).Item(0)&DimsqlcomAsNewSqlCommand(comstrSqlConnection1)SqlConnection1.Open()sqlcom.cuteNonQuery()MsgBox(录入成功!)BtNext.Enabled=TrueBtAddInf.Enabled=TrueBtSave.Enabled=FalseCatchexAsExceptionMsgBox(ex.Message)FinallySqlConnection1.Close()EndTryEndSub“办理下一个”按钮，代码如下：PrivateSubBtNext_Click(ByValsenderAsSystem.ObjectByValeAsSystem.EventArgs)HandlesBtNext.ClickMe.BindingContext(Ds11客人信息表).CancelCurrentEdit()Ds11.Clear()SqlDataAdapter1.Fill(Ds11房间表)Me.BindingContext(Ds11客人信息表).AddNew()BtSave.Enabled=TrueEndSub“同房人信息”按钮，代码如下：PrivateSubBtAddInf_Click(ByValsenderAsSystem.ObjectByValeAsSystem.EventArgs)HandlesBtAddInf.ClickMe.BindingContext(Ds11客人信息表).AddNew()17TxtRoomNumber.Text=Ds11.Tables(房间表).Rows(DataGrid1.CurrentRowIndex).Item(0)BtSave.Enabled=TrueEndSub单击“DataGrid1“控件时，要将所选的房号赋给TxtRoomNumber控件。在DataGrid1_MouseUp过程中添加代码，具体代码如下：PrivateSubDataGrid1_MouseUp(ByValsenderAsObjectByValeAsSystem.Windows.s.MouseEventArgs)HandlesDataGrid1.MouseUpTxtRoomNumber.Text=Ds11.Tables(房间表).Rows(DataGrid1.CurrentRowIndex).Item(0)EndSub在添加信息的时候，用户单击“TxtDate“(入住日期)时，将当前系统的日期赋给这个文本框。在TxtDate_MouseDown过程中添加代码，具体代码如下：PrivateSubTxtDate_MouseDown(ByValsenderAsObjectByValeAsSystem.Windows.s.MouseEventArgs)HandlesTxtDate.MouseDownTxtDate.Text=NowEndSub(3)订房界面设计(订房)功能介绍：对预定房间客人信息进行登记操作方法：在文本框中输入相应的内容，其“保存信息”按纽和“办理下一个”按纽与“开房”部分的功能相同。“取消预定”按钮实现取消已经订了的房间的功能，“预定入住”按钮是把订了的房间转为入住的状态，同时把对应的客人信息状态也变为“入住”。订房窗口名为：BookRoom，BookRoom窗口界面如图4.3所示：18图4.3订房(BookRoom.vb)窗体“取消预定”按钮，代码如下：TryIfMsgBox(真的要取消吗MsgBoxStyle.YesNo)=MsgBoxResult.NoThenExitSubEndIfDimcomstr1AsString=update房间表set状态=空闲where房号=&DataSet221.客人信息表.Rows(DataGrid2.CurrentRowIndex).Item(1)&DimsqlcomAsNewSqlCommand(comstr1SqlConnection1)SqlConnection1.Open()sqlcom.cuteNonQuery()DataSet221.客人信息表.Rows(DataGrid2.CurrentRowIndex).Delete()SqlDataAdapter3.Update(DataSet221客人信息表)Ds21.Clear()SqlDataAdapter1.Fill(Ds21房间表)CatchFinallySqlConnection1.Close()EndTry“预定入住”按钮，代码如下：TryIfMsgBox(真的要办理入住吗MsgBoxStyle.YesNo)=MsgBoxResult.NoThenExitSubEndIf19Dimcomstr1AsString=update房间表set状态=营业中where房号=&DataSet221.客人信息表.Rows(DataGrid2.CurrentRowIndex).Item(1)&Dimcomstr2AsString=update客人信息表set状态=入住入住日期=&Now()&where入住日期=&DataSet221.客人信息表.Rows(DataGrid2.CurrentRowIndex).Item(3)&Dimsqlcom1AsNewSqlCommand(comstr1SqlConnection1)Dimsqlcom2AsNewSqlCommand(comstr2SqlConnection1)SqlConnection1.Open()sqlcom1.cuteNonQuery()sqlcom2.cuteNonQuery()DataSet221.客人信息表.Rows(DataGrid2.CurrentRowIndex).Delete()CatchFinallySqlConnection1.Close()EndTry(4)查看房间信息设计界面功能介绍：查看房间信息状态。图4.4：查看房间信息(RoomInf.vb)窗体PrivateSubRoomInf_Load(ByValsenderAsSystem.ObjectByValeAsSystem.EventArgs)HandlesMyBase.LoadButton1.Text=A101&vbCrLf&类型:单人房&vbCrLf&房价:30天Button2.Text=A102&vbCrLf&类型:单人房&vbCrLf&房价:30天Button3.Text=A103&vbCrLf&类型:单人房&vbCrLf&房价:30天Button4.Text=A104&vbCrLf&类型:单人房&vbCrLf&房价:30天Button5.Text=A105&vbCrLf&类型:单人房&vbCrLf&房价:30天Button6.Text=B201&vbCrLf&类型:双人房&vbCrLf&房价:50天Button7.Text=B202&vbCrLf&类型:双人房&vbCrLf&房价:50天20Button8.Text=B203&vbCrLf&类型:双人房&vbCrLf&房价:50天Button9.Text=B204&vbCrLf&类型:双人房&vbCrLf&房价:50天Button10.Text=B205&vbCrLf&类型:双人房&vbCrLf&房价:50天Button11.Text=C301&vbCrLf&类型:钟点房&vbCrLf&房价:10小时Button12.Text=C302&vbCrLf&类型:钟点房&vbCrLf&房价:10小时DimButton(11)AsButtonButton(0)=Button1Button(1)=Button2Button(2)=Button3Button(3)=Button4Button(4)=Button5Button(5)=Button6Button(6)=Button7Button(7)=Button8Button(8)=Button9Button(9)=Button10Button(10)=Button11Button(11)=Button12SqlDataAdapter1.Fill(Ds41)DimiAsShortFori=0To11SelectCaseDs41.房间表.Rows(i).Item(状态)Case营业中Button(i).BackColor=color.RedCase预订Button(i).BackColor=color.YellowCase空闲Button(i).BackColor=color.GreenEndSelectNextEndSub（5）查看客人信息界面设计功能介绍：分类地查看客人的信息操作方法：根据需要点击“查看当前入住客人信息”、“查看预定客人信息”、“查看历史客人信息”按钮进行条件查询。21图4.5：查看客人信息(ClientInf.vb)窗体“查看当前入住客人信息”按钮，具体代码如下：TryIfRadioButton1.Checked=TrueThenSqlDataAdapter1.SelectCommand.CommandText=SELECT姓名性别房号类型证件类型证件号码押金人数入住日期FROM客人信息表where状态=入住Ds51.Clear()SqlDataAdapter1.Fill(Ds51客人信息表)BtFind.Enabled=FalseEndIfCatchexAsExceptionMsgBox(ex.Message)EndTry“查看预定客人信息”按钮，具体代码如下：TryIfRadioButton2.Checked=TrueThenSqlDataAdapter1.SelectCommand.CommandText=SELECT姓名性别房号类型证件类型证件号码押金人数入住日期退房日期FROM客人信息表where状态=预订Ds51.Clear()SqlDataAdapter1.Fill(Ds51客人信息表)BtFind.Enabled=FalseEndIfCatchexAsExceptionMsgBox(ex.Message)EndTry22“查看历史客人信息”按钮，具体代码如下：TryIfRadioButton3.Checked=TrueThenBtFind.Enabled=TrueSqlDataAdapter1.SelectCommand.CommandText=SELECT姓名性别房号类型证件类型证件号码押金人数入住日期退房日期FROM客人信息表where状态=退房Ds51.Clear()SqlDataAdapter1.Fill(Ds51客人信息表)EndIfCatchexAsExceptionMsgBox(ex.Message)EndTry“查找”按钮，具体代码如下：TryIfCmbOperator.Text=likeThenSqlDataAdapter1.SelectCommand.CommandText=SELECT姓名性别房号类型证件类型证件号码押金人数入住日期退房日期FROM客人信息表where(状态=退房)and(&CmbRange.Text&Like&txtFind.Text&%)ElseSqlDataAdapter1.SelectCommand.CommandText=SELECT姓名性别房号类型证件类型证件号码押金人数入住日期退房日期FROM客人信息表where(状态=退房)and(&CmbRange.Text&CmbOperator.Text&txtFind.Text&)EndIfDs51.Clear()SqlDataAdapter1.Fill(Ds51客人信息表)CatchexAsExceptionMsgBox(ex.Message)EndTry（6）退房客人信息界面设计功能介绍：计算退房客人的消费金额操作方法：首先在窗体初始化时，把所有客人入住的房间查找出来，显示在DataGrid控件中，在DataGrid控件中点击所要退房的房间信息，单击“退房结算”按钮，计算出所要退房客人的消费金额。23图4-6：退房(QuitRoom.vb)窗体添加一个account()过程计算金额，具体代码如下：PrivateSubaccount()TryIfDs31.房间表.Rows(DataGrid1.CurrentRowIndex).Item(类型)=钟点房ThenDimii=Microsoft.VisualBasic.DateDiff(DateInterval.HourDs31.客人信息表.Rows(0).Item(入住日期)Now()TxtSum.Text=Val(TxtRent.Text)iElseDimii=Microsoft.VisualBasic.DateDiff(DateInterval.DayDs31.客人信息表.Rows(