VB宾馆管理系统-论文

VBVB宾馆管理系统宾馆管理系统 论文论文 论文摘要 administrative system of the hotel adopts a data base management system that VISAUL BASIC6 0 developed This design instruction has told the basic function of VISAUL BASIC6 0 and design method mainly This design instruction has told the basic function of VISAUL BASIC6 0 and design method mainly And then take this system as an example recommend developing the step of this system one by one Network analysis designs systematically realizes systematically safeguards systematicallying Successively with dataflow picture data dictionary function structure chart various kinds of datum analyticl system take of system in network analysis In the design of the system detailed each function module which has represented the system Necessary database form and literary name section Design of the menu etc In the realization of the system provide and realize the incidents and codes of the corresponding function controlling part among forms And the method that the menu realize Provide the main function source code of this system at the end of the article Key word Face the target library administrative system of the hotel VISAUL BASIC6 0 论文摘要 宾馆信息管理系统 是采用VISAUL BASIC开发的一个数据库管理系统 后台数据库采用ACCESS2000 本设计说明 书主要讲述了VISAUL BASIC的基本功能及设计方法 紧接着以本系统为例 逐一介绍开发本系统系统 的步骤 系统分析 系统设计 系统实现 系统维护 在系统分析中先后用数据流 图 系统的功能结构图分析了系统所需的各种数据 在系统的设计中 详细的展 现了系统的各个功能模块 所需的数据库表及表字段 菜单的设计等 在系统的 实现中 给出了实现表单中相应的功能控件的事件及代码 以及菜单实现的方法 文章的最后则给出了本系统的主要功能运行界面图 关键字 宾馆管理 管理系统 VISAUL BASIC 面向对象 ACCESS2000 目录 引言 1 第一章 绪 论 2 1 1选题背景 2 1 2选题意义 2 1 3 总体目标 3 1 4 系统的开发方法 3 第二章 系统分析 4 2 1系统的初步调查 4 2 2系统的可行性分析 5 2 3详细调查 6 2 3 1组织结构图 6 2 3 2业务流程分析 7 2 4系统逻辑方案的提出 8 2 4 1数据流程图 8 2 4 2数据词典 9 第三章 系统的总体结构设计 11 3 1 系统设计目标 11 3 2 系统功能模块设计 11 3 3 数据库设计 12 3 3 1 数据库需求分析 13 3 3 2 数据库概念结构设计 14 3 3 3 数据库逻辑结构设计 16 3 3 4数据库结构的实现 17 第四章 系统的详细设计和实现 19 4 1 Hotel MIS工程项目的创建 19 4 2宾馆管理信息系统主窗体设计 19 4 3 创建主窗体菜单设计 20 4 4公用模块设计 20 设计与实现 23 4 6 客房标准管理模块设计与实现 29 4 7 客房信息管理模块设计与实现 35 4 8订房信息管理模块设计与实现 39 4 9 结算信息管理模块设计与实现 42 第五章 系统的编译和发行 47 结 论 48 致 谢 49 参考文献 332 VB宾馆管理系统 引言 计算机已经要成为我们学习和工作的得力助手 今天 计算机的价格已经十分低 廉 性能却有了长足的进步 它以及被应用于许多的领域 计算机之所以如此流 行的原因主要有以下几个方面 首先 计算机可以代替人工进行许多的复杂的劳 动 其次 计算机可以大大的提高人们的工作效率 第三 计算机可以节省许多 资源 第四 计算机可以使敏感文档更加安全 现有很多宾馆的管理水平不高 还停留在纸介质的基础上 这样的机制已经不能 适应时代的发展 因为它浪费了许多的人力和物力 在在信息时代这种传统的管 理方法必然被计算机为基础的信息管理所取代 宾馆在正常运行中需要对客房资源 顾客信息 结算信息进行管理 利用宾馆管 理信息系统及时了解各个环节中信息的便更 有利用提高管理的效率 我作为跨世纪的一代学计算机的年轻人 希望在这方面有所贡献 改革的总设计 师邓小平同志说过 科学技术是第一生产力 我希望能用所学的知识编制一个适 用的程序来帮助宾馆旅社等单位进行更有效的宾馆客房管理 第一章 绪 论 随着社会经济的发展 人们对生活质量的要求越来越高 作为服务之一的宾馆业 也在不断的完善服务体制 它是集餐饮 住宿 娱乐于一体的立体化服务体系 其中顾客可以随意消费并统一结账 宾馆管理者可及时了解宾馆的全部运营情况 及经营走势 找出运转成本 作为经营决策的依据 只有运用先进的科学管理手 段 利用计算机管理系统才能更好实现这一管理模式 1 1选题背景 近年来 宾馆业迅猛发展 市场的竞争日趋激烈 全面提高宾馆的软件管理水准 已成为宾馆业发展的当务之急 尤其是对于星级宾馆 既需要完成前台的一些 服务工作 还需要完成后台的管理工作 然而 传统的人工管理模式已经远远不 能满足有效 快捷地处理经营中产生的大量信息数据的需要 从而使得企业决策 层无法及时 准确地掌握一线资料 继而影响对市场进行正确地分析和预测 像 沿海城市三星级以上宾馆引进外方管理 使小部分宾馆管理水准几乎接近或达 到国际水平 但对占80 以上的广大中小型宾馆来说 是难以做到的 因此 欲在 竞争中甩开对手 取得优势 必须在经营 管理 产品 服务等方面具备独到之处 而对宾馆的经营状况起决定作用的是客房的管理 简单的服务标准已不是制胜 的锦囊 只有管理做到最细微之处 才能让顾客体会到宾馆服务的高标准 高质 量 而准确 快速 周全往往就是最基本的成功要素 传统的管理方法已经不能适应现代社会的需要 因此采用电脑管理业务 财务等 诸多环节已成为推动宾馆业迅速发展的先决条件 宾馆客房管理信息系统是各 大中小型宾馆所需要使用的一个管理系统 1 2选题意义 在飞速发展的信息时代 信息已经成为所有企业的关键资源 宾馆客房管理信息 系统是用来收集 处理 存贮和传播客房 顾客 结算信息 以信息管理为核心的 计算机应用系统 利用宾馆客房管理信息系统中合理的数据库结构来保存数据 信息 及时了解各个环节中信息的变更 通过有效的程序结构来支持各种数据操 作的执行 以提高管理效率 实现宾馆服务的系统化 规范化 自动化 通过该项 目的开发与使用 宾馆可以提高其员工的工作效率 增强企业竞争力 同时适应 信息时代管理数字化的要求 提高宾馆的服务水平与质量 从而赢得高信誉 强 实力 好效益 1 3 总体目标 建立一套功能完善的管理信息系统 既能满足业务人员日常处理的需要 增强企 业经营全过程的数字化管理水平 又能满足管理人员决策分析的需要 提高公司 管理层对公司经营反馈信息的响应速度 从而大幅度提高工作效率 提高实施管 理的准确性 科学性 使担负管理的工作人员从繁杂的手工劳作中解脱出来 快速实现客人入住登记和账务处理 减少客人住店及离店时的等待时间 准确实现客人预订入住的要求 实现有效及有保障的前台系统作业 快速响应住宿客人的有关项目查询要求 实现入住 消费 结账一条龙服务 方便客人在店内的各类消费要求 提供清晰 准确的各类明细报表 账单 给客人留下良好的管理印象 1 4 系统的开发方法 本系统采用VB可视化面向对象的快速开发工具开发 采用ADO 对象数据技术来提高系统的安全及稳定性 由于本系统设计成单机版 后台数据 库采用ACCESS2000 开发工具 中文版Visual Basic6 0 ACCESS2000 服务器端运行环境 Windows NT或者Windows2000 Windowxp ACCESS2000 客户端运行环境 Windows9x Windows NT或者Windows2000 Windowxp 第二章 系统分析 系统分析是采用系统的思想和方法 把复杂的对象分解成简单的组成部分 找出 这些部分的基本属性和彼此之间的联系 针对现行宾馆客房计算机管理系统中 存在的问题 为了提高信息采集的迅速性和准确性 利用计算机所具有的特殊功 能处理宾馆客房管理系统中大量复杂的数据 及时输出各种管理信息和业务信 息 为各级人员有效的管理和决策提供有力的依据 提高工作效率和经济效益 在全面调查的基础上提出了系统的总体逻辑描述 2 1系统的初步调查 在信息高度发达的今天 宾馆服务业涉及的各个工作环节已经不再仅仅是传统 的住宿 结算 而是更广 更全面的服务性行业代表 宾馆作为一个服务性行业 从客房的营销即客人的预定开始 到入住登记直至最后退房结账 整个过程应该 能够体现以宾客为中心 提供快捷 方便的服务 给宾客一种顾客至上的享受 提高宾馆的管理水平 简化各种复杂操作 在最合理最短时间内完成宾馆业务规 范操作 这样才能令顾客舒适难忘 增加顾客回头率 面对宾馆业激烈的竞争形 势 各宾馆均在努力拓展其服务领域的广度和深度 虽然计算机并不是宾馆走向 成功的关键因素 但它可以帮助那些真正影响成败的因素发挥更大的效用 因此 采用全新的计算机管理系统 将成为提高宾馆的管理效率 改善服务水准的重 要手段之一 据我国宾馆业的统计分析表明 在现代的宾馆服务行业中 由于客户流量增长 传统的管理方法使得办公人员每 天要处理的事务繁多 重复性的工作使其效率较低 各类客户信息收集不齐全 分类 归档不合理 以至于造成查找困难 保存方式不科学 使得资料 文件受损 影响使用效果和时间 一般的星级宾馆设有 普通间 单人间 标准间 豪华套间 电子门锁系统 程控 电话 电梯 中央空调 现代消防设施 大小餐厅 停车场 闭路电视 客房内全 部强电系 VB宾馆管理系统 统 国内国际直拨电话 音乐会议系统 同时能接待百余人的住宿及中 小型各 种会议 针对这种情况 各宾馆管理人员已意识到使用计算机管理信息系统的重要性 因 此他们迫切需要开发一个 宾馆客房管理信息系统 来进行管理工作 2 2系统的可行性分析 从宾馆的具体情况出发 经过多方面调研 讨论 本宾馆客房管理信息系统 从 技术上 经济上 管理上均已具备实施的基本条件 2 2 1技术可行性 Win2000 NT XP操作系统的稳定性 安全性可满足用户的要求 后台的数据库使 用ACCESS 2000 开发工具微软公司的VISUAL BASIC6 0 具有良好的升级潜力和可维护性 这些软件在大型MIS开发中已被大量应用 技 术上都比较成熟 可根据用户需要 十分方便的增减模块 直观的图形用户界面 简洁的操作流程 无须专业电脑知识即可迅速上手 因此技术上是可行的 2 2 2经济可行性 费用 本系统要求的计算机配置并不高 奔腾II及以上处理器 64M内存及以上 硬盘空间100M以上 设备的安装调试工作简单 PB软件的价格不高 操作简单 对用户进行少量的培训工作就可以使用户熟练的使用本系统 因而培训费用较 低 收益 宾馆前台使用本系统后 提高了核对效能 相对的差错也大大减少 即工作 人员的工作效率大大提高了 工作时间大大节省了 从而间接为宾馆创造了可观 的经济效益 减少管理费用的支出 避免了不必要的人工错误 还提高了工作人 员的素质 有利于管理方式与体制的合理改革 保证宾馆客房管理的可持续发展 因而在经济上是可行的 2 2 3 管理可行性 建立管理信息系统是行业发展的必然要求 宾馆领导对科技的管理非常重视 使 管理和业务流程信息化 是管理信息现代化的第一步 而员工对此更是表现出极 大的热情和期望 因为该系统的实施将很大程度上降低他们的手工作业量 还会 减少他们在工作上的失误 提高工作效率 因此 本系统在管理上是可行的 2 3详细调查 开发本系统的要求来自对原传统管理模式的不满 不管是手工系统还是正在运 行的计算机系统 由于存在的问题充斥各个方面 内容分散 甚至含糊不清 这就 要求我们进行详细分析 并在原管理模式的基础上提出系统开发方案 本系统是 一个虚拟的管理信息系统 不存在原运行系统 2 3 1组织结构图 据调查分析 我国中 小型宾馆客房部由客房部经理 总台领班 大堂副理 大堂 领班 电话总机员 商务中心领班 客房服务组组成 即组织结构图如图2 1所示 图2 1组织结构图 2 3 2业务流程分析 业务流程分析是对业务功能分析的进一步细化 业务流程分析的结果是给出业 务流程图 业务流程图反映了实际的业务活动 它不仅是系统分析人员进行更深 入系统分析的依据 而且也是系统分析人员 管理人员 业务操作人员 系统设计 人员进行沟通的工具 可以直接在业务流程图上拟出能够由计算机实现的部分 明确系统的边界 使计算机处理与人工业务处理的接口清晰 分析组织的业务流 程是否合理 删除重复的 不合理的环节 明确整个业务流程 为以后的分析与设 计打下良好的基础 因此 为了能够反映宾馆内部各部门之间的联系程度 其主要业务和他们在业务 过程中所承担的工作 根据宾馆客房管理的特点和宾馆的实际情况 宾馆的业务 流程图如图2 2所示 图2 2业务流程图 通过现行业务流程图对现行系统进行分析 客人流量多 需要的服务多 致使管 理的过程不好控制 效率不高 我们通过计算机来实现前台操作员的一些业务 让电脑来代为运作 可以提高效率 减轻人的工作量 我们系统的工作就是把传统的管理模式换为人机交互操作 从上图分析可以明 确系统的边界 把不必要的人工操作从系统中删除 首先我们可以在电脑上实现 房态的查询 了解房间的占用情况 这样可为工作人员减少查询的时间 提高管 理的效率 另外 客人可以预定房间也可以临时住宿 当客人预定房间后 可根 据其预定的房间号入住 这样就为客人避免了来到本地临时找住处的麻烦 为 客人节省了时间 提高了工作效率 同时也为宾馆带来了一定的经济效益 如果 客人为散客 到前台进行登记 即可入住 提高了宾馆的管理效率 使得宾馆的 组织结构向着扁平化方向发展 用最少的人力物力作尽可能多的工作 2 4系统逻辑方案的提出 2 4 1数据流程图 数据流程分析是数据和数据流程分析工作的最后一步 该工作是对系统中的数 据进行输入输出 存储 传递 转换等分析 数据流程分析的结果是给出数据流 程图 数据流程图是描述系统逻辑模型的主要工具 我们采取结构化分析的方法 绘制数据流程图 针对现在宾馆业的发展需求 在业务流程图的基础上 我们得到了数据流程图 VB宾馆管理系统 数据流程图 2 4 2数据词典 系统数据词典 DD Date Dictionary 是描述数据流程图中所有数据流 数据存储 处理功能等卡片的集合 数据词典提供一个可定义的不依赖于应用程序的存储区域 用于创建扩展的属 性集和描述数据的内容与外观 其内容包括四种条目 数据流 数据元素 数据存 储和数据加工 建立完善的数据词典是对所整理数据的一种分析归档方式 为下 一步建立数据库和处理数据做准备 在系统分析阶段 数据词典有着重要的作用 它包含着系统的详细信息 一般来 说 系统分析人员应把不便于在数据流程图上注明而系统分析应该获得 对整个 系统开发以至将来系统运行与维护时必需的信息尽可能放入数据词典 数据词典 数据元素 条目 数据元素是数据流组成的最小单位 是无法再细分的数据流 它直接反应事物的 某一特征 其描述需要以下信息 数据元素名 类型 长度 取值范围 相关的数 据元素及数据结构 数据元素 系统名 宾馆客房管理 编号 条目名 标准编号 别名 属于数据流 客房信息 存储处 客房档案 数据元素结构 代码类型 取值范围 字符 000000 999999 由数字组成的字符串 简要说明 客房都有唯一的编号 修改记录 编写 Xxx 日期 2005年9月 审核 xxx 日期 2005年9月 数据词典 数据存储 条目 数据存储是数据结构保存的地方 一个数据存储词条应有以下几项内容 数据存 储名 简述 输入数据 输出数据 数据存储组织 记录数 记录组成 数据存储 系统名 宾馆客房管理 编号 D3 条目名 定房表 别名 存储组织 每个预订客房一条记录 记录数 约20 主关键字 服务编号 记录组成 项名 订房编号 顾客姓名 客房编号 入住日期 结算日期 长度 6 6 8 2 8 简要说明 修改记录 编写 xxx 日期 2005年9月 审核 xxx 日期 2005年9月 第三章 系统的总体结构设计 3 1 系统设计目标 系统设计工作应该自顶向下地进行 首先设计总体结构 然后逐层深入 直至进 入到一个模块的设计 总体设计主要是在系统分析的基础上 对整个系统的划分 物理配置 包括软件 硬件 数据的存储规律以及整个系统实现等方面的合理 安排 3 2 系统模块的设计 有关客房标准的制定 标准信息的输入 包括标准编号 标准名称 房间面积 床位数量 住房单价 是否有空调 电视机 电话以及单独 卫生间等 客房标准信息的修改 查询等 客房基本信息的输入 包括客房编号 客房类型 客房位置 客房单 价 备注等 客房基本信息的查询 修改 包括客房编号 客房类型 客房位置 客房单价 备注等 剩余客房信息的查询 订房信息的输入 包括客房编号 客房种类 客房位置 客房单价 顾客姓名 顾客身份证号码 入住日期 折扣 备注信息等 订房信息的修改和查询 包括客房编号 客房种类 客房位置 客房 单价 顾客姓名 顾客身份证号码 入住日期 折扣 备注信息等 结算信息的输入 包括客房编号 客房种类 客房位置 客房单价 顾客姓名 顾客身份证号码 入住日期 折扣 结算日期 备注信息等 结算信息的修改和查询 包括客房编号 客房种类 客房位置 客房 单价 顾客姓名 顾客身份证号码 入住日期 折扣 结算日期 备注 信息等 VB宾馆管理系统 数据库设计 针对一般宾馆管理信息系统的需求 通过对宾馆管理工作过程的内容和数据流 程分析 设计如下面所示的数据项和数据结构 客房标准信息 包括的数据项有 标准编号 标准名称 房间面 积 床位数量 住房单价 是否有空调 电视 电话 单独卫生 间等 客房信息 表格的数据项有 客房编号 客房种类 客房位置 客房单价 备注等 订房信息 包括的数据项有 订房编号 客房编号 客房种类 客房位置 客房备注信息 顾客姓名 顾客身份证号码 入住时 间 折扣 备注等 结算信息 包括的数据项有 订房编号 客房编号 客房种类 客房位置 客房备注信息 顾客姓名 顾客身份证号码 入住时 间 折扣 结算时间 备注等 3 2 1客房标准信息表 roomtype 列名 数据类型 可否为空 说明 typeid varchar NOT NULL 标准编号 typename varchar NOT NULL 标准名称 area numeric NULL 房间面积 bednum numeric NULL 床位数量 haircondition varchar NULL 是否有空调 htelephone varchar NULL 是否有电话 htelevision varchar NULL 是否有电视 htoilet varchar NULL 是否有独立卫生间 price numeric NULL 单价 列名 数据类型 可否为空 说明 3 2 2宾馆客房信息表 rooms 列名 数据类型 可否为空 说明 roomno varchar NOT NULL 客房编号 roomtype varchar NOT NULL 客房种类 roomposition varchar NULL 客房位置 roomprice numeric NULL 单价 putup varchar NOT NULL 是否被预定 roommemo text NULL 备注 3 2 3订房信息表 booking 列名 数据类型 可否为空 说明 bookno varchar NOT NULL 订房编号 customname varchar NOT NULL 顾客姓名 customid varchar NOT NULL 身份证号码 roomno varchar NOT NULL 客房编号 indate varchar NULL 入住日期 discount numeric NULL 折扣 inmemo text NULL 备注 checkdate datetime NULL 结算日期 ammount numeric NULL 金额 第四章 系统详细设计及实现 经过系统分析 有关数据库结构的所有后台工作已经完成 现在将通过宾馆管理 信息系统中各个功能模块的实现 讲解如何使用Visual Basic来编写数据库系统的客户端程序 4 1 宾馆系统Hotel MIS工程项目的创建 启动Visual Basic后 单击FileNew Project菜单 在工程模板中选择Standsard EXE Visual Basic将自动产生一个Form窗体 属性都是缺省设置 这里我们删除这个窗体 单 击FileSaveProject菜单 将这个工程项目命名为Hotel MIS 4 2宾馆管理信息系统主窗体设计 这个项目我们使用多文档界面 单击VB软件工具栏中ADD MDI Form按钮 生成一个窗体 在这个窗体上添加所有的控件 创建好的窗体如下 4 3公用模块设计 在Visual Basic中可以用公用模块来存放整个工程项目公用的函数 过程和全局变量等 这 样可以极大的提高代码的效率 在项目资源管理器中为项目添加一个Module 保 存为Module bas 下面就可以开始添加需要的代码了 由于系统中各个功能模块都将频繁使 用数据库中的各个数据 因此需要一个公用的数据操作函数 用以执行各种SQL 语句 ExecuteSQL函数有两个参数 SQL和MsgString 其中SQL用来存放需要执行的SQ L语句 MsgString用来返回执行的提示信息 函数执行时 首先判断SQL语句中 包含的内容 当执行查询操作时 ExecuteSQL函数将返回一个与函数同名的记录 集对象 Recordset 所有满足条件的记录包含在对象中 当执行如删除 更新 添 加等操作时 不返回记录集对象 在ExecuteSQL函数中使用了ConnectString函数 这个函数用来连接数据库 4 4 用户管理模块设计与实现 用户管理模块主要实现 用户登录 添加用户 修改用户密码 4 4 1 用户登陆设计与实现 用户登录窗体中放置了二个文本框 TextBox 用来输入用户名和用户密码 二个 按钮 CommandButton 用来确定或者取消登录 三个标签 Label 用来标示窗体的信息 系统启动后 将首先出现如下图 用户首先输入用户名 然后输入密码 如果用 户3次输入密码不正确 将退出程序 用户如果没有输入用户名和用户密码 将出现消息框提示 如果输入的用户名在 用户表中没有找到 将提示重新输入用户名 文本框txtusername将重新获得输入 焦点 如果用户输入的密码不正确 文本框txtpassword将重新获得输入焦点 用 户登录成功 全局变量ok将被赋值为true 一旦三次输入密码均不正确 全局变量 ok将被赋值为false 公用模块中的main 过程将根据ok的值来决定是退出 还是 进入系统 4 4 2 添加用户设计与实现 进入系统后 选择菜单 系统 添加用户 就可以添加用户 出现添加用户的窗体 在这个窗体中放置了二个文本框 用来输入密码和确认密码 二个按钮用来确定 是否修改密码 二个标签用来标示文本框的内容 一旦输入完毕 系统将首先查询数据库中与新建用户名相同的记录 如果有相同 记录将提示用户重新输入用户名 当确定数据库中没有相同的用户名 并且二次 输入密码一致时 将把该条记录添加到数据库中 VB宾馆管理系统 修改密码设计与实现 在这个窗体中放置了二个文本框 用来输入密码和确认密码 二个按钮按钮用来 确定是否修改密码 二个标签用来标示文本框的内容 如下图 4 5 客房标准管理模块设计与实现 在窗体放置多个文本框 用来输入客房标准基本信息 多个下拉式文本框选择不 同的硬件设施 两个按钮用来确定是否添加客房标准信息 多个标签用来提示文 本框中需要输入的内容 如下图 载入窗体时 将首先通过变量gintTmode判断是添加还是修改 如果是添加状态 文本框将清除内容 窗体有提示信息 如果是修改状态 将选择显示当前的记录 用户输入内容完毕后 单击cmdSave按钮将触发Click事件 事件包括 程序首先 对是否输入内容进行判断 然后进行格式判断 程序将判断是否有重复编号的记 录 然后添加数据到数据库中 最后根据状态来显示相应的信息 如果是添加状 态 将提示添加成功 然后重新显示并清空所有文本框 以便继续添加记录 如果 处于虚空状态 将提示修改成功 然后更新所有记录的列表 4 5 2修改客房标准模块设计与实现 选择 客房信息管理 设置客房标准 修改客房标准 菜单 将出现如图所示的窗体 窗体中放置一个表格控件 载入窗体时 触发窗体的Load事件 显示当前数据库中所有的记录 并修改当前 状态为记录编辑状态 代码如下 Private Sub Form Load ShowTitle ShowData flagTedit True End Sub 4 5 3删除客房标准模块设计与实现 选择 客房信息管理 设置客房标准 删除客房标准 菜单 将出现记录列表 选择相应记录 单击鼠标右键 选择弹出 式菜单 将删除当前记录 4 6 客房信息管理模块设计与实现 客房信息管理模块主要实现如下功能 添加客房信息 修改客房信息 删除客房信息 查询客房信息 添加 修改和删除的实现和客房标准一样原理我就不讲了 下面我 们看下客房查询模块啊 选择 客房信息管理 设置客房信息 查询客房信息 菜单 将出现如下窗体 在这里可以按照各种方式以及它们的组合 进行查询 满足查询条件的所有记录将显示在客房信息列表窗体 第五章 系统的编译和发行 完成了宾馆管理信息系统的编程和调试工作 最后一步就是该系统的编译和发 行 这涉及到工程项目属性的设置 可执行应用程序的生成 在系统的编译和发 行以前 需要设置工程项目的属性 选择 工程 工程属性 菜单 进行属性设置 如图所示 最后选择 文件 生成Hotel Mis exe 菜单 编译开始 编译完毕后 即生成了相应的可执行文件 编译通过后 生成可执行文件Hotel Mis exe 我们需要在发行前对生成的可执行 文件进行测试 通过测试的可执行文件 就可以进行发布了 结 论 经过二个多月的设计和开发 宾馆信息管理系统 基本开发完毕 其功能基本符 合需求 能够完成对客房资源 顾客信息 结算信息进行管理 利用宾馆管理信 息系统及时了解各个环节中信息的变更 该系统设计操作简单 易于使用 对于 数据的一致性的问题也通过程序进行了有效的解决 但是由于毕业设计时间较 短 所以该系统还有许多不尽如人意的地方 比如用户界面不够美观 出错处理 不够等多方面问题 这此都有待进一步改善 通过这次毕业设计 我掌握了一种新的面向对象的数据库系统开发工具Visual Basic 6 0的使用 它使用面向对象的开发技术 能够轻松开发出功能强大的专门针对用 户的应用程序 使用结构化的查询技术 能够从大量的数据中快速查询需要的信 息 能够快速 随意地制作出用户需要的各种形式的窗体和控件 另外 通过这次毕业设计 提高了自己运用所学的基础知识和技能 独立解决一 般的计算机工程问题的能力 致 谢 在本次毕业设计的过程中 我的导师和学院的老师们给了我很大的指导和帮助 不仅使我在规定的时间内完成了系统的设计 同时还使我学到了很多有益的经 验 在此 我谨向他表示最衷心的感谢 同时 学校给了我这次毕业设计的机会 使我得到了很好的锻炼 在此 我也向 学校的各位老师表示最诚挚的感谢 参考文献 作者 书名 出版社 出版日期 1 张树兵 Visual Basic6 0 北京 清华大学出版社 1999年4月 2 翁正科 FoxPro2 5 北京 清华大学出版社 1995年5月 3 刘云生 数据库系统概论 武汉 华中理工大学出版社 1996年5月 VB宾馆管理系统 主要窗体的源代码 1 订房信息窗体的源代码 Option Explicit 是否改动过记录 ture为改过 Dim mblChange As Boolean Dim mrc As ADODB Recordset Public txtSQL As String Private Sub cboItem Change Index As Integer 有变化设置gblchange mblChange True End Sub Private Sub cboItem Click Index As Integer Dim mrcc As ADODB Recordset Dim intCount As Integer Dim MsgText As String If gintBmode 1 Then If Index 0 Then txtSQL select from rooms where roomNO Trim cboItem 0 and putup 是 Set mrcc ExecuteSQL txtSQL MsgText For intCount 1 To 3 cboItem intCount Clear cboItem intCount AddItem mrcc Fields intCount cboItem intCount ListIndex 0 Next intCount txtItem 5 mrcc Fields 5 mrcc Close End If End If End Sub Private Sub cboItem KeyDown Index As Integer KeyCode As Integer Shift As Integer EnterToTab KeyCode End Sub Private Sub cmdExit Click If mblChange And cmdSave Enabled Then If MsgBox 保存当前记录的变化吗 vbOKCancel vbExclamation 警告 vbOK Then 保存 Call cmdSave Click End If End If Unload Me End Sub Private Sub cmdSave Click Dim intCount As Integer Dim sMeg As String Dim mrcc As ADODB Recordset Dim MsgText As String For intCount 0 To 3 If Trim txtItem intCount Then Select Case intCount Case 0 sMeg 顾客姓名 Case 1 sMeg 身份证号码 Case 2 sMeg 折扣 Case 3 sMeg 入住时间 End Select sMeg sMeg 不能为空 MsgBox sMeg vbOKOnly vbExclamation 警告 txtItem intCount SetFocus Exit Sub End If Next intCount For intCount 0 To 3 If Trim cboItem intCount Then Select Case intCount Case 0 sMeg 客房编号 Case 1 sMeg 客房种类 Case 2 sMeg 客房位置 Case 3 sMeg 客房单价 End Select sMeg sMeg 不能为空 MsgBox sMeg vbOKOnly vbExclamation 警告 cboItem intCount SetFocus Exit Sub End If Next intCount If IsDate txtItem 2 Then txtItem 2 Format txtItem 2 yyyy mm dd Else MsgBox 入库时间应输入日期 yyyy mm dd vbOKOnly vbExclamation 警告 txtItem 2 SetFocus Exit Sub End If For intCount 1 To 3 Step 2 If Not IsNumeric txtItem intCount Then MsgBox 请输入数字 vbOKOnly vbExclamation 警告 txtItem intCount SetFocus Exit Sub End If Next intCount If gintBmode 2 Then txtSQL delete from bookin where bookno Trim txtNo Set mrcc ExecuteSQL txtSQL MsgText End If txtSQL select from bookin Set mrcc ExecuteSQL txtSQL MsgText mrcc AddNew mrcc Fields 0 txtNo For intCount 0 To 1 mrcc Fields intCount 1 txtItem intCount Next intCount mrcc Fields 3 cboItem 0 For intCount 2 To 4 mrcc Fields intCount 2 txtItem intCount Next intCount mrcc Fields 8 0 mrcc Update mrcc Close txtSQL select from rooms where roomNO Trim cboItem 0 Set mrcc ExecuteSQL txtSQL MsgText If Not mrcc EOF Then mrcc putup y End If mrcc Update mrcc Close If gintBmode 1 Then MsgBox 添加订房信息成功 vbOKOnly vbExclamation 添加订房消息 Unload Me If flagBedit Then Unload frmBookin End If frmBookin txtSQL select bookno customname customID roomno indate discount inmemo from bookin where ammount 0 frmBookin Show Else nd If frmBookin txtSQL select bookno customname customID roomno indate discount inmemo from bookin where ammount 0 frmBookin Show End If VB宾馆管理系统 Private Sub Form Load Dim sSql As String Dim intCount As Integer Dim MsgText As String If flagSedit Then Set mrc ExecuteSQL txtSQL MsgText If Not mrc EOF Then For intCount 0 To 3 cboItem intCount AddItem mrc Fields intCount cboItem intCount ListIndex 0 Next intCount txtItem 5 mrc Fields 5 End If mrc Close txtNo GetRkno gintBmode 1 Else If gintBmode 1 Then Me Caption Me Caption 添加 初始化客房信息 txtSQL select DISTINCT roomNO from rooms where putup y Set mrc ExecuteSQL txtSQL MsgText If Not mrc EOF Then Do While Not mrc EOF cboItem 0 AddItem Trim mrc Fields 0 mrc MoveNext Loop Else MsgBox 请先进行客房登记 vbOKOnly vbExclamation 警告 cmdSave Enabled False Exit Sub End If mrc Close txtNo GetRkno ElseIf gintBmode 2 Then Set mrc ExecuteSQL txtSQL MsgText If mrc EOF False Then With mrc txtNo bookno For intCount 0 To 1 If Not IsNull Fields intCount 1 Then txtItem intCount Fields intCount 1 End If Next intCount cboItem 0 AddItem roomno cboItem 0 ListIndex 0 For intCount 2 To 4 If Not IsNull Fields intCount 2 Then txtItem intCount Fields intCount 2 End If Next intCount End With End If mrc Close Me Caption Me Caption 修改 txtSQL select from rooms where roomNO Trim cboItem 0 Set mrc ExecuteSQL txtSQL MsgText If Not mrc EOF Then For intCount 1 To 3 cboItem intCount AddItem mrc Fields intCount cboItem intCount ListIndex 0 Next intCount txtItem 5 mrc Fields 5 End If mrc Close End If End If mblChange False End Sub Private Sub Form Unload Cancel As Integer gintBmode 0 End Sub Private Sub txtItem Change Index As Integer 有变化设置gblchange mblChange True End Sub Private Sub txtItem GotFocus Index As Integer txtItem Index SelStart 0 txtItem Index SelLength Len txtItem Index End Sub Private Sub txtItem KeyDown Index As Integer KeyCode As Integer Shift As Integer EnterToTab KeyCode End Sub 2 订房信息查询窗体源代码 Option Explicit 用于传递查询块 Private Sub chkItem Click Index As Integer If Index 2 Then cboYear 0 SetFocus Else txtItem Index SetFocus End If End Sub Private Sub cmdExit Click Me Hide End Sub Private Sub cmdOK Click Dim dBeginDate As String Dim sQSql As String If chkItem 0 Value vbChecked Then sQSql customname Trim txtItem 0 End If If chkItem 1 Value vbChecked Then If Trim sQSql Then sQSql roomno Trim txtItem 1 Else sQSql sQSql and roomno Trim txtItem 1 End If End If If chkItem 2 Value vbChecked Then dBeginDate Format CDate cboYear 0 cboMonth 0 cboDay yyyy mm dd If Trim sQSql Then sQSql indate dBeginDate Else sQSql sQSql and indate dBeginDate End If End If If Trim sQSql Then MsgBox 请设置查询条件 vbOKOnly vbExclamation 警告 Exit Sub Else If flagBedit Then Unload frmBookin End If frmBookin txtSQL select bookno customname customID roomno indate discount inmemo from VB宾馆管理系统 bookin where ammount 0 and sQSql frmBookin Show End If Me Hide End Sub Private Sub Form Load Dim i As