还剩31页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
前言在当今激烈的竞争环境下,宾馆、旅游业的竞争已经不仅仅是硬件设施、人员素质的竞争,更是现代化管理手段的竞争一个好的宾馆管理系统的使用,将大大提高宾馆领导的决策管理能力和员工的工作效率,增加服务内容,改善服务质量,也将充分挖掘宾馆的潜力,提高宾馆在住客心目中的地位和档次,给住店旅客良好的形象和享受,是新型现代化宾馆、旅馆的一个重要标志宾馆管理系统需要由宾馆管理方面的专家和计算机软件开发的精英运用自己的理论知识共同建立本论文采用VB
6.0作为程序设计语言VB为开发人员提供可视化的设计环境,提供了构造用户界面所需的大多数屏幕上的可视化对象,如编辑框、各类按钮、效验盒、下拉列表等,用户能方便地用所见即所得的交互式方式设计出用户界面;VB采用了面向对象的技术,如消息传递的事件机制;应用软件由屏上可见或不可见的对象和事件响应程序组成一个用VB编写的程序由一系列独立的代码段组成,只有当对应事件发生后,它们才被激活并作出响应,这是面向对象的编程思想,这种思想使程序的控制者不是程序员而是用户本身VB具有先进的模块化程序设计功能,这使得用VB编制大型程序、完成大规模项目变得容易起来,特别是使得计算机应用程序变得漂亮起来另外,VB易于编程的原因,在于其拥有强大的内部函数一个完整的宾馆管理系统是包括很多个子系统的,如果全部都实现它们那是需要一个小组甚至是一个公司来做的大项目作为一名自学VB的学生,选择了宾馆管理系统中最重要的一个子系统——客房管理系统来成为我的论文主体我虽是计算机专业的学生,但是对于VB还是一个初学者、自学者,所以论文中难免有些不妥之处,请领导予以指正摘要本论文采用VB
6.0作为程序设计语言,且选择了宾馆管理系统中最重要的一个子系统——客房管理系统来成为论文主体系统使用的是Access数据库,系统中建立了一个数据库包含有两个表,一个表是用于用户登陆,另一个表记录的是客房以及顾客的信息该系统需要完成如下功能管理员的正确登陆,用户密码可以修改;开房、预订房的顾客信息的输入,包括顾客姓名、性别、身份证号、人数、入住时间、所付押金以及房间型号等;退房中可以通过输入房间号码来查找顾客要退的房间且系统会自动统计出顾客所需付账款,结账后顾客的信息将消失,并且该房间自动变为空闲可供入住;顾客以及房间信息查找中能够通过顾客姓名、房间号码来进行对顾客或房间信息的查找;为了合理的分配有利资源,也为了美观,让管理员适时的轻松一下,在顾客查询的右边给出了一个动画FLASH关键词数据库多文档界面模块客房管理需求功能窗体工程ABSTRACT ThepaperisadoptiveprogramminglanguagebythewayofVisualBasic
6.0Ialsochoosetheguestroommanagesystemasmypaper’smainbodywhichisthemostimportantsubsystemofhotelmanagesystem.IuseAccessdatabaseandfoundadatabasewithtwotablesoneisforconsumerlandingtheotheroneisforguestroom’sandclient’sinformation’srecording.Thesystemneedsachievesomefunctionsasfollows:administratorscanlandthelandingframeandamendpassword;weshallinputtheinformationoftheclient’sopeningroomandbookroomincludingnamesexIDcardnumbernumberenteredtimepaythedeposittheroom’stypeandsoon;exitroomwemaylookuptheinformationbythewayofinputtingtheroomnumberandsystemcanself-motionstat.theclient’spayingaftertheclientfootsabilltheclient’sinformationwillvanishaswellastheroombecomesempty;wearecapableoflookuptheinformationoftheclient’sandroom’sbythewayofinputtingtheclient’snameorroomnumber;bythewayofreasonabledistributefavorablenessresourceandslinkyImakeacartoonFLASHintherightoftheClientLoopupitlettheadministratorstakeiteasy.KeyWords:databaseMDImoduleguestroommanagerequirementFunctionformsproject第1章绪论
1.1问题定义及内容简介在当今激烈的竞争环境下,宾馆、旅游业的竞争已经不仅仅是硬件设施、人员素质的竞争,更是现代化管理手段的竞争一个好的宾馆管理系统的使用,将大大提高宾馆领导的决策管理能力和员工的工作效率,增加服务内容,改善服务质量,也将充分挖掘宾馆的潜力,提高宾馆在住客心目中的地位和档次,给住店旅客以良好的感觉和享受,是新型现代化宾馆、旅馆的一个重要标志宾馆管理系统需要由宾馆管理方面的专家和计算机软件开发的精英运用自己的理论知识共同建立本系统是宾馆管理系统中的一个子系统——客房管理系统本系统的制作思路简单,建立了两个数据表,其中一个表用于管理员登陆验证身份;另一个表记录的是客房以及顾客的信息本系统有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第2章Windows下的VisualBasic编程环境简介
2.1VisualBasic集成开发环境VB集成开发环境是提供设计、运行和测试应用程序所需各种工具的一个工作环境这些工具互相协调、互相补充,大大减少了应用程序的开发难度集成开发环境主窗口的顶部包含标题栏、主菜单和快捷工具栏;下部有几个子窗口工具箱、工程窗口、工程管理窗口和属性窗口等根据需要,主窗口上还会打开不同的子窗口
2.
1.1标题栏启动VB后,标题栏中出现的信息是“工程1-MicrosoftVisualBasic[设计][Form1Form]”表示现在是“工程1”的“Form1”(窗体)的设计阶段方括号里的信息内容随着工作状态不同而改变
2.
1.2主菜单主菜单位于标题栏之下,提供一些进行程序设计时必要的功能,VB6是汉化的,所有的菜单命令都以汉字标出主要有文件菜单、编辑菜单、视图菜单、工程菜单、格式菜单、调试菜单、运行菜单、查询菜单、图表菜单、工具菜单、外接程序菜单、窗口菜单和帮助菜单还有一些快捷工具栏,这里就不详细讲述
2.
1.3窗体窗口新建一个工程时,VB集成环境中间的工作区出现一个工程窗口标题显示“工程1Form1Form”“工程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控件(MicrosoftADODataControl
6.0OLEDB)第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本书编写组,《VisualBasic
6.0程序设计参考手册》,北京,人民邮电出版社,
2003.11第一时间工作室,《VisualBasic
6.0程序设计技能百练》,北京,中国铁道出版社,
2004.1李春葆、张植民,《VisualBasic数据库系统设计与开发》,北京,清华大学出版社,
2003.8BobReselman、RichardPeasley、WaynePruchniak,《VisualBasic
6.0使用指南》,北京,电子工业出版社Microsoft,《VisualBasic
6.0中文版控件大全》,北京,电子工业出版社CraigEddy、TimothyBuchanan,《中文Access200024学时教程》,北京,机械工业出版社附录模块通用程序代码PubliccnnAsNewADODB.ConnectionPublicrssAsNewADODB.RecordsetPublicSubcnnsercnnclosecnn.ConnectionString=Provider=Microsoft.Jet.OLEDB.
4.0;DataSource=D:\VB作业\新建文件夹3\xl.mdb;PersistSecurityInfo=Falsecnn.OpenEndSubPublicSubrssserByValSQLAsStringSetrss=Nothingrss.CursorLocation=adUseClientrss.OpenSQLcnnadOpenDynamicadLockOptimistic-1EndSubPublicSubcnncloseIfcnn.State=adStateOpenThencnn.CloseEndIfEndSub4-1在宾馆主界面的程序代码PrivateSubMDIForm_Loadmenu_
1.Enabled=Falsemenu_
2.Enabled=Falsemenu_
4.Enabled=Falsemenu_
5.Enabled=Falsemenu_
6.Enabled=Falsemenu_
7.Enabled=FalseToolbar
1.Enabled=FalseEndSubPrivateSubmenu_1_1_ClickEndSubPrivateSubmenu_1_3_ClickEndSubPrivateSubmenu_2_1_ClickEndSubPrivateSubmenu_2_3_ClickLoadFrmkfFrmkf.ShowEndSubPrivateSubmenu_3_1_ClickLoadfrmdlfrmdl.ShowEndSubPrivateSubmenu_5_1_ClickLoadfrmgkfrmgk.ShowEndSubPrivateSubmenu_7_2_ClickLoadFrmpasswordFrmpassword.ShowEndSubPrivateSubmenu_7_4_ClickDimaAsIntegera=ShellC:\WINDOWS\system32\calc.exeEndSubPrivateSubToolbar1_ButtonClickByValButtonAsMSComctlLib.ButtonSelectCaseButton.IndexCase1:LoadFrmkfFrmkf.ShowCase2:Loadfrmdffrmdf.ShowCase3:Loadfrmtffrmtf.ShowCase4:Case5:Case6:Case7:Case8:Case9:EndSelectEndSub4-2管理员登陆框程序代码SubaText
1.Text=Text
2.Text=Text
1.SetFocusEndSubPrivateSubCommand2_ClickEndEndSubPrivateSubCommand3_ClickUnloadMeLoadMDIForm1MDIForm
1.ShowEndSubPrivateSubForm_LoadMe.Height=4000Me.Width=5700Label
1.Caption=用户名Label
2.Caption=密码Text
1.Text=Text
2.Text=Text
1.MaxLength=10Text
2.MaxLength=4Text
2.PasswordChar=*Command
1.Caption=确定QCommand
2.Caption=退出CCommand
3.Caption=返回FCallcnnserEndSubPrivateSubCommand1_ClickStaticzAsIntegerIfText
1.Text=ThenMsgBox对不起!用户名不能为空vbInformation系统提示CallaExitSubElseDimjAsStringj=select*fromtable1whereuserid=TrimText
1.TextrssserjIfrss.BOFAndrss.EOFThenMsgBox没有相应的用户vbInformation请输入正确用户名z=z+1CallaIfz=3ThenMsgBox对不起,错误达到3次goodbyevbInformation系统提示EndEndIfExitSubElsej=select*fromtable1whereuserid=TrimText
1.Textandpassword=TrimText
2.TextrssserjIfrss.BOFAndrss.EOFThenMsgBox密码错误vbInformation系统提示z=z+1Text
2.Text=Text
2.SetFocusIfz=3ThenMsgBox对不起,错误达到3次goodbyevbInformation系统提示EndEndIfElseMDIForm
1.menu_
1.Enabled=TrueMDIForm
1.menu_
2.Enabled=TrueMDIForm
1.menu_
4.Enabled=TrueMDIForm
1.menu_
5.Enabled=TrueMDIForm
1.menu_
6.Enabled=TrueMDIForm
1.menu_
7.Enabled=TrueMDIForm
1.Toolbar
1.Enabled=TrueMsgBox登陆成功vbInformation欢迎光临Loadfrmloadfrmload.ShowMe.HideText
1.Text=Text
2.Text=EndIfEndIfEndIfEndSubPrivateSubText1_ChangeEndSub4-3登陆到主界面的加载框的程序代码PrivateSubFlash1_OnReadyStateChangenewStateAsLongEndSubPrivateSubForm_LoadFlash
1.Movie=App.Path\流氓兔吃霸王餐.swfMe.Height=6500Me.Width=8500EndSubPrivateSubTimer1_TimerStaticiAsIntegeri=i+1Ifi100ThenProgressBar
1.Value=iLabel
1.Caption=请稍等,正在加载...i%ElseUnloadMeEndIfEndSub4-4登陆框修改密码程序代码PrivateSubCommand1_ClickIfText
3.Text=ThenMsgBox请输入密码vbInformation系统提示Text
3.SetFocusElseIfText
1.Text=ThenMsgBox请输入新密码vbInformation系统提示Text
3.SetFocusElseIfText
2.Text=ThenMsgBox请再次确认新密码vbInformation系统提示Text
3.SetFocusEndIfrssserselect*fromtable1wherepassword=TrimFrmpassword.Text
3.TextIfrss.BOFAndrss.EOFThenMsgBox密码不正确vbInformation系统提示Text
3.Text=Text
1.Text=Text
2.Text=Text
3.SetFocusElseMsgBox存在密码IfValText
2.Text=ValText
1.TextThenrss.FieldsPassword.Value=Text
2.Textrss.UpdateMsgBox修改成功vbInformation系统提示UnloadMeElseMsgBox两次输入新密码不同,请重新输入新密码vbQuestion系统提示Text
1.Text=Text
2.Text=Text
1.SetFocusEndIfEndIfEndSubPrivateSubCommand2_ClickUnloadMeEndSubPrivateSubForm_LoadCallcnnserLabel
1.Caption=请输入新密码Label
2.Caption=再次输入新密码Label
3.Caption=请输入密码Text
1.Text=Text
2.Text=Text
3.Text=Text
1.MaxLength=4Text
2.MaxLength=4Text
3.MaxLength=4Text
1.PasswordChar=*Text
2.PasswordChar=*Command
1.Caption=确定QCommand
2.Caption=返回FMe.Height=4000Me.Width=5500EndSubPrivateSubText3_ChangeEndSub4-
5、4-6客房管理的开房以及预定房间的程序代码PrivateSubCombo2_ClickDimiAsStringcnnserSelectCaseCombo
2.TextCase商务豪华间CallfindCase单人间CallfindCase豪华套房CallfindCase标准间CallfindCase商务间CallfindCase总统套房CallfindEndSelectEndSubPrivateSubCommand1_ClickUnloadMeEndSubPrivateSubCommand2_ClickLoadForm1Form
1.ShowEndSubSubfindDimiAsStringi=select*fromroomwhereroomtype=TrimCombo
2.TextrssseriIfrss.BOFAndrss.EOFThenMsgBox没有找到该纪录vbInformation系统提示ExitSubElseSetDataGrid
1.DataSource=rssEndIfEndSubPrivateSubCommand3_ClickText
1.Text=Text
3.Text=Text
4.Text=Text
5.Text=Combo
1.Text=Combo
2.Text=Text
1.SetFocusEndSubPrivateSubText1_ChangeEndSub4-5-
1、4-6-1开房、预订房时输入房间号的程序代码PrivateSubCommand1_ClickcnnserDimjAsStringj=select*fromroomwhereroomid=TrimText
1.TextrssserjSelectCasefrmdf.Combo
2.ListIndexCase3IfValText
1.Text301OrValText
1.Text313ThenMsgBox单人间中无此房号!ExitSubEndIfCase0IfValText
1.Text401OrValText
1.Text413ThenMsgBox标准间中无此房号!ExitSubEndIfCase1IfValText
1.Text601OrValText
1.Text613ThenMsgBox商务间中无此房号!vbInformation系统提示ExitSubEndIfCase5IfValText
1.Text701OrValText
1.Text713ThenMsgBox豪华商务间中无此房号!vbInformation系统提示ExitSubEndIfCase2IfValText
1.Text501OrValText
1.Text513ThenMsgBox豪华套房中无此房号!vbInformation系统提示ExitSubEndIfCase4IfValText
1.Text801ThenMsgBox总统套房中无此房号!vbInformation系统提示ExitSubEndIfEndSelectIfrss.BOFAndrss.EOFThenMsgBox无此房间号码vbInformation系统提示ElseIfrss.Fieldsroomkf=1ThenMsgBox此房间已有顾客!vbInformation系统提示ExitSubElseIfrss.Fieldsroomdf=1ThenMsgBox此房间已有人预定!vbInformation系统提示ExitSubElseCallbckfMsgBox数据保存完成vbInformation系统提示CallcleanEndIfEndSubSubbckfrss.Fieldsgkname.Value=frmdf.Text
1.Textrss.Fieldsgksex.Value=frmdf.Combo
1.Textrss.Fieldsroomid.Value=Me.Text
1.Textrss.Fieldsroomsfz.Value=frmdf.Text
3.Textrss.Fieldsroomyj.Value=frmdf.Text
4.Textrss.Fieldsroomnum.Value=frmdf.Text
5.Textrss.Fieldskfdate.Value=frmdf.DTPicker
1.Valuerss.Fieldsroomdf.Value=1rss.UpdateEndSubSubcleanLoadfrmdffrmdf.ShowEndSubPrivateSubCommand2_ClickUnloadMeEndSubPrivateSubText1_ChangeEndSub4-7退房程序代码PrivateSubCommand1_ClickOnErrorResumeNextrss.Fieldsroomkf=rss.Fieldsroomdf=rss.Fieldsgkname=rss.Fieldsgksex=rss.Fieldsroomsfz=rss.Fieldsroomyj=rss.Fieldsroomnum=Update.rssUnloadMeEndSubPrivateSubCommand2_ClickOnErrorResumeNextDimSQLAsStringSQL=select*fromroomwhereroomid=TrimText
2.TextrssserSQLSetDataGrid
1.DataSource=rssText
1.Text=rss.FieldsgknameD
1.Value=rss.FieldskfdateText
5.Text=rss.FieldspriceD
2.Value=NowText
6.Text=IntD
2.Value-D
1.Value*ValText
5.TextEndSubPrivateSubDataGrid1_ClickEndSubPrivateSubForm_LoadcnnserEndSub4-8查找信息的程序代码PrivateSubCombo1_ChangeEndSubPrivateSubCommand1_ClickIfCombo
1.Text=OrText
1.Text=ThenMsgBox不能为空!vbInformation系统提示ExitSubEndIfcnnserDimSQLAsStringIfCombo
1.ListIndex=0ThenSQL=select*fromroomwhereroomtype=TrimText
1.TextElseIfCombo
1.ListIndex=1ThenSQL=select*fromroomwheregkname=TrimText
1.TextEndIfrssserSQLSetDataGrid
1.DataSource=rssEndSubPrivateSubCommand2_ClickUnloadMeEndSubPrivateSubForm_LoadFlash
1.Movie=App.Path\流氓兔越狱.swfEndSub。