长途汽车信息管理系统的设计与实现毕业设计论文

1、毕毕 业业 设设 计计( 论论 文文) 长途汽车信息管理系统的设计与实现长途汽车信息管理系统的设计与实现 论文作者姓名：论文作者姓名： 申请学位专业：申请学位专业： 申请学位类别：申请学位类别： 指指导导教教师师姓姓名名（职职称称） ： 论文提交日期：论文提交日期： 长途汽车信息管理系统的设计与实现长途汽车信息管理系统的设计与实现 摘摘 要要 随着社会的发展，人类进入了一个高速发展的信息时代，高新技术飞速发 展的同时,计算机的使用范围也渗透到人类生活的方方面面，给人们的生活和工 作带来极大的便利。 长途汽车信息管理系统是长途汽车车站信息汇总和管理的重要组成部分， 是一种典型的信息管理系统，囊括

2、了对长途汽车车站相关信息的管理，可以化 简繁琐的工作过程，使车站的管理更加合理化和科学化，大大提高工作效率和 节省运营成本。 本长途汽车信息管理系统采用 Visual Basic 6.0 作为开发语言，用 SQL Server 2000 开发后台数据库，本系统主要包含了系统用户管理，汽车线路信 息管理，汽车基本信息管理，车票信息管理四大模块，可以实现对汽车线路信 息，汽车基本信息和车票信息的录入，查询，修改，删除等功能，能满足长途 车站汽车管理工作方面的基本要求。 关键词：关键词：Visual Basic 6.0；MSFlexGrid 控件；数据库 Long-distance Bus Info

3、rmation Management System Design and Implementation Abstract With the development of society, humanity has entered a rapid development in the information age, as the rapid development of high and new technology, the use of computers has infiltrated into each aspect of human life, which bring great c

4、onvenient to peoples work and life. The Long-distance Bus information management system is the Long-distance bus station information which decision-making and an important component of management, which is a typical example of the information management system. It includes information which related

5、to the Long-distance Bus station information management. The Long-distance Bus information management system can simplify the cumbersome process, station rationalization of the management and scientific, and greatly enhance efficiency and save operating costs. The system uses Visual Basic 6.0 as the

6、 development language, with SQL Server 2000 developing the background database. This system includes the Users management, Bus-line information management, and the basic information of automobile management and Ticket information management four modules. We can input, search, update or delete inform

7、ation from the Bus-line management, the basic information of automobile management and Ticket information management. This information management system can meet the basic requirements of the Long- distance Bus station management. Key words: Visual Basic 6.0；MSFlexGrid Control；Database 目目 录录 论文总页数：2

8、2 页 1前言 .1 1.1系统开发背景 .1 1.2国内发展状况和不足 .1 1.3系统开发特点 .1 2系统需求分析和数据库的设计 .2 2.1系统功能需求 .2 2.1.1 系统用户管理 .3 2.1.2 汽车信息管理 .3 2.1.3 线路信息管理 .3 2.1.4 车票信息管理 .3 2.2数据库的设计 .4 2.2.1 系统用户表设计.4 2.2.2 汽车线路信息表设计.4 2.2.3 汽车信息表设计.4 2.2.4 车票信息表设计.5 3系统功能模块的设计与实现 .5 3.1系统登录的实现 .5 3.2系统主界面的设计 .6 3.3系统用户管理模块设计 .7 3.4汽车信息管理模

9、块设计 .9 3.4.1 添加汽车信息子模块.9 3.4.2 修改汽车信息子模块.10 3.4.3 删除汽车信息子模块.10 3.4.4 查询汽车信息子模块 .11 3.5线路信息管理模块设计 .11 3.5.1 添加线路信息子模块.12 3.5.2 线路信息查询子模块.13 3.5.3 修改线路信息子模块.13 3.5.4 删除线路信息子模块.14 3.6车票信息管理模块设计 .14 3.6.1 车票信息添加子模块.15 3.6.2 车票信息修改子模块.16 3.6.3 车票信息查询子模块.16 4 测试 .18 结 论 .19 参考文献 .20 致 谢 .21 声 明 .22 1 1 前言

10、前言 1.11.1系统开发背景系统开发背景 自从人类进入 21 世纪,也就进入了一个高速发展的信息时代，高新技术飞 速发展的同时,计算机的使用范围也大大扩展，它已经涉及到人类生活的方方面 面。计算机使用的方便快捷,使它在越来越多的方面显示出比传统手工制作更迅 速和准确的优点,尤其在信息记录,检索和查询方面,避免了不必要的麻烦。 一个性能良好的长途汽车信息管理系统能够使管理员快速方便地对长途汽 车站的相关信息,如长途汽车线路信息, 汽车基本信息,车票信息等进行各种诸 如添加，查询，删除，修改操作。使用传统的手工方式管理长途汽车车站相关 信息,不仅让管理员感到非常的厌倦,也存在着不可避免的缺点,如

11、效率太低，管 理不够科学等。 使用计算机对长途汽车信息进行管理,有着传统的手工管理所没法比拟的优 点。例如:查找方便,可靠性高,科学性好。这些优点能够极大地提高长途汽车信 息管理的效率。正是根据计算机管理信息的这些优点以及长途汽车站管理长途 汽车信息方面的具体需求,利用 VB6.0 和 SQL2000 数据库,使用软件工程开发的 方法,开发了这套长途汽车信息管理系统。 1.21.2国内发展状况和不足国内发展状况和不足 在国内，也只有在一些经济发达的地区才更多的实现了企业的信息化管理。 在汽车站信息管理方面，也只有在一些大中城市才实现了汽车的信息化管理， 然而即使在这些发达的地区的汽车站，所采用

12、的汽车站管理系统仍然存在或多 或少的缺陷，使得在整个车站的运行过程中会出现一些问题，给车站造成一些 不必要的损失。在一些偏远的小城市，小车站却仍然采用传统的手工管理方式 来管理汽车站的相关信息，这样的管理方式与现代的信息化社会脱离，不但浪 费宝贵的人力，物力资源，而且管理不科学，错误率高，大大降低了工作效率。 只有在整个社会不断的推进企业的信息化管理方式，才能更好的创造更多的经 济效益，节省更多的时间和资源，不断提升整个社会信息化发展的进程。 1.31.3系统开发特点系统开发特点 长途汽车信息管理系统是典型的信息管理系统，其开发主要包括后台数据 库的建立和维护以及前端应用程序的开发两个方面。对

13、于数据库的，要求建立 起数据的一致性和完整性，数据安全性好的数据库。对于应用程序的开发，要 求应用程序功能完善，方便使用的特点。 本长途汽车信息管理系统，使用计算机为工具，完成对长途汽车信息的管 理。本长途汽车信息管理系统采用 C/S 模式结构。 C/S （Client/Server）结构，即客户机和服务器结构。它是软件系统体系 结构，通过它可以充分利用两端硬件环境的优势，将任务合理分配到 Client 端 和 Server 端来实现，降低了系统的通讯开销。目前大多数应用软件系统都是 Client/Server 形式的两层结构，由于现在的软件应用系统正在向分布式的 Web 应用发展，Web 和

14、 Client/Server 应用都可以进行同样的业务处理，应用不同 的模块共享逻辑组件；因此，内部的和外部的用户都可以访问新的和现有的应 用系统，通过现有应用系统中的逻辑可以扩展出新的应用系统。这也就是目前 应用系统的发展方向。 优势和劣势： （1）应用服务器运行数据负荷较轻。 （2）数据的储存管理功能较为透明。 （3）C/S 架构的劣势是高昂的维护成本且投资大。 1.41.4系统开发环境系统开发环境 1.硬件环境： CPU: AMD 2.53GHZ 内存：512MB 硬盘：80GB 显卡：NAIDIA FX 5200 2.软件环境： 操作系统： Windows XP 开发工具：Micros

15、oft VB 6.0 开发语言：VB 2 2 系统需求分析系统需求分析和数据库的设计和数据库的设计 2.12.1系统功能需求系统功能需求 在交通运输系统高度发达繁忙的今天，人们在各地不同城市之间的往返更 加频繁，极大的增加了旅客对交通行业的需求。人们可以选择空中客车，也可 以选择火车，但是这两种交通工具在某方面存在着问题。航空运输普遍费用太 高，火车运输又太过于烦闷，而且这两种方式都只适合于远距离的交通运输。 于是，为了让旅客能方便快捷舒适的在两个城市间穿梭，人们就更倾向于长途 汽车这样一种交通运输方式。因此，长途汽车站为了满足大量旅客的需求，很 有必要建立一套现代化的长途汽车站管理体系和管理

16、流程。长途汽车信息管理 系统就是针对长途汽车站使用计算机对长途汽车的各种信息进行汇总和管理的 一种现代化管理软件，为长途汽车站提供准确，快捷，科学的信息化管理方式， 大大提高车站运营效率。 通过对用户需求的分析,本系统具有以下特点： (1)由于一项新的软件在被使用之前,对于使用者来说是陌生和崭新的,所 以要求系统为用户提供简单，友好，易于操作的界面。 (2)修改，查询，删除数据方便,数据的稳定性和可靠性好。 (3)数据计算自动完成,尽量减少人工干预。 本系统具有以下四个功能模块:系统管理模块,汽车信息管理模块,线路信息 管理模块,车票信息管理模块。系统整体的简单模块图如图 1 所示，以下将对具

17、 体功能需求进行描述。 图 1 系统模块图 2.1.12.1.1 系统用户管理系统用户管理 用户以合法身份登入系统后,管理员可以进行系统用户的添加,密码的修改 操作。 2.1.22.1.2 汽车信息管理汽车信息管理 管理员可以在汽车信息管理模块实现对汽车信息的管理。管理员首先应该 建立汽车信息数据库，输入原始的数据信息，当有新的汽车信息的时候或者管 理员需要修改某个汽车的相关信息以及想要删除某个汽车信息的时候，就可以 完成相应的操作。管理员也可以在整个数据库中查寻相关汽车信息。 2.1.32.1.3 线路信息管理线路信息管理 车站管理员可以在线路信息管理模块对车站线路信息进行管理。管理员首 先

18、建立汽车线路信息数据库，输入原始的线路信息，当有新的线路需要添加或 汽车信息管理 线路信息管理 车票信息管理 系统用户管理长 途 汽 车 信 息 管 理 系 统 者需要对已有的线路信息进行修改，删除的时候，管理员就可以进行相应的操 作。管理员也可以通过本模块查询到所有需要查询的线路的详细信息。 2.1.42.1.4 车票信息管理车票信息管理 管理员可以在车票管理模块实现对线路车票信息的管理。管理员根据相应 的汽车线路信息来设置相应的车票详细信息。当有新的线路添加的时候，要把 相应的车票信息添加到数据库中，管理员还可以对某条线路的车票信息进行修 改，删除和查询操作。 2.22.2数据数据库的设计

19、库的设计 本系统是一个关于长途汽车站相关信息的管理系统，主要包括用户、汽车 信息、汽车线路信息、车票信息的管理。因此，在设计数据库表的时候设计了 系统用户表、汽车线路信息表、汽车信息表和车票信息表用来存储对应的信息。 由于本系统的管理员需要对车站的信息进行管理，这些信息对于车站来说是十 分重要的，这就决定了本系统的用户都是必须是拥有最高权限的系统管理员。 2.2.12.2.1 系统用户表设计系统用户表设计 该表是存储管理员用户名和密码的信息表，以供登录时候用户名和密码的 验证。 表 1 系统用户表 字段名称数据类型字段大小必填字段描述字段说明 UserNamenvarchar10是用户名主键

20、Passwordnvarchar20是密码无 2.2.22.2.2 汽车线路信息表设计汽车线路信息表设计 该表是存储汽车线路信息的表，主要用来存储线路的编号，起始城市，到 达城市，起始日期，到达时间，汽车编号，车票价格和备注信息。 表 2 汽车线路信息表 字段名称数据类型字段大小必填字段描述字段说明 buslineNOnvarchar10是线路编号主键 departCitynvarchar20是起始城市无 arricalCitynvarchar20是到达城市无 departdatenvarchar20是起始日期无 arrivaltimenvarchar20是到达时间无 busNOnvarcha

21、r10是汽车编号无 Pricefloat8否车票价格无 memonvarchar50否备注无 2.2.32.2.3 汽车信息表设计汽车信息表设计 该表存放了汽车的基本信息，包括汽车的编号，车型，购买时间，使用时 间，座位数，有无空调，电视和备注信息。 表 3 汽车信息表 字段名称数据类型字段大小必填字段描述索引 busNOnvarchar10是长途汽车编号主键 bustypenvarchar20是长途汽车车型无 buydatedatatime8否购买时间无 usedatenvarchar20否使用时间无 seatNOnvarchar10否汽车座位数量无 TVnvarchar2否有无电视无 ai

22、rconditionnvarchar2否有无空调无 memonvarchar50否备注无 2.2.42.2.4 车票信息表设计车票信息表设计 该表主要存储了车票的信息，包括车票编号，汽车编号，起始城市，到达 城市，购票日期，购票时间，车票价格和备注信息。 表 4 车票信息表 字段名称数据类型字段大小必填字段描述索引 ticketNOnvarchar10是车票编号主键 busNOnvarchar10是汽车编号无 departCitynvarchar20是起始城市无 arrivalcitynvarchar20是到达城市无 ticketdatenvarchar20是购票日期无 tickettimen

23、varchar20是购票时间无 ticketpricefloat8是车票价格无 ticketMemonvarchar50否备注无 3 3 系统功能模块的设计与实现系统功能模块的设计与实现 3.13.1 系统登录的系统登录的实现实现 系统登录界面也是本长途汽车信息管理系统的第一个界面，其界面如图 2： 图 2 系统登录界面 管理员可以通过这个界面进入主页面对其他模块进行管理，如对长途汽车 站相关信息进行修改，添加，查询，删除。同样，在主页面中，管理员可以修 改自己密码，或者添加新的管理员用户。管理员要登录本系统，首先需要输入 用户名和密码，在登录过程中验证用户名和密码是否正确，是否为空，如果不

24、正确或者为空，就会弹出相应的对话框，提示用户输入错误，不能进入该系统。 当用户名和密码都输入正确，打开数据库，进入系统管理界面。 3.23.2 系统主界面的设计系统主界面的设计 系统主界面，也就是程序主窗体 frm_main,它是整个系统的主要操作界面， 也是在登录之后出现的系统操作界面，采用菜单结构，简单明了，主要包括系 统用户，线路信息，汽车信息，车票信息 4 个模块，管理员可以通过这个界面 进入到相应的模块里面，完成对系统用户，线路信息，汽车信息和车票信息的 管理工作。主界面所拥有的功能是通过整个系统子程序的调用,提供工具菜单中 的操作方式，方便管理员用户根据需要选择进入不同的模块，如图

25、 3： 图 3 系统操作界面 3.33.3系统用户管理模块设计系统用户管理模块设计 系统用户管理模块主要包括用户的添加和密码修改两个子模块。主要实现 管理员对用户的管理。 当需要添加新的管理员的时候，管理员可以进入添加新的管理员用户界面， 输入需要添加的用户的用户名和密码，用户名不能和数据库中已有的用户名相 同，两次输入的密码必须一致，然后点击添加按钮，即可完成对管理员用户的 添加，添加用户设计界面如图 4： 图 4 系统用户添加界面 实现功能部分关键代码如下： If username.Text = Then 判断用户名是否为空 MsgBox 用户名不能为空！, vbOKOnly Exit S

26、ub End If 判断用户两次输入的密码是否相同 If password.Text checkpassword.Text Then MsgBox 两次输入密码不同！, vbOKOnly password.SetFocus End If 系统用户管理模块为管理员用户提供了修改密码的功能，用户必须输入正 确的旧密码和两次输入的新密码相同才能完成对现有用户密码的修改，其设计 界面如图 5 所示： 图 5 系统用户密码修改界面 实现功能关键代码如下： 判断两次输入的密码是否相同 If password.Text checkpassword.Text Then MsgBox 两次输入密码不同, vbO

27、KOnly password.SetFocus Else 判断用户旧密码是否输入正确 If Oldpassword.Text objRS.Fields(1).Value Then MsgBox 原密码不对, vbOKOnly objRS.Close CloseDB 如果用户输入正确的旧密码和新密码，提示用户密码修改成功 objRS.Fields(1).Value = Trim(password.Text) objRS.Update 更新数据库 objRS.Close CloseDB MsgBox 用户密码已修改, vbOKOnly 提示用户密码修改成功提示 框 Unload Me End If

28、 3.43.4汽车信息管理模块设计汽车信息管理模块设计 汽车信息管理模块主要实现管理员对汽车信息的管理工作，提供方便快捷 的操作。盖模块主要包括四个子模块,其主要功能是对车站的汽车信息进行添加,修 改,删除操作。四个子模块之间的层次关系如图 6： 汽车编号 备注信息 汽车型号 购买时间 使用时间 座位数量 有无电视 有无空调 汽车 信息 管理 添加信息 修改信息 删除信息 查询信息 图 6 汽车信息管理模块关系图 在此模块的设计过程中,使用了 MSFlexGrid 控件来显示汽车信息,使用 ShowTitle 和 loadData 两个函数来初始化 MSFlexGrid 控件，加载后就在窗口

29、显示出长途汽车站所有汽车的相关信息。主要包括汽车的编号，汽车的型号， 购买时间，使用时间，座位数量，有无电视，有无空调和备注信息。管理员可 以通过该窗口了解到所有汽车的信息。以下将具体介绍各个功能的实现。 3.4.13.4.1 添加汽车信息子模块添加汽车信息子模块 在长途汽车站的运营过程中，添加新的汽车信息是一件很平常的事情。在 添加汽车信息子模块的设计时候,使用 text 文本框添加汽车信息,包括添加汽车 编号,汽车类型,购买日期，使用时间，座位个数，有无电视，有无空调和备注 信息，当用户按要求填写了相应的文本框之后点击添加按钮,将启动 cmd_OK_Click 事件，将添加的汽车信息放入数

30、据库表中。设计界面如图 7： 图 7 添加汽车信息界面 3.4.23.4.2 修改汽车信息子模块修改汽车信息子模块 修改汽车信息时，当用户选定 MSFlexGrid 控件中的一组记录时，其相应的 信息就会显示在修改栏中，将指定记录附给修改栏中各个文本框使得用户可以 对汽车的所有信息进行修改。对指定记录进行修改的代码片段如下： Private Sub cmd_edit_Click() 修改信息按钮 Dim SelectedRowIndex As Integer SelectedRowIndex = FGridDatatable.Row 选中需要修改的那一行 CurrentBus = FGridD

31、atatable.TextMatrix(SelectedRowIndex, 1) frm_editbusinfo.Show 1 End Sub 3.4.33.4.3 删除汽车信息子模块删除汽车信息子模块 当需要删除某条汽车信息的时候，选中需要删除的信息，点击删除按钮， 完成对该条信息的删除操作。实现功能核心代码如下： SelectedRowIndex = FGridDatatable.Row 选中需要删除的那条汽 车信息 CurrentBus = FGridDatatable.TextMatrix(SelectedRowIndex, 1) If MsgBox(真的要删除此条记录吗？, vbOK

32、Cancel + vbExclamation, 警告) = vbOK Then 提示用户是否真的要删除该条信息 OpenDB strSQL = delete from businfo where busno = + CurrentBus + 从数据库中 删除该条信息 objConn.Execute (strSQL) CloseDB MsgBox 记录已删除, vbOKOnly 提示用户记录已经删除 End If 3.4.43.4.4 查询汽车信息子模块查询汽车信息子模块 面对繁多的汽车信息，本系统设计了汽车信息查询功能，方便管理员用户 快捷，准确地查出想要了解的汽车的信息。管理员输入汽车编号和

33、汽车型号， 就可以在数据库中找到相应的汽车信息。设计界面如图 8 所示： 图 8 汽车信息查询界面 3.53.5线路信息管理模块设计线路信息管理模块设计 线路信息管理是长途汽车站必须处理的事务，线路信息管理模块的设计能 给车站管理员提供科学，准确的管理方式。因此，从四个方面设计了线路信息 管理模块，即线路信息的添加，线路信息的修改，删除和查询。在此模块的设 计过程中,同样使用了 MSFlexGrid 控件来显示线路信息,使用 ShowTitle 和 loadData 两个函数来初始化 MSFlexGrid 控件，加载后就在窗口显示出长途汽 车站所有线路的相关信息。主要包括线路的编号，起始城市，

34、到达城市，起始 日期，起始时间，到达时间，汽车编号，车票价格和备注信息。管理员可以通 过该窗口了解到所有线路的详细信息。四个过程模块之间的关系图如图 9，以 下将具体介绍各个功能的实现。 线路编号 车票价格 起始城市 到达城市 起始日期 起始时间 到达时间 汽车编号 线路 信息 管理 添加信息 修改信息 删除信息 查询信息 图 9 线路信息管理模块关系图 3.5.13.5.1 添加线路信息子模块添加线路信息子模块 随着城市交通的飞速发展，当长途汽车站原先已有的线路信息不能满足需 求的时候，就需要添加新的汽车线路，有关他们的详细信息必须由长途汽车站 管理员添加到数据库，线路信息添加的设计界面如图

35、 10 所示： 图 10 线路信息添加界面 在此模块设计中，在相应得文本框中输入需要添加的内容后，单击“添加” 按钮，将启动 cmd_ok_Click 事件，将添加的线路信息插入数据库表中，完成对 线路信息的添加。 3.5.23.5.2 线路信息查询子模块线路信息查询子模块 当管理员需要查询线路信息的时候，点击查询按钮，进入查询线路信息模 块。在启动界面的时候，在两个下拉式组合框中已经载入了线路信息表中已有 的起始城市和到达城市的信息，管理员在下拉列表中选中起始城市和到达城市， 点击查询按钮，就可以完成对线路信息的查询。线路信息查询子模块的设计界 面如图 11： 图 11 线路信息查询界面 实

36、现该查询功能的核心代码如下： Private Sub cmd_que_Click() 查询按钮函数 Dim strSQL As String strSQL = Select * from buslineinfo where 1=1 If cmbDepartcity.ListIndex 0 Then 在下拉式组合框 中选择起始城市 strSQL = strSQL + and departcity= + cmbDepartcity.Text + End If If cmbArrivalCity.ListIndex 0 Then 在下拉式组合框 中选择到达城市 strSQL = strSQL + a

37、nd Arrivalcity= + cmbArrivalCity.Text + End If End Sub 3.5.33.5.3 修改线路信息子模块修改线路信息子模块 管理员需要根据实际情况来调整汽车的线路信息。当管理员需要对某条汽 车线路信息进行修改的时候，选中需要修改的线路，点击修改按钮，出现修改 该条线路信息的界面，当管理员完成对该条线路的信息的修改后，点击修改按 钮，将启动 cmd_ok_click 事件，更新数据库，完成对该条线路信息的修改，设 计界面如图 12： 图 12 线路信息修改界面 3.5.43.5.4 删除线路信息子模块删除线路信息子模块 当已有的线路取消时,该线路对应

38、的线路信息也将取消，这时就需要管理员 将该线路信息从数据库中删除。管理员首先选中需要删除的线路信息，点击 “删除”按钮，提示管理员是否确定删除该条信息，管理员点击“确定”按钮， 该条数据就成功从数据库表中删除。 3.63.6车票信息管理模块设计车票信息管理模块设计 在长途汽车站的管理任务中，对车票信息的管理更加显得十分重要。管理 员需要了解到某条线路的详细的车票信息，包括汽车的起始和到达城市，车票 日期和时间，车票价格和车票备注信息，通过了解这些信息，管理员可以方便 的完成对相应汽车线路车票信息的调整。车票信息管理模块主要包括四个子模 块,其主要功能是对车站的汽车车票信息进行添加,修改,删除操

39、作。四个子模块 之间关系如图 13： 车票编号 备注信息 汽车编号 起始城市 到达城市 购票日期 购票时间 车票价格 车票 信息 管理 添加信息 修改信息 删除信息 查询信息 图 13 车票信息管理模块关系图 车票信息管理模块界面设计如图 14： 图 14 车票信息管理界面 在这个界面中，同样使用了 MSFlexGrid 控件来显示车票信息。在窗口中显 示出车票信息后，管理员可以通过“添加” ， “修改” ， “删除” ， “查询”4 个按 钮来对车票的编号，汽车编号，起始城市，到达城市，购票日期，购票时间， 车票价格等信息进行管理和操作。 3.6.13.6.1 车票信息添加子模块车票信息添加

40、子模块 当有新的汽车线路添加了的时候，管理员就需要设置相应的新的车票信息。 管理员通过车票信息管理界面进入车票管理模块，点击添加按钮，将出现添加 车票信息的界面，管理员输入车票编号，汽车编号，起始城市，到达城市，购 票日期，购票时间，车票价格和备注后，点击添加按钮，完成对车票信息的添 加，设计界面如图 15： 图 15 车票信息添加界面 3.6.23.6.2 车票信息修改子模块车票信息修改子模块 在该模块的设计中，实现管理员对现有车票信息的修改，管理员首先选中 需要修改的线路的车票信息，管理员在完成对相应信息的修改后，点击“修改” 按钮，将启动 cmd_ok_click 事件，更新数据库，完成

41、对车票信息的修改，设计 界面如图 16： 图 16 车票信息修改界面 3.6.33.6.3 车票信息查询子模块车票信息查询子模块 该模块的设计主要是方便管理员对车票信息的查询而设计的。管理员可以 在该模块中，根据数据库现有车票的信息，在下拉列表中选择所需要的起始城 市，到达城市，车票日期，车票时间就可以查询到相关的车票信息，完成对车 票信息的查询功能。设计界面如图 17： 图 17 车票信息查询界面 启动该界面时，需要载入 4 个下拉式组合框的信息，点击查询按钮，启动 cmd_que_Click 事件，在窗口中显示出符合要求的购票信息。实现该功能的核 心代码如下： OpenDB 选中起始城市的

42、信息，载入下拉式组合框中 strSQL = Select Distinct departcity from ticketinfo 打开数据库连接 objRS.Open strSQL, objConn, adOpenKeyset, adLockPessimistic 将起始城市信息载入下拉式组合框中 If Not objRS.EOF Then 当无该数据的时候跳出循 环 Do While Not objRS.EOF cmbdcity.AddItem objRS.Fields(0).Value objRS.MoveNext Loop objRS.Close Else 如果没有该条信息，提示请先设置

43、车票信 息 objRS.Close CloseDB MsgBox 请先设置车票信息, vbOKOnly Exit Sub End If 选中到达城市的信息，载入下拉式组合框 中 strSQL = Select Distinct arrivalcity from ticketinfo objRS.Open strSQL, objConn, 1, 3 Do While Not objRS.EOF 当无该数据的时候跳出循 环 cmbacity.AddItem objRS.Fields(0).Value objRS.MoveNext Loop objRS.Close 选中到达日期的信息，载入下拉式组合

44、框 中 strSQL = Select Distinct ticketdate from ticketinfo objRS.Open strSQL, objConn, 1, 3 Do While Not objRS.EOF cmbtdate.AddItem objRS.Fields(0).Value objRS.MoveNext Loop objRS.Close 选中车票时间的信息，载入下拉式组合框中 strSQL = Select Distinct tickettime from ticketinfo objRS.Open strSQL, objConn, 1, 3 Do While Not

45、 objRS.EOF 当无该数据的时候就跳出循 环 cmbttime.AddItem objRS.Fields(0).Value objRS.MoveNext Loop objRS.Close 关闭数据库连接和关闭数据 库 CloseDB End Sub 4 4 测试测试 由于本系统的开发使用了 visual basic 6.0 作为开发工具,具有可视化的 编程环境,在编程的过程中就可以对所做的结果进行运行,以立即进行改正。经 过不断地修改和更正，本系统能很好地完成预期效果。 管理员在通过登录界面的身份验证之后，进入系统主界面，在主界面中， 用户可以通过菜单形式选择进入的模块。在系统用户管理中

46、，可以添加，修改 系统用户信息；在汽车信息管理中，可以添加，查询，修改，删除汽车信息； 在汽车线路信息管理中，可以添加，查询，修改，删除线路信息；在车票信息 管理中，可以完成对车票信息的添加，查询，修改和删除车票信息。 结结 论论 经过测试，根据车站对长途汽车信息管理的需求而设计的功能全部能运行 正常。由于第一次独立开发实际应用的系统，整个开发过程经历了很多的波折。 经过不断地查询各种资料和信息，不断地解决一个一个的问题，当然更加感谢 指导老师的帮助，使得设计能够顺利进行。然而由于时间的限制，使得该系统 也存在很多没有解决的问题，这是比较遗憾的。比如说在身份验证这一模块， 对于怎样保证数据的安

47、全性没有很好的完成。 通过对整个毕业设计的开发，让人学会怎样去做一件事情，尽管从没有做 过，但是却知道怎样去利用一切可以利用的资源和寻求一切可能得到的帮助去 解决问题，并且在解决问题的同时不断增加经验和心得体会，为以后的生活和 工作打下坚实的基础。 参考文献参考文献 1 刘瑞新,汪远征.visual basic 程序设计教程M.北京:机械工业出版社,2000。 2 鲁荣江,王立丰.Visual Basic 项目案例导航M.北京:科学出版社,2002。 3 赵建敏,郭庆.Visual Basic 编程指南M.北京:航空工业出版社,2001。 4 卢毅.Visual Basic 6 数据库设计实例

48、导航M.北京:科学出版社,2001。 5 张勇.Visual Basic 课程设计案例精编M.北京:中国水利水电出版社,2003。 6 美Mike Gunderloy 著.开发指南-ADO 篇M.北京:电子工业出版社,2000。 7 黄志峰.Visual Basic 高级编程实例精解M.北京:国防工业出版社,2001。 致致 谢谢 本文是在朱西平和陈念伟老师的热情关心和指导下完成的，他们渊博的知 识和严谨的治学作风使我受益匪浅，对顺利完成本课题起到了极大的作用。在 此向他们表示我最衷心的感谢！ 感谢陈念伟老师在课题研究初期给予的帮助，在陈念伟老师的帮助下课题 才得以很好的展开，有了一个很好的开

49、端！感谢陈行同学在课题开发过程中给 予的帮助，因为他的协助，才得以高效率的完成了所有的开发工作！ 在论文完成过程中，本人还得到了其他老师和许多同学的热心帮助，本人 向他们表示深深的谢意！ 最后向在百忙之中评审本文的各位专家、老师表示衷心的感谢！ 作者简介 姓 名： 何绪辉 性别： 男 出生年月： 1984 年 1 月 民族： 汉 E-mail: 声声 明明 本论文是 2007 年 2 月至 2007 年 6 月在成都信息工程学院网络工程系完成 的。 文中除了特别加以标注地方外，不包含他人已经发表或撰写过的研究成果， 也不包含为获得成都信息工程学院或其他教学机构的学位或证书而使用过的材 料。除非

50、另有说明，本文的工作是原始性工作。 关于学位论文使用权和研究成果知识产权的说明： 本人完全了解成都信息工程学院有关保管使用学位论文的规定，其中包括： （1）学校有权保管并向有关部门递交学位论文的原件与复印件。 （2）学校可以采用影印、缩印或其他复制方式保存学位论文。 （3）学校可以学术交流为目的复制、赠送和交换学位论文。 （4）学校可允许学位论文被查阅或借阅。 （5）学校可以公布学位论文的全部或部分内容（保密学位论文在解密后 遵守此规定） 。 除非另有科研合同和其他法律文书的制约，本论文的科研成果属于成都信息 工程学院。 特此声明！ 作者签名： 2007 年 06 月 日 Are you hu

51、ngry now? No, I am tired and lazy now; if I pursue you I will not catch you, and if I catch you-through your own slowness and clumsiness-I will not kill you, and if I kill you I will not eat you. Nicholas had begun to back away, and at the last; words, realizing that they were a signal, he turned an

52、d began to run, splashing through the shallow water. Ignacio ran after him, much helped by his longer legs, his hair flying behind his dark young face, his square teeth-each white as a bone and as big as Nicholass thumbnail-showing like spectators who lined the railings of his lips. Dont run, Nichol

53、as, Dr. Island said with the voice of a wave. It only makes him angry that you run. Nicholas did not answer, but cut to his left, up the beach and among the trunks of the palms, sprinting all the way because he had no way of knowing Ignacio was not right behind him, about to grab him by the neck. Wh

54、en he stopped it was in the thick jungle, among the boles of the hardwoods, where he leaned,.; out of breath, the thumping of his own heart the only . sound in an atmosphere silent and unwaked as Earths long, prehuman day. For a time he listened for any sound Ignacio might make searching for him; th

55、ere was none. He drew a deep breath then and said, Well, thats over, expecting Dr. Island to answer from somewhere; there was only the green hush. The light was still bright and strong and nearly, shadowless, but some interior sense told him the day, was nearly over, and he noticed that such faint s

56、hades as he could see stretched long, horizontal distortions of their objects. He felt no hunger, but he had fasted be- fore and knew on which side of hunger he stood; he was not as strong as he had been only a day past, and by this time next day he would probably be unable to outrun Ignacio. He sho

57、uld, he now realized, have eaten the monkey he had killed; but his stomach revolted at the thought of the raw flesh, and he did not know how he might build a fire, although Ignacio seemed to have done so the night before. Raw fish, even if he were able to catch a fish, would be as bad, or worse, tha

58、n raw monkey; he remembered his effort to open a coconut-he had failed, but it was surely not impossible. His mind was hazy as to what a coconut might contain, but there had to be an edible core, because they were eaten in books. He decided to make a wide sweep through the jungle that would bring hi

59、m back to the beach well away from Ignacio; he had several times seen coconuts lying in the sand under the trees. He moved quietly, still a little afraid, trying to think of ways to open the coconut when he found it. He imagined himself standing before a large and raggedly faceted stone, holding the

60、 coconut in both hands. He raised it and smashed it down, but when it struck it was no longer a coconut but Mayas head; he heard her nose cartilage break with a distinct, rubbery snap. Her eyes, as blue as the sky above Madhya Pradesh, the sparkling blue sky of the egg, looked up at him, but he coul