毕业设计(论文)VB+SQL宾馆酒店管理系统.doc

毕业设计（论文）VB+SＱL宾馆酒店管理系统
宾馆酒店管理系统
林丽娟
,浙江海洋学院 石化学院~浙江　舟山 ３1６0０4，
[摘要]:　
对于宾馆酒店等服务性行业，服务质量是吸引客户、提高经济效益的关键因素。作为计算作应用的一部分，使用计算机对宾馆信息进行管理，具有检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等优点,能够极大地提高宾馆管理的效率，也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件主要全面的论述了宾馆在正常运营中需要对客房资源、顾客信息、结算信息进行管理，系统可以完成对各类信息的浏览、查询、添加、删除、修改等功能.本文以Ｖisual　Ｂasiｃ 6。0作为开发工具，且以服务软件Ｍicrｏsoft　SQL Server　２0０0作为后台数据库,通过此系统简要说明宾馆管理信息系统的需求分析、系统功能模块设计、数据库分析,并由此设计了数据库结构和应用程序。系统运行结果证明,本文所设计的宾馆管理系统可以满足顾客、宾馆工作人员和高级管理员三方面的需要。宾馆酒店采用管理信息系统来管理日常工作，合理配置资源,提升管理水平，从而在市场竞争中取得优势。
[关键词]：　Visual Basic　数据库管理系统 ＳQL语言 宾馆管理系统 模块
目录
摘要 „„„„„„„„„„„„„„„„„„„„„„„„„„„
第一章 引言 „„„„„„„„„„„„„„„„„„„„„ 1　1。1 问题的提出
1。1。1 课题的来源„„„„„„„„„„„„„„„„„„„„„„„„1
1.１.2 研究课题的动态„„„„„„„„„„„„„„„„„„„„„1　1。2 课题的内容与意义„„„„„„„„„„„„„„„„„„„„„„„„　2　
1。2.1 课题的内容„„„„„„„„„„„„„„„„„„„„„„„„2　
1。2.2 课题的意义„„„„„„„„„„„„„„„„„„„„„„„„　第二章 宾馆管理的系统分析„„„„„„„„„„„„„„„„
2。1系统需求分析 „„„„„„„„„„„
２.2　系统体系结构设计„„„„„„„„„„„„„„„„
２.３ 开发工具的选择 „„„„„„„„„„„„„„„„ 4
2.4　开发系统所需的实用技术„„„„„„„„„　
2.５ 本文所做的主要工作 „„„„„„„„„„„„„„ ６ 第三章 宾馆管理的总体设计„„„„„„„„„„„„„„„„ 7　
3。１使用计算机管理宾馆的意义„„„„„„„„„„„„„„„„„　
3。2宾馆管理的设计分析„„„„„„„„„„„„„„„„„ 第四章 数据库系统功能模块设计„„„„„„„„„„„„„„１6　
4.1数据库设计„„„„„„„„„„„„„„„„„ 1７
4。2登录模块设计„„„„„„„„„„„„„„„„„　17　4。3主界面设计„„„„„„„„„„„„„„„„„ 1７　
第五章 宾馆管理信息系统具体程序实现„„„„„„„３7
5.1基本信息管理管理模块设计
5.１.1客户信息编辑窗体的创建„„„„„„„„　
5。1.2客户信息管理窗体的创建„„„„„„„„„„„
5。1．3客户信息选择窗体的创建„„„„„„„„„„„
5。１.4客房类型信息编辑窗体的创建„„„„„„„„„„„„„ 3８
5。1。5客房状态信息管理窗体的创建„„„„„„„„„„„　3９　
5.１.６客房信息编辑模块的创建„„„„„„„„„„„ 3９
5。1。7客房状态信息编辑窗体的创建„„„„„„„„„„„　39
5。１。8客房信息管理窗体的创建„„„„„„„„„„„„„ 5．2前台接待管理模块设计
５.2.1客房预定信息编辑窗体的创建„„„„„„„„„„„„ 49
5.2。2客房预定信息管理窗体的创建„„„„„„„„„„„„ 49
5。2。3客房入住登记信息编辑窗体的创建„„„„„„„„　40
5.2.4客房入住登记信息管理窗体的创建„„„„„„„„ 40
５.２。4客房续住登记信息编辑窗体的创建„„„„„„„„　40
5。2。4客房续住登记信息管理窗体的创建„„„„„„„„ 4０
５。2。5退房登记信息编辑窗体的创建„„„„„„„„ 4０
5.2。6退房登记信息管理窗体的创建„„„„„„„„ 40 5。3收银统计管理模块设计
５。3。1实收房款信息编辑窗体的创建„„„„„„
5.３。2实收房款信息管理窗体的创建„„„„„„
5.３.3客户消费统计表的创建„„„„„„
５．3.４实收房款统计表的创建„„„„„„
5。4系统用户管理模块的创建„„„„„„„„„„„„　
第六章 结束语 „„„„„„„„„„„„„„„„„„„„ 6 参考文献　„„„„„„„„„„„„„„„„„„„„ 70 第1章 引言
1（１ 问题的提出　
1（1（１ 课题的来源
当今,席卷全球的信息化大潮把信息管理推倒了时代发展的前沿,信息管理系统已经成为全社会注视的热点。随着科学技术的发展，今天的计算机已经深入到社会和生活的各个领域，尤其在信息管理系统方面其发展的规模和应用程度已经成为一个国家现代化水平的重要标志。随着科学技术的不断提高，计算机科学日渐成熟,其强大的功能已成为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用．人们可以将大量的繁琐的工作交给计算机去完成,从而大大提高了工作效率，此外，计算机可以利用长期使用过程中所存贮的大量数据进行数据分析，为管理者进行决策提供可靠的信息资料．
酒店服务项目众多，客人信息内容繁琐,而且信息量大，因而在操作上经常造成很多不便之处,浪费了时间，降低了工作效率，而且极大地影响了酒店的服务质量和经济效益。
由此我设计了宾馆酒店管理系统。该管理系统的开发，本着科学化、规范化、系统化的
原则，并考虑到酒店的实际情况，该系统支持SＱL，具有查询方便、安全保密性好、用户
界面友好、容易操作等优点。应用此管理系统后,该酒店对每位客人的具体情况便可以
了如指掌,而且在对客人信息进行操作时,节省了大量时间,很大程度上提高了员工的
工作效率和酒店的服务质量。
１(1（２ 研究课题的动态
当今，席卷全球的信息化大潮把信息管理推倒了时代发展的前沿,信息管理系统已经成为全社会注视的热点。国外许多发达国家在这一方面采用先进技术,发展水平领先一步。在我国也已开始应用于经营管理的各个领域,在不同的部门、不同的层次上参与和支持着各种经营、管理活动，扮演着越来越重要的角色,产生了一定的经济效益和社会效益。　酒店作为一个成熟的产业,各种酒店管理软件众多,有条件的酒店或宾馆采用自主开发或委托软件开发商开发出的专用软件,部分大型酒店也已经使用市场上的有关酒店管理系统(一般价格也较昂贵)。然而占着绝大多数的中小型酒店、宾馆由于资金、人员等多方面原因不易使用酒店管理类软件，全凭原始的手工记录管理,效率低、易出错;同时，市场上出现的各类酒店管理软件基本上都是为大型酒店专业设计的，有很多功能对于一般酒店、宾馆根本用不上.软件市场急需一套低廉的价格、完善的服务,齐全的功能为基础，结合酒店前台管理的需要进行扩展性而开发的一套酒店管理系统。　
1（2 课题的内容与意义
1。2.1 课题的内容　
研究的内容为酒店管理系统，该系统的主要功能模块包括:前台管理、系统维护、经理
查询、宾客系统,前台系统模块主要功能为预定、入住登记,点单,结账开单,消费查
询,房台设置等;系统维护模块主要是数据库备份,设置酒店客房，桌台,食品，折扣
方式等等；经理查询模块提供各种查询功能以便及时了解酒店即时的信息,包括查询客
人消费,客账查询，营收汇总,房台状态浏览等；宾客系统主要是提供各种查询功能，
以便让宾客酒店及自身消费情况，这些模块基本上满足了用户(酒店)在客房管理，餐
饮管理等方面的需求,并且还可随着酒店业务的发展对系统进行扩展升级。 1。2。2　课题的意义
E时代的酒店管理具有四个鲜明特点:一是国际化、一是网络化、一是高效化、一是灵活性。国际化指的是在经济全球化的趋势下,国际旅游更加活跃，客户的要求更加多样化,同时酒店业的竞争会更加透明和激烈，因此必须引进国际上先进的管理模式，来提高服务的水平和竞争力;网络化与酒店管理的复杂程度有关，现在，在一个更加开放的环境中,各项管理内容更加细化,而网络可以大大简化、规范这一切，同时还可以大大降低成本，此外,作为旅游业的一个环节,酒店业还必须努力融入整个商业链,更多的通过网上来扩展业务;高效化既是服务水平的一个体现,同时,也是酒店效益的根本；灵活性指的则是酒店必须随时能够掌握来自客户方面的需求和要求,并满足各种各样个性化的需求。宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率.　
第二章 宾馆管理的系统分析　
2（1系统需求分析 „„„„„„„„„„„
酒店宾馆管理系统应充分利用信息技术提高宾客房的管理水平、服务水平.客房管
理系统要实现客房信息管理、客房类型管理、客房信息管理、预定客房信息管理、入住
登记信息管理、续住登记信息管理、退房登记住处管理、实收房款管理、客户消费统计
表和实收款统计表等主要功能，具体如下：　
1。客房类型信息的添加、修改、删除和查询.　
2。客房信息的添加、修改、删除和查询。
3。预定客房信息的添加、修改、取消预定和查看详细信息客户信息的添加修改、删
除和查询。
4．登记入住和修改登记信息．
5.保存续住登记信息;保存退房登记信息；保存实收房款信息。
6.查看客户消费统计表和实收款和实收款统计表。
2（2 系统体系结构设计„„„„„„„„„„„„„„„„
宾馆酒店管理系统 系统功能模块示意
基前前系
本台台统
信接接用
息待待户
管管管管　理 理 理 理
客客客预入续退实客实用修切
户房房定住住房收户收户改换
信类信客登登登房消款信自用
息房记记记款费统息身息型户 管管管管管管管管统计 管密
理 理 理　理 理　理 理 理 计 理　码
2（3 开发工具的选择 „„„„„„„„„„„„„„„„ 4
本系统采用ADO数据访问技术,并将每个数据库表的字段和操作封装到类中,从而成功地将面向对象的程序设计思想应用到数据库应用程序设计中.这也是本系统的特色和优势。
开发数据库管理信息系统需要选择两种工具,即前台开发语言和后台数据库。前台开发工具选择Ｖisｕaｌ　Basｉc 6。0,Visual Baｓic　6.０是微软公司推出的可视化编程工具MＳＤN之一,是目前最为广泛的、易学易用的面向对象的开发工具.Viｓuaｌ Baｓiｃ提供了大量的控件，这些控件可用于设计界面和实现各种功能,减少了编程人员的工作量,也简化了界面设计过程,从而有效的提高了应用程序的运行效率和可靠性.故而,实现本系统VＢ是一个相对较好的选择。
后台数据库则选择SQＬ　Serｖer，是因为SQL语言集数据查询、数据操纵、数据定义和数据控制功能于一体,是作为关系数据库管理系统中的一种通用的结构化查询语言。中间层采用AＤO数据访问技术，将对数据库的操作以类的形式封装。
2（4 开发系统所需的实用技术
开发此数据库管理信息系统所需实用技术有: 1(所选开发工具的基本编程方法。
2(基本的后台数据库管理方法,例如创建数据库、创建表、创建视图、备份和还原数
据库等。
3（常用SQL语句的使用.　
4(ADO数据库访问技术
2.5 本文所做的主要工作
本文论述了分析、开发、设计一个酒店管理系统的过程.该系统融入酒店科学、规范的现代管理思想，为提高各业务部门本身的工作效率,自动完成各业务部门之间的各种营业信息、帐务、报表的自动化传输与汇总，使各项业务工作制度化,科学化。结合先进的计算机技术,采用VISUAL　ＢASIＣ和SQL　Sｅrver20０0开发而成。
本文介绍了课题相关内容，并通过设计分析,划分数据库,将系统划分为四个主要功能模块：前台管理、系统维护、经理查询、宾客系统。着重叙述了前台管理和系统维护这两个功能模块的功能实现,这些模块基本上满足了用户(酒店)在客房管理,餐饮管理等方面的需求。如对客房、员工的设置修改，相关的顾客服务等.系统中的各业务管理模块既可单机独立运行,也可在服务器/工作站组成的局域网络平台上联网运行.可随着酒店业务的发展对系统进行扩展升级
第三章　宾馆管理的总体设计„„„„„„„„„„„„„„„„　７ 3．１使用计算机管理宾馆的意义„„„„„„„„„„„„„„
随着酒店管理系统的不断完善,酒店上网业务必将成为今后的热门话题。酒店上网业务提高了宾馆酒店的知名度以及服务档次,在为顾客提供优质服务的同时，在增加了其自身的效益。客人可以在酒店上Ｉnterｎeｔ进行工作和商务活动，也可以通过Inteｒneｔ查询酒店情况，进行酒店的预定、结帐等活动,极大地方便了顾客。虽然计算机管理并不是宾馆管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对宾馆的服务管理提供强有力的支持。因此,采用全新的计算机网络和宾馆管理系统,已成为提高宾馆管理效率、改善服务水准的重要手段之一.在某种意义上,宾馆客房管理方面的信息化已成为现代化宾馆的重要标志．另外，随着信息技术的发展和人们对宾馆酒店的要求越来越高,宾馆已明显觉得手工管理已经不能适应当前宾馆高速发展的需要。
系统流程分析如图 开 始　重试
否
失败　是 用户登录　失败超过3次 退出程序　
用户管理模块 宾馆酒店管理模块　成功　
读取用户类型 ？　管理自己的用户信息　１系统的所?　管理领班用户的用户信息　
？ 管理普通用户的用户信息 有其他功能 Ａdmiｎ用户 ? 管理自己的用户信息
领班用户　？ 管理普通用户的用户信息　
２领班用户
管理模块
管理自己的用户信息
普通用户　3普通用户
管理模块 第四章 数据库系统功能模块设计„„„„„„„„„„„„„„16
4(1数据库结构设计
宾馆酒店管理系统数据库包含8个表,即客户信息表Cｕstｏmer、客房类型表RoomTyｐe、客房信息表Room、客房预定信息表ＯrdｅrＲooｍ、预定客房登记表ＯｒｄeｒＬｉst、入住登记信息表Regｉstｒatｉｏn、实结房款信息表PaｙｆorRoom和用户信息表Ｕｓeｒs． (1)、客户信息表Cuｓtomeｒ,　
包括cｕsｔld（编号,主键）、lｄtype(证件类型)、ｃustnaｍe(客户姓名)、ｏｒgname(客户单位）、ｃuｓｔｔyｐｅ(客户类型）、cuｓtｆrom（国籍户籍）、seｘ（性别)、jｏb（职务)、ｏｆficｅ（办公电话）、mobiｌe(移动电话）、homｅ(住宅电话)、ｃustｌevｅl(客户等级)、addrｅss（家庭地址）、pｏstcoｄe(邮政编码)。
(2）、客房类型表RoomTｙｐe，
包括typeld(类型编号,主键)、tyｐename（类型名称)、roｏmｎum（房间数量）、beｄnum（床位数量)、aircｏndiｔｉoning（是否有空调)、tｅl（是否有电话)、tv（是否有电视)、ｔoｉlet（是否有独立卫生间）、icebｏx(是否有冰箱).
（３）、客房信息表Ｒoｏm，
包括roomno（客房编号，主键)、tｙpeld(客房类型编号）、posiｔｉon（房间朝向）、objlｉst(客房中所有物品的列表）、pｒice(标准价格)、sｔａtｕs（房间当前状态)。
(４)、客房预定信息表ＯrderRoom，
包括ｏrdｅrld(记录编号，主键)、cuｓtld（入住客户编号)、firstpａy（押金)、ｏｒdeｒdatｅ（预定日期)、ｕsｅrname（经办人）。
（６）、预定客房登记表OrdｅrLｉst,
包括ｌistld(记录编号,主键）、oｒｄerｌd(客户编号）、roｏmno（客房编号)、ｉｎdate(计划入住日期）、dａys(入住天数)、pricｅ（预定单价）、raｔe（预定折扣）、othｅrfｅe（其它收费金额）、mｅmo(备注)。
(7)、入住登记信息表Regisｔraｔioｎ,
包括regld（记录编号,主键)、cｕltld（客户编号)、roｏmｎo(客房编号)、ｉnｄaｔe(入住日期）、lｅavedate(退房日期)、dayｓ（入住天数）、price(单价)、ｒate(折扣）、otherfee（其他收费金额）、fｉｒｓtfeｅ（押金)、mｅmo(其它说明)、stａｔｕs（入住登记记录的状态:１表示入住，2表示退房,3表示结款)、ｕｓernaｍe(经办人)。
(8）、实结房款信息表PａyｆｏｒRoom,　
包括regld(登记编号)、aｍoｕnt(结款金额:如果结款金额为负,则表示退款）、userｎame
（经办人）、oｐｔｔime(结款日期）.
(9)、用户信息表Uｓｅｒｓ，
包括username（用户名，主键）、empname(员工姓名)、userpｗｄ（密码)、uｓeｒｔype(用户类型：１表示领班用户，2表示普通用户）.
4。2登录窗体及系统主界面设计　
当系统运行时，首先打开登录窗体，只有有权限的用户才能进入系统。登录成功后将显示系统主界面。其界面布局如下图所示：
登录窗体名称为FrmLogin,其代码如下所示:
Ｐubｌｉc ＰaｓswｏrdKey Ａｓ String
Public　ＮameKey　As Ｓtriｎg
Puｂlic Ｔｒy_times Aｓ Inteｇe
Ｐｒiｖate Ｓｕb Cmd_Ｃancel_Click（)　
End
Ｅnｄ Suｂ
Privａte Suｂ Ｃmｄ_OＫ_Clｉｃk()　
Ｄim j As Singlｅ　'数据有效性检查　
Iｆ　txtUseｒ = ”” Then　
MｓgBｏx "请输入用户名”
txtUsｅr。SeｔFocｕs
Eｘiｔ Sub
End Iｆ
Iｆ ｔxｔPwd = ”"　Thｅｎ　
MsgＢｏx　”请输入密码＂　
txtPwd。SetFｏcus
Exiｔ Sｕｂ
Ｅｎd If　
NａｍeKｅｙ ＝ MaｋeSｔｒ(txtUseｒ)　PasswordＫey = MakｅStr(ｔxtPｗd) ＇判断用户是否存在
If MyＵser。Iｎ_DB（NａmeKeｙ） = False Tｈen
MsgBox "用户名不存在”
Ｔry_tｉｍeｓ ＝ Try_tｉmes + 1 If　Try_timeｓ 〉＝ 3　Ｔｈｅn MsgＢox ＂您已经三次尝试进入本系统,均不成功,系统将关闭" DＢapi_Discoｎnect
Ｅnd
Elｓe
Ｅxit Sub　
End Iｆ
Ｅnd　If　
’判断密码是否正确
ＭyUser。ＧetＩnｆｏ　(NameKeｙ）　Iｆ MyUseｒ.UserPwd 〈〉 ＰａssｗoｒdKｅy Then
ＭsgBoｘ ”密码错误”
Try＿times = Try_ｔｉｍes　＋ １　If Try_ｔiｍes　＞= ３　Then ＭｓgBｏｘ "您已经三次尝试进入本系统，均不成功,系统将关闭"　ＤBapi_Ｄiｓｃonｎect
End　
Ｅｌsｅ　
Exit　Sub　
Enｄ If
End If
’登录成功，将当前用户的信息保存在CurUser中　
CurUｓeｒ。GetIｎfｏ　（NaｍeＫｅｙ) ’关闭登录对话框
Uｎｌoａd　Ｍe
Enｄ Ｓｕｂ
Ｐrivａte Suｂ　Ｆorｍ＿Load(）　
End Ｓｕb
４．3主界面设计
主窗体是工程的启动对象,可以在系统菜单中选择“工程”／“属性”,打开属性窗口设
置启动对象。主窗体名称为ＦrｍＭaｉn.打开主窗体的设计窗口,选择“工具“菜单”项中的
“菜单编辑器”,对菜单内容进行编辑,设置菜单项的属性。在主窗体FrｍMain中添加如下代码：
Private Sub Ｆorm_Lｏad（)
ＦrｍLogiｎ。Shｏw　１　
End Sub
当主窗体启动时,首先打开“登录”对话框。如果不能通过身份验证,则不能进入系统。系统主界面如下图所示.
基本信息模块设计　
基本信息模块管理模块包括客户信息管理，客房类型管理和客房信息管理。 5.１.1设计客户信息编辑窗体
客户信息编辑窗体可以用来添加和修改客户的基本信息，窗体名称为FｒmＣustEｄiｔ，窗体的布局如下图所示。
5．1.2客户信息管理窗体　
５(1（3客房类型信息编辑窗体
Pｒivａｔe Sｕb Cmd_OK＿Click()　
’检查用户录入的数据是否完全有效　
'客房类型、房间数量、床位数量是必须输入的
If Trim(txtRtype） = ”” Then
MsgBｏx　”请输入客房类型”　
txtRtype.SetFocｕs
Exit　Ｓub
Ｅｎd Ｉf
Ｉｆ Tｒim（txtＲnｕm） = "" Then
ＭsｇBox ”请输入房间数量"
txtＲｎuｍ.ＳetFｏcus
Eｘｉt Sub
Eｎd If
Ｉｆ Tｒiｍ(ｔｘtBnum） = "＂ Then
MｓgＢox　＂请输入床位数量＂
ｔxtＢnum。SｅtFoｃus
Exｉt Ｓub
Eｎｄ　Ｉf
'把用户录入的数据赋值到MyRｏoｍType对象中，并保存到数据库　
Ｗｉth MyRooｍType　
.TｙpeNａme = ＭakeStｒ（tｘtRｔｙｐe。Texｔ） ’==客房类型　
。RｏomNuｍ ＝ Val（txtRnuｍ）　’==房间数量　
.Ｂedｎｕｍ = Ｖal(tｘtBnum) ’==床位数量
If　Ｏptiｏｎ1.Ｖaluｅ　= Ｔｒuｅ　Ｔhen ＇==空调　
.ＡirConditioning =　1　
Ｅlsｅ　
。AｉrConditｉonｉng = 0
Ｅnd　Ｉf　
If　Oｐtｉoｎ3。Vａlue　= Truｅ Theｎ '==电话
．Tel　＝ 1
Elsｅ
。Tｅl = 0
Eｎd If
Ｉｆ Oｐtｉoｎ5。Value = Truｅ Ｔhen　'==电视　
。Ｔv = 1
Eｌse　
。Tｖ =　0
Eｎd If
Ｉｆ　Option７。Valｕｅ　= Tｒue Tｈen '＝＝独立卫生间
。Tｏileｔ ＝ １
Else
。Ｔｏilｅt　= ０
End If
Ｉf Opｔiｏn９。Valuｅ = Trｕe Then ＇==冰箱
.IｃeBox ＝ 1
Else
。IｃeＢox = 0
End If
’Mｏｄify=False表示当前为插入新数据状态;否则为修改数据状态
If Moｄifｙ = False Tｈen　
’判断当前房间类型是否存在
If .In_DＢ（。ＴypeNａｍe) = Ｔruｅ Then　
MsgBｏx　”当前房间类型已经存在"
Exｉt Sub
Enｄ Iｆ
。Insｅrｔ
Ｅlｓe
If .TypｅName 〈〉　ＯriＴype Theｎ
’判断当前客户是否存在　
If 。Ｉn＿DB(．TypｅNａme） = Ｔrue Ｔhen
ＭｓgBｏx ”当前房间类型已经存在”
Exｉｔ　Ｓub
Enｄ If
End　Ｉｆ
。Updaｔｅ　（ＯrｉTyｐeId)
Eｎｄ Iｆ
End With
Unloaｄ Ｍe
Enｄ Sub
Priｖaｔe Ｓｕb　Loadｔype()
Diｍ　i　As Inｔeger
i ＝ 0　
'读取客户类别到数组Arr_CｕsｔTyｐe（)中
MyCｕst.Lｏaｄtype
CｏmｂｏType.Cleａｒ
'依次把数组Ａｒｒ_CustTypｅ(）中的数据添加到ComboTｙpｅ组合框中
i = 0　
Do Ｗhｉle Aｒr_ＣustTyｐe(ｉ） 〈> ””
CｏｍboＴype。AｄdIteｍ　Aｒr_CustTyｐe（i)
i = i + 1　
Lｏop
'设置ComboＴｙｐe的显示值，
If OriＴypｅ ＝ ”” Tｈｅn
’如果没有原值,则显示第1条记录值
If　ComｂoＴｙｐe。ＬisｔCoｕnｔ　〉 0　Tｈen　
ＣomboTypｅ。ＬisｔＩndeｘ = 0
End If
Elsｅ
＇将显示值恢复为原有数据
If　InＣombo(OriＴype, CombｏＴyｐe)　= True Theｎ
ComｂoＴype。Text =　ＯriType
Else
If ＣｏmboTｙpe．ＬiｓｔCount >　０ Theｎ
CoｍｂoType．ListIndex　＝　0　
End If　
End If
Ｅnd If
End Sｕb　
５(1(5客房信息编辑 Public Sｕb Refresh_Ｒooｍ（)
'判断ComboＲtyｐe组合框listindex,在数组Ａｒr_RｏomTｙpｅ（)得到对应的类别编号
Dｉm ｓｑl1 As String ’保存客房类型的查询条件　
Dim sql2 Aｓ Sｔｒiｎg　'保存客房状态的查询条件
Ｄiｍ ｓｑlStｒ Aｓ　Strinｇ　
’设置客户类型的查询条件，选择全部时没有查询条件　
Ｉf CoｍboＲｔypｅ。ListIndex　〉　0 Then
sqｌ1 = ” Aｎd ｔ。TypｅＮａmｅ=’＂ +　Trim(CombｏRｔype.Tｅxt) ＋　”’"
Ｅlse
sql1 = ＂”
End Ｉf　
’设置客户状态的查询条件,选择全部时没有查询条件　
If　ComboＳtatus.LｉｓtＩndｅx 〉 0 Tｈen
sql2 = ” Anｄ r．Sｔａtｕs=＂ + Ｔrim(ComｂoStaｔus。ＬｉsｔIndex - １）
Ｅlsｅ
ｓql２ = ＂＂　
Enｄ If
’返回查询条件
sｑlSｔr =　sｑl１ ＋ sqｌ2
’sｔｒSql表示设置的查询条件　
Adodc2.ＣｏnnecｔｉonSｔrｉng　＝ Cｏｎn
Adodｃ2.RｅcorｄSourｃe = ＂SＥＬＥCT r．ＲooｍNo　Aｓ 房间编号， t。ＴypeＮaｍe aｓ　房间类型，” ＿　
+ " t。RｏoｍＮuｍ as　房间个数, t。BｅdNuｍ as 床位数量, ｒ.Positiｏn ａｓ　朝向，” _
＋ ” ｒ.Ｐｒｉce　as 价格， （CASE　r。sｔatｕｓ Wｈen 0　Theｎ ’空房’　" _
＋ ” Wｈeｎ　１　Theｎ ’预定’ Wheｎ ２ Tｈeｎ　’入住＇ Ｗheｎ 3 Tｈen '退房' Elsｅ　＇维修' End) As 状态，”
+ ” r。ObjList as 物品清单 FROM Rｏom r, RoomTypｅ ｔ ＷHERE ｒ。TｙpeId=ｔ.TｙpeId " ＿
+ sqｌSｔr + ” ORDER BY r。RoomNo”　
Adodｃ2。Rｅfresh　
Set DataGriｄ1。DataSｏuｒce = Adodc2　
ＤatａGrid1．Ｃｏｌumnｓ(０)。Ｗｉdｔh = １00０ ’房间编号
ＤataGrid１。Columns(1).Width　＝　12０0 ’房间类型
ＤaｔaGｒid1。Columns(2).Width = 1０0０ ’房间个数
ＤaｔaGrｉd1。Columns(3）。Wｉｄｔh　＝ 1000 ’床位个数
DatａGrｉd1。Cｏｌumnｓ(4)。Wiｄth =　８00 '朝向
DataGrid１.Ｃoｌuｍnｓ(5）.Ｗｉdｔｈ = １４00 ’价格
ＤaｔaGrid1。Columns（6）。Ｗiｄtｈ　＝ 8０0 ’状态　
DataGriｄ1。Coｌｕmns(7)。Widtｈ = ２000 '物品清单　
Enｄ Suｂ　
5(１（6客房信息管理窗体　
Ｐｕｂliｃ Sub Refreｓh_Ｒoom（)
’判断ComboＲtypｅ组合框liｓtindex,在数组Ａｒr_RｏomType()得到对应的类别编号
Ｄim ｓｑl1 As Sｔrｉng ’保存客房类型的查询条件
Dim sｑl2 As Sｔring '保存客房状态的查询条件　
Dｉｍ　sqｌStr As Striｎｇ
’设置客户类型的查询条件,选择全部时没有查询条件　
Ｉf　ComboRtype。ＬｉsｔＩｎdeｘ 〉　0 Ｔhｅｎ　
sｑl1 = " Anｄ ｔ．TｙpeNａｍe='”　+　Ｔrim(ComｂoRtypｅ。Text) ＋　”’”　
Else
sql1 = ””
End If　
’设置客户状态的查询条件,选择全部时没有查询条件
If　ＣｏmboＳｔａtus。ＬistIndｅｘ 〉 ０ Then
sql2 = ” Ａnd　r。Statuｓ＝”　+ Tｒiｍ(ComboStaｔus。LｉstＩndex　-　1）
Eｌse
sｑl2 = ””
Eｎd If
’返回查询条件　
sqｌStr =　ｓql1 ＋ sqｌ２　
'ｓtｒＳql表示设置的查询条件
Adodc２。ConｎecｔionＳtrｉng =　Conｎ　
Adodc２。RecordSourｃe ＝ "SEＬECT r。ＲoomNo As 房间编号， t。TypｅNaｍe　as 房间类型，”　_
+ ” t。RoomNum as 房间个数,　t。BedNum aｓ 床位数量，　r。Posiｔion　ａｓ　朝向,” _
＋　” r．Prｉce as 价格, （CASＥ ｒ。sｔａtus　Wｈeｎ　０ Tｈen '空房’ " _
＋ ” Wheｎ 1 Ｔhen　’预定’ When　２ Then ’入住’　Ｗｈeｎ　３ Then ’退房’　Else ’维修’ End) As 状态," ＿
+ " r。ＯbjＬｉst as 物品清单　FＲOM Ｒooｍ r, RoomTyｐｅ t WHERＥ r.TypｅIｄ=t.TyｐｅId　" _
+　sqlＳtr + ”　OＲDＥR BＹ r.RoomNo”
Adｏdc2．Refrｅｓh
Ｓｅt ＤａtaGrｉd1。DataSource　=　Adｏdｃ2　
DａｔａＧrｉd1。Ｃoｌumnｓ(0).Ｗidth　＝　1０00 ’房间编号
DaｔａGriｄ1。Columns(１）.Ｗidth =　1200 ’房间类型
DataGrid1。Ｃｏlumns(2)。Wｉdth = １０00 ’房间个数　
DataＧｒid１。Ｃｏlｕmns(3)。Wｉdtｈ ＝ 1０00　’床位个数　
ＤａtaGrid1。Ｃolumns(4).Wｉｄｔh ＝ ８0０ ’朝向
DaｔaGrｉd1。Coｌuｍns（５）.Wｉdth =　1400 ’价格
DataGrid1。Columns(6）。Ｗｉdtｈ = ８00 ’状态　
DａtａGrid１。Columns（7）。Wiｄtｈ　= 2００0 ’物品清单
End Ｓuｂ
5(1(７客房状态信息编辑窗体　
Pｒｉvate Sub　Cmd_Change＿Ｃｌiｃk()
’更改状态
Dｉｍ　ｉStatｕs As　Integｅr　
'如果状态被选中，则其值为truｅ
For ｉ　=　0 Tｏ Ｏptｉon1。Ｃoｕnt -　１
If Optiｏｎ1(i）。Valuｅ Ｔhen　
ｉＳtａtuｓ ＝ i
Exit Ｆor
End If
Nｅxｔ　
’更改状态值
MyＲｏom。Statuｓ = iＳtatus
MyＲoｏm。ＵｐdateＳtaｔuｓ　（Trim（lblRｏomＮo.Cａpｔion)）
Unload Mｅ　
End Sub
5(１(8客房信息编辑窗体
Private Ｓuｂ Ｃmd_OK_Cliｃk（)
'判断主要域是否为空,其中客房编号、客房类型、价格必须输入
If Trim(txｔRId.Text）　＝ ”” Ｔheｎ　
ＭsgＢoｘ ”请输入客房编号”　
ｔxtRId。SetFｏcｕs
Exit Sub
Ｅnd If
If　Trim(dｃo_RＴype.Ｔext)　= ＂＂ Theｎ
MsgBox　"请输入客房类型"
dco_RＴype。SｅtFocus
Exｉｔ Ｓub　
End If
If Trｉｍ（tｘtPrice．Teｘｔ) = "＂ Thｅn　
MｓｇBox　"请输入客房价格”
txtＰriｃe。SetFocus
Eｘit Sｕｂ
Eｎｄ Ｉｆ　
With MyRｏom
。ＲｏｏmNo = MakeＳｔｒ（txｔＲＩd。Teｘt)
’dcｏ_RTypｅ。ＢoｕnｄTeｘt是当前选择房间类型的TypeId字段值
。TypｅId = Vaｌ(dco_RＴyｐｅ。BoｕｎｄText)
。Ｐoｓition = MakeＳtr(cmbDrt.Texｔ)
.OｂjLiｓt = MakeＳtr（txtList。Texｔ)
.Price = Val（ｔｘｔPricｅ。Tｅxt）
＇空房、入住、预留、退房、维修
Ｉf Trim(ＣombｏStａtus。Tｅxt)　= ”空房”　Theｎ　
.Sｔatｕs ＝ ０
ElsｅIf Trim(ComboSｔaｔus。Teｘt) = ＂预留” Then
。Ｓｔatｕs ＝ 1
ＥlseIｆ　Tｒim(CｏｍbｏＳｔaｔus。Tｅｘt)　=　”入住"　Ｔhen
。Sｔatus = ２
ElｓｅＩf Ｔrim(ＣｏmｂｏStatuｓ.Ｔeｘt） = "退房＂ Thｅn
。Ｓtatus = 3
EｌｓeIf Ｔrim(ＣｏｍbｏSｔａtus。Ｔexｔ）　= ”维修” Ｔhen
。Status =　4
Eｎｄ Ｉｆ　
If Modify = Faｌsｅ Theｎ
’插入新记录
。Insｅrt　
Else
If Tｒiｍ（txtRId.Text） ＝　ＯrgRId Ｔhｅn
'如果原始编号等于现有编号,则修改记录；
．Update (OrｇRＩd)
Else
'如果原始编号不等于现有编号,而且表没有此新的编号,则修改记录；
If .Iｎ_DB(ＯrgRＩd） = Trｕe　Ｔhen
.Upｄate (OrｇRＩd)
Ｅｌse
MｓgＢox "已经存在此客房编号，请重新输入客房编号”
txｔRId.SｅtFoｃus
Exｉt Sub
End　If　
Eｎd Ｉf　
Enｄ Iｆ
Enｄ Wｉth
FrｍRoｏｍMan。Ａｄoｄｃ2.Reｆrｅｓh
Ｕｎload Mｅ
Eｎd　Sub　
5.２前台接待管理模块设计
５。２。1。客房预定信息编辑窗体
Private Sub Rｅfｒｅsh_OrｄeｒLｉｓｔ()
’预定信息记录,Sｔａtus=1的为预定信息
Aｄodc1.CｏnnectiｏｎＳｔring　= Ｃonn
Ａdodc1。RecoｒdSｏｕr