毕业论文范文——车站售票管理系统设计与实现

分类号 密级 UDC 毕 业 设 计 论 文车站售票管理系统设计与实现作 者 姓 名 指导导师姓名 申请学位级别 班级 学科专业名称 论文提交日期 论文答辩日期 评阅人 35摘 要 一个大型的计算机管理系统必须有一个正确的设计指导思想，通过合理的选择数据结构，操作系统以及开发环境，构成一个完善的网络系统，才能充分发挥计算机信息管理优势。现代化的车站售票是集预定车票、售票 、退票、车次查询、报表及其他各种服务，车站售票组织庞大，服务项目多，信息量大，要想提高劳动生产，降低成本，提高服务质量和管理水平，进而促进经济效益，必须借助计算机来进行现代化的信息管理。第一章简要介绍了本系统的设计总体线路。第二章概述了管理信息系统的相关理论，第三章对本系统进行了系统分析和设计，包括功能需求描述、数据库设计等内容。第四章介绍了本系统的具体实现。最后一章对本系统开发过程中结论及使用过程中的体会进行了总结。关键词： 车站售票管理；设计；开发目 录摘 要I目 录II第一章 导言11.1问题的提出11.2本文研究路线1第二章 管理信息系统研究概述32.1管理信息系统的发展历史32.2管理信息系统的特点32.3管理信息系统的开发方式52.4管理信息系统的开发过程6第三章 车站售票管理系统分析与设计93.1车站售票管理系统功能需求简介93.2功能需求描述93.3目标系统要求113.4系统平台选择113.5数据库设计113.5.1数据库介绍113.5.2数据库需求分析133.5.3数据库概念结构设计153.5.4数据词典设计163.5.5使用ADO数据控件访问数据库18第四章 车站售票管理系统的功能实现204.1登陆界面编码设计204.2售票管理界面编码设计224.3报表管理界面编码设计264.4数据库备份管理界面编码设计274.5发布应用程序304.5.1编译应用程序304.5.2打包应用程序314.5.3发布应用程序的步骤32第五章 结论及体会33参考文献35第一章 导言1.1问题的提出一个大型的计算机管理系统必须有一个正确的设计指导思想，通过合理的选择数据结构，操作系统以及开发环境，构成一个完善的网络系统，才能充分发挥计算机信息管理优势。现代化的车站售票是集预定车票、售票 、退票、车次查询、报表及其他各种服务，车站售票组织庞大，服务项目多，信息量大，要想提高劳动生产，降低成本，提高服务质量和管理水平，进而促进经济效益，必须借助计算机来进行现代化的信息管理。传统手工的车站售票管理，管理过程繁琐而复杂，执行效率低，并且易于出错。通过这样的系统，我们可以做到信息的规范管理和快速查询，实现了车站售票管理的系统化、规范化和自动化，这样不仅减少了管理工作量，还提高了管理效率，降低了管理成本。1.2本文研究路线本文的研究路线如下图1.1所示。资料查询熟悉开发环境定 题调查研究系统分析与设计数据库设计功能实现打包发布图1.1 本文的研究路线 第二章 管理信息系统研究概述2.1管理信息系统的发展历史信息作为生产力中最活跃的因素，很早就在人类经济生活中发挥着不可替代的作用，但把信息纳入企业经营管理系统中高效处理和应用是在计算机发明以后的50年代末。目前人们所提到的管理信息系统，通常是指以计算机为工具，对管理信息进行收集、存贮、检索、加工和传递，使其应用于组织机构及企业管理领域的“人机系统”，该系统是70年代初“后工业经济”时代的产物，在企业管理信息系统在其发展的初期，是单一的人机系统，系统功能简单，效率低，对管理的作用有限。进入2 0世纪80年代末，随着计算机网络和通信技术的大力发展，企业管理信息系统进入网络化的发展时期。世界发达国家已建立起了完善的先进的管理信息系统体系，在其社会经济发展领域中发挥着巨大的作用。我国的管理信息系统大发展是在80年代末90年代初，国家相继建立起了“金卡”、“金关”、金桥“工程，多数企事业单位建立了局域网和广域网管理信息系统。随着世界经济和我国经济逐步向知识经济迈进，无论是基于工业经济的管理信息系统，还是面向少数专家和管理人员的专家系统 (ES)或决策支持系统 (DSS)，其处理对象和服务对象，自身的系统结构，处理能力，都有了进一步的发展。2.2管理信息系统的特点1、管理信息系统的组成 管理信息系统在企业中的应用存在三个要素，这就是人、计算机和数据。 人是指企业领导者、管理人员、技术人员，以及MIS建设的领导机构和实施机构，他们在系统中起主导作用。MIS是一项系统工程，不是只靠一些计算机开发人员就可以完成的，必须有企业管理人员，尤其是企业领导的积极参与。 计算机技术是MIS（管理信息系统）得以实施的主要技术。在这些技术中，软件开发是MIS开发的重点。 第三个因素也不能忽视。企业的管理数据是MIS正常运行的基础。广义地说，各项管理制度是MIS建设成功的基础。试想要计算一台机床的成本，需要按时输入每个部件、每个零件以及每个螺钉螺帽的费用，涉及企业的生产车间、采购、库房、工艺设计和财务等多个部门，必须有一整套管理制度作保证。2、管理信息系统的界面特点 在计算机软件技术中，人机界面已经发展成为一个重要的分支。MIS人机界面设计一般遵循以下一些基本原则： （1）以通信功能作为界面设计的核心 人机界面设计的关键是使人与计算机之间能够准确地交流信息。一方面，人向计算机输入信息时应当尽量采取自然的方式：另一方面，计算机向人传递的信息必须准确，不致引起误解或混乱。另外，不要把内部的处理、加工与人机界面混在一起(人机界面程序只是通信)，以免互相干扰，影响速度。 设计MIS时，针对每一个功能，都要按照模块化思想，使输入、处理与输出“泾渭分明”，充分体现人机界面的通信功能。这样设计出来的程序不易出错，而且易于维护。 报表打印是MIS必备的功能之一，而且打印之前常常需要计算。计算与打印分开设计，虽然消耗时间，但易于整个MIS系统的维护。 （2）.界面必须始终一致 统一的人机界面不至于会增加用户的负担，让用户始终用同一种方式思考与操作。最忌讳的是每换一个屏幕用户就要换一套操作命令与操作方法。 例如在整个系统可以以问号图标表示帮助，以磁盘图标表示存盘，以打印机图标表示打印等。 （3）.界面必须使用户随时掌握任务的进展情况 人机界面应该能够告诉用户软件运行的进度。特别是在需要较长时间的等待时，必须让用户了解工作进展情况，如可以设计已经完成了百分之几的任务进度条等。目前，Windows下的应用软件无论大小，其安装程序几乎均做到了这一点。开发MIS软件时，这一点很值得借鉴。 （4）.界面友好。使用方便 多数MIS软件的数据输入量较大。对于一些相对固定的数据，不应让用户频频输入(特别是汉字)，而应让用户用鼠标轻松选择。例如，人事管理系统中的“文化程度”是相对固定的数据，其值一般取“小学”、“初中”、“高中”、“大专”、“大本”、“硕研”、“博研”等。录入这类数据之前，MIS软件应在相应位置弹出一个列表框，待用户以鼠标点击，而不应让用户每次都输入这些汉字。 总之，所开发的MIS在使用过程中，应使用户的数据输入量降至最低限度减少用户的干预量。实践证明，用户干预愈少，MIS系统的满意程度愈高。2.3管理信息系统的开发方式 管理信息系统的开发方式主要有独立开发方式、委托开发方式、合作开发方式、购买现成软件方式等4种。这4种开发方式各有优点和不足，需要根据使用单位的技术力量、资金情况、外部环境等各种因素进行综合考虑和选择。不论哪种开放方式都需要有单位的领导和业务人员参加，并在管理信息系统的整个开发过程中培养、锻炼、壮大该系统的维护队伍。 1.独立开发 独立开发适合于有较强的管理信息系统分析与设计队伍和程序设计人员、系统维护使用队伍的组织和单位，如大学、研究所、计算机公司、高科技公司等单位。独立开发的优点是开发费用少，实现开发后的系统能够适应本单位的需求且满意度较高，最为方便的是系统维护工作。缺点是由于不是专业开发队伍，容易受业务工作的限制，系统优化不够，开发水平较低，且由于开发人员是临时从所属各单位抽调出来进行管理信息系统的开发工作，这些人员在其原部门还有其他工作，所以精力有限，容易造成系统开发时间长，开发人员调动后，系统维护工作没有保证的情况。因此，一方面需要大力加强领导，实行“一把手”原则，另一方面可向专业开发人士或公司进行咨询，或聘请他们作为开发顾问。 2.委托开发 委托开发方式适合于使用单位无管理信息系统分析、设计及软件开发人员或开发队伍力量较弱、但资金较为充足的单位。双方应签订管理信息系统开发项目协议，明确新系统的目标和功能、开发时间与费用、系统标准与验收方式、人员培训等内容。委托开发方式的优点是省时、省事，开发的系统技术水平较高。缺点是费用高、系统维护需要开发单位的长期支持。此种开发方式需要使用单位的业务骨干参与系统的论证工作，开发过程中需要开发单位和使用单位双方及时沟通，进行协调和检查。3.合作开发 合作开发方式适合于使用单位有一定的管理信息系统分析、设计及软件开发人员，但开发队伍力量较弱，希望通过管理信息系统的开发建立完善和提高自己的技术队伍，便于系统维护工作的单位。双方共享开发成果，实际上是一种半委托性质的开发工作。优点是相对于委托开发方式而言节约了资金，并可以培养、增强使用单位的技术力量，便于系统维护工作，系统技术水平较高。缺点是双方在合作中沟通易出现问题，需要双方及时达成共识，进行协调和检查。 总之，不同的开发方式有不同的长处和短处，需要根据使用单位的实际情况进行选择也可综合使用各种开发方式。2.4管理信息系统的开发过程 管理信息系统的开发过程一般包括系统开发准备、系统调查、系统分析、系统设计、系统实现、系统转换、系统运行与维护、系统评价等步骤。根据开发系统的大小、复杂、投入、方式、方法等因素的不问，各步骤的要求和内容也不同，用户需要根据实际情况进行取舍和计划。 1、系统开发准备 系统开发准备工作主要包括提出系统开发要求、成立系统开发小组、制订系统开发计划等工作。 2、系统调查 新系统的系统分析与系统设计工作都要建立在对现行系统调查的基础上，即必须调查现行系统的运行情况、问题等，明确用户的需求，特别是合作开发和委托开发方式。 调查的主要内容有： (1)现行系统概况：该组织的发展历史、目前组织的规模、工作状况、管理水平、与外界的主要联系等。调查该项内容的目的主要是为了划分系统界限、系统与外界的输入输出接口等。 (2)组织机构：画出组织的组织结构图，弄清组织的行政关系、人员编制、工作范围、地理位置等，发现不合理问题及新系统启动后可能对现有组织的影响。 (3)业务流程：按照业务种类的不同和处理时间的先后不同，深入了解现行系统的业务流程，画出现行系统业务流柞图，并与业务人员反复讨论，得到认可。调查中要注意定性与定量相结合，注意人、财、物、信息的流向、规格、频率、要求以及需要解决的问题等。 (4)报表、数据处理：了解各种统计报表、数据的格式、内容、处理时间及上报时间、频率、规律，存在的问题，对新系统的要求、希望等并收集各种报表。 (5)问题：现行系统中存在的主要问题和薄弱环节，可以按照严重程度分成不同的等级。新系统的建立应能解决大部分问题，并改善薄弱环节。 (6)新系统的功能和目标：了解各级领导和各类业务工作人员对新系统功能的要求， 系统分析(又称逻辑设计)是管理信息系统开发的关键环节，要求在系统调查的基础上，对新系统的功能进行细致的分析，并建立一个新系统的逻辑模型。 新系统的逻辑模型由系统数据流程图、概况表、数据字典、物理逻辑表达式及有关说明组成。最后要完成系统分析报告(也称为系统逻辑设计说明书)。系统逻辑模型就像在根据需要建设一座学校前，按照学校教育的层次(初等、中等、高等)、规模、投资、地理环境、技术水平等条件的要求和约束，先由建筑设计院进行设计，保证学校建成后的各种功能得以实现，之后才能进行工程设计和施工一样。在系统设计阶段要做认真、细致的分析、研究工作，避免新系统在功能上存在先天不足或缺陷。 因为新系统模型是建立在对现行系统的分析及要求的基础上的，所以系统调查工作要进行得深入、细致、全面。用户可以对新系统的逻辑模型提出意见，双方经过讨论、修改，最后达成共识，并完成系统分析报告(系统逻辑设计说明书)，经有关领导审批通过之后，转入系统设计(又称系统物理设计)阶段。 4、系统设计 系统设计又称系统物理设计。系统设计要根据系统分析报告中的系统逻辑模型综合考虑各种约束，利用一切可利用的技术手段和方法进行各种具体设计，确定新系统的实施方案，解决“系统怎么做”的问题。 结构化系统设计是指利用一组标准的图表工具和准则，确定系统有哪些模块，用什么方法连接，如何构成良好的系统结构，并进行系统输入、输出、数据处理、数据存储等环节的详细设计。这一阶段的重点是设计好系统的总体结构，选择最经济合理的技术手段。系统设计阶段的文件是系统设计报告(又称系统物理设计说明书)。 5、系统实施与转换 系统实施阶段的主要工作包括：系统硬件的购置与安装、程序的编写(购买)与调试、系统操作人员的培训、系统有关数据的准备和录入、系统调试和转换。 在系统实施阶段要成立系统实施工作量到小组，组织各专业小组组长和有关部门的领导共同编制新系统实施计划。可以应用各种项目管理的软件和方法进行管理，实行项目经理负责制，保证系统实施工作的顺利进行和成功。 硬件的购置和安装包括计算机硬件、外设、网络、电源、机房、环境等有关设备的购买、验收、安装与调试工作等，这些工作主要由专业技术人员完成。 数据准备与录入工作主要是指由手工操作转入计算机处理所需的各种数据的整理、录入及计算机系统中为新系统所用数据的转换工作。数据准备与录入工作要注意数据的准确性，在整理、录入、校验等各个环节把好关，为系统的顺利转换打好基础。 在进行以上各个环节的同时展开人员培训工作，包括管理信息系统只是的普及教育、新制度的学习、计算机操作训练等。使所有人员了解新系统的基本功能、新系统对使用人员的要求、建立管理信息系统的目的、管理信息系统的建设可以为组织和个人带来的帮助和便利、个人在新系统中应该承担的工作等，是用户关心、支持新系统的实现。 6.系统维护和评价 管理信息系统是一个复杂的人机系统。系统外部环境与内部因素的变化，不断影响系统的运行，这时就需要不断地完善系统，以提高系统运行的效率与服务水平，这就需要从始至终地进行系统的维护工作。 系统评价主要是指系统建成后，经过一段时间的运行后，要对系统目标与功能的实现情况进行检查，并与系统开发中设立的系统预期目标进行对比，及时写出系统评价报告。 系统维护与评价阶段是系统生命周期中的最后一个阶段，也是时间最长的一个重要阶段。第三章 车站售票管理系统分析与设计3.1车站售票管理系统功能需求简介一个完善的车站售票计算机管理信息系统应当包括系统应具有售票、查询、管理和维护等功能，系统管理员可以进行对车次的更改、票价的变动及调度功能，票价的修改可以通过修改运价来进行，车次调度可通过对发车时刻表的修改来进行，维护功能即可对表进行修改。设计从始至终贯穿着这样的原则：1 以用户需求为目标，以方便用户为原则，系统将在统一的WINDOWS 操作系统图形界面下提供各种实用功能，尽可能降低使用前的学习、实施和使用中的维护时间。2 近于手工的操作，直观的图形用户界面，美观、友好、简单易用：所有菜单，窗口，操作方式均为win98风格。操作方便，充分考虑前台操作人员操作条件及习惯，有良好的易用性。 3 利用目前最为流行的32位数据开发工具VisualBasic6.0, 既可使用ACCESS,FOXPRO等中小型数据库，又使其支持SQL SERVER，SYBASE，ORACLE,DB2等各种大型数据库。3.2功能需求描述根据实际情况，使用原型法（Rapid Prototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。下图说明了它们之间的关系车站售票管理系统售票功能查询功能调度功能维护功能统计功能销售车票预订车票退票车次查询时刻表查询售票情况查询运价修改车辆修改终点站修改车次修改已售车票表预订车票表退票表售票统计报表打印经过分析后确定系统应具备以下功能：（1）、售票功能 销售车票 预订车票 退票（2）、查询功能 车次查询 时刻表查询 售票情况查询（3）、调度功能 运价修改 车辆修改 终点站修改 车次修改（4）、维护功能 车票表修改 预订车票表修改 退票表修改 密码修改（5）、统计功能 售票统计 报表打印3.3目标系统要求目标系统应该达到以下要求： 1、时间经济性。优化逻辑设计与物理设计，使系统运行效率高，反映速度快。2、可靠性。能连续准确的处理业务，有较强的容错能力。3、可理解性。用户容易理解和使用该系统。4、可维护性和适应性。系统应易于修改、易于扩充、易于维护，能够适应业务不断发展变化的需要。5、可用性。目标系统功能齐全，能够完全满足业务需求。6、安全保密性。保证系统的物理安全、数据存储和存取的安全与保密、数据传输的安全与保密，做好使用人员的授权管理。3.4系统平台选择选择微软平台作为主导，一方面考虑目前微软的飞速发展，越来越多的企业在规划内部网络时，将微软平台作为首选方案；另一方面从技术角度来讲，微软平台上的应用无论是在开发上，还是在软件的部署上都非常容易，而且性能优越。操作系统：Windows 98数据库为：SQL Server 2000开发工具与语言: Visual Basic 6.0 3.5数据库设计3.5.1数据库介绍所谓数据库（Database）就是指按一定组织方式存储再一起的，相互有关的若干个数据的结合，数据库管理系统（Database Management System）就是一种操纵和管理数据库的大型软件，简称DBMS,他们建立在操作系统的基础上，对数据库进行统一的管理和控制，其功能包括数据库定义，数据库管理，数据库建立和维护，于操作系统通信等。DBMS通常由数据字典，数据描述语言及其编译程序，数据操纵（查询）语言及其编译程序，数据库管理例行程序等部分组成。关系数据库是以关系模型为基础的数据库，是根据表、记录和字段之间的关系进行组织和访问的一种数据库，它通过若干个表（Table）来存取数据，并且通过关系（Relation）将这些表联系在一起，关系数据库提供了成为机构化查询语言（SQL）标准接口，该接口允许使用多种数据库工具和产品，关系数据库是目前最广泛应用的数据库。在Visual Basic中，关系型数据库一般可以分为两类：一类是桌面数据库，例如Access、Paradox、FoxPro、Dbase,另一类就是客户/服务器数据库，例如SQL Server、Oracle和Sybase等。一般而言，桌面数据库主要应用于小型的、单机的数据库应用程序。也是初学者常用的数据库类型。实现起来比较方便，但同时也只能提供数据的存取功能。它主要用于小型的、单机的、单用户的数据库管理系统。该车站售票管理系统的数据库选用Microsoft公司的SQL Server 2000s产品作为数据库应用程序。目前的SQL Server 2000是Microsoft强大的数据库平台的第六代产品，是3 2位SQL Server 2000的第三个版本。SQL Server 2000有以下一些基本定义：数据库是一个包含各种SQL Server 2000 “对象”(表、查询、窗体、报表、宏和模块)的文件，SQL Server 2000中所有工作都是建立在此基础之上的。表是存放数据的容器，被设计成行和列的格式，就像电子表中的那样。每一列叫做一个“字段”，包含特定类型的信息，如姓名或学历。每一行称为一个“记录”，包含与单个实体有关的所有信息，如某个员工的姓名、性别、所在部门、学历等。对于像SQL Server 2000这样的关系数据库管理程序，一个数据库通常包含几个存放相关数据的不同表。查询是一个SQL Server 2000对象，它询问数据库中有关数据的问题。根据设计方法的不同，查询能够在数据库中检索并组合来自不同表的数据。例如，可以设计一个查询来告知在公司中工作超过1年的职员有多少。查询还可以对一组数据执行操作，如更新或删除某组记录。窗体是一个窗口，它提供一种很方便的途径来查看数据库中已有记录或向数据库中增添新记录。在SQL Server 2000中，可以创建一个窗体，用来同时查阅单个表或多个表中的数据，还可以打印和显示窗体。报表是一个SQL Server 2000对象，设计来显示数据，其作用类似于窗体，但主要是用于数据打印，不能输入数据。 页是一种特殊类型的窗体，它使用户能够利用Web浏览器查看和编辑SQL Server 2000的表。 3.5.2数据库需求分析 数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完善和一致。同时，合理的数据库结构也将有利于程序的实现。用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，可以为后面的具体设计和开发打下坚实的基础。仔细分析调查有关车站售票管理信息需求的基础上，将得到本系统所处理的数据流程。车站售票管理系统数据流程图如图3.2所示。系统管理员车次修改运价修改终点站修改发车修改售票车次表运价表终点站名表发车时刻表查询售票员预订车票表退票表已售车票表报表打印车票已售车票表图3.2 车站售票管理系统数据流程图针对一般车站售票管理信息系统的需求，通过对车站售票管理过程的内容和数据流程分析，可以设计出该系统的数据项和数据结构：n 经过分析可以得到以下数据流条目：n 车次表=车辆编号+车型+座位数n 终点站名表=站名+里程n 运价表=车型+运价n 发车时刻表=车次+车辆编号+站名+发车时间+检票口n 已售车票表=票号+乘车日期+车次+站名+发车时间+票价+全半价+工号+退票否n 预订车票表=预订号+乘车日期+车次+站名+发车时间+车型+票价+客户名称+订票数量n 退票表=票号+退票时间+票价+应退款n 售票员编号=工号+姓名n 车辆编号=6数字6n 车次=4字符5n 车型=1字符8n 座位数=2数字2n 检票口=1数字2n 站名=1字符10n 里程=1数字5n 运价=1数字6n 发车时间=时间n 乘车日期=日期n 票号=7数字7n 票价=1数字5n 全半价=2字符2n 退票否=T|Fn 预订号=4数字4n 客户名称=6字符20n 订票数量=1数字2n 退票时间=日期时间n 应退款=1数字5n 工号=3字符3n 姓名=4字符83.5.3数据库概念结构设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的数据字典设计打下基础。1、E-R图车辆目标站名开往车辆编号车型座位数车次发车时间检票口站名里程nm姓名车票售票员售票票号预订顾客车次站名票价座位号全半价乘车日期工号站名车次预订号顾客名称退票退票时间计费运价车型价格nnnn1111票价应退款退票否乘车日期主键： 外键： 2、关系模式车辆（车辆编号，车型，座位数）目标站名（站名，里程）发车时刻表（车次，站名，车辆编号，发车时间，检票口）途径（车次，站名）车票（票号，乘车日期，车次，站名，票价，全半价，座位号，工号，退票否）预订（预订号，车次，站名，乘车日期，顾客名称，票数）退票（票号，退票时间，票价，应退款）售票员（工号，姓名）运价（车型，价格）3.5.4数据词典设计该软件的数据库名称为“车站售票管理系统”.车辆表：字段名类型长度小数点允许空主/外键车辆编号Int4主车型Varchar8座位数smallInt2目标站名：字段名类型长度小数点允许空主/外键站名Varchar10主里程Int4发车时刻表：字段名类型长度小数点允许空主/外键车次Varchar5主站名Varchar10外车辆编号Int4外发车时间Datetime 8检票口smallInt2途径表：字段名类型长度小数点允许空主/外键车次Varchar5主站名Varchar10外车票表：字段名类型长度小数点允许空主/外键票号Int4主乘车日期Datetime8车次Varchar5外站名Varchar10外票价Float8全半价Char2座位号smallInt2工号Char3退票否Char1预订表：字段名类型长度小数点允许空主/外键预订号Int4主车次Varchar5外站名Varchar10外乘车日期Datetime8顾客名称Varchar20票数smallInt2退票表：字段名类型长度小数点允许空主/外键票号Int4主退票时间Datetime8票价Float8应退款Float8售票员表：字段名类型长度小数点允许空主/外键工号Char3主姓名Char8运价表：字段名类型长度小数点允许空主/外键车型Varchar8主价格Float83.5.5使用ADO数据控件访问数据库ADO(Active Data Objects)是一种新的数据访问方式，具有以下特征： 有一个简化的对象模型 与其他Microsoft和非Microsoft技术更加紧密的集成。 是一个本地和远程数据访问、远程和断开连接的记录集、用户可以访问的数据绑定接口以及层次化的记录集的通用接口。车站售票管理系统通过ADO这个数据控件来访问数据库，首先，安装ADO 控件要在简体中文VISUAL BASIC6.0企业版中注册后才能使用。ADO(ActiveX Data Object)是微软提出的数据访问接口，它实现了RDO的绝大多数功能，另外还增加了一些用户以前没有接触到的特征。Visual Basic 6.0可以很好地支持ADO和OLE DB数据访问模式。在ADO2.0中包含了数据绑定、可视化设计工具以及OLE DB数据源书写模板等新的内容。在Visual Basic6.0中，ADO的数据环境设计器(Data Environment Designer)取代了Visual Basic 5.0中的RDO的用户连接设计器(User Connection Designer)。User Connection对象只支持ODBC数据源，而Data Environment对象可以连接所有的OLE DB数据源o ADO对象模型定义了一个可编程的分层的对象集合，它支持部件对象模型(COM)和OLE DB数据源。与其他的数据访问对象相比，包含在ADO的对象少得多，也更加容易使用。ADO对象模型中包含了3个一般用途的对象：Connection、Command和Recordset。程序开发人员可以创建这些对象并且使用这些对象访问数据库。在ADO对象模型中还有其他几个对象，例如Field、Property、Error和Parameter，它们是作为前面3个对象的子对象进行访问的。1、ADO数据控件的功能ADO data控件使用ActiveX数据对象（ADO）来快速建立数据约束控件和数据提供者之间的连接，并快速创建记录集，然后将数据通过数据约束控件提供给用户，其中数据约束控件可以是任何具有“数据源”属性的控件，而数据提供者可以是符合OLE DB规范的数据源。使用Visual Basic的类模块也可以很方便的创建子集的数据提供者。在Visual Basic6.0中，可以使用ADO数据控件实现下面一些功能： 连接一个本地数据库或远程数据库。 打开一个指定的数据库表，或定义一个基于结构化查询语言(SQL)的查询、存储过程或者是该数据库中表的视图的记录集合。 将数据字段的数值传递给数据绑定的控件，可以在这些控件中显示或更改这些数值。 添加新的记录，或者根据对显示在绑定的控件中的数据的任何更改来更新一个数据库。2、 ADO数据控件的属性 ADO数据控件与Visual Basic的内部数据控件(Data)和远程数据控件(RDC)很相似，它允许使用ADO快速地创建与数据库的连接。 与Data控件类似，为了实现对数据库的访问，ADO数据控件提供了几个属性，这些属性定义了怎样连接数据库以及同什么样的数据库相连接。 Connection String属性：是一个字符串，可以包含进行一个连接所需的所有设置值，在该字符串中所传递的参数是与驱动程序相关的。例如，ODBC驱动程序允许该字符串包含驱动程序、提供者、默认的数据库、服务器、用户名称以及密码等。ADO支持Connection String属性的4个参数，而且这4个参数将不经过ADO的处理直接送到数据源。这四个参数的属性如下表3.1所示：表3.1 Connection String属性的4个参数参数描述Provider指定数据源的名称File Name指定基于数据源的文件名称Remote Server指定在打开一个客户端连接时使用的数据源名称Remote Server指定打开客户端连接时使用的服务器的路径与名称第四章 车站售票管理系统的功能实现下面给出系统开发出来的详细界面以阐述车站售票管理系统的具体功能。4.1登陆界面编码设计首先是进入登陆界面，如图4.1所示图4.1 登陆界面Private Sub Cmdexit_Click()EndEnd SubPrivate Sub Cmdok_Click()Dim username1 As String, username2 As Stringusername1 = Text1.TextIf Option1.Value Then Set Text3.DataSource = Adodc1 Text3.DataField = 口令 Adodc1.Recordset.MoveFirst If username1 Then username2 = 用户名= & username1 & Adodc1.Recordset.Find username2 If Adodc1.Recordset.EOF Then MsgBox 用户名错误请重输, 16, 错误 Else If Text2.Text Text3.Text Then MsgBox 密码错误请重输, 16, 错误 Text2.Text = Else MDIForm1.Show Form1.Hide End If End If End IfElse If Option2.Value Then Set Text3.DataSource = Adodc2 Text3.DataField = 口令 Adodc2.Recordset.MoveFirst If username1 Then username2 = 工号= & username1 & Adodc2.Recordset.Find username2 If Adodc2.Recordset.EOF Then MsgBox 用户名错误请重输, 16, 错误 Else If Text2.Text Text3.Text Then MsgBox 密码错误请重输, 16, 错误 Text2.Text = Else MDIForm1.Show Form1.Hide End If End If End If End IfEnd IfEnd Sub4.2售票管理界面编码设计 图4.2“售票管理”功能界面Dim flag As StringPrivate Sub Cmdfind_Click()Dim zm As StringText2.Text = Text3.Text = Text4.Text = zm = select 发车时刻表.车次,途径表.站名,车型,发车时间,检票口,发车时刻表.站名 as 班车 from 发车时刻表,途径表,车辆 where 发车时刻表.车次=途径表.车次 and 发车时刻表.车辆编号=车辆.车辆编号 and 途径表.站名= & Combo1.Text & order by 发车时间 ascAdodc1.RecordSource = zmAdodc1.RefreshText1.Text = Text1.RefreshEnd SubPrivate Sub Cmdok_Click()If flag = T Then Adodc8.Recordset.MoveFirst While Not Adodc8.Recordset.EOF If Year(Text12) = Year(Date) And Month(Text12) = Combo2.Text And Day(Text12) = Combo3.Text And Text13.Text = Text9.Text And Text3.Text = Text17.Text Then Text25.Text = F Adodc8.Recordset.Save flag = F Adodc8.Recordset.MoveLast Else Adodc8.Recordset.MoveNext End If WendEnd If Adodc8.Recordset.AddNew Text12.Text = Year(Date) & / & Val(Combo2.Text) & / & Val(Combo3.Text) Text13.Text = Text9.Text Text14.Text = Text6.Text Text15.Text = Text2.Text Text16.Text = Combo4.Text Text17.Text = Text3.Text Text18.Text = Form1.Text1.Text Adodc8.Recordset.Update Adodc8.Refresh Adodc8.Recordset.MoveLastForm6.ShowEnd SubPrivate Sub Combo2_LostFocus()If Val(Combo2.Text) Mod 2 = 0 Then If Val(Combo3.List(Combo3.ListCount - 1) = 31 Then Combo3.RemoveItem (Combo3.ListCount - 1) End IfElse If Val(Combo3.List(Combo3.ListCount - 1) 31 Then Combo3.AddItem 31 End IfEnd If End SubPrivate Sub DataGrid1_Click()Dim cc As String, sum As Integersum = 0Adodc3.Recordset.MoveFirstAdodc4.Recordset.MoveFirstAdodc6.Recordset.MoveFirstAdodc7.Recordset.MoveFirstAdodc8.Recordset.MoveFirstIf Month(Date) = Combo2.Text And Day(Date) = Combo3.Text Then If (Hour(Text19.Text) - Hour(Now) * 60 + Minute(Text19.Text) - Minute(Now) 5 Then MsgBox 已接近开车,停止售票, 64, 错误 Cmdok.Visible = False Else Cmdok.Visible = True End IfElse Cmdok.Visible = TrueEnd Ifcc = 车型= & Text5.Text & Adodc3.Recordset.Find cccc = 站名= & Text6.Text & Adodc4.Recordset.Find ccIf Combo4.Text = 全 Then Text2.Text = Int(Val(Text7.Text) * Val(Text8.Text) + 0.5)Else Text2.Text = Int(Val(Text7.Text) * Val(Text8.Text) / 2 + 0.5)End IfText2.RefreshWhile Not Adodc8.Recordset.EOF If Year(Text12) = Year(Date) And Month(Text12) = Combo2.Text And Day(Text12) = Combo3.Text And Text13.Text = Text9.Text And Text25.Text = F Then sum = sum + 1 End If Adodc8.Recordset.MoveNextWendText3.Text = sum + 1Adodc8.Recordset.M