基于VB的宾馆客房管理系统.doc

基于 VB 的宾馆客房管理系统 1 基于 VB 的宾馆客房管理系统 摘要 摘要 随着计算机网络通信技术 微电子技术的快速发展 使得宾馆客房管理与 其结合是楼宇智能化技术中的一个重要课题 目前国内许多宾馆考虑到设计成本 原因 采用的客房管理系统可靠性不高 故障监测困难 给客户和宾馆管理人员带来 了不便 另一方面 部分宾馆虽然采用国外先进的管理系统 但价格较为昂贵 因此 我们设计了一套基于 VB 的宾馆客房管理系统 不仅大大节省了开发成本 而且对已 有系统的功能进行了改进和扩展 实用性较强 本文通过对 Visual Basic 开发工具 特点 VB 对数据库管理的说明来论述了基于 VB 的宾馆客房管理系统的设计与 实现 关键字 关键字 宾馆客房管理系统 Visual Basic 数据库 The Modern Hotel Room Management System Based on Visual Basic Abstract With the fast development of the technologies of computer communication and micro electronics the modern hotel room management system which applies the above technologies is one important topic of intelligent building technology Nowadays in view of design s cost the reliability of these systems in our country is low The data can not be collected by the host computer in time and the survey of fault is difficult on the other hand some hotel room management systems are quite high cost Hence we designed a hotel room management system which not only saved the cost but also improved the function of the existed systems and the designed system has strong practicality Through elucidating the characteristics the database management of Visual Basic the thesis discusses a design s whole thought and realization of the control interface of the hotel room management system based on VB Keywords hotel room management system Visual Basic system database 基于 VB 的宾馆客房管理系统 2 目录目录 第一章第一章 绪论绪论 4 1 1 宾馆计算机管理发展概述 4 1 1 1宾馆计算机管理发展历程 4 1 1 2 宾馆计算机管理技术发展 4 1 1 3 宾馆客房管理的智能化趋势 4 1 2 本文的讲究工作和内容安排 5 第二章第二章 开发工具的介绍开发工具的介绍 5 2 1 系统控制界面软件设计 5 2 1 1 VB 功能特点 6 2 1 2 VB 数据访问技术 6 2 2 Access 数据库简介 7 第三章第三章系统的相关分析系统的相关分析 8 3 1 系统的可行性分析 8 3 2 宾馆客房系统控制界面软件流程 9 第四章第四章宾馆客房系统详细设计宾馆客房系统详细设计 9 4 1 系统控制界面组成结构 9 4 2 系统登录 10 4 3主界面 10 4 4 开房登记 13 4 5 追加押金 15 4 6 退宿结账 15 基于 VB 的宾馆客房管理系统 3 4 7 客房设置 16 4 8 客房查询 18 4 9 住宿查询 19 5 1 退宿查询 20 5 2 操作员设置 21 第五章第五章总结总结 22 致谢致谢 23 参考文献参考文献 23 基于 VB 的宾馆客房管理系统 4 第一章 绪论 1 1 宾馆计算机管理发展概述 1 1 1宾馆计算机管理发展历程 宾馆计算机管理发展阶段主要是以电脑系统的运用为标志的 电话通信 系统实际上也是从程控交换技术出现后才获得质的飞跃 与其它行业相比 IT 在宾馆业应用的起步晚了十多年 宾馆电脑系统从 NCR 的主机 终端形式 到 90 年代代表性的 HITS 基于 AS400 和 DB2 小型机解决方案及 fidelio 基于 Clipper 的微机数据库解决方案 直到最近的数据库 应用服务器 瘦客户方式 从单一的前后台 PMS 演变成为覆盖宾馆各部门各环节并对宾馆外部辐射的 复杂系统 从财务 业务为核心到一顾客服务为核心 总体发展速度呈上升势 头 在宾馆计算机管理系统的几十年发展过程中 该领域在世界范围内发生 了巨大的变化 在国外 拥有 OPERA Fidelio Xpress 品牌的 MICRO Fidelio 和拥有 HIS Paragon CLS LogicTouch 品牌的 MAI 无疑已经形成垄 断地位的行业领先者 但他们意识到由于新技术的不断涌现 宾馆 IT 应用行 业随时可能出现超越他们的黑马 1 1 2 宾馆计算机管理技术发展 IT 技术飞速更迭 技术前沿的敏锐触角不断地伸向传统产业纵身面 起 自 70 年代的宾馆 IT 技术 历经 30 多年发展和应用 目前已经十分庞杂 从 软件 硬件和服务三处着眼 现阶段宾馆的计算机管理可分为 硬件 网络系统 通信系统 POS 机及其专用键盘 客房智能设备 智能卡 系统 无线设备 计时考勤设备等 软件 电话计时系统 客户关系管理系统 常客服务系统 POS 系统 客房 前台系统 客房后台系统 人力资源管理系统 数据库 电子商务等 1 1 3 宾馆客房管理的智能化趋势 智能化宾馆客房管理控制系统代表着一种新的 科学的管理方式 它是 计算机网络化在客房管理上的技术应用 是将客房内的专用电器通过智能化 基于 VB 的宾馆客房管理系统 5 设计与计算机网络运行 实现对客房状态 服务请求的实时监控 系统由两 级网络组成 上级网是基于以太网的内部局域网 子网是由上位机工作站和 下位机组成的 RS 485 总线网络 主要包括客房控制系统 楼层工作站 总台管理系统以及网络通讯等部分内容 楼层工作站通过总线网络下挂客房 网络通讯控制器 总台工作站 客房部工作站 工程部工作站经以太局域网 与各楼层工作站相连接 1 2 本文的讲究工作和内容安排 本文在参考了宾馆客房管理系统现阶段的技术的基础上研发出了一套基 于 Visual Basic 与 Access 的宾馆客房管理系统 文中在继承现有宾馆客房管 理系统技术优点的基础上 详细介绍了整个客房系统的构成 展示了宾馆客 房控制界面的构成 并对各子窗口进行了说明 诠释了控制界面设计中需要 注意的关键问题 阐述了基于 Visual Basic Access 的 C S 双层数据库管理系 统 最后 验证了系统运行的可行性 并对论文做出了总结 全文共分为五各部分 第一章 绪论 介绍了宾馆客房管理的现状和发展趋势 第二章 开发工具介绍 介绍了 Visual Basic 开发工具的特点 VB 访问数据库 技术 论述了基于 VB 的宾馆管理系统控制界面的模块化设计思想 第三章 系统分析 论述了基于 VB 的宾管客房管理系统的设计方案及具体流程 第四章 详细设计 本章重点论述了基于 VB 的宾馆客房管理系统的设计 针对 各个窗体的功能及其设计都做了详细的阐述 第五章 结论 总结了本文研究的内容 系统设计的优点 第二章 开发工具的介绍 2 1 系统控制界面软件设计 控制界面设计使用 Visual Basic 6 0 程序设计语言 Visual Basic 6 0 是基于 Basic 的可视化的程序设计语言 一方面它继承了早期 Basic 所具有的程序设计语 言简单易用的特点 另一方面在其编程中采用了面向对象 事件驱动的编程机构 用一种巧妙的方法把 windows 的编程复杂性封装起来 提供了一种所见即所得的 基于 VB 的宾馆客房管理系统 6 可视化的程序设计方法 它将代码和数据集成到一个独立的对象中 由对象来完 成功能的实现 程序员在应用程序中只需要说明要求对象完成的任务 符合软件 发展的趋势 类似于人们习惯的思维方法 可自然地按照现实世界中处理实体的 方法来处理对象 软件开发者可以方便地与问题提出者进行沟通和交流 易于软 件的维护和功能的增减 加上继承的方法 极大提高了软件发开的效率 与可视 化技术相结合 改善了工作界面 2 1 1 VB 功能特点 1 具有面向对象的可视化设计工具 在 VB 中 应用面向对象的程序设计方法 把程序和数据封装起来视为一个 对象 每个对象都是可视的 程序员在设计时只需要用现有工具根据界面设计的 要求 直接在屏幕上放置窗口 菜单 按钮 滚动条等不同类型的对象 并为每 个对象设计属性 程序员的编程工作仅限于编写相关对象完成的功能程序 提高 了程序设计的效率 2 事件驱动的编程机制 事件驱动是非常适合图形用户界面的编程方式 传统的程序设计是一种面向 过程的方式 程序按事先设计的流程运行 但在图形用户界面的应用程序中 是 由用户的动作即事件掌握着程序运行的流向 每个事件都能驱动一段程序的运行 程序员只需编写相应用户动作的代码 而各个动作之间不一定有联系 使得应用 程序代码一般较短 所以程序既易于编写又易于维护 3 提供了易学易用的应用程序集成开发环境 在 VB 集成开发环境中 用户设计界面 编写代码 调试程序 直至把应用 程序编译成可执行文件在 Windows 中运行 使用户在友好的开发环境中工作 4 结构化的程序设计语言 VB 具有丰富的数据类型和结构化的程序结构 而且简单易学 VB 有强大 的数值和字符串处理功能 丰富的图形指令 可方便地绘制各种图形 提供静态 和动态数组 有利于简化内存管理 5 支持多种数据库系统的访问 利用数据控件可访问的数据库系统有 Microsoft Access Btrieve dBASE Microsoft FoxPro 和 Paradox 等 也可访问 Microsoft Excel Lotusl 2 3 等多种电子表格 基于 VB 的宾馆客房管理系统 7 2 1 2 VB 数据访问技术 Visual Basic 作为一种面向对象的可视化编程工具 越来越多地用作数据库 应用程序的前端开发工具 VB 数据访问技术 采用 Visual Basic6 0 作为前端控 制界面 Microsoft Access 2003 作为后台数据库 并采用最新的 ActiveX 数据访 问对象 ADO 数据库访问技术 Visual Basic 使用的数据访问技术示意图如图 2 1 所示 Microsoft 可视化数 据工具 ActiveX Exe DLL 数 据 源 编码 报表 DHTML 窗体 类模块用 户控件 Microsoft Transaction Server 远端 DCOM 远端 ADO 数据集 远端UDTS 数 据 访 问 图 2 1 2 2 Access 数据库简介 基于 VB 的宾馆客房管理系统 8 AAccess 数据库是微软公司发布的 Office 软件包的关系型数据库软件 不但具有一般数据库的特征 更具有自己独 特 强大 的功能 图 2 2 1 例如 用户不用再去记忆那一大堆的文件名称 或者为数据库文件管理大费周章 通过 Access 人性化管接口 如图 2 2 1 所示 把数据库的管理整理 便于维护 因此 Access 特别适宜客房管理系统的中小型数据库开发与管理 且便于 Visual Basic 的数据库编程 1 表 表是数据库中最常用的数据存储单元 它包括所有用户可以访问的数据 Access 的表是二维结构的 由行和列两部分组成 列也叫字段 它可以定义 表的结构 行也叫记录 保存表中的一段数据 在设计表结构时 需要定义 表中的字段名和数据类型 表生成后可以添加 修改和删除数据 如图 2 2 2 基于 VB 的宾馆客房管理系统 9 所示 图 2 2 2 2 查询 查询用于在一个或多个表中查找满足指定条件的数据 Access 提供以下的查 询方式 汇总查询 对表中数据进行统计 例如求平均值 统计记录数量 求和等 动作查询 对表进行生成 替换和删除等操作 选择查询 找到符合特定条件的记录 SQL 查询 使用 SQL 语句进行查询 第三章 系统的相关分析 3 1 系统的可行性分析 现代社会是信息社会 随着计算机网络技术 数据库技术 管理技术的发 展 对信息的处理也就成了掌握成败的关键 因此 若想使你所经营的宾馆客房 业在竞争中占领市场 锁定客户 只有通过加快内部管理信息化 电子化建设 提高工作效率 降低经营成本 从而来提高企业的竞争力 3 2 宾馆客房系统控制界面软件流程 根据宾馆客房管理系统的功能要求和界面显示 我们把系统控制界面功能划 分为如图 3 2 所示的模块 控制界面 系统设置 模块 状态查询 模块 记录查询 模块 工程设置 模块 图 3 2 基于 VB 的宾馆客房管理系统 10 第四章 宾馆客房系统详细设计 4 1 系统控制界面组成结构 系统界面显示部分具体组织结构如图 4 1 所示 系统设置推出 登陆界面 客房管理界面 住宿管理客房管理查询统计系统设置退出 开 房 登 记 追 加 押 金 退 宿 结 账 客 房 查 询 客 房 设 置 宿 费 提 醒 退 宿 查 询 住 宿 查 询 初 始 化 操 作 员 设 置 图 4 1 4 2 系统登录 登陆管理界面如图 4 2 所示 客房管理控制界面启动后 会出现 一个用户登陆的窗口 要求操作员 输入正确的用户名和密码才能进入 管理界面的主窗体 连续三次输入 错误密码 系统退出运行 图 4 2 基于 VB 的宾馆客房管理系统 11 4 3 主界面 用户登陆后 显示运行的界面为主界面 界面的可视化编程中采用事件触发 机制 程序的功能通过点击菜单 按钮等触发的方式得以运行 主界面的功能从 图 4 3 可以看出 包括 住宿管理 客房管理 查询统计 系统设置 退出 点击按钮组中的任何一个按钮 都会弹出相应的子窗口 而其他窗口将会关闭 图 4 3 其响应程序如下 Private Sub label1 Click 调入开房登记 zsdj Click End Sub Private Sub label2 Click 调入退宿结帐 tsjz Click End Sub Private Sub Label3 Click 调入住宿查询 zscx Click End Sub 基于 VB 的宾馆客房管理系统 12 Private Sub Label5 Click 调入宿费提醒 sftx Click End Sub Private Sub label6 Click End End Sub Private Sub zsdj Click 调入开房登记 main kfdj Show main Enabled False End Sub Private Sub zjyj Click 调入追加押金 Load main zjyj main zjyj Show main Enabled False End Sub Private Sub tsjz Click 调入退宿结帐 main tsjz Show main Enabled False End Sub Private Sub kfsz Click 调入客房设置 main kfgl Show main Enabled False End Sub 基于 VB 的宾馆客房管理系统 13 Private Sub kfcx Click 调入客房查询 main kfcx Show main Enabled False End Sub Private Sub zscx Click 调入住宿查询 Load main zscx main zscx Show main Enabled False End Sub Private Sub tfcx Click 调入退宿查询 Load main tfcx main tfcx Show main Enabled False End Sub Private Sub sftx Click 调入宿费提醒 Load main xftx main xftx Show main Enabled False End Sub Private Sub czysz Click 调入操作员设置 Load main czysz main czysz Show main Enabled False End Sub Private Sub csh Click 调入初始化 基于 VB 的宾馆客房管理系统 14 main csh Show main Enabled False End Sub Private Sub tc Click 退出 End End Sub 4 4 开房登记 开房登记界面如图 4 4 所示 点击登陆按钮 出现闪烁标签 则要求填写住 宿者的相关信息以及预付款 等待信息填完整之后 点击确定 保存住宿者的相 关信息 图 图 4 4 其程序代码如下 查询空闲房间信息 Data2 RecordSource select from kf where 房态 空房 Data2 Refresh Data3 RecordSource select from kf where 房态 空房 基于 VB 的宾馆客房管理系统 15 Data3 Refresh 生成凭证号码 Data1 RecordSource select from djb order by 凭证号码 Data1 Refresh If Not Data1 Recordset EOF Then Data1 Recordset MoveLast If lsph Text Then bh Text Date d Format 1 000 If lsph Text Then y1 Text Month Date y2 Text Month Left lsph Text 6 If y1 Text y2 Text Then bh Text Date d Format Val Right lsph Text 3 1 000 End If If y1 Text y2 Text Then bh Text Date d Format 1 000 End If End If 清空数据 For i 0 To 6 ZSDJ i Text ZSDJ i Enabled True Next i ZSDJ 10 Text ZSDJ 11 Text DBCombo1 Text DBCombo1 Text 4 5 追加押金 追加押金的窗口如图 4 5 所示 其功能是根据开房登记时保存的记录 通过 开房登记时生成的凭证号码选择不同的住宿者 进行追加押金设置 基于 VB 的宾馆客房管理系统 16 图 4 5 4 6 退宿结账 退宿结账的窗口如图 4 6 所示 它的功能是根据开房登记时保存的相关信息 计算出实住天数以及宿费 在根据预付金额情况 确定余额 最后将退宿者的信 息保留在表 tfd 中 图 4 6 4 7 客房设置 客房设置窗口如图 4 7 所示 从图中可以看出客房设置包括 房间号设置 房间类型设置 房态设置 价格设置 使用设置及配置设置 基于 VB 的宾馆客房管理系统 17 图 4 7 其程序代码如下 Private Sub comsave Click 查找客房信息 Data1 Recordset FindFirst 房间号 like Chr 34 Texfjh Text Chr 34 If Data1 Recordset NoMatch Then 添加客房 Data1 Recordset AddNew If Texfjh Text Then Data1 Recordset Fields 房间号 Texfjh Text If Combo1 Text Then Data1 Recordset Fields 房间类型 Combo1 Text If Combo2 Text Then Data1 Recordset Fields 房态 Combo2 Text If Texjg Text Then Data1 Recordset Fields 价格 Texjg Text If DTP1 Value Then Data1 Recordset Fields 营业日期 DTP1 Value If Texsz Text Then Data1 Recordset Fields 使用设置 Texsz Text If Texpz Text Then Data1 Recordset Fields 配置 Texpz Text If Texbz Text Then Data1 Recordset Fields 备注 Texbz Text If Texfjh Text Then Data1 Recordset Fields 标志 0 Data1 Recordset Update 更新记录 Data1 Refresh 基于 VB 的宾馆客房管理系统 18 Else 编辑客房信息 Data1 Recordset Edit If Texfjh Text Then Data1 Recordset Fields 房间号 Texfjh Text If Combo2 Text Then Data1 Recordset Fields 房态 Combo2 Text If Combo1 Text Then Data1 Recordset Fields 房间类型 Combo1 Text If Texjg Text Then Data1 Recordset Fields 价格 Texjg Text If DTP1 Value Then Data1 Recordset Fields 营业日期 DTP1 Value If Texsz Text Then Data1 Recordset Fields 使用设置 Texsz Text If Texpz Text Then Data1 Recordset Fields 配置 Texpz Text If Texbz Text Then Data1 Recordset Fields 备注 Texbz Text If Texfjh Text Then Data1 Recordset Fields 标志 0 Data1 Recordset Update 更新记录 Data1 Refresh End If 设置控件有效或无效 Comsave Enabled False Comcancel Enabled False Comend Enabled True Comdj Enabled True End Sub 4 8 客房查询 客房查询窗口如图 4 8 所示 客房查询窗口中的查询设置直观的显示了利用 VB 中强大的控件功能来实现 本论文中使用了 DBGrid 控件 该控件可以显示网 格数据 也可以对其操作 基于 VB 的宾馆客房管理系统 19 图 4 8 其操作程序如下 Private Sub Text1 Change 查询客房信息 Data1 RecordSource select from kf where kf 房间号 like Chr 34 Text1 Text Chr 34 Data1 Refresh End Sub Private Sub Command1 Click 允许修改客房信息 DBGrid1 AllowUpdate True End Sub Private Sub Command2 Click 删除客房信息 If Data1 Recordset RecordCount 0 Then Data1 Recordset Delete Data1 Refresh End If End Sub 4 9 住宿查询 基于 VB 的宾馆客房管理系统 20 住宿查询窗口如图 4 9 所示 主要功能是实现对住宿登记的查询 通过 data 控 件实现对数据库的连接 再通过 DBGrid 这个数据感知控件将数据库实时显示在 窗口上 图 4 9 其程序代码如下 Private Sub Form Load Data1 DatabaseName App Path Kfgl MDB 自动识别数据库路径 End Sub Private Sub Form Unload Cancel As Integer main Enabled True End Sub Private Sub Command1 Click 查询住宿信息 Data1 RecordSource select from djb where 姓名 like Chr 34 Text1 Text Chr 34 Data1 Refresh End Sub Private Sub Command2 Click main Enabled True Unload Me End Sub 基于 VB 的宾馆客房管理系统 21 5 1 退宿查询 退宿查询窗口如图 5 1 所示 其功能主要是完成操作员对退宿情况的查询 通通过 data 控件实现对数据库的连接 系统已经将退宿信息存放在名为 tfd 的表 中 再通过 DBGrid 这个数据感知控件将数据库实时显示在窗口上 图 5 1 其程序代码如下 Private Sub Form Load Data1 DatabaseName App Path KFGL MDB 自动识别数据库路径 End Sub Private Sub Form Unload Cancel As Integer main Enabled True End Sub Private Sub Text1 Change 按客人姓名查询退宿信息 Data1 RecordSource select from tfd where tfd 姓名 like Chr 34 Text1 Text Chr 34 Data1 Refresh End Sub Private Sub Command1 Click 允许修改退宿记录 DBGrid1 AllowUpdate True End Sub 基于 VB 的宾馆客房管理系统 22 Private Sub Command2 Click 删除退宿记录 If Data1 Recordset RecordCount 0 Then Data1 Recordset Delete Data1 Refresh End If End Sub Private Sub Command3 Click main Enabled True Unload Me End Sub 5 2 操作员设置 操作员设置窗口如图 5 2 所示 主要功能是向数据库中写入新的操作员用户 名和密码 图 5 2 主要程序如下 Private Sub Command1 Click 保存操作员及密码 If Text1 Text Then If Text2 Text Th