软件工程课程设计火车票网上订票系统

《软件工程课程设计火车票网上订票系统》由会员分享，可在线阅读，更多相关《软件工程课程设计火车票网上订票系统（62页珍藏版）》请在装配图网上搜索。

1、 课程名称：软件工程试题题目：火车票网上订票系统姓 名：专 业： 计算机科学与技术学 院：计算机与信息科学学院时 间：2013年5月1号目录一、 开发背景与目标-4-开发背景开发目标二、需求分析说明书-6-2.1系统介绍-6-2.2系统面向的用户群体-6-2.3系统的功能性需求-6-2.4系统的非功能性需求-8-2.4.1用户界面需求-8-2.4.2软硬件环境需求-8-2.4.3软件质量需求-8-三、可行性分析报告-8-3.1经济可行性分析-8-3.2操作可行性分析-9-3.3技术可行性分析-9-3.4时间、设备可能性-11-3.5系统工作量-113.6文档要求-11四、开发环境与项目规划-1

2、14.1开发环境-114.2项目规划与管理-124.2.1开发人员安排-124.2.2开发进度安排-12五、结构化分析与设计-12分析与设计方法：组织结构图数据流程图数据字典模块结构图六、面向对象分析与设计-20分析与设计方法用况模型类与对象图活动图顺序图状态图七、数据库分析与设计-277.1数据库环境说明-277.2数据库命名标准与规范-287.3数据库逻辑设计-287.3.1逻辑设计步骤-287.3.2逻辑设计原则-287.3.3逻辑设计图-287.4数据库物理设计-337.4.1数据库物理设计步骤-337.4.2表、视图汇总-337.4.3各表、视图设计详解-35八、 人机界面设计-35

3、8.1界面设计原则-358.2系统窗体汇总-358.3主界面设计-358.4子界面设计-35九、项目系统实现-369.1 实现环境与技术9.2 核心模块实现技术代码十、软件测试分析报告-5310.1测试范围与主要内容-5310.2测试方法-5410.3系统测试步骤-5410.4测试报告-5810.5系统优点-58十一、软件使用说明书-5911.1软件概述-5911.2使用说明 -5911.2.1系统登陆-5911.2.2注册-5911.2.3 系统简介-6011.2.4 更多功能-6011.2.5 后台管理子系统-6111.2.6 Mysql数据库信息：-61十二、系统开发评价.-61参考文献

4、-61一、 开发背景与目标开发背景火车站市场的管理和规范问题，是困扰我们多年的一个老问题，也是政府管理中的一个难点，订票是客运业务中的一个最基本的业务，表面上看，它只是火车站业务的一个简单的部分，但是它涉及到管理与客户服务等多方面，因此，过去传统的售票方式已经不能满足现代客运业务流量剧增的客观要求，这就要求一种全新的订票方式网上订票，来缓解订票高峰时期的客运压力，并为用户提供方便快捷的订票服务。目前火车站售票的状况是仅靠手工操作，以现有的工作人员很难应付车票订购高峰时刻的大量数据处理问题。同时还会出现由此带来的大量记录存放和管理所带来的问题。本次设计拟开发一个火车站网上订票系统，可以降低工作人

5、员的工作量，提高工作人员的工作效率，同时方便顾客订票。开发目标基本目标:解决火车站网上订票工作所要解决的问题，可以满足火车站网上订票的基本要求，包括查询、订票、退票等三个方面的功能。具体如下：1.查询分为对车次信息的查询和客户对已订车票信息的查询。要求：1）对车次的查询，可以按照发车车次进行查询； 2）车次信息包括：车号、出发地、目的地、发车日期、开出时刻、票价。3）座位类型设定。4）车次信息只允许用户查询，不能修改。2.添加车票通过查询系统，客户根据自己的需求找到满意的车次，再输入个人信息后直接通过网上订票确定已预订选中的车票。要求：订票记录应包括：会员名、车号、发车日期、订购票数、总价。3

6、.退票可退票，通过查询系统，客户可以根据自己的名字找到自己的订票信息，通过退票模块退去已购车票。项目转换成系统后，系统的顺利运行可以缓解订票高峰时期的客运压力，并为用户提供方便快捷的订票服务。还能运用到火车站售票的工作中，根据用户的需求，设置其权限，并快捷方便的为用户提供服务。 技术目标:采用VB SCRIPT脚本设计语言与数据库相结合的手段进行开发，实现手段先进、有效、简单。社会目标:通过本产品，使更多的企业或个人使用该软件，使他们对于本企业或个人的财务收支进行有力的监督。二、需求分析说明书2.1系统介绍火车站网上订票系统针对的用户是需要查询火车票信息、预订火车票以及退订火车票的人；该系统需

7、要实现如下主要功能以及相关说明：火车票信息查询：站与站的火车票信息查询、火车车次的查询以及用户已订票的信息查询。火车票预订：在规定的有效时间段内，预订火车票，但要收取一定的手续费。火车票退订：在车票的有效期之内，能够对所预订的火车票进行退订，对于退还的金额有一定比例的扣除。2.2系统面向的用户群体所有需要预定火车票的人2.3系统的功能性需求本系统的目标使用人群是广大的火车乘客，建成后将有助于缓解火车票售票人员的工作量。因此本系统首先需要实现用户对火车票的查询的查询功能，包括查询火车的票价和座位号等，查询到所需车票的用户还可以进行预订，预订时需填写用户的必要信息包括姓名、身份证号、收票地址等。预

8、订好车票的用户因某些因素需要退票的，在火车发车前的规定时间内，还可以进行退票。2.3.1 注册功能模块对于想利用本系统进行火车票查询的用户，首先需要注册成为系统的用户方能进行查询操作，系统保存用户的注册信息，在注册用户时仅需要输入由用户自定义的用户名称和密码，注册成功后页面随即转入主页（登录界面）。2.3.2 登录功能模块用于用户的登录，对于已经在本系统注册的用户可以根据注册时所用的用户名和密码登录到本系统，但是用户名和密码必须正确，若是不正确的用户名和密码，系统便进行错误提示。系统确认用户名和密码后便跳转到查询界面。2.3.3 查询功能模块查询分为站站查询，车次查询以及已订车票的信息查询。所

9、有上网用户都可以使用本系统的查询功能，对车票信息有个基本的了解。用户在查询界面输入框输入所要查询的出发站和目的站，或者是火车车次，系统则会根据输入的信息进行搜索，并给出搜索结果，用户还可点击搜索结果查看火车票的详细信息。2.3.4 订票功能模块用户在查询界面查询到自己所满意的车票时，可以进行网上订票操作，所订车票将自动添加到用户的个人信息当中，方便用户日后进行管理。2.3.5 管理功能信息模块只有登录后的用户才可以管理自己的信息，在个人信息框中可以查看到用户已订的车票和用户注册时所填的个人信息。用户由于某些个人因素需要退票的还可以进行退票操作。2.4系统的非功能性需求2.4.1用户界面需求方便

10、、简洁、美观、一致等2.4.2软硬件环境需求操作系统需要 windows 2000以上；操作系统环境：windows xp/windows 7；数据库需要Microsoft Access 95；数据库驱动：Microsoft公司的sqljdbc驱动;前台开发工具：Visual Basic 6.0;2.4.3软件质量需求三、可行性分析报告3.1经济可行性分析经济可行性研究是对系统投入使用后带来的经济效益进行评估，也包括对系统的投资预算。即要解决两个问题，资金可得性和经济合理性当前办公用PC机的普及使得 开发和应用管理系统在经济上成为可能。现在，计算机的价格已经十分低廉，性能却有了长足的进步，本系

11、统的开发为人民出行方便带来了质的飞跃。为此主要表现为以下几个方面:1、本系统的运行可以代替人工进行许多繁杂的劳动；2、本系统运行可以节省许多资源。如人力，财力，物力等方面；3、本系统的运行可以大大地节约买票时间；4、本系统可以使个人信息更加安全，等等。另一方面，就铁路局自身来说，它也是需要这样一个系统的。我们在计算机还没有普及之前，信息都必须通过在纸上填写来实现，这样既浪费时间，又容易出错。随着信息时代的来临，我们的各项工作都要讲求效率，买火车票也不例外。本系统其他应用软件、硬件系统也易于获得.因此,开发成本较低。而引进使用本系统后，与传统方式相比，具有高效率、低成本、高质量的特点，可以节省不

12、少人力、物力及财力。这就为火车票网上订票提供了使用人群，所以本系统在经济上是可行的。3.2操作可行性分析本系统采用菜单式，实现用户与数据库的交互，界面简洁友好，操作方便，有计算机基础的人无需培训即可使用，即使是没有计算机基础的人只需经过简单的培训就可熟练地使用本系统。系统运行后，就用户方面而言，由于用户使用本系统时，不会也不必关心系统内部的结构及实现方法，即对用户来说是透明的，所以本系统对用户而言是定位在界面友好，操作方便功能齐全的原则上的，用户只需用鼠标点击界面上的选项卡或按钮就能执行相应的功能。就管理者而言，关心的是如何处理各种数据只要把用户的信息输入计算机，管理者就可以运行相应的后台程序

13、进行处理。而以上的这些功能都能在所选择的开发环境中用所选择的开发工具来实现。所以说本系统在操作上是没有问题的。因此，他在操作上是可行的。3.3技术可行性分析数据库技术在计算机软件领域研究中一项非常重要的主题，产于60年代，40多年来数据库技术得到了迅速发展，并已形成较为完整的理论系统和一大批使用系统。面向对象是一种新兴的程序设计方法，或者是一种新的程序设计规范（paradigm），其基本思想是使用对象，类、继承、封装、消息等基本概念进行程序设计。许多程序开发工具如VB,Java, Microsoft Visual Studio 2005等都支持面向对象的程序开发。 系统的开发平台。我们选择了当

14、前流行的WindowsXP操作系统，应用程序开发采用Microsoft公司的面向对象的Microsoft Visual Studio 2005。Microsoft Visual Studio 2005是一款可视化编程软件，为我们提供了一种方便快捷的Windows应用程序开发工具与普通的数据库系统相比用Microsoft Visual Studio 2005作为数据库开发平台有简单、灵活、可扩充等特点，非常适合初学者快速掌握并用来开发数据库管理系统。数据库选择Microsoft Office Access 2003，Microsoft Office Access 2003是作为一种功能强大的MI

15、S系统开发工具，它具有界面友好，易学易用，开发简单，接口灵活等特点，是一个典型的新一代数据管理和信息系统开发工具。与Microsoft的其他数据库产品如FOXPRO等相比，Access具有较独特的优势-提供了更强大的数据组织,用户管理,安全检查等功能。当前管理信息系统的开发大都基于数据库技术和面向对象软件开发技术。这些技术目前已经成熟。被广泛应用于各个领域。综上所述，火车票网上订票系统的开发在技术上是可行的。3.4时间、设备可能性目前，中国社会大多都实现了数字化工作，有线无线网路覆盖了情况也相当理想，国家的硬件设施为火车票网上售票系统提供了坚实的基础。我们开发小组现有的人力物力，以及对开发技术

16、的掌握情况，可以在要求的时间内完成开发任务。在设备方面有计算机，服务器，网络和开发工具等为该系统的开发提供了可能性。3.5系统工作量该系统的工作量相对于我们的开发小组来说很大，必须保证按进度完成任务。实际工作量预计超过一个月（每天2-4小时）。如包含软件维护及技术文档的整理、制作，工作量将更大。3.6文档要求依据国家计算机软件产品开发文件编制指南和现代软件工程的理论与原则编制标准的软件技术文档。四、开发环境与项目规划4.1开发环境开发工具：Visual Basic 6.0 数据库环境：Microsoft Access 95系统环境：Microsoft Windows XP/ Microsoft

17、 Windows 7系统实现依靠相对熟悉的VB语言和Microsoft Access 95数据库系统，其基本操作实质还是对数据库进行添加、删除、查找等操作。4.2项目规划与管理4.2.1开发人员安排 任务:系统总的开发计划书、项目开发进度的管理、系统的需求分析、系统测试 任务：系统的总体设计、系统的可行性分析、数据库的设计以及系统的开发4.2.2开发进度安排开发过程最为重要的里程碑如下：1、 选定本次课程设计及报告的研究课题2、 收集资料和参考文献3、 认真阅读和学习资料、文献并做出初步构思4、 制定出整个系统的设计构想、设计思路和方法5、 进行系统的设计、开发和编写程序代码6、 对系统进行测

18、试和系统调试7、 完成整个系统的开发并进行系统维护撰写课程设计报告五、结构化分析与设计分析与设计方法：组织结构图 数据流程图本系统主界面为用户设计了三个功能操作以供选择：查询，订票，退票。另外，为方便用户，还将“退出系统”也单另列了出来，用户可以根据需要触发不同事件。1. 系统管理员以及系统用户操作处理流程图 系统管理员及系统用户操作流程图2.列车信息查询流程图 列车信息查询流程图3.退票处理流程图 退票处理流程图数据字典通过系统需求分析，对网上订票系统编制数据字典如下：各主要数据流的定义如表1至表4所示：名字：用户档案描述：用户订票时的个人信息定义：用户档案=用户名称+身份证号码+联系电话+

19、收票地址位置：注册界面表1表2名字：用户登录信息描述：确认是否是注册用户的基本信息定义：用户登录信息=用户名+密码位置：登录界面表 3名字：车票信息描述：用户所要查询和订购车票的基本信息定义：车票查询信息=车次号+出发地+目的地+发车日期+开出时刻+票价位置：查询界面，用户管理平台表4名字：用户个人管理信息描述：用户需要对车票和个人资料进行管理的信息定义：用户个人管理信息=所订车票信息+个人基本资料信息位置：用户订票管理平台模块结构图其功能模块结构图如下： 图 程序功能模块图图 站站查询系统流程图图 车次信息查询系统流程图图 订票系统流程图 图 退票系统流程图六、面向对象分析与设计分析与设计方

20、法用况模型类与对象图旅客（姓名、性别、需求信息、有效证件 ）列车班次（发车时间、起点、终点、乘坐人数、价格）火车站（名称、所在地）订票（票号、班次号、旅客号、票价）管理员（密码、姓名）旅客表字段类型含义说明Customer_NameString()旅客的名字旅客的名字Customer_SexVarchar()旅客的性别旅客的性别Customer_WantVarchar()旅客的需求旅客的需求信息Customer_IdenVarchar()旅客的证件旅客的有效证件班次表字段类型含义说明Train_TimeTime班次时间列车的发车时间Train_StartVarchar()班次起点列车的始发站T

21、rain_EndVarchar()班次终点列车的终点站Train_NumberInt()班次乘坐人数列车的乘坐人数Train_PriceInt()班次价格本次列车的价格订火车票表字段类型含义说明Order_IDVarchar()订火车票号主键（PK）Order_FIDVarchar()班次号外键（FK）Order_CIDVarchar()旅客号外键（FK）Order_PriceInt()票价外键（FK）管理员表字段类型含义说明Admin_passwordVarchar()管理员密码管理员密码Admin_NameVarchar()管理员姓名管理员姓名火车站表字段类型含义说明Station_Nam

22、eVarchar()火车站名字火车站名字Station_addrVarchar()火车站所在地火车站所在地活动图顺序图状态图1. 进入数据库系统页面2. 进入预定车票界面3. 预定成功后退出4. 进入退订车票界面5. 退订成功后退出6. 不能成功预、退车票则退出七、数据库分析与设计7.1数据库环境说明该系统的数据库采用Microsoft Office Access2003数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息,简而言之,数据库就是信息的集合。计算机的数据库可以分为两类:非关系数据库(flat-file)和关系数据库(relational)。关系数据库中包含了

23、多个数据表的信息,数据库含有各个不同部分的术语,象记录、域等。数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表,这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的,关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段,或在不同的记录中由重复数据的组合字段。数据库中有三种不同类型的关键字:主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。Microsoft Access2003是在Windows环境下非常流行的桌面型数据库管理

24、系统。使用Microsoft Access无需编写任何代码，只需通过直观的可视化操作就可以完成大部分数据管理任务。在Microsoft Access数据库中，包括许多组成数据库的基本要素。这些要素是存储信息的表、显示人机交互界面的窗体、有效检索数据的查询、信息输出载体的报表、提高应用效率的宏、功能强大的模块工具等。它不仅可以通过ODBC与其它数据库相连，实现数据交换和共享，还可以与Word、Excel等办公软件进行数据交换和共享，并且通过对象链接与嵌入技术在数据库中嵌入和链接声音、图像等多媒体数据。7.2数据库命名标准与规范1.数据库的命名：全部由英文字母组成。如：火车网上订票系统数据库命名为

25、“The train tickets online system”2.数据库表命名:表义名（可以使用缩写）如:英文单词首字母7.3数据库逻辑设计7.3.1逻辑设计步骤1）、将概念结构转换为一般的关系模型。2）、将转换来的关系模型向特定DBMS支持下的数据模型转换。3）、对数据模型进行优化。7.3.2逻辑设计原则7.3.2逻辑设计图退票信息用户订票通知车次信息列车座位信息退票订票包含查询用户姓名身份证号码始发站间收票地址用户姓名电话号身份证始发时间终点站车票类型车次用户名座位号车次座位号信息座位信息车票类型车次号订单号车次电话号 火车站网上订票系统E-R图退票系统车次电话号身份证号用户姓名图1退

26、票信息系统用户信息收票地址电话号身份证号用户姓名图2用户信息系统 列车车次信息终点站发车-到时始发站车次号票价运行时间里程 图3列车车次信息订票通知单火车票类型座位号用户姓名列车车次图4订票通知信息列车座位信息表火车票类型座位信息列车车次座位号图5列车座位信息表 E-R图向关系模型的转换将图3.4总体概念结构E-R图转化成关系模型。退票信息（车次，用户姓名，电话号,身份证号）用户（用户姓名，身份证号，电话号，收票地址)车次信息表（车次号，始发站，终点站，发车-到时，参考票价，里程，运行时间）订票通知单（用户姓名，订票时间，车次号，座位号，车票类型）列车座位信息表（座位号，车次号,座位信息，车票

27、类型）数据模型的优化将转化的关系模式进行优化，最终达到第三范式。1）、确定数据依赖退票信息（车次，用户姓名，电话号,身份证号）根据这个关系写出数据依赖车次用户姓名，车次电话号，车次身份证号用户（用户姓名，身份证号，电话号，收票地址)用户姓名身份证号，用户姓名电话号，用户姓名收票地址 车次信息表（车次号，始发地，目的地，始发时间）列车车次始发站，列车车次终点站，车次始发时间订票通知单（用户姓名，订票时间，车次号，座位号，机票类型）用户姓名订票时间，用户姓名车次号，用户姓名座位号，用户姓名车票类型火车座位信息表（座位号，车次号,座位信息，车票类型）（座位号，车次号）座位信息，（座位号，车次号，座位

28、信息）车票类型2）、对各关系模式间数据依赖进行极小化处理，消除冗余 车次用户姓名，车次电话号，车次身份证号，用户姓名收票地址，用户姓名订票时间，用户姓名车次号用户姓名座位号，用户姓名车票类型，车次号始发站，列车号终点站车次号始发时间，（座位号，车次号）座位信息3）、看这些模式是否符合要求，确定是否要对某些模式进行合并或者分解。最终分解成第三范式：（车次，电话号，身份证号）（车次，用户姓名）（用户姓名，订票时间，性别，收票地址，车票类型）（用户姓名，车次号）（用户姓名，座位号）（车次号，座位号，车票类型）（车次号，始发站，终点站，始发7.4数据库物理设计7.4.1数据库物理设计步骤1）、确定数据

29、库的物理结构，在关系数据库中主要指存取方法和存储结构。2）、对物理结构进行评价，评价的重点是时间和空间效率。7.4.2表、视图汇总 数据库文件名：db_train(1)列车信息表结构(db_info)列名数据类型允许Null值发车站文本否到达站文本否车次文本否车型文本否运行时间文本否里程文本否参考票价Long否余票信息Long否发车-到达文本否主键为：没有主键（2）注册用户表结构(login)列名数据类型允许Null值描述Usr文本否用户名Pwd文本否用户密码真实姓名文本否真实姓名身份证号码文本否身份证号码电话文本否电话订票地址文本否订票地址发车站文本是发车站到达站文本是到达站车次文本是车次票

30、价Long是票价发车-到时文本是发车-到时主键为：没有主键（3）管理员登陆表结构(masterlogin)列名数据类型允许Null值描述Usr文本否用户名Pwd文本否密码主键为：没有主键7.4.3各表、视图设计详解八、 人机界面设计8.1界面设计原则简单易用、简洁明了、兼容性好、标准、规范。8.2系统窗体汇总窗体名称窗体类型简要说明Form1主窗体注册Form2主窗体用户登录Form3选择窗体查询Form4模式子窗体站站查询Form5模式子窗体车次查询Form6模式子窗体站+车次查询Form7模式子窗体订票Form8模式子窗体退票8.3主界面设计主界面的设计采用标准系统登录样式，自上而下依次为

31、：用户名、密码、选项、确定与取消等。所有系统用户拥有相似的主界面。主界面包含基本的或共享的功能，如通知等。8.4子界面设计除系统中主要的、基本的功能之外，子系统或非共享功能的实现均采用子界面的设计来实现，如查询、订票、退票等。九、项目系统实现9.1 实现环境与技术开发工具：Visual Basic 6.0 数据库环境：Microsoft Access 95系统环境：Microsoft Windows XP/ Microsoft Windows 7系统实现依靠相对熟悉的VB语言和Microsoft Access 95数据库系统，其基本操作实质还是对数据库进行添加、删除、查找等操作。9.2 核心模

32、块实现技术代码9.2.1会员注册模块用户如果想要注册，则按要求输入信息，包括用户名，密码，确认密码。还要进行身份信息验证，包括真实姓名，身份证号，联系手机，收票地址。输入完后点击“注册”，则系统自动转入登陆界面。注册界面如下：图 注册界面具体方法代码实现如下：Private Sub Command1_Click()If Not Text1.Text = And Not Text2.Text = And Not Text3.Text = And Not Text4.Text = And Not Text5.Text = And Not Text6.Text = And Not Text7.Tex

33、t = And Text2.Text = Text3.Text ThenData1.RecordSource = select * from login where usr= & Text1.Text & Data1.RefreshIf Not Data1.Recordset.EOF ThenMsgBox 对不起用户名已经被占用！重新输入, vbOKOnly + vbInformation, 提示Text1.Text = Text2.Text = Text3.Text = End IfIf Data1.Recordset.EOF ThenData1.Recordset.addnewData1.

34、Recordset.Fields(0) = Text1.TextData1.Recordset.Fields(1) = Text2.TextData1.Recordset.Fields(2) = Text4.TextData1.Recordset.Fields(3) = Text5.TextData1.Recordset.Fields(4) = Text6.TextData1.Recordset.Fields(5) = Text7.TextData1.Recordset.Fields(6) = Data1.Recordset.Fields(7) = Data1.Recordset.Fields

35、(8) = Data1.Recordset.Fields(9) = 0Data1.Recordset.Fields(10) = Data1.UpdateRecordText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = MsgBox 恭喜，注册成功!, vbOKOnly + vbInformation, 提示Me.HideForm_Unload (0)End IfElseMsgBox 您输入或者提供的信息不正确，请您重新输入!, vbOKOnly + vbInforma

36、tion, 提示End IfEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & db_train.mdbEnd SubPrivate Sub Form_Unload(Cancel As Integer)Train_ts.ShowEnd SubPrivate Sub Timer1_Timer()If Check1.Value = 1 ThenCommand1.Enabled = TrueEnd IfIf Check1.Value = 0 ThenCommand1.Enabled = FalseEnd IfEnd SubPri

37、vate Sub Timer2_Timer()If Not Text1.Text = ThenLabel21.Caption = ElseLabel21.Caption = End IfIf Not Text2.Text = ThenLabel22.Caption = ElseLabel22.Caption = End IfIf Text3.Text = Text2.Text And Not Text3.Text = ThenLabel23.Caption = ElseLabel23.Caption = End IfIf Not Text4.Text = ThenLabel12.Caption

38、 = ElseLabel12.Caption = End IfIf Not Text5.Text = ThenLabel14.Caption = ElseLabel14.Caption = End IfIf Not Text6.Text = ThenLabel15.Caption = ElseLabel15.Caption = End IfIf Not Text7.Text = ThenLabel16.Caption = ElseLabel16.Caption = End IfEnd Sub9.2.2 站站查询站站查询是用户在界面输入框输入想要查询的列车起始终点站城市名，即可查询相应的列车信息

39、。具体实现如下:代码:If Not Text1.Text = And Not Text2.Text = And Text3.Text = ThenListView1.ListItems.ClearOn Error Resume NextData1.Recordset.MoveFirstData1.RecordSource = select * from tb_info where 发车站= & Text1.Text & and 到达站= & Text2.Text & Data1.Refreshsign = 0Do While Not Data1.Recordset.EOFSet itmX =

40、ListView1.ListItems.Add()If Data1.Recordset.RecordCount 0 ThenitmX.Text = Data1.Recordset.Fields(0)itmX.SubItems(1) = Data1.Recordset.Fields(1)itmX.SubItems(2) = Data1.Recordset.Fields(2)itmX.SubItems(3) = Data1.Recordset.Fields(3)itmX.SubItems(4) = Data1.Recordset.Fields(4)itmX.SubItems(5) = Data1.

41、Recordset.Fields(5)itmX.SubItems(6) = Data1.Recordset.Fields(6)itmX.SubItems(7) = Data1.Recordset.Fields(7)itmX.SubItems(8) = Data1.Recordset.Fields(8)Data1.Recordset.MoveNextsign = 1End IfLoopIf sign = 0 ThenMsgBox 抱歉，没有查询到从 & Text1.Text & 到 & Text2.Text & 的列车信息！, vbOKOnly + vbInformation, 提示End If

42、End If9.2.3 车次查询单独的车次查询是在没有输入列车起始终点站城市名情况下，输入列车车次，点击查询即可显示所有该次列车的详细信息。具体实现如下:代码如下:If Text1.Text = And Text2.Text = And Not Text3.Text = ThenListView1.ListItems.Clearsign = 0On Error Resume NextData1.Recordset.MoveFirstData1.RecordSource = select * from tb_info where 车次= & Text3.Text & Data1.RefreshD

43、o While Not Data1.Recordset.EOFSet itmX = ListView1.ListItems.Add()If Data1.Recordset.RecordCount 0 ThenitmX.Text = Data1.Recordset.Fields(0)itmX.SubItems(1) = Data1.Recordset.Fields(1)itmX.SubItems(2) = Data1.Recordset.Fields(2)itmX.SubItems(3) = Data1.Recordset.Fields(3)itmX.SubItems(4) = Data1.Re

44、cordset.Fields(4)itmX.SubItems(5) = Data1.Recordset.Fields(5)itmX.SubItems(6) = Data1.Recordset.Fields(6)itmX.SubItems(7) = Data1.Recordset.Fields(7)itmX.SubItems(8) = Data1.Recordset.Fields(8)Data1.Recordset.MoveNextsign = 1End IfLoopIf sign = 0 ThenMsgBox 抱歉，没有查询到车次为 & Text3.Text & 的列车信息！, vbOKOnl

45、y + vbInformation, 提示End IfEnd If9.2.4 站+车次查询站站+车次查询是在精确输入列车起始终点站城市名和列车车次的情况下，点击查询即可显示所有该次列车的详细信息。具体实现如下:代码如下:If Not Text1.Text = And Not Text2.Text = And Not Text3.Text = ThenListView1.ListItems.Clearsign = 0On Error Resume NextData1.Recordset.MoveFirstData1.RecordSource = select * from tb_info whe

46、re 发车站= & Text1.Text & and 到达站= & Text2.Text & and 车次= & Text3.Text & Data1.RefreshDo While Not Data1.Recordset.EOFSet itmX = ListView1.ListItems.Add()If Data1.Recordset.RecordCount 0 ThenitmX.Text = Data1.Recordset.Fields(0)itmX.SubItems(1) = Data1.Recordset.Fields(1)itmX.SubItems(2) = Data1.Record

47、set.Fields(2)itmX.SubItems(3) = Data1.Recordset.Fields(3)itmX.SubItems(4) = Data1.Recordset.Fields(4)itmX.SubItems(5) = Data1.Recordset.Fields(5)itmX.SubItems(6) = Data1.Recordset.Fields(6)itmX.SubItems(7) = Data1.Recordset.Fields(7)itmX.SubItems(8) = Data1.Recordset.Fields(8)Data1.Recordset.MoveNex

48、tsign = 1End IfLoopIf sign = 0 ThenMsgBox 抱歉，没有查询到从 & Text1.Text & 到 & Text2.Text & 车次为 & Text3.Text & 的列车信息！, vbOKOnly + vbInformation, 提示End IfEnd If9.2.5 显示数据库内容到界面以上面的三种方式查询列车信息，程序搜索数据库，如果查询到相关信息便显示在listview 框中，便于购票(退票)者查询阅读。具体实现如下:代码如下:Data1.Recordset.MoveFirstData1.RecordSource = select * from

49、 tb_info where 发车站= & Text1.Text & and 到达站= & Text2.Text & and 车次= & Text3.Text & Data1.RefreshDo While Not Data1.Recordset.EOFSet itmX = ListView1.ListItems.Add()If Data1.Recordset.RecordCount 0 ThenitmX.Text = Data1.Recordset.Fields(0)itmX.SubItems(1) = Data1.Recordset.Fields(1)itmX.SubItems(2) =

50、Data1.Recordset.Fields(2)itmX.SubItems(3) = Data1.Recordset.Fields(3)itmX.SubItems(4) = Data1.Recordset.Fields(4)itmX.SubItems(5) = Data1.Recordset.Fields(5)itmX.SubItems(6) = Data1.Recordset.Fields(6)itmX.SubItems(7) = Data1.Recordset.Fields(7)itmX.SubItems(8) = Data1.Recordset.Fields(8)Data1.Recor

51、dset.MoveNextEnd IfLoop9.2.6 订票实现当售票工作人员把售票信息列表显示出来后，乘客可以选择购票，如果余票足够多，乘客可以买到有座票，本系统没有详细设计车票打印程序，只以消息框的形式显示。购买成功，text11.text-1，并且更新数据库Data1.UpdateRecord。如果余票不足，乘客购买无座票具体代码如下:If Text11.Text 0 ThenText11.Text = Text11.Text - 1ElseMsgBox 座票已经售完！当前您购买无座票, vbOKOnly + vbInformation, 提示End IfData1.RecordSou

52、rce = select * from tb_info where 发车站= & Text4.Text & and 到达站= & Text5.Text & and 车次= & Text6.Text & Data1.RefreshData1.Recordset.EditData1.Recordset.Fields(7) = Text11.TextData1.UpdateRecordListView1.ListItems.ClearOn Error Resume NextData1.Recordset.MoveFirstData1.RecordSource = select * from tb_i

53、nfo where 发车站= & Text4.Text & and 到达站= & Text5.Text & Data1.RefreshDo While Not Data1.Recordset.EOFSet itmX = ListView1.ListItems.Add()If Data1.Recordset.RecordCount 0 ThenitmX.Text = Data1.Recordset.Fields(0)itmX.SubItems(1) = Data1.Recordset.Fields(1)itmX.SubItems(2) = Data1.Recordset.Fields(2)itm

54、X.SubItems(3) = Data1.Recordset.Fields(3)itmX.SubItems(4) = Data1.Recordset.Fields(4)itmX.SubItems(5) = Data1.Recordset.Fields(5)itmX.SubItems(6) = Data1.Recordset.Fields(6)itmX.SubItems(7) = Data1.Recordset.Fields(7)itmX.SubItems(8) = Data1.Recordset.Fields(8)Data1.Recordset.MoveNextEnd IfLoopData1

55、.RecordSource = select * from login where usr= & Label5.Caption & Data1.RefreshData1.Recordset.EditData1.Recordset.Fields(6) = Text4.TextData1.Recordset.Fields(7) = Text5.TextData1.Recordset.Fields(8) = Text6.TextData1.Recordset.Fields(9) = Text10.TextData1.Recordset.Fields(10) = Text12.TextData1.Up

56、dateRecordText4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = MsgBox 订票成功！请您尽快去支付平台付款！, vbOKOnly + vbInformation, 成功购买End Sub9.2.7 退票实现退票的实现和买票类似，乘客首先查询需要退票的列车信息，点击退票，如果退票成功，text11.text+1，并且更新数据库。具体代码:On Error Resume NextDim iii As

57、Integeriii = MsgBox(确认退票？, vbYesNo + vbInformation, 提示)If iii = 6 ThenData1.RecordSource = select * from tb_info where 发车站= & Text8.Text & and 到达站= & Text9.Text & and 车次= & Text10.Text & Data1.RefreshData1.Recordset.EditData1.Recordset.Fields(7) = Data1.Recordset.Fields(7) + 1Data1.UpdateRecordMsgBo

58、x 退票成功，系统退您 & Text11.Text & 元！, vbOKOnly + vbInformation, 提示Data1.RecordSource = select * from login where usr= & Text1.Text & Data1.RefreshData1.Recordset.EditData1.Recordset.Fields(6) = Data1.Recordset.Fields(7) = D十、软件测试分析报告10.1测试范围与主要内容系统测试是管理信息系统的开发周期中的一个十分重要环节。尽管在系统开发周期的各个阶段均采取了严格的技术审查，但依然难免会留下错误，如果没有在投入运行前的系统测试阶段被发现并纠正，问题迟早会在运行中暴露出来，到那时要纠正错误将会付出更大的代价。系统测试占用的时间