火车票网上售票系统.doc

《火车票网上售票系统.doc》由会员分享，可在线阅读，更多相关《火车票网上售票系统.doc（39页珍藏版）》请在沃文网上搜索。

1、课程设计说明书题 目:火车站网上订票系统1、设计的目的与要求 1）加强学生的实践能力；2）理解小型系统开发的基本步骤； 3）本系统的功能包括：火车票信息查询，预订火车票，退订火车票。 2、设计进度及完成情况日 期内 容6.6-6.7项目开发计划书6.8-6.10系统可行性研究 6.11-6.15系统需求分析 6.16-6.23系统设计 6.24-6.27系统测试 6.28-6.30项目的递交3、成绩评定设计成绩： （教师填写）指导老师： （签 字）目 录第一章 项目开发计划书11.1引言11.1.1编写目的11.1.2背景11.2项目概述11.2.1工作内容11.2.2主要参加人员21.2.3

2、产品21.2.4服务21.2.5验收标准21.2.6本计划的批准者和批准日期21.3实施计划31.3.1工作任务的分配与人员分工31.3.2进度31.4支持条件31.4.1计算机系统支持3第二章 可行性分析52.1可行性研究前提52.1.1要求52.1.2目标52.1.3决定可行性的因素52.2 技术可行性分析62.2.1系统简要描述62.2.2 系统主要功能流程图62.3经济上可行性62.4 操作可行性72.5开发工具的选择72.6 结论7第三章 需求分析83.1市场需求分析83.2系统功能性需求分析83.2.1 功能划分83.2.2 功能描述83.2.2.1 注册功能模块83.2.2.2

3、登录功能模块83.2.2.3 查询功能模块93.2.2.4 订票功能模块93.2.2.5 管理功能信息模块93.3 系统非功能性需求93.3.1 可用性93.3.2 可靠性93.3数据字典103.4实体-联系图10第四章 系统设计124.1 总体设计124.1.1需求概述124.1.2客户关系管理系统功能设计124.1.3过程设计144.1.1程序流程图144.2数据库设计184.2.1数据库详细设计184.2.2数据结构与程序关系194.3功能模块的设计与实现194.3.1会员注册模块194.3.1 站站查询224.3.2 车次查询234.3.3 站+车次查询254.3.4 显示数据库内容到

4、界面264.3.5 订票实现274.3.6 退票实现29第五章 系统测试315.1 测试的作用和意义315.2 测试方法315.3 测试内容325.4 测试结果325.4.1注册和登录模块测试325.4.2 查询、订票和退票模块测试335.4.3 用户个人信息修改和删除模块测试355.4 结论36第六章 总结37参考文献3836第一章 项目开发计划书1.1引言 1.1.1编写目的此项目开发计划书的编写主要是为了给开发火车站网上订票系统做主要的规划和整合，在开发过程中起到引导作用，以及给使用者提供简要的说明。1.1.2背景火车站市场的管理和规范问题，是困扰我们多年的一个老问题，也是政府管理中的一

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

6、的用户是需要查询火车票信息、预订火车票以及退订火车票的人；该系统需要实现如下主要功能以及相关说明：火车票信息查询：站与站的火车票信息查询、火车车次的查询以及用户已订票的信息查询。火车票预订：在规定的有效时间段内，预订火车票，但要收取一定的手续费。火车票退订：在车票的有效期之内，能够对所预订的火车票进行退订，对于退还的金额有一定比例的扣除。1.2.2主要参加人员 组长：张鹏组员：蔡珀瑛 伍佳 钟佳 尹唐文 1.2.3产品1、系统开发计划书2、系统需求说明书3、系统设计说明书4、测试计划5、一个能正确运行的可执行程序，源程序清单1.2.4服务安装、维护和运行支持从使用该系统开始，维护期限为一年。

7、1.2.5验收标准 各个功能均能正常使用，满足用户的需求。1.2.6本计划的批准者和批准日期 批准者：颜富强批准日期：2011年6月6日1.3实施计划 1.3.1工作任务的分配与人员分工 张鹏 任务:（1）系统总的开发计划书（2）系统的总体设计 （3）组织小组讨论 （4）项目开发进度的管理 （5）团队的组织和协调蔡珀瑛 任务：系统的可行性分析钟佳 任务: 系统的需求分析伍佳 任务：数据库的设计以及系统的开发尹唐文 任务：系统测试1.3.2进度 系统规划阶段: 项目标志性事件 开始到完成开发阶段： 项目开发计划书的完成 6.6-6.7需求分析阶段: 系统需求说明书完成 6.8-6.10设计阶段:

8、 系统设计说明书 6.11-6.15编码实现: 项目的形成 6.16-6.23测试阶段: 测试计划 6.24-6.27移交阶段: 项目的递交 6.28-6.301.4支持条件1.4.1计算机系统支持操作系统需要 windows 2000以上；操作系统环境：windows xp/windows 7；数据库需要Microsoft Access 95；数据库驱动：Microsoft公司的sqljdbc驱动;前台开发工具：Visual Basic 6.0;前台界面类型：windows 窗体应用程序。第二章 可行性分析2.1可行性研究前提2.1.1要求（1）主要功能：为游客提供火车票信息查询以及订票服务

9、，方便火车站的售票工作，提高火车站的服务质量和服务效率（2）性能要求：游客提供的信息必须及时的反映在火车站的工作平台上。售票系统的订单必须无差错的存储在火车站的主服务器上。对服务器上的数据必须进行及时正确的刷新。（3）输出要求：数据完整，详实。（4）输出要求：简捷，快速，实时。（5）安全与保密要求：服务器的管理员享有对火车车次信息库及火车票票信息库和售票票信息库的管理与修改。售票员只享有对订票信息库的部分修改（写入与读出）。（6）完成期限：预计六个月。2.1.2目标系统实现后，大大提高火车站的火车票售票服务效率。降低售票服务中的错误发生率，减少信息交流的烦琐过程及其带来的开销。2.1.3决定可

10、行性的因素技术可行，现有技术可完全承担开发任务。操作可行，软件能被原有工作人员快速接受2.2 技术可行性分析2.2.1系统简要描述在火车站中的终端是安装了Windows XP的PC机，主要目的是向火车站的服务器传递数据。当顾客在火车站进行咨询时，终端向服务器发出查询请求，服务器根据火车信息库的实时数据，向终端发送数据，显示在终端的屏幕上。当顾客向售票员售票时，终端向服务器发出发出查询售票请求，服务器核对后，存入售票票信息库，并修改售票信息库，核对后，传送机票确认表单，终端打印出机票。2.2.2 系统主要功能流程图图1 系统流程图2.3经济上可行性本系统其他应用软件、硬件系统也易于获得.因此,开

11、发成本较低。而引进使用本系统后，与传统方式相比，具有高效率、低成本、高质量的特点，可以节省不少人力、物力及财力。所以，从经济的角度来看，该系统可行。2.4 操作可行性系统采用菜单式，实现用户与数据库的交互，界面简洁友好，操作方便。2.5开发工具的选择开发工具：Visual Basic 6.0 数据库环境：Microsoft Access 95系统环境：Microsoft Windows XP/ Microsoft Windows 7系统实现依靠相对熟悉的VB语言和Microsoft Access 95数据库系统，其基本操作实质还是对数据库进行添加、删除、查找等操作。2.6 结论综上所述，火车售

12、票系统在技术非常成熟，主客观条件都具备，且具有良好的效益，因此开发此系统是可行的。为了提高售票效率，方便人们查找火车票信息，建议立即开发。第三章 需求分析3.1市场需求分析目前火车站售票的状况是仅靠手工操作，以现有的工作人员很难应付车票订购高峰时刻的大量数据处理问题。同时还会出现由此带来的大量记录存放和管理所带来的问题。本次设计拟开发一个火车站网上订票系统，可以降低工作人员的工作量，提高工作人员的工作效率，同时方便顾客订票。3.2系统功能性需求分析3.2.1 功能划分本系统的目标使用人群是广大的火车乘客，建成后将有助于缓解火车票售票人员的工作量。因此本系统首先需要实现用户对火车票的查询的查询功

13、能，包括查询火车的票价和座位号等，查询到所需车票的用户还可以进行预订，预订时需填写用户的必要信息包括姓名、身份证号、收票地址等。预订好车票的用户因某些因素需要退票的，在火车发车前的规定时间内，还可以进行退票。3.2.2 功能描述3.2.2.1 注册功能模块对于想利用本系统进行火车票查询的用户，首先需要注册成为系统的用户方能进行查询操作，系统保存用户的注册信息，在注册用户时仅需要输入由用户自定义的用户名称和密码，注册成功后页面随即转入主页（登录界面）。3.2.2.2 登录功能模块用于用户的登录，对于已经在本系统注册的用户可以根据注册时所用的用户名和密码登录到本系统，但是用户名和密码必须正确，若是

14、不正确的用户名和密码，系统便进行错误提示。系统确认用户名和密码后便跳转到查询界面。3.2.2.3 查询功能模块查询分为站站查询，车次查询以及已订车票的信息查询。所有上网用户都可以使用本系统的查询功能，对车票信息有个基本的了解。用户在查询界面输入框输入所要查询的出发站和目的站，或者是火车车次，系统则会根据输入的信息进行搜索，并给出搜索结果，用户还可点击搜索结果查看火车票的详细信息。3.2.2.4 订票功能模块用户在查询界面查询到自己所满意的车票时，可以进行网上订票操作，所订车票将自动添加到用户的个人信息当中，方便用户日后进行管理。3.2.2.5 管理功能信息模块只有登录后的用户才可以管理自己的信

15、息，在个人信息框中可以查看到用户已订的车票和用户注册时所填的个人信息。用户由于某些个人因素需要退票的还可以进行退票操作。3.3 系统非功能性需求3.3.1 可用性本系统的潜在用户群具有的身份、背景可能会有较大的差异，因此对本系统的可操作性和易用性都提出了很高的要求。过于复杂的操作将不可避免的损失大量的用户，本系统应能让任何用户都不必借助任何操作手册或相关的系统帮助就能顺利地进行各种操作。3.3.2 可靠性系统建成后预计将有大量的用户在此查询火车票信息并进行大量的预订操作，因此对系统的稳定性也有比较高的要求。一旦系统不能正常工作，会给用户群带来巨大的损失也将导致失去用户对系统的信任。3.3数据字

16、典通过系统需求分析，对网上订票系统编制数据字典如下：各主要数据流的定义如表1至表4所示：表1名字：用户档案描述：用户订票时的个人信息定义：用户档案=用户名称+身份证号码+联系电话+收票地址位置：注册界面表2名字：用户登录信息描述：确认是否是注册用户的基本信息定义：用户登录信息=用户名+密码位置：登录界面 表 3名字：车票信息描述：用户所要查询和订购车票的基本信息定义：车票查询信息=车次号+出发地+目的地+发车日期+开出时刻+票价位置：查询界面，用户管理平台表4名字：用户个人管理信息描述：用户需要对车票和个人资料进行管理的信息定义：用户个人管理信息=所订车票信息+个人基本资料信息位置：用户订票管

17、理平台3.4实体-联系图根据需求分析，可以画出系统E-R图如下：图2 火车站网上订票系统E-R图第四章 系统设计4.1 总体设计4.1.1需求概述本系统的目标一方面为减少火车站售票人员在售票高峰期的工作压力，另一方面为用户提供一个查询火车票信息和预定火车票的平台。因此，本系统需要实现火车票信息的查询功能，火车票预定和火车票退订的功能。而为了让用户不丢失或者及时的修改信息，用户需要在系统进行简单的注册，登录，即系统还需实现用户的注册、登录功能。4.1.2客户关系管理系统功能设计根据系统需求分析和系统功能模块结构图来看，该系统应具备如下基本功能：l 列车信息查询l 已预订火车票信息查询l 预订火车

18、票l 退订火车票本火车站网上订票系统可划分为信息查询、网上订票、取消订票三个部分。其中信息查询又可分为车次查询和订单查询两个部分。其层次图如图3.1所示。其功能模块结构图如下： 图3 程序功能模块图图4 站站查询系统流程图图5 车次信息查询系统流程图图6 订票系统流程图 图7 退票系统流程图4.1.3过程设计4.1.1程序流程图本系统主界面为用户设计了三个功能操作以供选择：查询，订票，退票。另外，为方便用户，还将“退出系统”也单另列了出来，用户可以根据需要触发不同事件。其处理流程如图4.1所示。1. 系统管理员以及系统用户操作处理流程图8 系统管理员及系统用户操作流程图2.列车信息查询流程图9

19、 列车信息查询流程图3.退票处理流程图10 退票处理流程图4.2数据库设计4.2.1数据库详细设计数据库文件名：db_train（1） 列车信息表结构(db_info)列名数据类型允许Null值发车站文本否到达站文本否车次文本否车型文本否运行时间文本否里程文本否参考票价Long否余票信息Long否发车-到达文本否主键为：没有主键（2）注册用户表结构(login)列名数据类型允许Null值描述Usr文本否用户名Pwd文本否用户密码真实姓名文本否真实姓名身份证号码文本否身份证号码电话文本否电话取票地址文本否取票地址发车站文本是发车站到达站文本是到达站车次文本是车次票价Long是票价发车-到时文本是

20、发车-到时主键为：没有主键（2）管理员登陆表结构(masterlogin)列名数据类型允许Null值描述Usr文本否用户名Pwd文本否密码主键为：没有主键4.2.2数据结构与程序关系程序各个模块都要与数据库系统联系。物理数据结构主要用于各模块之间函数的信息传递。接口传递的信息将是以数据结构封装了的数据，以参数传递或返回值的形式在各模块间传输。4.3功能模块的设计与实现4.3.1会员注册模块用户如果想要注册，则按要求输入信息，包括用户名，密码，确认密码。还要进行身份信息验证，包括真实姓名，身份证号，联系手机，收票地址。输入完后点击“注册”，则系统自动转入登陆界面。注册界面如下：图11 注册界面具

21、体方法代码实现如下：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.Text = And Text2.Text = Text3.Text ThenData1.RecordSource = select * from login where usr= & Text1.Text & Data1.RefreshIf N

22、ot Data1.Recordset.EOF ThenMsgBox 对不起用户名已经被占用！重新输入, vbOKOnly + vbInformation, 提示Text1.Text = Text2.Text = Text3.Text = End IfIf Data1.Recordset.EOF ThenData1.Recordset.addnewData1.Recordset.Fields(0) = Text1.TextData1.Recordset.Fields(1) = Text2.TextData1.Recordset.Fields(2) = Text4.TextData1.Record

23、set.Fields(3) = Text5.TextData1.Recordset.Fields(4) = Text6.TextData1.Recordset.Fields(5) = Text7.TextData1.Recordset.Fields(6) = Data1.Recordset.Fields(7) = Data1.Recordset.Fields(8) = Data1.Recordset.Fields(9) = 0Data1.Recordset.Fields(10) = Data1.UpdateRecordText1.Text = Text2.Text = Text3.Text =

24、 Text4.Text = Text5.Text = Text6.Text = Text7.Text = MsgBox 恭喜，注册成功!, vbOKOnly + vbInformation, 提示Me.HideForm_Unload (0)End IfElseMsgBox 您输入或者提供的信息不正确，请您重新输入!, vbOKOnly + vbInformation, 提示End IfEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & db_train.mdbEnd SubPrivate Sub Form_Unload(C

25、ancel As Integer)Train_ts.ShowEnd SubPrivate Sub Timer1_Timer()If Check1.Value = 1 ThenCommand1.Enabled = TrueEnd IfIf Check1.Value = 0 ThenCommand1.Enabled = FalseEnd IfEnd SubPrivate Sub Timer2_Timer()If Not Text1.Text = ThenLabel21.Caption = ElseLabel21.Caption = End IfIf Not Text2.Text = ThenLab

26、el22.Caption = ElseLabel22.Caption = End IfIf Text3.Text = Text2.Text And Not Text3.Text = ThenLabel23.Caption = ElseLabel23.Caption = End IfIf Not Text4.Text = ThenLabel12.Caption = ElseLabel12.Caption = End IfIf Not Text5.Text = ThenLabel14.Caption = ElseLabel14.Caption = End IfIf Not Text6.Text =

27、 ThenLabel15.Caption = ElseLabel15.Caption = End IfIf Not Text7.Text = ThenLabel16.Caption = ElseLabel16.Caption = End IfEnd Sub4.3.1 站站查询站站查询是用户在界面输入框输入想要查询的列车起始终点站城市名，即可查询相应的列车信息。具体实现如下:图12代码:If Not Text1.Text = And Not Text2.Text = And Text3.Text = ThenListView1.ListItems.ClearOn Error Resume Nex

28、tData1.Recordset.MoveFirstData1.RecordSource = select * from tb_info where 发车站= & Text1.Text & and 到达站= & Text2.Text & Data1.Refreshsign = 0Do While Not Data1.Recordset.EOFSet itmX = ListView1.ListItems.Add()If Data1.Recordset.RecordCount 0 ThenitmX.Text = Data1.Recordset.Fields(0)itmX.SubItems(1) =

29、 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.Recordset.Fields(5)itmX.SubItems(6) = Data1.Recordset.Fields(6)itmX.SubItems(7) = Data1.Recordset.Fields(7)itmX.SubIt

30、ems(8) = Data1.Recordset.Fields(8)Data1.Recordset.MoveNextsign = 1End IfLoopIf sign = 0 ThenMsgBox 抱歉，没有查询到从 & Text1.Text & 到 & Text2.Text & 的列车信息！, vbOKOnly + vbInformation, 提示End IfEnd If4.3.2 车次查询单独的车次查询是在没有输入列车起始终点站城市名情况下，输入列车车次，点击查询即可显示所有该次列车的详细信息。具体实现如下:图13代码如下:If Text1.Text = And Text2.Text =

31、 And Not Text3.Text = ThenListView1.ListItems.Clearsign = 0On Error Resume NextData1.Recordset.MoveFirstData1.RecordSource = select * from tb_info where 车次= & Text3.Text & Data1.RefreshDo While Not Data1.Recordset.EOFSet itmX = ListView1.ListItems.Add()If Data1.Recordset.RecordCount 0 ThenitmX.Text

32、= 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.Recordset.Fields(5)itmX.SubItems(6) = Data1.Recordset.Fields(6)itmX.SubI

33、tems(7) = Data1.Recordset.Fields(7)itmX.SubItems(8) = Data1.Recordset.Fields(8)Data1.Recordset.MoveNextsign = 1End IfLoopIf sign = 0 ThenMsgBox 抱歉，没有查询到车次为 & Text3.Text & 的列车信息！, vbOKOnly + vbInformation, 提示End IfEnd If4.3.3 站+车次查询站站+车次查询是在精确输入列车起始终点站城市名和列车车次的情况下，点击查询即可显示所有该次列车的详细信息。具体实现如下:图14代码如下:I

34、f 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 where 发车站= & Text1.Text & and 到达站= & Text2.Text & and 车次= & Text3.Text & Data1.RefreshDo While Not Data1.Recordset

35、.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.Recordset.Fields(4)itmX.SubIt

36、ems(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 抱歉，没有查询到从 & Text1.Text & 到 & Text2.Text & 车次为 & Text3.Text & 的列车信息！,

37、vbOKOnly + vbInformation, 提示End IfEnd If4.3.4 显示数据库内容到界面以上面的三种方式查询列车信息，程序搜索数据库，如果查询到相关信息便显示在listview 框中，便于购票(退票)者查询阅读。具体实现如下:图15代码如下:Data1.Recordset.MoveFirstData1.RecordSource = select * from tb_info where 发车站= & Text1.Text & and 到达站= & Text2.Text & and 车次= & Text3.Text & Data1.RefreshDo While Not

38、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.Recordset.Fiel

39、ds(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 IfLoop4.3.5 订票实现当售票工作人员把售票信息列表显示出来后，乘客可以选择购票，如果余票足够多，乘客可以买到有座票，本系统没有详细设计车票打印程序，只以消息框的形式显示。购

40、买成功，text11.text-1，并且更新数据库Data1.UpdateRecord。图16如果余票不足，乘客购买无座票图17具体代码如下:If Text11.Text 0 ThenText11.Text = Text11.Text - 1ElseMsgBox 座票已经售完！当前您购买无座票, vbOKOnly + vbInformation, 提示End IfData1.RecordSource = select * from tb_info where 发车站= & Text4.Text & and 到达站= & Text5.Text & and 车次= & Text6.Text & D

41、ata1.RefreshData1.Recordset.EditData1.Recordset.Fields(7) = Text11.TextData1.UpdateRecordListView1.ListItems.ClearOn Error Resume NextData1.Recordset.MoveFirstData1.RecordSource = select * from tb_info where 发车站= & Text4.Text & and 到达站= & Text5.Text & Data1.RefreshDo While Not Data1.Recordset.EOFSet

42、 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.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.RecordSource = select * from login where usr= & Label5.Caption & Data1.RefreshData1.Rec