宾馆管理系统本科毕业论文

XXXX学院本科毕业（设计）论文PAGEPAGE34前言在当今激烈的竞争环境下，宾馆、旅游业的竞争已经不仅仅是硬件设施、人员素质的竞争，更是现代化管理手段的竞争。一个好的宾馆管理系统的使用，将大大提高宾馆领导的决策管理能力和员工的工作效率，增加服务内容，改善服务质量，也将充分挖掘宾馆的潜力，提高宾馆在住客心目中的地位和档次，给住店旅客良好的形象和享受，是新型现代化宾馆、旅馆的一个重要标志。宾馆管理系统需要由宾馆管理方面的专家和计算机软件开发的精英运用自己的理论知识共同建立。本论文采用VB6.0作为程序设计语言。VB为开发人员提供可视化的设计环境，提供了构造用户界面所需的大多数屏幕上的可视化对象，如编辑框、各类按钮、效验盒、下拉列表等，用户能方便地用所见即所得的交互式方式设计出用户界面；VB采用了面向对象的技术，如消息传递的事件机制；应用软件由屏上可见或不可见的对象和事件响应程序组成。一个用VB编写的程序由一系列独立的代码段组成，只有当对应事件发生后，它们才被激活并作出响应，这是面向对象的编程思想，这种思想使程序的控制者不是程序员而是用户本身。VB具有先进的模块化程序设计功能，这使得用VB编制大型程序、完成大规模项目变得容易起来，特别是使得计算机应用程序变得漂亮起来。另外，VB易于编程的原因，在于其拥有强大的内部函数。一个完整的宾馆管理系统是包括很多个子系统的，如果全部都实现它们那是需要一个小组甚至是一个公司来做的大项目。作为一名自学VB的学生，选择了宾馆管理系统中最重要的一个子系统——客房管理系统来成为我的论文主体。我虽是计算机专业的学生，但是对于VB还是一个初学者、自学者，所以论文中难免有些不妥之处，请领导予以指正。摘要：本论文采用VB6.0作为程序设计语言，且选择了宾馆管理系统中最重要的一个子系统——客房管理系统来成为论文主体。系统使用的是Access数据库，系统中建立了一个数据库包含有两个表，一个表是用于用户登陆，另一个表记录的是客房以及顾客的信息。该系统需要完成如下功能：管理员的正确登陆，用户密码可以修改；开房、预订房的顾客信息的输入，包括顾客姓名、性别、身份证号、人数、入住时间、所付押金以及房间型号等；退房中可以通过输入房间号码来查找顾客要退的房间且系统会自动统计出顾客所需付账款，结账后顾客的信息将消失，并且该房间自动变为空闲可供入住；顾客以及房间信息查找中能够通过顾客姓名、房间号码来进行对顾客或房间信息的查找；为了合理的分配有利资源，也为了美观，让管理员适时的轻松一下，在顾客查询的右边给出了一个动画FLASH。关键词：数据库多文档界面模块客房管理需求功能窗体工程ABSTRACT：ThepaperisadoptiveprogramminglanguagebythewayofVisualBasic6.0,Ialsochoosetheguestroommanagesystemasmypaper’smainbodywhichisthemostimportantsubsystemofhotelmanagesystem.IuseAccessdatabase,andfoundadatabasewithtwotables,oneisforconsumerlanding,theotheroneisforguestroom’sandclient’sinformation’srecording.Thesystemneedsachievesomefunctionsasfollows:administratorscanlandthelandingframeandamendpassword;weshallinputtheinformationoftheclient’sopeningroomandbookroom,includingname,sex,IDcardnumber,number,enteredtime,paythedeposit,theroom’stypeandsoon;exitroomwemaylookuptheinformationbythewayofinputtingtheroomnumber,andsystemcanself-motionstat.theclient’spaying,aftertheclientfootsabill,theclient’sinformationwillvanish,aswellastheroombecomesempty;wearecapableoflookuptheinformationoftheclient’sandroom’sbythewayofinputtingtheclient’snameorroomnumber;bythewayofreasonabledistributefavorablenessresourceandslinky,ImakeacartoonFLASHintherightoftheClientLoopup,itlettheadministratorstakeiteasy.KeyWords:databaseMDImoduleguestroommanagerequirementFunctionformsproject绪论问题定义及内容简介在当今激烈的竞争环境下，宾馆、旅游业的竞争已经不仅仅是硬件设施、人员素质的竞争，更是现代化管理手段的竞争。一个好的宾馆管理系统的使用，将大大提高宾馆领导的决策管理能力和员工的工作效率，增加服务内容，改善服务质量，也将充分挖掘宾馆的潜力，提高宾馆在住客心目中的地位和档次，给住店旅客以良好的感觉和享受，是新型现代化宾馆、旅馆的一个重要标志。宾馆管理系统需要由宾馆管理方面的专家和计算机软件开发的精英运用自己的理论知识共同建立。本系统是宾馆管理系统中的一个子系统——客房管理系统。本系统的制作思路简单，建立了两个数据表，其中一个表用于管理员登陆验证身份；另一个表记录的是客房以及顾客的信息。本系统有66个房间，房间及顾客信息有3种状态，即“入住”、“预订”、“退房”，房间类型分为6种，即“商务豪华间”、“单人间”、“标准间”、“豪华套房”、“商务间”、“总统套房”，根据这些状态和类型可以对房间的情况和客人的情况进行统计。本系统主要包括8个窗体，包括MDI主界面、登陆框、用户密码修改、加载框、开房、预订房、退房以及查看信息等。开房、预订房包括姓名、性别、房间类型、身份证号、押金、人数、入住日期（预订日期），并且右方可以看到所选房间类型的房间信息；退房包括姓名、房间、入住日期、退房日期、房价、总计，上方可以看到所退房的房间以及顾客的信息；查看信息包括选择范围、输入查找内容，下方可以看到所选房间或顾客的信息；在第4章里会有各个窗体的界面图，其他的窗体在这里就不一一介绍了。1.2研究背景1、管理软件进入酒店业。2、目前的市场布局。市场虽没有前几年那么增长快，但还是有很大的潜力可挖。3、矛盾：开发-应用/需求-供给。总体而言，国内宾馆IT技术开发的现状是：（1）需求不明确，使宾馆项目工程性强，产品化不足，开发商的总体成本居高不下，研发缺乏原动力。（2）没有行业统一标准，厂商各自为政，市场分化导致产品整合难度大。（3）产品推广依赖行政手段和关系网，抑制了新技术的引进和技术的创新，不利于形成自己的产品特色和质量控制。（4）国外优秀品牌的低价进入，垄断了国内高星级市场，开发商利润空间甚微。4、图谋市场局限突破：联手枕戈，共谋突破！（1）软件商必须居安思危。（2）走连锁经营之路。1.3系统需求分析该系统需要完成如下功能：1、管理员的正确登陆，登陆时将有一个有FLASH的加载框，用户密码允许修改。2、开房、预订房顾客信息的输入，包括顾客姓名、性别、身份证号、人数、入住时间、所付押金以及房间的型号等。3、退房中可以通过输入房间号码来查找顾客要退的房间，且系统会自动统计出顾客所需付账，结账后顾客的信息将消失，该房间自动变为空闲可供入住。4、信息查找中能够通过顾客姓名或房间号码进行对顾客或房间信息的查找。5、为了合理的分配有利资源，也为了美观，让管理员适时的轻松一下，在顾客查询的右边给出了一个动画FLASH。Windows下的VisualBasic编程环境简介2.1VisualBasic集成开发环境VB集成开发环境是提供设计、运行和测试应用程序所需各种工具的一个工作环境。这些工具互相协调、互相补充，大大减少了应用程序的开发难度。集成开发环境主窗口的顶部包含标题栏、主菜单和快捷工具栏；下部有几个子窗口：工具箱、工程窗口、工程管理窗口和属性窗口等。根据需要，主窗口上还会打开不同的子窗口。2.1.1标题栏启动VB后，标题栏中出现的信息是“工程1-MicrosoftVisualBasic[设计][Form1(Form)]”,表示现在是“工程1”的“Form1”（窗体）的设计阶段。方括号里的信息内容随着工作状态不同而改变。2.1.2主菜单主菜单位于标题栏之下，提供一些进行程序设计时必要的功能，VB6是汉化的，所有的菜单命令都以汉字标出。主要有文件菜单、编辑菜单、视图菜单、工程菜单、格式菜单、调试菜单、运行菜单、查询菜单、图表菜单、工具菜单、外接程序菜单、窗口菜单和帮助菜单。还有一些快捷工具栏，这里就不详细讲述。2.1.3窗体窗口新建一个工程时，VB集成环境中间的工作区出现一个工程窗口。标题显示“工程1Form1(Form)”。“工程1”是当前默认工程名窗体，Form1是当前工程的当前窗体名。VB中，应用程序称为“工程”，工程窗口是浮动的，最大化时它就不见了，充满整个工作区。工程窗口嵌有一个窗体窗口，标题显示窗体名，调整窗体时，在布局窗口看到与屏幕的相对大小。当窗体调到大于工程窗口时，工程窗口将出现滚动条，拖动滚动条可以观察窗体各部分。窗体（Form）是应用程序最终面向用户的窗口，它对应于应用程序的运行结果。所设计的程序主要是围绕窗体展开的。各种图形、图像、数据等都是通过窗体或窗体中的控件显示出来的。当打开一个新的工程文件时，VB建立一个新的窗体，并且自动命名为FormX（X=1，2，3，…），用户可以对它进行修改。窗体中布满了小点，是供设计时控件对齐用的，运行时消失。设计应用程序时，窗体就像一块画布，程序员根据界面的要求，从工具箱中选择所需要的工具“放”在画布上，组成应用程序界面的各个构件，这样就完成了应用程序设计的第一步。2.1.4工具箱工具箱主要用于界面设计。在设计阶段，首先使用工具箱的工具在窗体上建立各种图形对象（控件），形成界面的外观形象，然后编写程序代码。具体的有PictureBox图片框、TextBox文本框、Label标签、Frame框架、CommandButton命令按钮、CheckBox复选框、OptionButton单选按钮、ListBox列表框、ComboBox组合框、HscrollBar水平滚动条、VscrollBar垂直滚动条、Timer、DriveListBox、DirListBox、FileListBox、Shape形状、Line线型、Image图像、Data、OLE容器和指针按钮。2.1.5工程管理窗口工程管理窗口是VB一个重要的子窗口，窗口中以树状列表形式显示当前工程的组成，且可使用这棵树打开或切换工程的各文件。2.1.6属性窗口属性是用以描述VB窗体和控件特征的数据值，属性列表列出当前所选对象的全部属性名称和相应的取值。有些属性值可以通过程序运行时动态的修改。2.2VisualBasic中数据库操作VB提供的数据库引擎名叫“Jet”，它位于用户程序与数据库文件之间，功能是把用户程序访问数据库的请求变成对数据库的实际操作，实现“透明”访问。只要是Jet支持的数据库，不管它是什么格式，在用户程序中都使用相同的数据访问对象和编程技术。VB应用程序的用户界面的可视部分是窗体。通过窗体，用户可以查看和更新数据。驱动这些窗体的是应用程序的VB代码，包括用来请求数据库服务的“数据访问对象”的属性和方法。数据库是包含数据库表的一个或多个文件，它包含数据但不对数据做任何操作。数据操作是数据库引擎的任务。 2.2.1Jet中ADO数据访问对象在Jet之上，VB提供两类数据库访问接口。一类是传统的DAO（DataAccessObject）“数据访问对象”模型，另一类是新开发的ADO（ActiveXDataObject）“数据访问对象”，这里所选用的是ADO，与ADO配套的是ADOData控件（MicrosoftADODataControl6.0(OLEDB)）。第3章使用Access2000实现关系型数据库3.1数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库(flat-file)和关系数据库(relational)。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，如记录、域等。3.2新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程是数据模型设计。1、标识需要的数据。2、收集被标识的字段到表中。3、标识主关键字字段。4、绘制一个简单的数据图表。5、规范数据。6、标识指定字段的信息。7、创建物理表。3.3修改已建的数据库数据库的修改分为添加、编辑和删除记录。这三种操作均可由VisualBasic创建的程序来完成。3.4实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的记录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。Access2000就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。第4章各个主要模块设计4.1VisualBasic的MDI窗体本系统的是以一个MDI（Multiple_DocumentInterface多文档界面）为主界面的。多文档界面允许创建在单个容器窗体中包含多个窗体的应用程序。MDI应用程序由一个父窗体和若干个子窗体组成，可以同时显示多个文档，每个文档都在自己的窗口中显示。文档的子窗口被包含在父窗口中，父窗口为应用程序中所有的子窗口提供工作空间。4-1MDI主窗口（具体程序代码请看附录，下同）4.2登陆框窗体及用户密码修改窗体4-2登陆框窗口这个窗口的属性修改是用程序运行来实现的，是一种动态的修改。4-3加载框窗体这个加载框里有FLASH、加载条等。4-4密码修改框窗体这个窗体的属性也是用程序来实现的动态修改。4.3开房、预订房4-5开房窗体这个窗体的属性是直接在属性框中修改实现的。4-6预订房窗体这个窗体的属性是直接在属性框中修改实现的。4.4退房4-7退房窗体这个窗体的属性是直接在属性框中修改实现的。4.5查看顾客或客房信息窗体4-8信息查询窗体这个窗体的属性是直接在属性框中修改实现的。第5章用户使用手册5.1系统功能简介、运行环境简介5.1.1系统功能1、管理员的正确登陆，登陆时将有一个有FLASH的加载框，用户密码允许修改。2、开房、预订房顾客信息的输入，包括顾客姓名、性别、身份证号、人数、入住时间、所付押金以及房间的型号等。3、退房中可以通过输入房间号码来查找顾客要退的房间，且系统会自动统计出顾客所需付账，结账后顾客的信息将消失，该房间自动变为空闲可供入住。4、信息查找中能够通过顾客姓名或房间号码进行对顾客或房间信息的查找。5、为了合理的分配有利资源，也为了美观，让管理员适时的轻松一下，在顾客查询的右边给出了一个动画FLASH。5.1.2运行环境5.2系统运行与操作指南1、打开工程1.exe文件，出现一个MDI窗体2、点击“客房管理”——“客户设置”，将会弹出一个登陆框，用户名为xiaoli,密码为0000。可点击“其他”菜单中“修改口令”，来进行密码修改。3、进入系统后，可以点击“开房”、“订房”以及“退房”。4、进入开房窗体后，可以将顾客的信息依次输入进去，点击保存则可以将顾客的信息保存在数据库中；点击取消可以将输入的顾客信息全部清空；点击返回可以返回到主界面中。另外开房窗体的右边可以查看到所选客房的信息。5、进入订房窗体后，具体操作与开房类似。6、在退房中，管理员既可以要求顾客报出自己的姓名和房间号码来结账，也可以直接输入房间号码结账。7、在顾客及房间查询中，可以选择查询什么，然后再将其输入就可以查询到顾客或是房间的信息了。结束语经过几个月的设计和开发，客房管理系统基本开发完毕。其功能基本符合用户需求，能够完成客房管理的各项功能。但是由于毕业设计时间较短，并且我又是自学者，所以该系统还有许多不尽如人意的地方，比如用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。致谢在本次毕业论文设计中，我从指导老师身上学到了很多东西。xxx认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我受益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高，这对于我以后的工作和学习都有巨大的帮助，在此感谢他耐心的辅导。参考文献刘小伟、蒙坪，《新编电脑实用教程》，北京，清华大学出版社，2000.10杨永田，《计算机专业英语》，第三版，哈尔滨，哈尔滨工程大学出版社，2001.6廖望、钟永生、黄国平、刘海珍、黄智成、江慧扬,《VisualBasic.NET程序设计案例教程》,北京,冶金工业出版社,2004,第248张海藩,《软件工程导论》，第四版，北京，清华大学出版社，2003黄梯云，《管理信息系统》，第二版修订本，北京，高等教育出版社，2000施伯乐、丁宝康、汪卫，《数据库系统教程》，北京，高等教育出版社，2003.8丁宝康、董健全，《数据库实用教程》，北京，清华大学出版社，2001.9周霭如、官士鸿、林伟健，《VisualBasic程序设计》，北京，电子工业出版社，2003.1郭瑞军、唐邦民、谢晗昕，《VisualBasic数据库开发实例精粹》，北京，电子工业出版社，2005.1李存斌、郭晓鹏，《VisualBasic高级编程及其项目应用开发》，北京，中国水利水电出版社，2003.2本书编写组，《VisualBasic6.0程序设计参考手册》，北京，人民邮电出版社，2003.11第一时间工作室，《VisualBasic6.0程序设计技能百练》，北京，中国铁道出版社，2004.1李春葆、张植民，《VisualBasic数据库系统设计与开发》，北京，清华大学出版社，2003.8BobReselman、RichardPeasley、WaynePruchniak，《VisualBasic6.0使用指南》，北京，电子工业出版社Microsoft，《VisualBasic6.0中文版控件大全》，北京，电子工业出版社CraigEddy、TimothyBuchanan，《中文Access200024学时教程》，北京，机械工业出版社附录：模块通用程序代码PubliccnnAsNewADODB.ConnectionPublicrssAsNewADODB.RecordsetPublicSubcnnser()cnnclosecnn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\VB作业\新建文件夹(3)\xl.mdb;PersistSecurityInfo=False"cnn.OpenEndSubPublicSubrssser(ByValSQLAsString)Setrss=Nothingrss.CursorLocation=adUseClientrss.OpenSQL,cnn,adOpenDynamic,adLockOptimistic,-1EndSubPublicSubcnnclose()Ifcnn.State=adStateOpenThencnn.CloseEndIfEndSub4-1在宾馆主界面的程序代码PrivateSubMDIForm_Load()menu_1.Enabled=Falsemenu_2.Enabled=Falsemenu_4.Enabled=Falsemenu_5.Enabled=Falsemenu_6.Enabled=Falsemenu_7.Enabled=FalseToolbar1.Enabled=FalseEndSubPrivateSubmenu_1_1_Click()EndSubPrivateSubmenu_1_3_Click()EndSubPrivateSubmenu_2_1_Click()EndSubPrivateSubmenu_2_3_Click()LoadFrmkfFrmkf.ShowEndSubPrivateSubmenu_3_1_Click()Loadfrmdlfrmdl.ShowEndSubPrivateSubmenu_5_1_Click()Loadfrmgkfrmgk.ShowEndSubPrivateSubmenu_7_2_Click()LoadFrmpasswordFrmpassword.ShowEndSubPrivateSubmenu_7_4_Click()DimaAsIntegera=Shell("C:\WINDOWS\system32\calc.exe")EndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1:LoadFrmkfFrmkf.ShowCase2:Loadfrmdffrmdf.ShowCase3:Loadfrmtffrmtf.ShowCase4:Case5:Case6:Case7:Case8:Case9:EndSelectEndSub4-2管理员登陆框程序代码Suba()Text1.Text=""Text2.Text=""Text1.SetFocusEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand3_Click()UnloadMeLoadMDIForm1MDIForm1.ShowEndSubPrivateSubForm_Load()Me.Height=4000Me.Width=5700Label1.Caption="用户名"Label2.Caption="密码"Text1.Text=""Text2.Text=""Text1.MaxLength=10Text2.MaxLength=4Text2.PasswordChar="*"Command1.Caption="确定(&Q)"Command2.Caption="退出(&C)"Command3.Caption="返回(&F)"CallcnnserEndSubPrivateSubCommand1_Click()StaticzAsIntegerIfText1.Text=""ThenMsgBox"对不起！用户名不能为空",vbInformation,"系统提示"CallaExitSubElseDimjAsStringj="select*fromtable1whereuserid='"&Trim(Text1.Text)&"'"rssser(j)Ifrss.BOFAndrss.EOFThenMsgBox"没有相应的用户",vbInformation,"请输入正确用户名"z=z+1CallaIfz=3ThenMsgBox"对不起，错误达到3次goodbye",vbInformation,"系统提示"EndEndIfExitSubElsej="select*fromtable1whereuserid='"&Trim(Text1.Text)&"'andpassword='"&Trim(Text2.Text)&"'"rssser(j)Ifrss.BOFAndrss.EOFThenMsgBox"密码错误",vbInformation,"系统提示"z=z+1Text2.Text=""Text2.SetFocusIfz=3ThenMsgBox"对不起，错误达到3次goodbye",vbInformation,"系统提示"EndEndIfElseMDIForm1.menu_1.Enabled=TrueMDIForm1.menu_2.Enabled=TrueMDIForm1.menu_4.Enabled=TrueMDIForm1.menu_5.Enabled=TrueMDIForm1.menu_6.Enabled=TrueMDIForm1.menu_7.Enabled=TrueMDIForm1.Toolbar1.Enabled=TrueMsgBox"登陆成功",vbInformation,"欢迎光临"Loadfrmloadfrmload.ShowMe.HideText1.Text=""Text2.Text=""EndIfEndIfEndIfEndSubPrivateSubText1_Change()EndSub4-3登陆到主界面的加载框的程序代码PrivateSubFlash1_OnReadyStateChange(newStateAsLong)EndSubPrivateSubForm_Load()Flash1.Movie=""&App.Path&"\流氓兔吃霸王餐.swf"Me.Height=6500Me.Width=8500EndSubPrivateSubTimer1_Timer()StaticiAsIntegeri=i+1Ifi<100ThenProgressBar1.Value=iLabel1.Caption="请稍等，正在加载..."&i&"%"ElseUnloadMeEndIfEndSub4-4登陆框修改密码程序代码PrivateSubCommand1_Click()IfText3.Text=""ThenMsgBox"请输入密码",vbInformation,"系统提示"Text3.SetFocusElseIfText1.Text=""ThenMsgBox"请输入新密码",vbInformation,"系统提示"Text3.SetFocusElseIfText2.Text=""ThenMsgBox"请再次确认新密码",vbInformation,"系统提示"Text3.SetFocusEndIfrssser("select*fromtable1wherepassword='"&Trim(Frmpassword.Text3.Text)&"'")Ifrss.BOFAndrss.EOFThenMsgBox"密码不正确",vbInformation,"系统提示"Text3.Text=""Text1.Text=""Text2.Text=""Text3.SetFocus'Else'MsgBox"存在密码"IfVal(Text2.Text)=Val(Text1.Text)Thenrss.Fields("Password").Value=Text2.Textrss.UpdateMsgBox"修改成功",vbInformation,"系统提示"UnloadMeElseMsgBox"两次输入新密码不同，请重新输入新密码",vbQuestion,"系统提示"Text1.Text=""Text2.Text=""Text1.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()CallcnnserLabel1.Caption="请输入新密码"Label2.Caption="再次输入新密码"Label3.Caption="请输入密码"Text1.Text=""Text2.Text=""Text3.Text=""Text1.MaxLength=4Text2.MaxLength=4Text3.MaxLength=4Text1.PasswordChar="*"Text2.PasswordChar="*"Command1.Caption="确定(&Q)"Command2.Caption="返回(&F)"Me.Height=4000Me.Width=5500EndSubPrivateSubText3_Change()EndSub4-5、4-6客房管理的开房以及预定房间的程序代码PrivateSubCombo2_Click()DimiAsStringcnnserSelectCaseCombo2.TextCase"商务豪华间"CallfindCase"单人间"CallfindCase"豪华套房"CallfindCase"标准间"CallfindCase"商务间"CallfindCase"总统套房"CallfindEndSelectEndSubPrivateSubCommand1_Click()UnloadMeEndSubPrivateSubCommand2_Click()LoadForm1Form1.ShowEndSubSubfind()DimiAsStringi="select*fromroomwhereroomtype='"&Trim(Combo2.Text)&"'"rssser(i)Ifrss.BOFAndrss.EOFThenMsgBox"没有找到该纪录",vbInformation,"系统提示"ExitSubElseSetDataGrid1.DataSource=rssEndIfEndSubPrivateSubCommand3_Click()Text1.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Combo1.Text=""Combo2.Text=""Text1.SetFocusEndSubPrivateSubText1_Change()EndSub4-5-1、4-6-1开房、预订房时输入房间号的程序代码PrivateSubCommand1_Click()cnnserDimjAsStringj="select*fromroomwhereroomid='"&Trim(Text1.Text)&"'"rssser(j)SelectCase(frmdf.Combo2.ListIndex)Case3IfVal(Text1.Text)<301OrVal(Text1.Text)>313ThenMsgBox"单人间中无此房号！"ExitSubEndIfCase0IfVal(Text1.Text)<401OrVal(Text1.Text)>413ThenMsgBox"标准间中无此房号！"ExitSubEndIfCase1IfVal(Text1.Text)<601OrVal(Text1.Text)>613ThenMsgBox"商务间中无此房号！",vbInformation,"系统提示"ExitSubEndIfCase5IfVal(Text1.Text)<701OrVal(Text1.Text)>713ThenMsgBox"豪华商务间中无此房号！",vbInformation,"系统提示"ExitSubEndIfCase2IfVal(Text1.Text)<501OrVal(Text1.Text)>513ThenMsgBox"豪华套房中无此房号！",vbInformation,"系统提示"ExitSubEndIfCase4IfVal(Text1.Text)<>801ThenMsgBox"总统套房中无此房号！",vbInformation,"系统提示"ExitSubEndIfEndSelectIfrss.BOFAndrss.EOFThenMsgBox"无此房间号码",vbInformation,"系统提示"ElseIfrss.Fields("roomkf")=1ThenMsgBox"此房间已有顾客！",vbInformation,"系统提示"ExitSubElseIfrss.Fields("roomdf")=1ThenMsgBox"此房间已有人预定！",vbInformation,"系统提示"ExitSubElseCallbckfMsgBox"数据保存完成",vbInformation,"系统提示"CallcleanEndIfEndSubSubbckf()rss.Fields("gkname").Value=frmdf.Text1.Textrss.Fields("gksex").Value=frmdf.Combo1.Textrss.Fields("roomid").Value=Me.Text1.Textrss.Fields("roomsfz").Value=frmdf.Text3.Textrss.Fields("roomyj").Value=frmdf.Text4.Textrss.Fields("roomnum").Value=frmdf.Text5.Textrss.Fields("kfdate").Value=frmdf.DTPicker1.Valuerss.Fields("roomdf").Value=1rss.UpdateEndSubSubclean()Loadfrmdffrmdf.ShowEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubText1_Change()EndSub4-7退房程序代码PrivateSubCommand1_Click()OnErrorResumeNextrss.Fields("roomkf")=""rss.Fields("roomdf")=""rss.Fields("gkname")=""rss.Fields("gksex")=""rss.Fields("roomsfz")=""rss.Fields("roomyj")=""rss.Fields("roomnum")=""Update.rssUnloadMeEndSubPrivateSubCommand2_Click()OnErrorResumeNextDimSQLAsStringSQL="select*fromroomwhereroomid='"&Trim(Text2.Text)&"'"rssser(SQL)SetDataGrid1.DataSource=rssText1.Text=rss.Fields("gkname")D1.Value=rss.Fields("kfdate")Text5.Text=rss.Fields("price")D2.Value=NowText6.Text=Int(D2.Value-D1.Value)*Val(Text5.Text)EndSubPrivateSubDataGrid1_Click()EndSubPrivateSubForm_Load()cnnserEndSub4-8查找信息的程序代码PrivateSubCombo1_Change()EndSubPrivateSubCommand1_Click()IfCombo1.Text=""OrText1.Text=""ThenMsgBox"不能为空！",vbInformation,"系统提示"ExitSubEndIfcnnserDimSQLAsStringIfCombo1.ListIndex=0ThenSQL="select*fromroomwhereroomtype='"&Trim(Text1.Text)&"'"ElseIfCombo1.ListIndex=1ThenSQL="select*fromroomwheregkname='"&Trim(Text1.Text)&"'"EndIfrssser(SQL)SetDataGrid1.DataSource=rssEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Flash1.Movie=""&App.Path&"\流氓兔越狱.swf"EndSub基于C8051F单片机直流电动机反馈控制系统的设计与研究基于单片机的嵌入式Web服务器的研究MOTOROLA单片机MC68HC（8）05PV8/A内嵌EEPROM的工艺和制程方法及对良率的影响研究基于模糊控制的电阻钎焊单片机温度控制系统的研制基于MCS-51系列单片机的通用控制模块的研究基于单片机实现的供暖系统最佳启停自校正（STR）调节器单片机控制的二级倒立摆系统的研究基于增强型51系列单片机的TCP/IP协议栈的实现基于单片机的蓄电池自动监测系统基于32位嵌入式单片机系统的图像采集与处理技术的研究基于单片机的作物营养诊断专家系统的研究基于单片机的交流伺服电机运动控制系统研究与开发基于单片机的泵管内壁硬度测试仪的研制基于单片机的自动找平控制系统研究基于C8051F040单片机的嵌入式系统开发基于单片机的液压动力系统状态监测仪开发模糊Smith智能控制方法的研究及其单片机实现一种基于单片机的轴快流CO〈,2〉激光器的手持控制面板的研制基于双单片机冲床数控系统的研究基于CYGNAL单片机的在线间歇式浊度仪的研制基于单片机的喷油泵试验台控制器的研制基于单片机的软起动器的研究和设计基于单片机控制的高速快走丝电火花线切割机床短循环走丝方式研究基于单片机的机电产品控制系统开发基于PIC单片机的智能手机充电器基于单片机的实时内核设计及其应用研究基于单片机的远程抄表系统的设计与研究基于单片机的烟气二氧化硫浓度检测仪的研制基于微型光谱仪的单片机系统单片机系统软件构件开发的技术研究基于单片机的液体点滴速度自动检测仪的研制基于单片机系统的多功能温度测量仪的研制基于PIC单片机的电能采集终端的设计和应用基于单片机的光纤光栅解调仪的研制气压式线性摩擦焊机单片机控制系统的研制基于单片机的数字磁通门传感器基于单片机的旋转变压器-数字转换器的研究基于单片机的光纤Bragg光栅解调系统的研究单片机控制的便携式多功能乳腺治疗仪的研制基于C8051F020单片机的多生理信号检测仪基于单片机的电机运动控制系统设计Pico专用单片机核的可测性设计研究基于MCS-51单片机的热量计基于双单片机的智能遥测微型气象站MCS-51单片机构建机器人的实践研究基于单片机的轮轨力检测基于单片机的GPS定位仪的研究与实现基于单片机的电液伺服控制系统用于单片机系统的MMC卡文件系统研制基于单片机的时控和计数系统性能优化的研究基于单片机和CPLD的粗光栅位移测量系统研究单片机控制的后备式方波UPS提升高职学生单片机应用能力的探究基于单片机控制的自动低频减载装置研究基于单片机控制的水下焊接电源的研究基于单片机的多通道数据采集系统基于uPSD3234单片机的氚表面污染测量仪的研制基于单片机的红外测油仪的研究96系列单片机仿真器研究与设计基于单片机的单晶金刚石刀具刃磨设备的数控改造基于单片机的温度智能控制系统的设计与实现基于MSP430单片机的电梯门机控制器的研制基于单片机的气体测漏仪的研究基于三菱M16C/6N系列单片机的CAN/USB协议转换器基于单片机和DSP的变压器油色谱在线监测技术研究基于单片机的膛壁温度报警系统设计基于AVR单片机的低压无功补偿控制器的设计基于单片机船舶电力推进电机监测系统基于单片机网络的振动信号的采集系统基于单片机的大容量数据存储技术的应用研究基于单片机的叠图机研究与教学方法实践基于单片机嵌入式Web服务器技术的研究及实现基于AT89S52单片机的通用数据采集系统基于单片机的多道脉冲幅度分析仪研究机器人旋转电弧传感角焊缝跟踪单片机控制系统基于单片机的控制系统在PLC虚拟教学实验中的应用研究基于单片机系统的网络通信研究与应用基于PIC16F877单片机的莫尔斯码自动译码系统设计与研究基于单片机的模糊控制器在工业电阻炉上的应用研究基于双单片机冲床数控系统的研究与开发HYPERL