下载文档原格式
酒店管理系统实验报告篇一：酒店管理系统实验报告数据库大作业酒店管理系统实验报告----------------------目录----------------------一、需求分析............................................................... .. (3)二、E-R 图............................................................... . (4)三、物理与逻辑设计............................................................12四、数据字典............................................................... (14)五、系统实现............................................................... (16)六、开发环境............................................................... (17)七、问题与感想: ............................................................... . (18)一、需求分析1、酒店管理系统是一种典型的信息管理系统。
随着信息化的发展，现在的酒店不但需要豪华的装饰和舒适的居住环境，还需要为客人提供快捷优质的服务。
通过酒店管理系统就可以做到这一点，并且还能降低酒店的运营成本，提高酒店的效率和效益。
2、操作人员进入系统后将能够查询当前酒店房间的状态，房间状态可以分为入住、预定、空闲、脏房等。
有宾客时，将能够完成开单操作，从而让宾客进行入住。
当宾客离开酒店时，将能够完成结账操作，从而送走宾客。
酒店管理系统案例报告大作业1管理信息系统及案例课程作业文档题目:酒店订房管理系统年级: 级设计人员:王雅丽李芳郭玲玲赵蒙蒙完成时间: .5.202设计小组人员及分工王雅丽:总体设计李芳:需求分析郭玲玲:可行性分析赵蒙蒙:详细设计3可行性研究经济可行性使用该酒店客房管理系统能够提高酒店客房管理水平,把大量繁琐的工作简单化,能够有效地减少人力物力资源,具体有以下好处:●电脑收银、打印帐单:快速准确,减少宾客等待时间,并可杜绝收银过程中的舞弊现象。
●高效的客房管理:能有效的提高房率,增加营业收入。
●提高决策依据:管理者能够随时了解经营情况,以制定相应的经营方针。
●减轻员工的工作负担:从而使员工把更多的精力放在提高为宾客服务的质量上。
●简单、方便地保存和查询历史资料。
●树立良好的酒店形象。
技术可行性●本软件开发是使用Borland Delphi 7.0编写。
●以Microsoft windows操作系统为工作平台。
●支持中英文输入法。
●以SQL SERVER 为工具执行数据库操作;●程序语言以Java为主。
●自行设计的测试软件。
4Office 应用软件。
社会因素方面的可行性该项目为独立开发,在技术上没有使用任何现有的软件与方法。
因此在法律方面不会存在侵犯专利权、侵犯版权等问题。
可行性研究结论由以上经济、技术和法律三方面的分析能够看出,本系统的开发时机成熟,从多种角度考虑,都是可行的,能够进行开发。
粗略的需求模型0层DFD1层DFD5设计模型SC上层图开发计划1.前言1.1开发背景随着酒店规模的不断扩大,入住客户和客房数量的增加,有关酒店的各种信息也在成倍的增长。
传统的手工管理已不能满足需要,因而需要一个管理信息系统对酒店订房系统进行统一管理,提高管理效率,降低管理成本。
本系统遵循面向对象的软件工程方法,实现了酒店预订系统的基本功能,包括客房预订,会员注册,用户管理,客房管理,客户和客房增删改,系统维护等基本功能。
《软件工程》课程设计报告题目：酒店管理系统一．1.1 系统介绍 (3)1.2 系统设计目标 (3)1.3 开辟与运行环境 (3)1.4 系统功能 (3)1.5 系统总体功能需求与性能需求 (4)1.6 业务流程分析 (4)1.7 人员分配 (4)2.1 数据字典 (5)2.2 需求规格说明书 (5)a) 登录模块 (5)b) 前台预定模块 (9)c) 前台接待模块 (11)d) 收银模块 (13)1.1 系统介绍酒店管理系统是一套功能强大而又简便实用管理管理软件，其实现功能包括客房预定系统、前台接待系统、前台收银系统、帐务系统、系统、管理者系统`、帐务报表、匡助信息等功能模块，实现了餐饮住宿娱乐企业日常营运全面自动管理，是餐饮住宿娱乐企业进行电脑信息化管理理想选择。
1.2 系统设计目标为酒店设计出一款现代化管理系统，可以完成酒店所有日常工作，包括客房预定、前台接待、账务结算等业务。
酒店管理系统将先进电脑技术及现代酒店服务管理完美地结合起来，实现了住宿、餐饮、娱乐全新概念服务与管理方式。
本管理系统参照了大量同类软件，旨在用计算机系统来完成所有能完成工作，并保持很高灵便性与易操作性。
1.3 开辟与运行环境采用企业已经拥有硬件环境， windows XP 等 PC 机上安装PowerBuilder 9.0 进行开辟。
在客户端， windows 2000 ，windows XP， Vista, Windows7 等 PC 机上可以直接运行。
1.4 系统功能模块酒店管理系统客房前台前台系客历登录管理报表(图1 模块图)客房预定模块：提供个人预定、团体预定，预定未定处理，预售查询等功能，预定系统可随时查询 30 天以内酒店客房预售一览表，及可售房间数，可查询某间客房预定情况。
前台接待模块：提供个人入住登记，团体入住登记，修改客人信息，转房，调房，等功能，如果客人入住，将会个客人生成一个惟一账号，并允许客人先消费再付帐，最终结算，如果是团体入住，将设置主账号及分账号，并分清消费情况记入主账户还是分账户。
河北联合大学机械工程学院《结课课程设计》课程名称：管理信息系统设计题目：酒店管理系统专业：班级：姓名：指导教师：2012 年 5 月 17 日设计基本情况设计题目设计参与者及分工姓名学号分工综合撰稿总体设计及反馈部分库存部分反馈部分数据库设计界面设计代码设计选题背景随着信息化的发展酒店管理已经逐步信息化。
目前国内外酒店管理系统的发展已经相当成熟，统一的报表管理为房价管理模块，为房价设置、控制，提供了便捷的工具，可以对房价以及不同房间类型的销售进行管理、实时的监控和策略调整，并在系统中提供收入的预测以及统计分析等功能。
酒店管理系统能够使酒店管理者更方便快捷的对酒店经营状况进行了解及管理。
我组选此题正是基于以上状况对酒店管理系统进行更深入的分析，以发掘该系统的可开发点。
设计总结设计特色本系统实现了酒店里前台、客房服务、餐饮、库存管理、财务等部门的联网。
顾客一旦入住登记便在酒店数据库生成客户账户，在酒店各部门的消费均自动计入账户。
在结账时自动生成消费清单。
在财务部门自动生消费信息。
酒店管理者则可以看到系统自动生成的每月经营报表。
设计时间2012年3月15日-2012年4月20日答辩时间2012年4月21日设计评分表情况设计题目评价项目评价标准评分选题与应用价值根据选题与实践的结合重要性，共10分设计表现按团队在设计过程的整体表现，共20分分析与逻辑能力按系统分析的整体性，层次性、清晰程度，共30分设计与规范按设计的规范程度，工作量大小，图文表现力，新见解，共30分文笔按文笔流畅程度，共10总结×50%评语姓名学号分工组内评价×20%答辩×30%总评数据库设计90 综合撰稿90 总体设计及反馈部分85 反馈部分85 界面设计85 库存部分85 代码设计85目录酒店管理系统的分析与设计报告摘要：本设计主要目的是为酒店管理者提供方便快捷的管理服务。
其功能包括统一的报表管理为房价管理模块，为房价设置、控制，提供了便捷的工具，可以对房价以及不同房间类型的销售进行管理、实时的监控和策略调整，并在系统中提供收入的预测以及统计分析等功能。
xxxxxxxx软件件工程大作业软件测试计划与测试分析报告[久久宾馆管理系统 1.2]版本变更记录目录第1章引言 (3)1.1 编写目的 (3)1.2 项目背景 (3)1.3 参考资料 (3)1.4 术语和缩略语 (4)第2章测试概要 (5)2.1 各阶段测试内容 (5)2.2测试用例设计 (6)2.2.1 单元测试 (6)2.2.2 集成测试 (8)2.2.4 系统测试 (8)2.3测试环境与配置 (9)2.3.1功能测试...................................................................... 错误！未定义书签。
2.3.2性能测试...................................................................... 错误！未定义书签。
2.4测试方法和工具 (9)2.5 需求的可追溯性 (9)第3章测试内容和执行情况 (10)3.1 项目测试概况表 (10)3.2 功能 (10)3.2.1 总体KPI (10)3.2.2 模块二 (10)3.2.3 模块三 (11)3.3 性能（效率） (11)3.3.1 测试用例 (11)3.3.2 参数设置 (12)3.3.3 通信效率..................................................................... 错误！未定义书签。
3.3.4 设备效率..................................................................... 错误！未定义书签。
3.3.5 执行效率..................................................................... 错误！未定义书签。
酒店管理系统说明书一、简介酒店管理系统是一款旨在帮助酒店提高管理效率、提供优质服务的软件系统。
本说明书将详细介绍酒店管理系统的功能和使用方法，帮助管理员和员工正确操作系统，提供一流的酒店管理体验。
二、系统功能1. 预订管理酒店管理系统提供全面而灵活的预订管理功能。
管理员可以轻松录入客人的预订信息，包括房间类型、预计入住时间、预计退房时间等。
系统还支持实时房态查看，确保客房资源的有效管理。
2. 入住管理通过酒店管理系统，前台工作人员可以快速响应客人的入住需求。
系统支持快速办理入住手续，自动生成入住登记表，同时更新房间状态和客户信息。
此外，系统还可以方便地处理客人的入住需求变更和续住要求。
3. 结账管理酒店管理系统提供完善的结账管理功能，帮助工作人员高效处理客户结账事宜。
系统可以自动生成客户账单，包括房费、消费明细等，并支持各类支付方式。
同时，系统还可提供财务报表，协助管理人员进行收支分析和财务决策。
4. 客户管理酒店管理系统可以很好地管理客户信息。
管理员可以录入客户的基本信息、联系方式等，方便进行后续的预订和入住管理。
系统还支持客户分类、客户积分和客户历史消费记录的管理，为酒店提供客户关系管理的便利。
5. 库存管理酒店管理系统可以帮助管理员进行库存管理，确保酒店运营的正常进行。
系统支持房间资源、物品库存等的录入和更新，提供明确的库存状态和预警功能。
同时，系统还可以生成库存报表，协助管理人员进行库存与补货的决策。
6. 报表分析酒店管理系统提供多种报表和分析功能，协助管理人员全面了解酒店运营情况。
系统可以生成财务报表、预订统计报表、入住率报表等，根据这些数据进行业务分析和决策。
7. 多语言支持酒店管理系统支持多语言功能，在满足本地化需求的同时，也能更好地为国际客户服务。
三、系统使用方法1. 登录系统使用酒店管理系统，管理员和工作人员需要先进行登录。
用户需输入正确的用户名和密码才能成功登录系统。
2. 功能选择登录成功后，系统将显示主界面，用户可根据需求选择相应的功能模块，如预订管理、入住管理等。
一、综合实验设计的基本要求1.总体要求运用Access所学功能，完成一份具有一定实际意义，且能解决一个具体问题的综合实验。
要求在Windows平台上完成Access数据库的表、查询、窗体、报表及宏的建立，形成一个数据库应用系统（如：藏书管理系统，人员管理系统，酒店管理系统等）。
2.基本要求(1) 作业量的基本指标所设计的数据库中应包含求解该问题的相关数据●数据库至少包含3个表；●每个表中的记录数不能少于20条；(2) 作业中涵盖的知识点●建立数据库及库中的数据表；●设置表中的字段属性（定义主键、字段大小、有效性规则、默认值等）；●表间关系的建立与修改：一对一关系或一对多关系，至少要有一个一对多关系；●表对象的维护（增加、删除、编辑记录等基本操作）；●创建三种不同类型的查询（选择查询，交叉表查询，参数查询，操作查询，SQL查询）；●建立某种形式的窗体，创建与用户进交行互操作的主窗体友好界面；●建立某种形式的报表，实现对数据的统计与输出；●创建并运行宏；●创建一个主界面窗体，能够通过该窗体访问数据库中的所有对象。
3.综合实验设计提交形式创建一个以组长学号命名的文件夹，文件夹中应包含一个数据库文件（*.mdb）和一个相应的综合实验说明文件（*.doc）。
二、评分标准（方案）三、综合实验设计任务说明书撰写框架综合实验设计名称：（自拟）(1) 总体功能（2）各功能模块联系图（3）表的结构和表间关系（4）窗体、查询和报表的设计和功能（5）各模块功能使用方法（6）操作说明（7）注意事项综合实验设计名称：书店管理系统一、项目提出及要解决的问题书店管理系统包括对图书信息以及雇员基本情况的管理，目前随着数据库管理系统的发展，可以将其应用于图书管理和图书销售方面。
通过对《Access 数据库程序设计》课程的学习，我们初步掌握了Access数据库应用的方法。
我建立的书店管理系统就是一个基于Access开发的小型的数据库应用系统，能够实现对图书基本信息和销售情况以及雇员基本信息的输入、查询、维护以及输出等功能。
管理信息系统大作业酒店管理系统酒店管理系统是指为了提高酒店管理效率和服务质量而设计的一种信息化管理系统。
随着科技的不断发展和普及，酒店管理系统已经成为酒店管理的必备工具。
本文将从酒店管理系统的定义、功能、优势以及发展趋势等方面进行探讨。
一、酒店管理系统的定义酒店管理系统是利用计算机技术和网络通信技术，对酒店业务进行全面管理和控制的信息系统。
它可以帮助酒店实现客房预订、客户信息管理、前台结算、库存管理、财务管理、人力资源管理等各项业务的自动化处理，提高工作效率，降低成本，提升服务质量。
二、酒店管理系统的功能1. 客房预订管理：酒店管理系统可以实现客房的在线预订和管理，包括客房的类型、价格、入住时间、退房时间等信息的管理和调度。
2. 客户信息管理：系统可以记录客户的个人信息、联系方式、消费偏好等信息，为酒店提供个性化的服务。
3. 前台结算：系统可以实现客户的结账、发票打印、支付方式管理等功能，提高结算效率。
4. 库存管理：系统可以对酒店的各种资源进行管理，包括客房、餐饮、会议室等，实现资源的合理调配和利用。
5. 财务管理：系统可以对酒店的财务流水进行记录和分析，包括收入、支出、利润等方面的管理。
6. 人力资源管理：系统可以对酒店员工的考勤、工资、培训等进行管理，提高人力资源的利用效率。
三、酒店管理系统的优势1. 提高工作效率：酒店管理系统可以实现各项业务的自动化处理，减少人力成本，提高工作效率。
2. 提升服务质量：系统可以实现客户信息的记录和管理，为酒店提供个性化的服务，提升客户满意度。
3. 降低成本：系统可以对酒店的各种资源进行合理调配和利用，降低库存成本和人力成本。
4. 提高管理水平：系统可以对酒店的各项业务进行数据分析和报表输出，帮助管理者进行决策和规划。
四、酒店管理系统的发展趋势随着互联网和移动互联网的发展，酒店管理系统也在不断升级和完善。
未来，酒店管理系统将更加智能化，包括人工智能、大数据分析、云计算等技术的应用，实现更加个性化、智能化的服务。
酒店管理系统案例报告大作业一、引言酒店作为旅游业的重要组成部分，一直以来受到广大游客的关注。
随着社会经济的不断发展，人们的旅游需求不断增加，酒店管理面临着越来越多的挑战。
为了提高酒店管理的效率和质量，许多酒店开始引入酒店管理系统。
本报告将对一家虚构的酒店进行案例分析，通过分析该酒店的管理问题和需求，设计并实现了一个酒店管理系统，以提高酒店的管理效率和服务质量。
二、需求分析2.1 酒店管理问题在分析了该酒店的运营现状后，发现存在以下几个管理问题：1.酒店前台服务效率低下：酒店前台接待员需要手动记录来访客人的信息，这不仅效率低下，还容易出错，导致了客户的不满。
2.酒店房间管理混乱：酒店房间的预订、入住和退房操作不够规范，经常出现房间预订冲突和入住混乱的情况。
3.酒店客户信息管理不完善：酒店没有一个统一的客户信息管理系统，客户的信息分散在各个部门，不利于酒店的客户关系管理和客户服务。
2.2 需求列表基于以上分析，我们将酒店管理系统的需求总结如下：1.酒店前台服务系统：实现客户信息录入、入住登记和退房结算等功能，提高前台服务的效率。
2.酒店房间管理系统：实现房间预订、入住和退房等功能，避免房间预订冲突和入住混乱。
3.客户信息管理系统：建立一个统一的客户信息管理系统，方便酒店进行客户关系管理和客户服务。
三、系统设计与实现3.1 酒店前台服务系统酒店前台服务系统是酒店管理系统的核心模块之一，主要实现客户信息录入、入住登记和退房结算等功能。
3.1.1 客户信息录入客户信息录入功能用于记录客户的基本信息，包括姓名、性别、年龄、联系方式等。
以下是客户信息录入的流程图：客户信息录入流程图客户信息录入流程图3.1.2 入住登记入住登记功能用于记录客户的房间信息和入住时间，避免房间预订冲突和入住混乱。
以下是入住登记的流程图：入住登记流程图入住登记流程图3.1.3 退房结算退房结算功能用于计算客户的消费金额，并生成账单。
酒店管理系统实验报告篇一：酒店管理系统实验报告数据库大作业酒店管理系统实验报告----------------------目录----------------------一、需求分析........................................................................ .. 3二、E-R 图........................................................................ . (4)三、物理与逻辑设计 (12)四、数据字典........................................................................14五、系统实现........................................................................16六、开发环境........................................................................17七、问题与感想: ...................................................................18一、需求分析1、酒店管理系统是一种典型的信息管理系统。
随着信息化的发展，现在的酒店不但需要豪华的装饰和舒适的居住环境，还需要为客人提供快捷优质的服务。
通过酒店管理系统就可以做到这一点，并且还能降低酒店的运营成本，提高酒店的效率和效益。
2、操作人员进入系统后将能够查询当前酒店房间的状态，房间状态可以分为入住、预定、空闲、脏房等。
有宾客时，将能够完成开单操作，从而让宾客进行入住。
当宾客离开酒店时，将能够完成结账操作，从而送走宾客。
同时，还应接受宾客的预定，为即将到来的宾客留出指定的房间。
声明：本作品完全由个人创作，对于应付老师留得软件大作业很有帮助（西工大），本作品仅供个人交流学习，不建议作为商业用途，否则后果自负。
由于vb软件还有很多参数的设定，在此不变于抓图。
因此如果读者完全按照本文档所示结果可能出错，请设置data控件的数据库连接（本作品用access数据库，需要时读者自行建立）以上两个图是程序运行后的部分截图数据库截图（图上的各个名字必须与之对应）Form1截图Form1的代码：Public yonghu As String, mima As StringPublic jibie As Integer '用户的身份级别Dim r0 As Single 'x0,y0为圆心坐标Dim r1 As Single, r2 As Single, r3 As Single 'r0圆半径，r1时钟刻度外圈半径Dim r4 As Single 'r2时钟长刻度内圈半径，r3时钟短刻度内半径Dim r5 As Single, r6 As Single, r7 As Single 'r4时钟标注文字半径，r5时钟时针半径，r6时钟分针半径Dim x0 As Single, y0 As Single 'r7时钟秒针半径Private Sub bangzhu_Click()Form9.ShowEnd SubPrivate Sub bumen_Click()Form6.ShowEnd SubPrivate Sub fangcha_Click()Form2.ShowEnd SubPrivate Sub Form_Load()Label1.Top = 1000 '初始化两个标签的位置Label2.Top = 1000dingwei '将时针，秒针和分针定位到圆心位置jibie = -1yonghu = ""mima = ""End SubPrivate Sub guanli_Click()Form14.ShowEnd SubPrivate Sub Timer1_Timer() '利用定时时钟采用文字的移动Label1.Top = Label1.Top + 10Label2.Top = Label2.Top + 10If Label1.Top = 4700 Then '当文字移到底部时采用重新符值将文字移到顶部Label1.Top = 1000Label2.Top = 1000End IfkeduEnd SubPrivate Sub dingwei() '将时针，秒针和分针定位到圆心位置x0 = Shape1.Left + Shape1.Width / 2y0 = Shape1.Top + Shape1.Height / 2r0 = Shape1.Width / 2r1 = r0r2 = r0 * 0.85r3 = r0 * 0.9r4 = r0 * 0.75r5 = r0 * 0.48r6 = r0 * 0.56r7 = r0 * 0.65Line1.X1 = x0Line2.X1 = x0Line3.X1 = x0Line1.Y1 = y0Line2.Y1 = y0Line3.Y1 = y0End SubPrivate Sub kedu() '绘制时钟刻度Dim i As Single, du As SingleDim X1 As Single, Y1 As Single, X2 As Single, Y2 As SingleFor i = 0 To 354 Step 6du = i * 3.14159 / 180X1 = x0 + r1 * Sin(du)Y1 = y0 - r1 * Cos(du)X2 = x0 + r3 * Sin(du)Y2 = y0 - r3 * Cos(du)Form1.Line (X1, Y1)-(X2, Y2), RGB(0, 0, 200)Next iFor i = 30 To 360 Step 30du = i * 3.14159 / 180Form1.DrawWidth = IIf(i Mod 90 = 0, 3, 2)X1 = x0 + r1 * Sin(du)Y1 = y0 - r1 * Cos(du)X2 = x0 + r2 * Sin(du)Y2 = y0 - r2 * Cos(du)Form1.Line (X1, Y1)-(X2, Y2), RGB(0, 0, 200)X1 = x0 + r4 * Sin(du)Y1 = y0 - r4 * Cos(du)Form1.CurrentX = X1 - 150Form1.CurrentY = Y1 - 100Form1.Print i \ 30Next iEnd SubPrivate Sub Timer2_Timer() '达到指针的动态效果Dim s1 As Single, m1 As Single, h1 As Single, an1 As Single, an2 As Single s1 = Second(Now)m1 = Minute(Now)h1 = Hour(Now)h1 = h1 Mod 12m1 = m1 + s1 / 60h1 = h1 + m1 / 60an2 = h1 * 3.141592653 / 6Line1.X2 = x0 + r5 * Sin(an2)Line1.Y2 = y0 - r5 * Cos(an2)an1 = m1 * 3.14159 / 30Line2.X2 = x0 + r6 * Sin(an1)Line2.Y2 = y0 - r6 * Cos(an1)an1 = s1 * 3.14159 / 30Line3.X2 = x0 + r7 * Sin(an1)Line3.Y2 = y0 - r7 * Cos(an1)End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.IndexCase 2:Form10.ShowCase 4:Form11.ShowCase 6:Form12.ShowCase 8:Form13.ShowEnd SelectEnd SubPrivate Sub yuangongxx_Click()Form5.ShowEnd SubPrivate Sub yuding_Click()Form3.ShowEnd SubForm2截图Form2代码Private Sub Command1_Click() '上一个Data1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenData1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command2_Click() '下一个Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command3_Click() '查询If Option1.Value = True ThenData1.RecordSource = "select * from 房间信息where 房间信息.房间类型= '天'" Data1.RefreshEnd IfIf Option2.Value = True ThenData1.RecordSource = "select * from 房间信息where 房间信息.房间类型= '地'" Data1.RefreshEnd IfIf Option3.Value = True ThenData1.RecordSource = "select * from 房间信息where 房间信息.房间类型= '人'" Data1.RefreshEnd IfIf Option4.Value = True ThenData1.RecordSource = "房间信息"Data1.RefreshEnd IfCommand1.Enabled = TrueCommand2.Enabled = TrueEnd SubPrivate Sub Command4_Click() '结束Unload MeEnd SubPrivate Sub Form_Load()Text1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseData1.DatabaseName = App.Path & "\酒店管理系统.mdb"End SubPrivate Sub Option1_Click() '天Command1.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Option2_Click() '地Command1.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Option3_Click() '人Command1.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Option4_Click() '全部Command1.Enabled = FalseCommand2.Enabled = FalseEnd SubForm3代码Private Sub Command1_Click() 'querenDim a As StringDim b As IntegerIf Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" ThenMsgBox "信息不完善", , "提示"ElseIf Option6.Value = True Or Option5.Value = True ThenIf Form16.jieguo = 0 ThenMsgBox "如果您是会员或内部人员请先登录！", , "提示"Form16.ShowEnd IfIf Form16.jieguo = 1 Thenb = 1End IfElseb = 1End IfIf b ThenData1.Recordset.AddNewData1.Recordset.Fields("姓名") = Text5.TextData1.Recordset.Fields("房间号") = Text1.TextData1.Recordset.Fields("预定入住时间") = Text2.TextData1.Recordset.Fields("居住时间") = Text3.TextData1.Recordset.Fields("缴纳定金") = Text4.TextData1.Recordset.Fields("性别") = Text6.TextIf Option1.Value = True Thena = "天"End IfIf Option2.Value = True Thena = "地"End IfIf Option3.Value = True Thena = "人"End IfData2.RecordSource = "select * from 房间信息where 房间信息.房间类型='" & a & "' and 房间信息.房间号='" & Text1.Text & "' and 房间信息.状态='可用'"Data2.RefreshIf Data2.Recordset.EOF ThenMsgBox "无此房间或此房间不可用", , "提示"Data1.UpdateControlsElseIf Option1.Value = True ThenData1.Recordset.Fields("房间类型") = "天"End IfIf Option2.Value = True ThenData1.Recordset.Fields("房间类型") = "地"a = "地"End IfIf Option3.Value = True ThenData1.Recordset.Fields("房间类型") = "人"a = "人"End IfIf Option4.Value = True ThenData1.Recordset.Fields("身份") = "普通"End IfIf Option5.Value = True ThenData1.Recordset.Fields("身份") = "会员"End IfIf Option6.Value = True ThenData1.Recordset.Fields("身份") = "内部人员"End IfData2.RecordSource = "select 房间信息.状态from 房间信息where 房间信息.房间类型='" & a & "'and 房间信息.房间号='" & Text1.Text & "'"Data2.Recordset.EditData2.Recordset.Fields("状态") = "预定"Data2.Recordset.UpdateData1.UpdateRecordData1.RefreshMsgBox "预订成功！", , "提示"Form16.jieguo = 0End IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click() 'quxiaoData1.UpdateControlsData2.UpdateControlsEnd SubPrivate Sub Command3_Click() '尚不是会员马上注册Form4.ShowEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & "\酒店管理系统.mdb"Data2.DatabaseName = App.Path & "\酒店管理系统.mdb"b = 0Form16.jieguo = 0End SubForm4代码Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub Command1_Click() 'tijiaoDim a As Stringa = Text1.TextIf Text1.Text <> "" ThenIf Text3.Text = Text2.Text ThenData1.RecordSource = "select * from 会员信息where 会员信息.账号='" & a & "'"Data1.RefreshIf Data1.Recordset.EOF ThenData1.Recordset.AddNewData1.Recordset.Fields("账号") = Text1.TextData1.Recordset.Fields("密码") = Text2.TextData1.Recordset.Fields("邮箱") = Text4.TextData1.UpdateRecordElseMsgBox "此账号已被别人占用", , "提示" '此处用于将会员信息输入数据库GoTo baEnd IfMsgBox "恭喜您顺利成为本酒店会员", , ""Unload MeElseMsgBox "两次输入密码不相符", , "提示"End IfElseMsgBox "帐号不能为空", , "提示"End Ifba:End SubPrivate Sub Command2_Click() 'quexiaoData1.UpdateControlsUnload MeEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & "\酒店管理系统.mdb"End SubForm5代码Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()'Data1.RecordSource = "select 员工信息.姓名,员工信息.部门,员工信息.职位from 员工信息" End SubPrivate Sub Command1_Click() 'liao jie l Unload MeEnd SubPrivate Sub Command2_Click() 'shang yi geAdodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command3_Click() 'xia yi geAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveFirstEnd IfEnd SubForm7代码Private Sub Command1_Click() 'zeng tianData1.Recordset.AddNewText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueEnd SubPrivate Sub Command2_Click() 'xiu gaiData1.Recordset.EditText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueEnd SubPrivate Sub Command3_Click() 'shan chu Dim a As Integera = MsgBox("确认删除吗", vbYesNo, "提示") If a = vbYes ThenData1.Recordset.DeleteData1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command4_Click() 'fang qiData1.UpdateControlsText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseData1.Recordset.MoveFirstEnd SubPrivate Sub Command5_Click() 'que ren Data1.Recordset.UpdateText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseData1.Recordset.MoveFirstEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & "\酒店管理系统.mdb" End SubForm8代码Public jies As StringPrivate Sub dxx_Click()Form19.ShowEnd SubPrivate Sub fangzong_Click()Form20.ShowEnd SubPrivate Sub Form_Load()Label1.Caption = Form1.yonghu + "欢迎您" End SubPrivate Sub jiesuan_Click()Form22.ShowEnd SubPrivate Sub Label1_Click()End SubPrivate Sub Label2_Click() 'zhu xiao Unload MeForm17.HideForm19.HideForm18.HideForm23.HideForm20.HideForm21.HideForm15.HideForm22.HideForm24.HideForm7.HideEnd SubPrivate Sub lishi_Click()Form23.ShowEnd SubPrivate Sub mimaxiugai_Click()Form24.ShowEnd SubPrivate Sub ruzhu_Click()Form21.ShowEnd SubPrivate Sub yd_Click()Form18.ShowEnd SubPrivate Sub ygwanzheng_Click() Form17.ShowEnd SubPrivate Sub zh_Click()Form15.ShowEnd SubPrivate Sub zhineng_Click() Form7.ShowEnd SubForm9代码Private Sub Command1_Click() Unload MeEnd SubPrivate Sub Form_Load()Text1.Text = " 本系统为本人独立编写，所有密码均为000，在使用过程中可自行更改。
