列车票务管理系统设计

1、1. 课程设计的目的与意义1.1、课程设计的目的数据库课程设计是数据库系统原理实践环节的及为重要的一部分其目的是：(1) 培养学生能够应用数据库系统原理在需求分析的基础上对系统进行概念 设计,学会设计局部ER,全局ER图；(2) 培养学生能够应用数据库系统在概念设计的基础上应用关系规化理论对 系统进行逻辑设计，学会在ER图基础上设计出易于查询和操作的合理的 规化关系模型；(3) 培养学生能够应用SQL语言对所设计的规化关系模型进行物理设计,并 且能够应用事务处理，存储过程,触发器以保证数据库系统的数据完整性 安全性,一致性,保证数据共享和防止数据冲突；(4) 培养学生理论与实际相结合能力，培养

2、学生开发创新能力；(5) 培养学生独立分析问题、解决问题、查阅资料以及自学能力，以适应计算机产业日新月异发展的形势；(6) 提高和加强学生的计算机应用与软件开发能力，使学生由初学者向专业 的程序员过渡。1.2、课程设计的意义目前，我国在计算机应用、计算机软件和电子类相关专业的人才培养方面，取得了长足的发展，但同时也让我们深刻地感觉到缺乏实际开发设计项目的经验，不善与综合运用所学理论，对知识的把握缺乏融会贯通的能力尤其是我们计算机专业大学生，由于缺乏具体项目经验，毕业之后普遍感到知识不能转化为 能力。课程设计可以锻炼我们理论联系实际的能力，为今后工作做铺垫。信息时代已经来临，信息处理的利器一一计

3、算机应用于火车站售票的日常管 理为火车站售票的现代化带来了从未有过的动力和机遇，为火车站票务管理领域 的飞速发展提供了无限潜力。采用计算机管理信息系统已成为火车站票务管理科 学化和现代化的重要标志，给火车站票务带来了明显的经济效益和社会效益 。计 算机已经成为人们生活不可却小的一部分。铁路票务管理是一件比较负责但又非 常重要的事情，它是涉及国家铁路运输的正常工作、 国民经济的发展和人民生活 水平及质量的大事情。随着经济的发展，交通运输越来越便捷，为了提高效率， 减轻劳动强度，设计开发高效的铁路信息查询系统就显得颇为重要。火车售票管 理中包含许多容，有铁路乘客运输的运力问题，有订票管理问题等等。

4、铁路信息 查询系统是企业信息决策和管理的重要的组成部分，是一种典型的信息管理系统（MIS），其开发主要包括后台的数据库的建立、 维护以及前端的相应应用程序的 开发两个方面的容，数据库的建立和维护主要要求其管理数据的一致性、 完整性、 安全性等特点，而前台的应用程序开发则要求做到各项功能要完备、操作要简便、 易学易用等特点。本课程设计专门要解决这些问题，由于铁路火车票务管理的复 杂性，本设计与开发也仅是一个尝试性的工作，但其中有很多重要的思想和方法， 涉及一些重要的程序代码，对于研究开发该类程序的工程人员可以起一个抛砖引 玉的作用。2. 需求分析2.1.需求分析的任务随着旅游业的逐渐的成熟发达，

5、铁路客运量大幅度的提高，各大省市的列 车都显著的增加，这些都对列车票务管理系统提出了更高的要求， 所以要不断的 完善更新列车票务管理系统，提高列车售票系统的工作效率。随着科学的不断进 步，计算机应用已经遍布整个社会的每个角落。 目前社会正处于健保发展方兴未 艾的时代，各火车站莫不兢兢业业地改善本身的体制或管理方式，以适应健保越来越严格的规。列车在我国的人员流动、物资运输中占据着举足轻重的地位。 全 国有大量的人员通过搭乘火车到达目的地。而与火车的特殊性及可能经过多个城 市，每个城市的车站可以出售此火车的车票。而且同一车站可能有多辆车经过。 许多希望以最快的方式选择自己想来乘坐的那一趟列车。 所

6、以以人工的方式是不 可能实现这种功能的。一种可行的方案是基于客户端服务器的体系结构。服务器 为数据库系统，存储所有必要的信息。客户端通过连接到服务的应用程序快速、 准确地完成相应的工作，通过网上订购，可以达到高效、便捷的购票。列车票务 管理系统的实施，将会在一定程度上促进铁路客运生产力和生产关系的变革，增强市场竞争能力，提高铁路部门的工作效率，提升管理水平，减少劳动强度，方便广大旅客购票，有一定的社会和经济效益。22 系统需要实现的功能和操作如下：(1) .查询：可以通过起点站与终点站在进行查询， 也可根据具体的车次输入 进行查询，同时每次查询都会显示车次号，点击即可显示该趟列车所进过站点的

7、详细信息，其中包括所到达每个站的到达时间与出发时间。(2) .客户注册、注销：由于要进行网上订购车票，用户需注册，填写有关信 息，由物流公司负责送车票到客户手中。如果用户不再使用本系统可以选择注销， 从而从数据库中删除其有关记录。(3) .订票业务：本系统为网上订票，用户经过查询车次信息、票务信息，找 到自己所需的车票通过所关联的账户进行订购。(4) .退票业务：根据客户提供的情况(车次、时间、)为客户办理退票手续,退票时按票价的80%退给客户金额，若所退票额能满足他的要求，则为他办理退 票手续，同时在数据库中进行更新。(5) .更新功能：该系统随时跟据车辆的变化情况进行更新，增加车辆时可 以

8、在系统中插入该车的详细信息，同时也能根据需要修改某趟车经过的站点与发 车时间，当某趟车停止、开行时可以删除该趟车的信息。同时包括对列车信息、 站点信息、管理人员信息、订票记录等的更新功能。(6) .车票配送：客户在订购了车票之后，管理人员通过后台管理订票记录 然后根据客户的要求选择物流公司及时为其配送车票。3. 系统设计3.1总体设计1.功能设计：该铁路票务系统流程主要包括客户操作、 管理人员操作、主管操作: 客户操作：查询操作：可以按照车次或始发站、终点站两种方式进行查询，只需要输入关 键信息即可查到所需的车次的有关信息，包括车的类型、所剩票 的类型、数量、票价等。注册操作：网上订票，需要与

9、客户的银行账号、地址等有关信息关联，只有进行注册之后才可以进行订票操作。订票操作：客户进行注册后，可以方便地进行订票，可以选择支付方式与送票 方式，以达到最快速、高效地完成车票的订购。退票操作：由于一些原因，可能造成客户要求退票，系统根据具体的情况判定 是否可以退票，进行退票。注销操作：客户可能因为某些原因要进行注销操作， 系统根据客户请求完成客 户注销，删除数据库中的该客户有关信息。2.功能模块图车票编3.局部ER图（以客户为主体）n物流公司口送票1查询票务信息1身份证号n客户数量车票类型1n车票1列车途径站点起始时间属于里程到达时间住址电话f m 支付类型密i=r姓名m统计车票类型2nn日

10、期车次 车类型起始站订购3.2详细设计:逻辑结构设计用户（用户账号,用户详细信息（用户账号，性别，地址，支付方式）支付类型（类型编号，支付类型）网上银行（银行编号，银行名称）订票记录（用户编号，车票编号，数量，订票日期）票务信息（车票编号，剩余数量，日期）票类型1 （票类型编号1,票类型名称1）票类型2 （票类型编号2,票类型名称2）物流公司（物流公司编号，物流公司名称）数据库物理设计用户表：字段名称数据类型宽度可否为空是否为主键说明ID8char20否是用户账号passwordchar16否否用户密码用户详细信息表:字段名称数据类型宽度可否为空是否为主键说明ID8char20否是用户账号Na

11、mechar20否否Sexnoint1否否性别编号telchar11否否Addresschar30否否地址zhif unoint1否否支付方式支付类型表:字段名称数据类型宽度可否为空是否为主键说明zhif unoint1否是类型编号zhifuchar20否否支付类型网上银行:字段名称数据类型宽度可否为空是否为主键说明Banknoint1否是银行编号Ba nkchar20否否银行名称订票记录:字段名称数据类型宽度可否为空是否为主键说明ID8char20否是用户IDchar20否是车票编号numint1否否数量Datedatetime1否否订票日期票务信息表:字段名称数据类型宽度可否为空是否为主键

12、说明IDchar20否是车票编号num1int1否否剩余数量Date1datetime1否否日期票类型1表:字段名称数据类型宽度可否为空是否为主键说明Type1int1否是票类型编号1Type1nachar20否否票类型名称1票类型2表:字段名称数据类型宽度可否为空是否为主键说明Type2int1否是票类型编号2Type2nachar20否否票类型名称2物流公司（物流公司编号，物流公司名称）字段名称数据类型宽度可否为空是否为主键说明transnoInt1否是物流公司编号transnaChar20否否物流公司名称3.2系统数据库设计3.2.1. 该系统由两部分组成：登录部分和车次车票部分。(1)

13、 .登录部分：该部分分为管理员与乘客登录，管理员登录时需要设定账号与密码，只有输入正确的账号与密码才能登陆，同时系统的功能管理员都能操作， 乘客不需要账号与密码，但是乘客只有查询的操作权限。(2) .车次车票部分：该部分又分为四个子系统：查询系统：可以查询车次基本信息与车次详细。购票系统：用于乘客购票，同时显示剩余票数与票价。更新系统：当车次信息有变化时，管理员可以根据情况插入和删除车次信息。退票系统：用于乘客需要退票时，且退票时只退票价的80%图3.2该系统流程图如下开始错误客 乘查询系统返回退退出作、11出M4士击1-d图3.24. 系统实现设计的火车站售票系统主要分为五个模块:5.1.

14、登陆模块。在登陆系统中，所需要的功能就是对输入的账号和密码与数据库中的账号信息进行匹配查询。其实现使用了 text控件，adodc控件，frame控件，option控件，comman(控件以及label控件。主要代码如下：Private Sub Comma nd1_Click() If Optio nl.Value = True The n '判断是否是管理员登陆If Text1.Text = "" The n 'MsgBox "请输入账号"ElseIf Text2.Text = "" The nMsgBox &quo

15、t;请输入密码"ElseIf Text1.Text <> "" The nDim strsql As Stri ngstrsql = "select * from如果账号中输入为空则显示"请输入账号"如果密码框输入为空则显示"请输入密码"当账号框中输入不为空表 3 Where id=" + "”' + Textl + 从数据库中找到账号等于账号框中输入的数据时With AdodclCo nn ectio nStri ng = "Provider=Microsoft

16、.J et.OLEDB.4.0;" _&"Data Source=" + App.Path +"db3.mdb;Persist Security Info=False".RecordSource = strsql.RefreshEnd WithIf Adodc1.Recordset.EOF = True The nMsgBox "账号信息错误"ElseIf Text2.Text <> Adodc1.Recordset.Fields("pass nu m") ThenMsgBox &qu

17、ot;密码错误"Elself Text2.Text = Adodc1.Recordset.Fields("pass nu m") Then密码框中输入的数据与数据库的密码相符时Form1.HideForm2.ShowEnd IfEnd IfElseIf Optio n2.Value = True The n '如果选择为游客登录则跳转到游客查询界面Form3.ShowForm1.HideEnd IfEnd Sub另外为了美化界面，增加登陆界面的功能，添加了 time控件，将计算机系统时间显示在lable控件中，具体代码如下：Private Sub Time

18、r1_Timer()Label4.Capti on = NowEnd Sub5.2. 主菜单即管理员登陆进入后的操作菜单。本界面中用到了comman(控件作用是跳转到操作员所需要的界面。主要代码示例如下：Private Sub Comma nd1_Click()'当前主菜单隐藏，更新系统显示。Form2.HideForm4.ShowEnd Sub53更新系统更新系统中主要要求对数据库中的表的数据进行修改，主要包括 插入，修改，删除。在这些功能的实现中我们使用了 adodc控件，option控件, label控件，datagrid 控件。主要代码如下：Private Sub Comma

19、nd1_Click()'如果选择的为火车基本信息，则让datagrid控件中显示火车基本信息的表。并实现插入功能。反之则对火车详细 信息表进行插入操作。If Optio nl.Value = True The nSet DataGridl.DataSource = AdodclElself Optio n2.Value = True The nSet DataGrid1.DataSource = Adodc2End IfEnd SubPrivate Sub Command2_Click()'允许在 datagrid 中对数据进行更新DataGrid1.AllowUpdate =

20、 TrueEnd SubPrivate Sub Command3_Click()'如 果选择 的为火车基本 信息，则让datagrid 控件中显示火车基本信息的表。并实现删除功能。反之则对火车详细 信息表进行删除操作。If Optio n1.Value = True The nElseIf Optio n2.Value = True The nSet DataGrid1.DataSource = Adodc2End IfEnd Sub'使用户不能对datagrid中数据进行更新,Private Sub Comma nd4_Click()防止出错。DataGrid1.AllowU

21、pdate = FalseEnd Sub54查询系统 在本系统中主要是要求用户能对火车进行查询，包括车次查询， 站点查询以及详细查询。另外要求不能对数据进行修改。为了实现这些功能，我们用到了 datagrid 控件，adodc控件，label控件，comman控件，text控件。 具体代码如下：Private Sub Command1_Click()'对输入的两个站点进行查询。查询进过输入 的两个站点的所有火车。为了实现这个对两个站点间的查询，我们使用了子查询 语句。Dim strsql As Stri ngstrsql = "select * from表 2 where 车

22、次 in (select 车次 from 表 2Where 站点 in ( '" + Textl + "', '" + Text2 + "') group by车次 hav ingcou nt(*)>=2) and站点 in ( '" + Textl + "', '" + Text2 + "') order by编号asc"With Adodc2.Conn ectio nStri ng = "Provider=Microsof

23、t .J et.OLEDB.4.0;" _&"Data Source=" + App.Path +"db3.mdb;Persist Security Info=False".RecordSource = strsqlSet DataGridl.DataSource = Adodc2.RefreshEnd WithEnd SubPrivate Sub Comma nd2_Click()'对Dim strsql As Stri ngstrsql = "select * from表 2 Where 车次="+ &q

24、uot;” + Text3 + "' orderby编号asc"With Adodc2.Conn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" _"Data Source=" + App.Path"db3.mdb;Persist Security Info=False".RecordSource = strsqlSet DataGrid1.DataSource = Adodc2 .RefreshEnd WithEnd SubPrivate Su

25、b Command3_Click()'对输入的车次进行查询，输出该车次的信息Dim strsql As Stri ngstrsql = "select * from表 2 order by 编号 asc"With Adodc2.Conn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" _&"Data Source=" + App.Path"db3.mdb;Persist Security In fo=False".RecordSource

26、 = strsqlSet DataGridl.DataSource = Adodc2.RefreshEnd WithEnd SubPrivate Sub Form_Load()'使datagrid 中输出的数据不能进行修改。DataGridl.AllowAddNew = FalseDataGridl.AllowDelete = FalseDataGridl.AllowUpdate = FalseEnd Sub5.5.购票退票系统在该系统中要实现的功能是支持售票员对游客购票的车次 的查询，以及购票的操作，其中包括对票价的显示，座位数的加减，尤其是实时 对数据库的车票情况的更新，以及购买硬

27、座、硬卧、软卧、站票这不同车票的区 另为此，我们使用了 label控件，frame控件，text控件，options控件，datagrid 控件，adodc控件以及commanc控件。具体功能实现如下：（查询的实现与查询 系统的相似，不在这里列出）Private Sub Comma nd1_Click（）'实现乘客购票的显示，以及实时对数据库中的车票信息进行更新。Label9.Capti on =Text2.Text Label11.C aptio n = Text1.Text Label10.Captio n = Text3.Text（” 发车时间"）If Option1.

28、Value =TrueThe n Label13.C aptio n = Optio n1.C apti on Adodc1.Recordset.Fields（"软卧剩余票数"）=Adodc1.Recordset.Fields（"软卧剩余票数"）-1 Label17.Caption =Adodc1.Recordset.Fields（"软卧剩余票数"）ElseIf Option2.Value = TrueThe nLabel13.Capti on = Optio n2.C apti on Adodc1.Recordset.Fields（

29、"硬卧剩余票Adodc1.Recordset.Fields（"硬卧剩余票数"）-1 Label17.Caption =Adodc1.Recordset.Fields（" 硬卧剩余票数"）ElseIf Option4.Value = TrueThe nLabel13.Captio n = Optio n4 .C apti on Adodc1.Recordset.Fields（"硬座剩余票Adodc1.Recordset.Fields（"硬座剩余票数"）-1 Label17.Caption =Adodc1.Record

30、set.Fields（" 硬座剩余票数"）End If Label14.Caption =Text4.TextLabel15.Caption= Adodc1.Recordset.Fields（"车次类型"）Label16.Caption=DateEnd SubPrivate Sub Command3_Click()'通过option控件，查询出不同座位价格并把价格显示到text控件中。If Optio nl.Value = True The nLabel20.Caption = （Text4.Text） * 0.8（”软卧剩余票数（” 软卧剩余票

31、数"）+ 1Label17.Caption = Adodc1.Recordset.Fields（"软卧剩余票数"）ElseIf Optio n2.Value = True The nLabel20.C aptio n = （Text4.Text） * 0.8Adodc1.Recordset.Fields（" 硬卧剩余票数"）=Adodc1.Recordset.Fields（" 硬 卧剩余票数"）+ 1Label17.Caption = Adodc1.Recordset.Fields（"硬卧剩余票数"）El

32、seIf Optio n4.Value = True The nLabel20.C aptio n = （Text4.Text） * 0.8Adodc1.Recordset.Fields（" 硬座剩余票数"）=Adodc1.Recordset.Fields（" 硬 座剩余票数"）+ 1Label17.Caption = Adodc1.Recordset.Fields（"硬座剩余票数"）End If'选择软卧，并把软卧的剩余票数输出软卧票价")软卧票价")End SubPrivate Sub Optio n1

33、_Click（） Dim a As Double, b As Double Adodcl.Recordset.MoveFirst a = Adodc1.Recordset.Fields（" AdodcI.Recordset.MoveNext b = Adodc1.Recordset.Fields（"Text4.Text = b - a软卧剩余票数")Label17.Caption = Adodc1.Recordset.Fields（"End Sub56此外，在系统设计过程中，我们发现如果直接使用adodc控件对数据库进行 关联，将使得我们设计的软件只能在

34、指定的路径中才能运行，为此，我们查阅了相关资料，在软件设计过程中动态设置我们数据库的路径， 从而使软件能在不同 的路径中正常运行，代码如下：With Adodcl.Conn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" _&"Data Source=" + App.Path +"db3.mdb;Persist Security Info=False".RefreshEnd With5. 系统调试5.1.登陆系统图5.1 :此为密码输入错误提示。图5.2 :此为密码

35、输入正确后跳转到主菜单的界面图5.3 :此为选择乘客后正确跳转到查询的界面。图5.1图5.252查询系统图5.4 :此为输入到的站点查询后正确查询出的信息。图5.5 :此为输入1374车次后正确查询出的车次信息。图5.6 :此为点击详细查询后正确输出的信息。图5.4图5.65.3.更新系统图5.7 :此为未更新前显示信息。图5.8 :此为插入1234车次后显示信息。图5.9 :此为删除1234车次后显示信息图5.854购票系统。图5.10 :此为输入站点，车次后过滤出的车次信息。图5.11 :此为在图十的基础上选择软座后显示的票价及剩余票数信息。图5.12 :此为点击确定购买后显示的信息，包括

36、对剩余票数的更新信息图 5.10图 5.11图 5.125.5.退票系统图5.13 :此为初始状态 图5.14 :此为在输入与购票系统相同信息后输出的退还现金数目图 5.13图 5.146. 小结对于此次课程设计我感慨颇多，的确，从拿到题目到完成整个编程，从理论 到实践，在整整两个星期的日子里，学到的很多理论知识，在这次课程设计实习 中更具体的体现了出来，在实践过程中，不仅巩固了以前所学过的知识，而且学 到了很多在书本上所没有学到过的知识。通过这次课程设计使我懂得了理论与实 际相结合是很重要的，只有理论知识是远远不够的，只有把所学到的理论知识与 实践相结合起来，从理论中得出结论，将结论辅助与理

37、论，才能真正学到知识并 写出有用的程序，所以提高自己的实际动手能力和独立思考的能力是十分重要 的。在设计的过程中遇到很多的问题， 可以说得是困难重重，由于对以前所学过 的知识理解得不够深刻，掌握得不够牢固。导致自己在程序设计过程中经常出错， 致使程序无法运行或无法实现要求的步骤。 还有很多是些小问题，这都是由于我 粗心大意而造成的，所以我认识到设计程序一定要仔细， 容不得丝毫的马虎和粗 心大意。当然还有其他的问题，尤其是关于文件的操作，是我们最大的问题，不 过，经过老师的讲解和改错之后，也开始懂得设计和运用了。在本次实践中，我认识到了团队的重要性，团队需要个人，个人也离不开团 队，必须发扬团结

38、协作的精神。某个人的离群都可能导致整项工作的失败。只有 一个人知道原理是远远不够的，必须让每个人都知道，否则一个人的错误，就有 可能导致整个工作失败。团结协作是我们实习成功的一项非常重要的保证。而这次实习也正好锻炼我们这一点，这也是非常宝贵的。我很清楚的知道团结协作的 力量是伟大的，如果是我一个人孤军奋战的话，肯定不能在规定时间完成这次课 程设计的要求容，因此我很怀念这两个星期的合作， 想起我们一起查阅资料，一 起讨论设计程序的思路，成功的时候一起分享喜悦，失败的时候互相鼓励，我坚 信，在这两个星期的时间里面，我们的友情和团结精神在历练中经受住了考验， 变的更加顽强，我们是一个集体的思想已经深

39、入人心！附录源代码from1(登陆界面):Private Sub Comma nd1_Click()If Optio nl.Value = True The nIf Text1.Text = "" The nMsgBox "请输入账号"ElseIf Text2.Text = "" The nMsgBox "请输入密码"ElseIf Text1.Text <> "" The nDim strsql As Stri ngstrsql = "select * from表 3 Wh

40、ere id=" + "”' + Textl + "”'With Adodcl.Conn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" _& "Data Source=" + App.Path +"db3.mdb;Persist Security Info=False".RecordSource = strsql.RefreshEnd WithIf Adodc1.Recordset.EOF = True The nMs

41、gBox "账号信息错误"ElseIf Text2.Text <> Adodc1.Recordset.Fields("pass num") The nMsgBox " 密码错误"ElseIf Text2.Text = Adodc1.Recordset.Fields("pass nu m") The nForml.HideForm2.ShowEnd IfEnd IfElseIf Optio n2.Value = True The nForm3.ShowForml.HideEnd IfEnd SubPriv

42、ate Sub Comma nd2_Click()EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()Label4.Capti on = NowEnd Sub from2 (主菜单)：Private Sub Comma nd1_Click()Form2.HideForm4.ShowEnd SubPrivate Sub Comma nd2_Click()Form2.HideForm5.ShowEnd SubPrivate Sub Comma nd3_Click()EndEnd SubPrivate Sub Comma

43、 nd4_Click()Form2.HideForm5.ShowEnd SubPrivate Sub Comma nd5_Click()Form2.HideForm3.ShowEnd Sub from3 (查询系统)：Private Sub Comma nd1_Click()Dim strsql As Stri ngstrsql = "select * from表 2 where 车次 in (select车次 from 表 2Where 站点 in ( '" + Textl + "', '" + Text2 + "&#

44、39;) group by车次 hav ingcou nt(*)>=2) and 站点 in ( '" + Textl + "', '" + Text2 + "') order by 编号asc"With Adodc2.Conn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" _& "Data Source=" + App.Path +"db3.mdb;Persist Security I

45、n fo=False".RecordSource = strsqlSet DataGridl.DataSource = Adodc2 .RefreshEnd WithEnd SubPrivate Sub Comma nd2_Click()Dim strsql As Stri ngstrsql = "select * from表 2 Where 车次="+ "” + Text3 + "' orderby编号asc"With Adodc2.Conn ectio nStri ng = "Provider=Microsoft

46、 .J et.OLEDB.4.0;" _& "Data Source=" + App.Path +"db3.mdb;Persist Security Info=False".RecordSource = strsqlSet DataGridl.DataSource = Adodc2.RefreshEnd WithEnd SubPrivate Sub Comma nd3_Click()Dim strsql As Stri ngstrsql = "select * from表 2 order by 编号 asc"With

47、 Adodc2.Co nn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;"& "Data Source=" + App.Path +"db3.mdb;Persist Security In fo=False".RecordSource = strsqlSet DataGridl.DataSource = Adodc2.RefreshEnd WithEnd SubPrivate Sub Form_Load()DataGridl.AllowAddNew = False

48、DataGridl.AllowDelete = False DataGridl.AllowUpdate = False End SubPrivate Sub Label4_Click() Forml.ShowForm3.HideEnd SubPrivate Sub Label5_Click()EndEnd Sub from4 (更新系统)：Private Sub Comma nd1_Click()If Optio n1.Value = True The nSet DataGrid1.DataSource = Adodc1ElseIf Optio n2.Value = True The nSet

49、 DataGrid1.DataSource = Adodc2End IfEnd SubPrivate Sub Comma nd2_Click() DataGrid1.AllowUpdate = True End SubPrivate Sub Comma nd3_Click()If Optio n1.Value = True The nEnd IfEnd SubPrivate Sub Comma nd4_Click() DataGrid1.AllowUpdate = False End SubPrivate Sub Form_Load()strsql = "select * from表

50、 1 "With Adodcl.Co nn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;"& "Data Source=" + App.Path +"db3.mdb;Persist Security Info=False".RecordSource = strsql.RefreshEnd Withstrsqll = "select * from表 2 "With Adodc2.Co nn ectio nStri ng = "P

51、rovider=Microsoft .J et.OLEDB.4.0;"& "Data Source=" + App.Path +"db3.mdb;Persist Security Info=False".RecordSource = strsql1.RefreshEnd WithDataGrid1.AllowUpdate = FalseEnd SubPrivate Sub Label1_Click（）EndEnd SubPrivate Sub Label2_Click（）Form2.ShowForm4.HideEnd SubPrivat

52、e Sub Optio n1_Click（）Set DataGrid1.DataSource = Adodc1End SubPrivate Sub Optio n2_Click（）Set DataGrid1.DataSource = Adodc2End Sub from5 （购票退票系统）：Private Sub Comma nd1_Click（）Label9.C aptio n = Text2.TextLabel11.C apti on = Text1.TextLabel10.C apti on = Text3.TextLabel12.Caption = Adodc1.Recordset.F

53、ields（"发车时间"）If Optio n1.Value = True The nLabel13.C apti on = Optio n1.C aptio nAdodc1.Recordset.Fields（" 软卧剩余票数"）=Adodc1.Recordset.Fields（" 软 卧剩余票数"）-1Label17.Caption = Adodc1.Recordset.Fields（"软卧剩余票数"）ElseIf Optio n2.Value = True The nLabel13.C apti on = Op

54、tio n2.C aptio nAdodc1.Recordset.Fields（" 硬卧剩余票数"）=Adodc1.Recordset.Fields（" 硬卧剩余票数"）-1（”硬卧剩余票数"）Elself Optio n4.Value = True The nLabel13.C aptio n = Optio n4.Cap tio nAdodc1.Recordset.Fields（"硬座剩余票数"）=Adodc1.Recordset.Fields（" 硬座剩余票数"）-1Label17.Caption

55、= Adodc1.Recordset.Fields（"硬座剩余票数"）ElseIf Opti on 5.Value = True The nLabel13.C aptio n = Optio n5.C aptio nAdodc1.Recordset.Fields（"硬座剩余票数"）=Adodc1.Recordset.Fields（" 硬座剩余票数"）-1Label17.Caption = Adodc1.Recordset.Fields（"硬座剩余票数"）End IfLabel14.C aptio n = Text4

56、.TextLabel15.Caption = Adodc1.Recordset.Fields（"车次类型"）Label16.C apti on = DateEnd SubPrivate Sub Comma nd2_Click（）Dim strsql As Stri ngstrsql = "select * from 表 2 where 车次 in（” & Text1.Text & "'） and 站点 in （ '" + Text2 + "', '" + Text3 + &qu

57、ot;'） order by编号 asc"With Adodc1.Conn ectio nStri ng = "Provider=Microsoft .J et.OLEDB.4.0;" _& "Data Source=" + App.Path +"db3.mdb;Persist Security Info=False".RecordSource = strsqlSet DataGrid1.DataSource = Adodc1.RefreshEnd WithEnd SubPrivate Sub Comma n

58、d3_Click（）If Optio n1.Value = True The nLabel20.C aptio n = （Text4.Text） * 0.8Adodc1.Recordset.Fields（"软卧剩余票数"）=Adodc1.Recordset.Fields（" 软卧剩余票数"）+ 1Label17.Caption = Adodc1.Recordset.Fields（"软卧剩余票数"）ElseIf Optio n2.Value = True The nLabel20.C aptio n = （Text4.Text） * 0

59、.8Adodc1.Recordset.Fields（"硬卧剩余票数"）=Adodc1.Recordset.Fields（" 硬卧剩余票数"）+ 1Label17.Caption = Adodc1.Recordset.Fields（"硬卧剩余票数"）Elself Optio n4.Value = True The nLabel20.Caption = (Text4.Text) * 0.8(”硬座剩余票数(”硬座剩余票数")+ 1Label17.Caption = Adodc1.Recordset.Fields(" 硬座剩余票数&