铁路票务系统文档

铁路票务系统

课程设计报告

指导教师：李骏

班级：08级软件工程1班

姓名及学号：

40812198刘如意

40812199张夏蕾

40812193赵玉文

40812202 王伟

40812166黄亚军

40812167毕帅

日期：2010年6月14日

设计报告目录

一、课程设计的目的与意义 (3)

二、需求分析 (5)

三、系统设计 (6)

四、系统实现 (11)

五、系统调试 (23)

六、小结 (36)

七、附录源程序 (38)

一.课程设计的目的与意义

1.1、课程设计的目的

数据库课程设计是数据库系统原理实践环节的及为重要的一部分.其目的是:

(1)培养学生能够应用数据库系统原理在需求分析的基础上对系统进行概念设计,学会设计全局ER图；

(2)培养学生能够应用数据库系统在概念设计的基础上应用关系规范化理论对系统进行逻辑设计,学会在ER图基础上设计出易于查询和操作的合理的规范化关系模型；

(3)培养学生能够应用SQL语言对所设计的规范化关系模型进行物理设计,并且能够应用事务处理,存储过程,触发器，嵌入式SQL等来保证数据库系统的数据完整性,安全性,一致性,保证数据共享和防止数据冲突；

(4)培养学生理论与实际相结合能力, 培养学生开发创新能力；

(5)培养学生独立分析问题、解决问题、查阅资料以及自学能力，以适应计算机产业日新月异发展的形势。

1.2、课程设计的意义

目前，我国在计算机应用、计算机软件和电子类相关专业的人才培养方面，取得了长足的发展，但同时也让我们深刻地感觉到缺乏实

际开发设计项目的经验，不善与综合运用所学理论，对知识的把握缺乏融会贯通的能力.尤其是我们计算机专业大学生，由于缺乏具体项目经验，毕业之后普遍感到知识不能转化为能力。课程设计可以锻炼我们理论联系实际的能力，为今后工作做铺垫。

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

铁路信息查询系统是企业信息决策和管理的重要的组成部分，是一种典型的信息管理系统，其开发主要包括后台的数据库的建立、维护以及前端的应用程序的开发两个方面的内容，数据库的建立和维护主要要求其管理数据的一致性、完整性、安全性等特点，而前台的应用程序开发则要求做到各项功能要完备、操作要简便、易学易用等特点。

本课程设计专门要解决这些问题，由于铁路火车票务管理的复杂

性，本设计与开发也仅是一个尝试性的工作。

二.需求分析

2.1. 需求分析的任务

随着旅游业的逐渐的成熟发达，铁路客运量大幅度的提高，各大省市的列车都显著的增加，这些都对列车票务管理系统提出了更高的要求，所以要不断的完善更新列车票务管理系统，提高列车售票系统的工作效率。随着科学的不断进步，计算机应用已经遍布整个社会的每个角落。列车在我国的人员流动、物资运输中占据着举足轻重的地位。全国有大量的人员通过搭乘火车到达目的地。而与火车的特殊性及可能经过多个城市，每个城市的车站可以出售此火车的车票。而且同一车站可能有多辆车经过。许多希望以最快的方式选择自己想来乘坐的那一趟列车。所以以人工的方式是不可能实现这种功能的。一种可行的方案是基于客户端服务器的体系结构。服务器为数据库系统，存储所有必要的信息。客户端通过连接到服务的应用程序快速、准确地完成相应的工作，通过网上订购，可以达到高效、便捷的购票。列车票务管理系统的实施，将会在一定程度上促进铁路客运生产力和生产关系的变革，增强市场竞争能力，提高铁路部门的工作效率，提升管理水平，减少劳动强度，方便广大旅客购票，有一定的社会和经济效益。

2.2. 系统需要实现的功能和操作如下：

(1).查询：可以通过起点站与终点站在进行查询，也可根据具体的车次输入进行查询，同时每次查询都会显示车次号，点击即可显示该趟列车所进过站点的详细信息，其中包括所到达每个站的到达时间与出发时间。

(2)更新功能：该系统随时跟据车辆的变化情况进行更新。

1>火车信息插入操作：增加车辆时可以在系统中插入该车的基本信息和详细信息；

2>火车信息修改操作：可以根据需要对某趟车的基本信息和详细信息如到站时间，出发时间等进行修改；

3>火车信息删除操作：当某趟车停止、开行时可以删除该趟车的信息；

4>管理员信息更新操作：可以根据需要对管理员的信息进行插入、修改和删除。

三.系统设计。

3.1总体设计

1.功能设计：该铁路票务系统流程主要包括总管理员操作、管理员操作、乘客操作：

总管理员操作：查询操作，更新操作的火车信息插入操作、火车信息修改操作、火车信息删除操作、管理员信息更新操作

管理员操作：查询操作，更新操作的火车信息插入操作、火车信息修改操作、火车信息删除操作

乘客操作：查询操作

2.功能模块图

乘客模块

铁路票务系统

总管理员模块

插入 修改

删除

更新火车信息 查询

管理员模块 更新管理员信息 插入 修改 删除

3.2详细设计：

3.2.1逻辑结构设计

（总）管理员（用户账号，密码，身份证号，电话号码等）票务信息（车票编号，剩余数量，日期等）

3.2.2数据库物理设计

管理员信息表：

火车详细信息表：

火车基本信息表：

3.2 系统数据库设计

3.2.1.该系统由两部分组成：登录部分和车次车票部分。

(1).登录部分：该部分分为（总）管理员与乘客登录，（总）管理员登录时需要输入账号与密码，只有输入正确的账号与密码才能登陆，同时系统的功能总管理员都能操作，管理员只对管理员信息的更新不能操作，乘客不需要账号与密码，但是乘客只有查询的操作权限。(2).车次车票部分：该部分又分为四个子系统：

查询系统：可以查询车次基本信息与车次详细信息。

更新系统：

当车次信息有变化时，管理员可以根据情况插入、修改和删除车次信息。

当管理员信息有变化时，总管理员可以根据情况插入、修改和删除管理员信息。 该系统ER 图 如图3.1：

n

m

车次

火车

起点站

终点站

座位类型

（总）管理员

账号

密码

管理 出发时间

终点时间

显示

站点 到站时间

出站时间

n

1

图3.2

该系统流程图如下:

图3.2 四.系统实现

设计的火车站售票系统主要分为九个模块： 4.1.进入系统模块。

在进入系统界面中，所需要的功能就是完成到登陆模块的跳转。其实现使用了label 控件以及label 控件。主要代码如下： Private Sub Command1_Click() Form1.Hide

选择登录类型

错误

操作

结束

查询系统

操作

输入账号和密码

账号

类型 开始

更新

火

车信息

查

询系统

类型 更新

火车信息

查询系统

更新

管理

员

Form2.Show

End Sub

Private Sub Command2_Click()

End

End Sub

4.2.登陆模块。

在登陆系统中，所需要的功能就是对输入的账号和密码与数据库中的账号信息进行匹配查询。其实现使用了text控件，adodc控件，frame 控件，option控件，command控件以及label控件。主要代码如下：Public id As String

Public role As String

Private Sub Command1_Click()

If Option1.Value = True Then '判断是否是管理员If Text1.Text = "" Then

'如果账号中输入为空则显示"请输入账号"

MsgBox "请输入账号"

ElseIf Text2.Text = "" Then

'如果密码框输入为空则显示"请输入密码"

MsgBox "请输入密码"

ElseIf Text1.Text <> "" Then '当账号框中输入不为空Dim strsql As String

strsql = "select * from 管理员信息表userinfo Where 账

号=" + "'" + Text1 + "'"

'从数据库中找到账号等于账号框中输入的数据时

With Adodc1

.RecordSource = strsql

.Refresh

End With

If Adodc1.Recordset.EOF = True Then

MsgBox "账号信息错误"

ElseIf Text2.Text <> Adodc1.Recordset.Fields("密码") Then

MsgBox "密码错误"

ElseIf Text2.Text = Adodc1.Recordset.Fields("密码") Then '当密码框中输入的数据与数据库的密码相符时id = Adodc1.Recordset.Fields("身份")

role = Adodc1.Recordset.Fields("角色编号")

Form2.Hide

Form3.Show

End If

End If

ElseIf Option2.Value = True Then

'如果选择为游客登录则跳转到游客查询界面

Form2.Hide

Form4.Show

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Timer1_Timer()

Label4.Caption = Now

End Sub

4.3.主菜单即管理员登陆进入后的操作菜单。本界面中用到了command控件。作用是跳转到操作员所需要的界面。主要代码示例如下：

Private Sub Command1_Click()

Form3.Hide

Form4.Show

End Sub

Private Sub Command2_Click()

Form3.Hide

Form5.Show

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command4_Click()

Form3.Hide

Form2.Show

End Sub

4.4.查询系统在本系统中主要是要求用户能对火车进行查询，包括车次查询，站点查询以及详细查询。另外要求不能对数据进行修改。为了实现这些功能，我们用到了datagrid控件，adodc控件，label控件，command控件。具体代码如下：

Private Sub Command1_Click()

Dim strsql As String

strsql = "select * from 火车基本信息表where 订票车次in(select 车次from 火车详细信息表Where 车站in ( '" + Text1.Text + "', '" + Text2.Text + "') group by 车次having count(*)>=2) "

With Adodc1

.RecordSource = strsql

.Refresh

End With

End Sub

Private Sub Command2_Click()

Dim strsql As String

strsql = "select * from 火车基本信息表Where 订票车次=" + "'" + Text3.Text + "'order by 编号asc"

With Adodc1

.RecordSource = strsql

.Refresh

End With

End Sub

Private Sub Command3_Click()

Dim strsql As String

strsql = "select * from 火车详细信息表where 车次=" + "'" + Text3.Text + "' order by 号码asc"

With Adodc1

.RecordSource = strsql

.Refresh

End With

End Sub

Private Sub Command4_Click()

Form4.Hide

Form2.Show

End Sub

Private Sub Form_Load()

DataGrid1.AllowAddNew = False

DataGrid1.AllowDelete = False

DataGrid1.AllowUpdate = False

End Sub

4.5.选择操作系统

即管理员的操作菜单。本界面中用到了command控件，label 控件，作用是跳转到管理员员所需要的界面。主要代码示例如下：Private Sub Command1_Click()

Form5.Hide

Form6.Show

End Sub

Private Sub Command2_Click()

Form5.Hide

Form7.Show

Private Sub Command3_Click()

Form5.Hide

Form8.Show

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Command5_Click()

Form5.Hide

Form3.Show

End Sub

Private Sub Command6_Click()

If Form2.role = 1 Then

MsgBox "对不起，您无权进行此项操作" ElseIf Form2.role = 2 Then

Form5.Hide

Form9.Show

End Sub

4.6.插入火车信息系统插入系统中主要要求对数据库中的表的数据进行插入，在这些功能的实现中我们使用了adodc控件，option控件，label控件，text控件、datagrid控件。主要代码如下：

Private Sub Command1_Click()

If Option1.Value = True Then

Set DataGrid1.DataSource = Adodc1

Adodc1.Recordset.AddNew

ElseIf Option2.Value = True Then

Set DataGrid1.DataSource = Adodc2

Adodc2.Recordset.AddNew

End If

End Sub

Private Sub Command3_Click()

Form6.Hide

Form3.Show

End Sub

4.7修改火车信息系统修改系统中主要要求对数据库中的表的数据进行修改，在这些功能的实现中我们使用了adodc控件，option控件，

label控件，text控件、datagrid控件。主要代码如下：

Private Sub Command1_Click()

If Option1.Value = True Then

Set DataGrid1.DataSource = Adodc1

DataGrid1.AllowUpdate = True

ElseIf Option2.Value = True Then

Set DataGrid1.DataSource = Adodc2

DataGrid1.AllowUpdate = True

End If

End Sub

Private Sub Command2_Click()

Form7.Hide

Form5.Show

End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Update

End Sub

4.8删除火车信息系统删除系统中主要要求对数据库中的表的数据进行删除，在这些功能的实现中我们使用了adodc控件，adodb控件，option控件，label控件，text控件、datagrid控件。主要代码如下：

Option Explicit