《火车站售票管理系统》由会员分享，可在线阅读，更多相关《火车站售票管理系统（10页珍藏版）》请在金锄头文库上搜索。
1、 火车站售票管理系统院 系 专业班级 学生姓名 指导教师 数据库设计文档一、 系统需求分析报告（数据流图、数据词典和功能分析）系统应具有售票、查询、管理和维护等功能，系统管理员可以进行对车次的更改、票价的变动及调度功能，票价的修改可以通过修改运价来进行，车次调度可通过对发车时刻表的修改来进行，维护功能即可对表进行修改。1、 功能需求经过分析后确定系统应具备以下功能：（1）、售票功能 销售车票 预订车票 退票（2）、查询功能 车次查询 时刻表查询 售票情况查询（3）、调度功能 运价修改 车辆修改 终点站修改 车次修改（4）、维护功能 车票表修改 预订车票表修改 退票表修改 密码修改（5）、统计功
2、能 售票统计 报表打印2、数据流图使用结构化分析方法，确定系统的数据主要是运价、车次、终点站名、发车时间和车票，对数据的操作主要有运价修改、车次修改、终点站修改、发车时间修改、售票及打印，可以确定系统的处理逻辑和流程，得到如下所示的系统数据流图。系统管理员车次修改运价修改终点站修改发车修改售票车次表运价表终点站名表发车时刻表查询售票员预订车票表退票表已售车票表报表打印车票已售车票表3、数据字典：经过分析可以得到以下数据流条目：车次表=车辆编号+车型+座位数终点站名表=站名+里程运价表=车型+运价发车时刻表=车次+车辆编号+站名+发车时间+检票口已售车票表=票号+乘车日期+车次+站名+发车时间+
3、票价+全半价+工号+退票否预订车票表=预订号+乘车日期+车次+站名+发车时间+车型+票价+客户名称+订票数量退票表=票号+退票时间+票价+应退款售票员编号=工号+姓名车辆编号=6数字6车次=4字符5车型=1字符8座位数=2数字2检票口=1数字2站名=1字符10里程=1数字5运价=1数字6发车时间=时间乘车日期=日期票号=7数字7票价=1数字5全半价=2字符2退票否=T|F预订号=4数字4客户名称=6字符20订票数量=1数字2退票时间=日期时间应退款=1数字5工号=3字符3姓名=4字符8二、 数据逻辑结构设计（E-R图、关系模式和数据库结构）1、ER图车辆目标站名开往车辆编号车型座位数车次发车时
4、间检票口站名里程nm车票售票员售票票号预订顾客车次站名票价座位号全半价乘车日期工号站名车次预订号顾客名称退票退票时间计费运价车型价格nnnn1111票价应退款退票否乘车日期姓名主键： 外键： 2、关系模式车辆（车辆编号，车型，座位数）目标站名（站名，里程）发车时刻表（车次，站名，车辆编号，发车时间，检票口）途径（车次，站名）车票（票号，乘车日期，车次，站名，票价，全半价，座位号，工号，退票否）预订（预订号，车次，站名，乘车日期，顾客名称，票数）退票（票号，退票时间，票价，应退款）售票员（工号，姓名）运价（车型，价格）3、数据库结构车辆表：字段名类型长度小数点允许空主/外键车辆编号Int4主车型
5、Varchar8座位数smallInt2目标站名：字段名类型长度小数点允许空主/外键站名Varchar10主里程Int4发车时刻表：字段名类型长度小数点允许空主/外键车次Varchar5主站名Varchar10外车辆编号Int4外发车时间Datetime 8检票口smallInt2途径表：字段名类型长度小数点允许空主/外键车次Varchar5主站名Varchar10外车票表：字段名类型长度小数点允许空主/外键票号Int4主乘车日期Datetime8车次Varchar5外站名Varchar10外票价Float8全半价Char2座位号smallInt2工号Char3退票否Char1预订表：字段名类
6、型长度小数点允许空主/外键预订号Int4主车次Varchar5外站名Varchar10外乘车日期Datetime8顾客名称Varchar20票数smallInt2退票表：字段名类型长度小数点允许空主/外键票号Int4主退票时间Datetime8票价Float8应退款Float8售票员表：字段名类型长度小数点允许空主/外键工号Char3主姓名Char8运价表：字段名类型长度小数点允许空主/外键车型Varchar8主价格Float8三、 软件结构设计（画出系统软件结构图）车站售票管理系统售票功能查询功能调度功能维护功能统计功能销售车票预订车票退票车次查询时刻表查询售票情况查询运价修改车辆修改终点站
7、修改车次修改已售车票表预订车票表退票表售票统计报表打印四、 程序模块设计与调试（设计和调试各程序模块，提交主要的程序段）用户登入用户名和密码校对：Private Sub Cmdok_Click()Dim username1 As String, username2 As Stringusername1 = Text1.TextIf Option1.Value Then Set Text3.DataSource = Adodc1 Text3.DataField = 口令 Adodc1.Recordset.MoveFirst If username1 Then username2 = 用户名= &
8、 username1 & Adodc1.Recordset.Find username2 If Adodc1.Recordset.EOF Then MsgBox 用户名错误请重输, 16, 错误 Else If Text2.Text Text3.Text Then MsgBox 密码错误请重输, 16, 错误 Text2.Text = Else MDIForm1.Show Form1.Hide End If End If End IfElse If Option2.Value Then Set Text3.DataSource = Adodc2 Text3.DataField = 口令 Ado
9、dc2.Recordset.MoveFirst If username1 Then username2 = 工号= & username1 & Adodc2.Recordset.Find username2 If Adodc2.Recordset.EOF Then MsgBox 用户名错误请重输, 16, 错误 Else If Text2.Text Text3.Text Then MsgBox 密码错误请重输, 16, 错误 Text2.Text = Else MDIForm1.Show Form1.Hide End If End If End If End IfEnd IfEnd Sub当选
10、中车次显示当前座位号和剩余票数，及拒售离开车只有五钟的车票Private Sub DataGrid1_Click()Dim cc As String, sum As Integersum = 0Adodc3.Recordset.MoveFirstAdodc4.Recordset.MoveFirstAdodc6.Recordset.MoveFirstAdodc7.Recordset.MoveFirstAdodc8.Recordset.MoveFirstIf Month(Date) = Combo2.Text And Day(Date) = Combo3.Text Then If (Hour(Te
11、xt19.Text) - Hour(Now) * 60 + Minute(Text19.Text) - Minute(Now) 5 Then MsgBox 已接近开车,停止售票, 64, 错误 Cmdok.Visible = False Else Cmdok.Visible = True End IfElse Cmdok.Visible = TrueEnd Ifcc = 车型= & Text5.Text & Adodc3.Recordset.Find cccc = 站名= & Text6.Text & Adodc4.Recordset.Find ccIf Combo4.Text = 全 Then T
