VB宾馆管理系统【论文摘要】:《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 lwfree.cn
【论文摘要】: 《宾馆信息管理系统》是采用VISAUL BASIC开发的一个数据库管理系统，后台数据库采用ACCESS2000。本设计说明书主要讲述了VISAUL BASIC的基本功能及设计方法。紧接着以本系统为例，逐一介绍开发本系统系统的步骤：系统分析、系统设计、系统实现、系统维护。在系统分析中先后用数据流图、系统的功能结构图分析了系统所需的各种数据。在系统的设计中，详细的展现了系统的各个功能模块。所需的数据库表及表字段。菜单的设计等。在系统的实现中，给出了实现表单中相应的功能控件的事件及代码。以及菜单实现的方法。文章的最后则给出了本系统的主要功能运行界面图。【关键字】: 宾馆管理 管理系统 VISAUL BASIC 面向对象 ACCESS2000目录引言 1第一章 绪 论 21.1选题背景 21.2选题意义 21.3.总体目标 31.4 系统的开发方法 3第二章 系统分析 42.1系统的初步调查 42.2系统的可行性分析 52.3详细调查 62.3.1组织结构图 62.3.2业务流程分析 72.4系统逻辑方案的提出 82.4.1数据流程图 82.4.2数据词典 9第三章 系统的总体结构设计 113.1 系统设计目标 113.2 系统功能模块设计 113.3 数据库设计 123.3.1 数据库需求分析 133.3.2 数据库概念结构设计 143.3.3 数据库逻辑结构设计 163.3.4数据库结构的实现 17第四章 系统的详细设计和实现 194.1 Hotel-MIS工程项目的创建 194.2宾馆管理信息系统主窗体设计 194.3 创建主窗体菜单设计 204.4公用模块设计 20 lwfree.cn设计与实现 234.6 客房标准管理模块设计与实现 294.7 客房信息管理模块设计与实现 354. 8订房信息管理模块设计与实现 394.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用来存放需要执行的SQL语句，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 = TrueEnd Sub4.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 BooleanDim mrc As ADODB.RecordsetPublic txtSQL As StringPrivate Sub cboItem_Change(Index As Integer) '有变化设置gblchange mblChange = True End SubPrivate 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 IfEnd 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 MeEnd 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 lwfree.cnnd 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 = 0End 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 Sub2：订房信息查询窗体源代码：Option Explicit'用于传递查询块
Private Sub chkItem_Click(Index As Integer) If Index = 2 Then cboYear(0).SetFocus Else txtItem(Index).SetFocus End IfEnd Sub
Private Sub cmdExit_Click() Me.HideEnd 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.HideEnd Sub
Private Sub Form_Load() Dim i As Integer Dim j As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset txtSQL = "select distinct datepart(yy,indate) from bookin where ammount = '0' " Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then With mrclwfree.cnboYear(0).ListIndex = 0 For j = 1 To 12 cboMonth(0).AddItem j Next j cboMonth(0).Text = Month(Now()) For j = 1 To 31 cboDay.AddItem j Next j cboDay.Text = Day(Now()) Else cmdOk.Enabled = False End If mrc.CloseEnd Sub
Private Sub lblitem_Click(Index As Integer) chkItem(Index).Value = vbChecked End Sub
Private Sub txtItem_GotFocus(Index As Integer) txtItem(Index).SelStart = 0 txtItem(Index).SelLength = Len(txtItem(Index))End Sub3：订房信息列表窗体源代码：Option ExplicitPublic txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As String
Private Sub Form_Load() ShowTitle ShowData flagBedit = TrueEnd Sub
Private Sub Form_Resize() If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then '边界处理 If Me.ScaleHeight < 10 * lblTitle.Height Then Exit Sub End If If Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2 Then Exit Sub End If '控制控件的位置 lblTitle.Top = lblTitle.Height lblTitle.Left = (Me.Width - lblTitle.Width) / 2 msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2 msgList.Width = Me.ScaleWidth - 200 msgList.Left = Me.ScaleLeft + 100 msgList.Height = Me.ScaleHeight - msgList.Top - 200 End IfEnd Sub
Public Sub FormClose() Unload MeEnd Sub
'删除记录Private Sub Form_Unload(Cancel As Integer) flagBedit = False gintBmode = 0End Sub
'显示Grid的内容
Private Sub ShowData() Dim j As Integer Dim i As Integer
Set mrc = ExecuteSQL(txtSQL, MsgText) With msgList .Rows = 1 Do While Not mrc.EOF .Rows = .Rows + 1 For i = 1 To mrc.Fields.Count Select Case mrc.Fields(i - 1).Type Case adDBDate lwfree.cnmrc.Fields(i - 1) & "" End Select Next i mrc.MoveNext Loop End With mrc.Close End Sub
'显示Grid表头Private Sub ShowTitle() Dim i As Integer With msgList .Cols = 8 .TextMatrix(0, 1) = "" .TextMatrix(0, 2) = "顾客姓名" .TextMatrix(0, 3) = "身份证号码" .TextMatrix(0, 4) = "房间编号" .TextMatrix(0, 5) = "入住日期" .TextMatrix(0, 6) = "折扣" .TextMatrix(0, 7) = "备注" '固定表头 .FixedRows = 1 '设置各列的对齐方式 For i = 0 To 7 .ColAlignment(i) = 0
