商务酒店管理系统论文.doc

商务酒店管理系统 0 摘摘 要要 为了搞好酒店的事务处理工作和服务质量 使公司内信息流通体系能协调 一致地运行 节约公司管理费用 提高管理人员的管理水平 及时准确迅速地 提供有关信息资料 为经理提供决策依据 我们根据宾馆行业的特点 进行了 实地调查与研究 商务酒店综合信息管理管理系统包括数据库设计和应用软件 开发两部分 传统的酒店管理往往令管理者花大量的时间来处理顾客投诉 例如错误查 询 烦琐的登记和结帐手续 旅客费用计算错误 空余客房资料不能及时提供 等 从而影响出租率 使有限的管理人员不得不集中精力规划管理运行策略和 进行决策 以上问题可通过电脑系统辅助解决 宾馆管理的电脑化 不仅是体 现宾馆现代化形象的一个重要标志 而且对于提高员工工作效率 加速资金周 转 降低各项成本及改善服务质量都有十分积极的作用 开发本系统主要是为了改善对酒店的管理 更好的利用计算机在管理方面 的发挥 关键字关键字 酒店管理 顾客 VB Access 商务酒店管理系统 1 目目 录录 摘摘 要要 0 0 第一章第一章 前言前言 2 2 第二章第二章 绪论绪论 4 4 2 1 课题的来源 4 2 2 研究课题的动态 4 第三章第三章 相关技术与开发工具介绍相关技术与开发工具介绍 5 5 3 1 VISUAL BASIC 6 0 5 3 2 ACCESS2003 创建数据库 7 3 3 编程环境的选择 7 第四章第四章 系统需求分析系统需求分析 9 9 4 1 设计的原则 9 4 2 用户的特点 9 第五章第五章 系统总体分析设计系统总体分析设计 1010 5 1 功能分析 10 5 2 系统流程图 11 第六章第六章 数据库设计数据库设计 1212 6 1 数据库概念设计 12 6 2 数据库逻辑结构设计 14 第七章第七章 系统详细设计系统详细设计 1616 7 2 主界面 18 7 3 客房设置界面 18 7 4 订房界面 20 7 5 结算界面 22 结束语结束语 2424 致谢致谢 2626 参考文献参考文献 2727 商务酒店管理系统 2 第一章第一章 前言前言 酒店的基本内涵就是为旅客提供住宿服务 之所以这样讲是因为酒店最原始 最基本的功能是为过往旅客提供住宿及服务 显然 今天的宾馆与过去的旅 馆相比已经有了很大的不同 随着社会的进步 经济的发展 当今社会人员流 动越来越频繁 宾馆管理工作也变得越来越复杂 旅游者对宾馆的需求量越来 越大 对宾馆的要求也越来越高 如果能够实现宾馆管理的自动化 无疑将给 宾馆管理部门带来很大的方便 以前中国宾馆企业管理方面还主要是凭经验 宾馆管理整体的科技含量低 还有许多与时代脱节 落后的表现 操作随意性 大 容易波动 管理漏洞多 物质损耗大 经济效益低等明显地成为制约行业 发展的关键性因素 如何利用现代社会赋予我们的新观念 新手段向管理要效 益 为宾馆管理注入新的活力 从而在激烈的市场竞争中站稳脚跟 是摆在每 个宾馆管理人士面前的重要课题 我认为 先进的宾馆管理系统应是将我国多 年来宾馆管理积累的成功经验与现代化信息处理技术结合起来 相互呼应 通 过完美的功能设置 建立一个自动化信息管理系统 以提高宾馆管理的效率和 质量 1 编写目的 本报告编写的目的是为了说明系统需求概述 设计概要情况和设计思路 为 系统的详细设计提供基础 同时作为开发人员在系统分析设计阶段的工作成果 和本阶段的结束标志 使用户和软件开发者 对系统的总体设计规定有一个共 同的认识 使之成为今后整个开发工作的基础和依据 2 背景 在我国 酒店分成五星级 四星级 三星级 二星级和一星级 客房和餐饮 方面的管理也随着酒店的星级不同有所区别 但大体上是相同的 宾馆在正常 的运营中需要对客房资源 顾客信息 结算信息进行管理 利用酒店信息管理 系统及时了解各个环节中信息的变更 有利于提高管理效率 信息社会的高科 技 商品经济化的高效益 使计算机的应用已普及到经济和社会生活的各个领 域 计算机虽然与人类的关系愈来愈密切 还有人由于计算机操作不方便继续 用手工劳动 为了适应现代社会人们高度强烈的时间观念 宾馆管理系统软件 为管理人员带来了极大的方便 通过操作手册 使用者可以了解本软件的基本 工作原理 操作人员只需输入一些简单的汉字 数字 即可达到自己的目标 对于大中型宾馆来说 利用计算机支持高效率完成日常事务 是适应现代要求 推动管理走向科学化 规范化的必要条件 而且宾馆管理又是一项非常烦琐 的事情 数量之大 核算极其不便 同时计算机具有手工管理所无法比拟的优 点 例如 检索迅速 查找方便 可靠性高 存储量大 保密性好 寿命长 成本低等 这些优点能够极大地提高宾馆管理的效率 也是宾馆的科学化 正 规化管理 与世界接轨的重要条件 商务酒店管理系统 3 酒店管理需要对客人预订客房 入住 居住和离店期间的一切服务进行管理 并存储宾馆客房的所有静态和动态信息 并且严格服从有关规定 按一定的 模式或规律进行 体现数据量大 数据流清晰 规范的特点 因而特别适合用 计算机管理 但现在国内的中文系统很少 大多都是用外国公司制作的英文系 统软件 对国人来说 使用不方便 不利于普及 因此 中文的宾馆管理在国 内的需求应该很大 很有发展空间 商务酒店管理系统 4 第二章第二章 绪论绪论 2 1 课题的来源 当今 席卷全球的信息化大潮把信息管理推倒了时代发展的前沿 信息管理 系统已经成为全社会注视的热点 随着科学技术的发展 今天的计算机已经深 入到社会和生活的各个领域 广泛的应用于农业生产 国防和科研领域 尤其 在信息管理系统方面其发展的规模和应用程度已经成为一个国家现代化水平的 重要标志 随着科学技术的不断提高 计算机科学日渐成熟 其强大的功能已 成为人们深刻认识 它已进入人类社会的各个领域并发挥着越来越重要的作用 人们可以将大量的繁琐的工作交给计算机去完成 从而大大提高了工作效率 此外 计算机可以利用长期使用过程中所存贮的大量数据进行数据分析 为 管理者进行决策提供可靠的信息资料 酒店服务项目众多 客人信息内容繁琐 而且信息量大 因而在操作上经常 造成很多不便之处 浪费了时间 降低了工作效率 而且极大地影响了酒店的 服务质量和经济效益 由此我设计了这个 MIS 系统 该管理系统的开发 本着 科学化 规范化 系统化的原则 并考虑到宾馆的实际情况 采用客户 服务器 结构 该系统支持 Access 具有查询方便 安全保密性好 用户界面友好 容 易操作等优点 应用此管理系统后 该宾馆对每位客人的具体情况便可以了如 指掌 而且在对客人信息进行操作时 节省了大量时间 很大程度上提高了员 工的工作效率和宾馆的服务质量 2 2 研究课题的动态 当今 席卷全球的信息化大潮把信息管理推倒了时代发展的前沿 信息管理 系统已经成为全社会注视的热点 国外许多发达国家在这一方面采用先进技术 发展水平领先一步 在我国也已开始应用于经营管理的各个领域 在不同的 部门 不同的层次上参与和支持着各种经营 管理活动 扮演着越来越重要的 角色 产生了一定的经济效益和社会效益 宾馆作为一个成熟的产业 各种酒店管理软件众多 有条件的酒店或宾馆采用 自主开发或委托软件开发商开发出的专用软件 部分大型酒店也已经使用市场 上的有关宾馆管理系统 一般价格也较昂贵 然而占着绝大多数的中小型酒 店 宾馆由于资金 人员等多方面原因不易使用宾馆管理类软件 全凭原始的 手工记录管理 效率低 易出错 同时 市场上出现的各类酒店管理软件基本 上都是为大型酒店专业设计的 有很多功能对于一般酒店 宾馆根本用不上 软件市场急需一套低廉的价格 完善的服务 齐全的功能为基础 结合酒店前 台管理的需要进行扩展性而开发的一套宾馆管理系统 商务酒店管理系统 5 第三章第三章 相关技术与开发工具介绍相关技术与开发工具介绍 本系统采用面向对象的软件开发办法 以 Microsoft 公司的可视开发环境 Visual Basic6 0 作为主要开发工具 使用 Microsoft Access 2003 作为关系数据库 并为 VB 编 程语言中采用 ADO 数据库编程模型 配合功能强大的 SQL 查询语言实现建立关系数据库 放问数据库 对数据库的更新 较好地实现了预定的需求功能 3 1 Visual Basic 6 0 Visual Basic 6 0 是一种可视化 面向对象和采用事件驱动方式的结构化高级程序设 计语言 可用于开发 Windows 环境下的各类应用程序 它简单易学 效率高 且功能强大 在 Visual Basic 环境下 利用事件驱动的编程机制 新颖易用的可视化设计工具 使用 Windows 内部的应用程序接口 API 函数 以及动态链接库 DLL 动态数据交换 DDE 对象的链接与嵌入 OLE 开放式数据连接 ODBC 等技术 可以高效 快速地开发出 Windows 环境功能强大 图形界面丰富的应用软件系统 总的来看 Visual Basic 有以下 主要特点 Visual Basic 语言用其设计应用程序时具有两个基本特点 可视化设计和事件驱动编 程 1 1 可视化设计 可视化设计 表现在 VB 在设计应用于程序界面时有 所见即所得 的处理功能 2 2 事件驱动编程 事件驱动编程 在设计应用程序时 把对象添加到窗体中 在用户与程序进行交 互时 用户基本上是通过鼠标 键盘与应用程序进行交互的 那些对象就必须对鼠标和键 盘操作所引发的事件做出响应 来执行一段应用程序 3 1 1 Visual Basic 系统几个在程序应用中的常用名词 Visual Basic 系统除了一般高级语言所具有的一些名词术语外 还有几个系统常用 的名词 其基本含义如下 1 1 视窗 视窗 FormForm 视窗是进行人机交互的界面或接口 也叫窗体 VB 系统的人机交互界面或接口 无论 是在设计时或是在运行时 都是 Windows 系统的标准视窗 2 2 对象 对象 Object Object 对象是 VB 系统内部提供给设计者可以直接使用的处理输出的控制工具 本程序所应用 到的对象类型有标签框 Label Box 文本框 Text Box 命令按扭 Command Button 网格 Data Grid ADO 控件 Adodc1 等 当把这些工具放置到用户界面对应的窗体上时 被称为对象或控件 用户可以通过设置对象的 属性 和 方法 便于对象适应自己所设 计应用程序的输入输出内容 对象的生成过程及结构都被封装起来 正确使用对象可以减 少程序和开发时间 提高程序设计者的工作效率 3 3 属性 属性 Properties Properties 属性是 VB 系统提供的有关对象的参数或数据接口 用户通过适当地设置或改变对象的 属性来确定对象的外观及性能特征 从而有效地使用系统提供的对象 比如 对象的名称 在屏幕上显示的位置 大小 颜色 接收或容纳的数据内容及数据的表现格式等 商务酒店管理系统 6 4 4 事件 事件 Events Events 事件是指用户或操作者对计算机进行的某一操作 如击键 单击或移动鼠标等 的行 为或系统状态发生的变化 VB 系统常用事件来引导计算机执行一段程序 程序所用的键盘 事件有 KeyPress 按键 事件 KeyDown 事件和 KeyUp 事件 鼠标事件有 Click 单击鼠 标 事件 DbDlicd 双击鼠标 5 5 方法 方法 Method Method 方法主要是指对一个对象使用某种作用的过程 它是在程序执行的过程中要计算机执 行的某种操作 其程序的方法有 Show 显示 方法 Hide 隐藏 方法 Refresh 刷新 方法 6 6 过程 过程 Procedure Procedure 过程是指经过定义或说明的 或基于某一对象对应的事件所引发的程序段 7 7 模块 模块 Module Module 模块是指一些运算量或过程进行声明或定义的一个集合 系统程序大体可分成四个模 块 数据输入 根据查询 数据打印和通讯 3 1 2 Windows 下的 Visual Basic 编程环境简介 1 面对对象的编程 面向对象的设计方法 OOP Objected Programming 从应用领域内的问题着手 以直 观自然的方式描述客观世界的实体 Visual Basic 作为一种面向对象的编程方法 把程序 和数据封装起来作为一个对象 并为每个对象赋予相应的属性 在设计对象时 不必编写 建立和描述每个对象的程序代码 而是用工具画在界面上 由 Visual Basic 自动生成对 象的程序代码并封装起来 Visual Basic 应用程序基本的构建块是用户所创建的对象 每 一个对象都具有一些特性和行为 属性 事件和方法 开发人员可以最有效利用所创建的 每一个对象 使用应用程序具有可通用性可说扩展性和强有力的功能 Visual Basic 应用由一系列对象组成 包括有函数 菜单 函数 结构和数据窗口 用户对象 用户事件等等 对象中又包含若干控件如命令按钮 单行编辑器等这些对象和 控件都可在许多应用中重复使用 2 实现菜单选项 菜单是程序最重要的特性之一 大多数程序都依赖一个定义良好的菜单使程序易于使 用和维护 Visual Basic 也提供了强大的创建菜单功能是程序更加标准 本系统使用 Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单 您也可 以使用 Visual Basic 的 Application Wizard 来操作 3 实现工具栏 CoolBar 控件与 Office2000 中看到的 CoolBar 是类似的 CoolBar 就是一个可以在窗 体上浮动的工具 同时也是其他 ActiveX 的容器 通过在 CoolBar 中迁入其他空间你也可 以向用户提供更好的灵活性和义用性 选择 工程 下拉菜单中的 部件 选项 显示 部件 对话框 在 控件 选项卡 列表中选择 Microsoft Windows Common Controls 6 0 后工具相中增加改控件 本系统就用了 Cool 工具中的 Statubar 控件 在系统这一界面中 添加了状态栏 在 第一个栏中 在样式这一栏中选择了文本 在第二个栏中 选择了系统日期 第三个栏中 选择了系统时间 这样 任何时候操作本系统 都可以看到当前的时间和日期 2 2 4 怎样开发一个学生信息管理系统的查询模块 1 查询模块的设计分析 根据实际情况 我们使用原型法 Rapid Prototyping 即以少量代价快速地构造一个 可执行的软件模型 使用户可以较快地确定需求 然后采用循环进化的开发方式 对系统 商务酒店管理系统 7 模型作连续的精化 将系统需具备的性质逐渐增加上去 直到所有的性质全部满足 此时 模块也发展成为最终产品了 3 2 Access2003 创建数据库 1 数据库的概念 数据库是一种存储数据并对数据进行操作的工具 数据库的作用在于组织和表达信息 简而言之 数据库就是信息的集合 计算机的数据库可以分为两类 非关系数据库 flat file 和关系数据库 relational 关系数据库中包含了多个数据表的信息 数据库含有 各个不同部分的术语 象记录 域等 2 新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库 设计必须是灵活的 有逻辑的 创建一个数据库结构的过程被认为是数据模型设计 1 标识需要的数据 2 收集被子标识的字段到表中 3 标识主关键字字段 4 规范数据 5 标识指定字段的信息 3 修改已建的数据库 数据库的修改分为 添加 编辑和删除记录 这三种操作均可由 Visual Basic 创建的 程序来完成 下面的章节将详细描述实现的具体方法 3 3 编程环境的选择 微软公司的 Visual Basic 6 0 是 Windows 应用程序开发工具 使目前最为广泛的 易 学易用的面向对象的开发工具 Visual Basic 提供了大量的控件 这些控件可用于设计界 面和实现各种功能 减少了编程人员的工作量 也简化了界面设计过程 从而有效的提高 了应用程序的运行效率和可靠性 故而 实现本系统 VB 是一个相对较好的选择 1 关系型数据库的实现 Access2003 就是关系数据库开发工具 数据库能汇集各种信息以供查询 存储和检索 Access 的优点在于它能使用数据表示图或自定义窗体收集信息 数据表示图提供了一种类 似于 Excel 的电子表格 可以使数据库一目了然 另外 Access 允许创建自定义报表用于 打印或输出数据库中的信息 Access 也提供了数据存储库 可以使用桌面数据库文件把数 据库文件置于网络文件服务器 与其他用户共享数据库 Access 是一种关系数据库工具 关系数据库是已开发的最通用的数据库之一 如上所述 Access 作为关系数据库开发具备 了许多优点 可以在一个数据包同时拥有桌面数据库的便利和关系数据库的强大功能 2 二者的结合 DBA 微软的 JET 数据库引擎提供了与数据库打交道的途径 我们是通过它以及 Visual Basic 来访问数据库并对其进行各种操作 Visual Basic Access 以及其他微软的软件产 品都是通过共用 JET 数据库引擎 从而给用户提供了丰富的数据类型 ADODC 控件在数据库中的信息与将信息显示给用户看的 Visual Basic 程序之间架起了 一座桥梁 我们可以设置 ADODC 控件的各个属性 告诉它要调用那个数据库的哪个部分 缺省情况下 ADODC 控件根据数据库中的一个或多个数据库表建立一个 dynaset type 动 商务酒店管理系统 8 态集合 类型的记录集合 一个记录集合是动态的也就意味着 当原来的数据表中的容改 变了以后 该记录集合中的记录也会随之改变 将 ADODC 控件放置在窗体中之后 我们还 必须在该控件与要处理的数据库之间建立联系 商务酒店管理系统 9 第四章第四章 系统需求分析系统需求分析 在分析现行手工操作的基础上 进一步研究餐饮管理的处理流程 确定系统 的总体结构及功能模块 研究各个模块之间的联系 确定模块之间的接口方案 依照实用性 可靠性 可扩充性 经济性的原则 设计有关的各类码表及相 关的程序代码 并验证代码的正确性 设计一套合理 完整的测试方案 对系 统进行测试 是系统达到用户的使用要求 4 1 设计的原则 1 实用性原则 该系统是以宾馆管理为基础开发的通用宾馆管理系统 适合中 小宾馆企业 的 使用 2 可靠性原则 该系统应有较高的可靠性 在系统设计及程序设计上应该强调系统的可靠性 3 可扩充性原则 应该保证该系统在系统的功能 结构方面具有可扩充性 以便适应企业以后 发 展的需要 做出相应的功能结构上的调整 4 经济性原则 应该注重系统的性价比 时刻为用户着想 在同等功能的基础上尽可能的减 少 企业的投入 综上所述 帮助企业加强管理 提高经济效益 解决实际管理中的各类问题 是设计该系统的主要目标 4 2 用户的特点 1 宾馆管理内部从业人员中存在不少人对计算机比较陌生 对使用计算机来 管理有一定的畏惧心理 这就要求面向宾馆的计算机管理系统应尽可能得在功 能设计上和使用手法上模拟现实情况 让用户使用时感觉熟悉 踏实 容易接 受 否则会导致强烈的抵触情绪 2 宾馆管理系统要对客房资源 顾客信息 结算信息进行管理 存储宾馆客 房的所有静态和动态信息 能够实现宾馆管理的自动化 并利用宾馆信息管理 系统及时了解各个环节中信息的变更 有利于提高管理效率 否则无法满足宾 馆方便 快捷的需求 这对软件使用和运行效率 稳定性都提出了更高的要求 商务酒店管理系统 10 商务酒店管理系统 11 第五章第五章 系统总体分析设计系统总体分析设计 5 1 功能分析 系统开发的总体任务是实现宾馆各种信息的系统化 规范化和自动化 系统功能模块图如下 宾馆信息管理系统 客 房 管 理 关 于 结 帐 管 理 住 宿 管 理 系 统 管 理 添 加 客 房 退 出 修 改 密 码 添 加 入 住 修 改 入 住 查 看 入 住 结 帐 结 算 查 询 查 询 客 房 修 改 客 房 系统功能分析是在系统开发的总体任务的基础之上完成的 宾馆信息管理系统 需要完成的功能主要有 有关客房标准的制定 包括客房名称 客房价格以及备注信息 添加客房信息 包括房间号 房间类型 价格和备注 修改 删除客房信息 包括房间号 房间类型 价格和备注 查询房间 查询条件包括按房间号 按房间类型查询 添加入住信息 包括客房信息和顾客信息 其中顾客信息有顾客姓名 身 份证号 入住时间 折扣等 修改入住信息 通过房间号查询到顾客的信息 然后进行修改 查看入住信息 包括以入住和未入住的房间信息 房间结帐 通过输入房间号查看的顾客的入住时间和费用 然后结算 结算查询 包括按入住日期查 按结帐日期查 按房间号查 商务酒店管理系统 12 5 2 系统流程图 针对一般酒店信息管理系统的需求 通过对宾馆管理过程的内容和流程分析 设计如下面 所示的数据项和数据结构 客房标准信息 包括的数据项有 标准编号 标准名称 住房单价 电视 电话 单独卫生间等 客房信息 包括的数据项有 客房编号 客房种类 客房单价 备注等 订房信息 包括的数据项有 订房编号 客房种类 客房备注信息 顾客姓名 顾 客身份证号码 入住时间 折扣 备注等 结算信息 包括的数据项有 订房编号 客房编号 客房种类 客房位置 客房备 注信息 顾客姓名 顾客身份证号码 入住时间 折扣 结算时间 备注等 客房标准设置 基本信息输入 客房登记 基本信息录入 客房信息管理 顾客登记 住宿信息管理 住宿信息管理 结算信息输入 结算信息管理 客房信息返回 商务酒店管理系统 13 第六章第六章 数据库设计数据库设计 6 1 数据库概念设计 本系统设计规划出的实体有 客房信息实体 标准客房信息实体 结算信息实 体 各个实体具体描述的 E R 图如下 客 房 信 息 实 体 客房编号客房类型客房价格备 注 6 1 客房信息实体 E R 图 客房标准信息实体 类型号类型名价格备注 商务酒店管理系统 14 6 2 客房标准信息实体 E R 图 住 宿 信 息 实 体 订房号顾客姓名身份证号客房号入住日期折 扣 6 3 住宿信息实体 E R 图 结 算 信 息 实 体 订房号顾客姓名身份证号客房号入住日期折扣 6 4 结算信息实体 E R 图 实体体之间关系的 E R 图如下 商务酒店管理系统 15 客 房 标 准 信 息 客房登记 客 房 信 息 管 理 住 宿 住 宿 信 息 管 理 结 算 信 息 管 理 客房结算 6 2 数据库逻辑结构设计 现在需要将上面的数据库概念结构转化为 Access2003 数据库系统所支持的实 际数据模型 也就是数据库的逻辑结构 宾馆管理信息系统数据库的各个表的 设计如下所示 roomType 客房标准信息表 列名数据类型可否为空说明 typeid自动编号Not null 类型编号 typename文本Null类型名 price数字Null 价格 memo文本Null 备注 roomInfo 客房信息表 列名数据类型可否为空说明 roomNO文本Not null客房编号 roomType文本Null 客房类型 roomprice数字Null 价格 hasBooked文本Null 已经订出 商务酒店管理系统 16 roomMemo文本Null 备注 ChickIn 住宿信息表 列名数据类型可否为空说明 bookno自动编号Not null订房号 customerName文本Null 顾客姓名 customerID文本Null 身份证号 roomno文本Null 客房号 date in日期 时间Null 入住日期 discout数字Null 折扣 memo文本Null 备注 date out日期 时间Null 结算日期 totalPaid数字Null 金额 hasPaid文本Null 已经付款 Login 用户信息表 列名数据类型可否为空说明 user id文本Null 用户名 password文本Null 密码 商务酒店管理系统 17 第七章第七章 系统详细设计系统详细设计 7 1 登录界面 关键代码 确定 Private Sub Command1 Click Dim mrc As ADODB Recordset Dim sqlStr As String Dim msgtext As String If Trim txtusername Text Then MsgBox 没有此用户 请重新输入 警告 txtusername SetFocus Else sqlStr select from login where user id Trim txtusername Text Set mrc ExecuteSQL sqlStr msgtext If mrc EOF True Then MsgBox Have no user Please try again 警告 商务酒店管理系统 18 txtusername SetFocus Else If Trim mrc Fields password Trim txtpassword Text Then ok True mrc Close Me Hide user txtusername Text frmRoomMain Show Else MsgBox 密码不正确 请重新输入 waring txtpassword SetFocus txtpassword Text End If End If End If micount micount 1 If micount 3 Then Unload Me End If Exit Sub End Sub 商务酒店管理系统 19 7 2 主界面 7 3 客房设置界面 商务酒店管理系统 20 关键代码 添加 Private Sub cmdAdd Click Dim rstRoom As ADODB Recordset Dim roomNo As String Dim roomType As String Dim roomPrice As String Dim roomMemo As String roomNo Trim txtName Text roomType Trim cboType Text roomPrice Trim txtPrice Text roomMemo Trim txtMemo Text If roomNo Then MsgBox 请将信息补充完整 vbOKOnly vbExclamation 警告 Exit Sub End If sqlStr select from roomInfo Set rstRoom ExecuteSQL sqlStr msgText rstRoom AddNew rstRoom Fields roomNO roomNo rstRoom Fields roomType roomType rstRoom Fields roomPrice roomPrice rstRoom Fields roomMemo roomMemo rstRoom Update rstRoom Close 商务酒店管理系统 21 MsgBox 房间添加完成 vbOKOnly vbExclamation 警告 initForm End Sub 7 4 订房界面 关键代码 保存 Private Sub cmdSave Click Dim rstCheckIn As ADODB Recordset Dim rstRoom As ADODB Recordset Dim customerName As String Dim customerID As String Dim discount As String Dim roomNo As String Dim custMemo As String 商务酒店管理系统 22 Dim dateIn As String roomNo cboRoom Text customerName txtName Text customerID txtID Text discount txtDiscount Text custMemo txtCusMemo Text dateIn Format Date yyyy mm dd sqlStr select from checkIn Set rstCheckIn ExecuteSQL sqlStr msgText rstCheckIn AddNew rstCheckIn Fields roomNO roomNo rstCheckIn Fields customerName customerName rstCheckIn Fields customerID customerID rstCheckIn Fields discount discount rstCheckIn Fields memo custMemo rstCheckIn Fields date in dateIn rstCheckIn Update rstCheckIn Close sqlStr select from roomInfo where roomNO roomNo Set rstRoom ExecuteSQL sqlStr msgText If Not rstRoom EOF Then rstRoom Fields hasbooked 是 rstRoom Update End If 商务酒店管理系统 23 rstRoom Close MsgBox 房间添加完成 vbOKOnly vbExclamation 警告 init rooms End Sub 7 5 结算界面 关键代码 结帐 Private Sub Command1 Click Dim rstRoom As ADODB Recordset Dim rstCheckIn As ADODB Recordset Dim dateOut As String sqlStr select from roomInfo where roomNO Trim txtRoom Text Set rstRoom ExecuteSQL sqlStr msgText If Not rstRoom EOF Then 商务酒店管理系统 24 rstRoom Fields hasBooked 否 rstRoom Update Else MsgBox 没有找到相关数据 vbOKOnly vbExclamation 警告 Exit Sub End If rstRoom Close sqlStr select from checkIn where bookno Trim txtBookNo Text Set rstCheckIn ExecuteSQL sqlStr msgText dateOut Format Date yyyy mm dd If Not rstCheckIn EOF Then rstCheckIn Fields date out dateOut rstCheckIn Fields