车站售票管理系统模板

课程设计实验报告题目：在线车站售票管理系统班级：姓名：指导老师：2012年5月3日目录目录 (1)(一)需求分析 (2)1.1功能需求 (2)1.2数据流图 (3)（二）概念结构设计 (5)(三). 逻辑结构设计 (6)3.1关系模式 (6)3.2 外模式： (6)(四) 物理结构设计 (8)4.1实验环境： (8)4.2系统软件结构图： (8)（五）. 数据库实施和维护 (9)（六）.数据库的操作界面 (13)（七）实验心得 (15)(一)需求分析系统应具有售票、查询、管理和维护等功能，系统管理员可以进行对车次的更改、票价的变动及调度功能，票价的修改可以通过修改运价来进行，车次调度可通过对发车时刻表的修改来进行，维护功能即可对表进行修改。

1.1功能需求经过分析后确定系统应具备以下功能：（1）售票功能1.销售车票任一售票员均可以售权限范围内车次的客票，权限可按班次、车属等属性由管理员设置。

可售全票、半票2.预订车票预订票可在任一未停止售票的车次上进行操作，预订数量仅受剩余位数量限制。

预订的客票售票员不能售出。

预订的客票也可取消预订，取消预订的客票售票员可以售出。

在订票人来取票时，售票员可将预订的客票从电脑上售出3.退票退票时由退票员输入客票的编号，计算机将根据退票时的时间，自动确定退票手续费的比例,也可由系统管理员指定手续费比例。

对不合法的客票（如已办理退票手续的客票、超过规定时间的客票、没有售出的客票、已经作废的客票、不属于权限范围内售出的票等），计算机将自动识别，不予退票。

（2）查询功能①车次查询，可以查询各个班次和票情况。

②时刻表查询：查询任一时刻的班次和票情况。

③售票情况查询：查询已售票和剩余票数的情况。

（3）、调度功能①运价修改：只有管理员有这一权限，根据各种调整票价。

② 车辆修改：对车辆信息进行调度和增删改功能。

③ 终点站修改：对车次终点站的调度和修改。

④ 车次修改：对各个车次实施调度和调整 （4）、维护功能① 车票表修改：管理员针对实际情况对车票表的修改和维护 ② 预订车票表修改：管理员根据车票的预定情况对该表进行修改和维护③ 退票表修改：该功能由管理员根据退票情况进行修改 ④ 密码修改：售票员可以根据个人修改自己的登入密码 （5）、统计功能① 售票统计：可按车次，售票员对已售出票情况进行统计 ② 报表打印：对当天和该月的售票情况及盈利情况做表1.2数据流图使用结构化分析方法，确定系统的数据主要是运价、车次、终点站名、发车时间和车票，对数据的操作主要有运价修改、车次修改、终点站修改、发车时间修改、售票及打印，可以确定系统的处理逻辑和流程，得到如下所示的系统数据流图。

定 按票出售情况做车次表 决着 打印改 系 查看 售票修 关 查看 报表 整 决定 出售票 调 体现修改 发车 包含 查询 时刻 修改决定 查看已售车票情况系统管理员 车次修改运价修改终点站修改 发车修改售票 车次表运价表 终点站名表发车时刻表查询 售票员预订车票表 退票表 已售车票报表打印车票 已售车票数据字典：经过分析可以得到以下数据流条目：车次表=车辆编号+车型+座位数终点站名表=站名+里程运价表=车型+运价发车时刻表=车次+车辆编号+站名+发车时间+检票口已售车票表=票号+乘车日期+车次+站名+发车时间+票价+全半价+工号+退票否预订车票表=预订号+乘车日期+车次+站名+发车时间+车型+票价+客户名称+订票数量退票表=票号+退票时间+票价+应退款售票员编号=工号+姓名车辆编号=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（二）概念结构设计n车辆开往车次发车时间检票口目标站点选定姓名车票 售票员售票票号 预订顾客 车次 站名 票价 座位号 全半价 乘车日期工号站名 车次预订号顾客名称退票 退票时间 计费 运价 车型价格n nn n 1 1 1 1票价 应退款 退票否乘车日期车辆编号 车型座位站名里程(三). 逻辑结构设计3.1关系模式车辆（车辆编号，车型，座位数）目标站名（站名，里程）发车时刻表（车次，站名，车辆编号，发车时间，检票口）途径（车次，站名）车票（票号，乘车日期，车次，站名，票价，全半价，座位号，工号，退票否）预订表（预订号，车次，站名，乘车日期，顾客名称，票数）退票（票号，退票时间，票价，应退款）售票员（工号，姓名）运价（车型，价格）3.2 外模式：车辆表：字段名类型长度小数点允许空主/外键车辆编号Int 4 主车型Varchar 8座位数smallInt 2目标站名：字段名类型长度小数点允许空主/外键站名Varchar 10 主里程Int 4发车时刻表：字段名类型长度小数点允许空主/外键车次Varchar 5 主站名Varchar 10 外车辆编号Int 4 外发车时间Datetime 8检票口smallInt 2途径表：字段名类型长度小数点允许空主/外键车次Varchar 5 主站名Varchar 10 外车票表：字段名类型长度小数点允许空主/外键票号Int 4 主乘车日期Datetime 8车次Varchar 5 外站名Varchar 10 外票价Float 8全半价Char 2座位号smallInt 2工号Char 3退票否Char 1预订表：字段名类型长度小数点允许空主/外键预订号Int 4 主车次Varchar 5 外站名Varchar 10 外乘车日期Datetime 8顾客名称Varchar 20票数smallInt 2退票表：字段名类型长度小数点允许空主/外键票号Int 4 主退票时间Datetime 8票价Float 8应退款Float 8售票员表：字段名类型长度小数点允许空主/外键工号Char 3 主姓名Char 8运价表：字段名类型长度小数点允许空主/外键车型Varchar 8 主价格Float 8(四) 物理结构设计4.1实验环境：WindowsXP，SQLServer2000，VB6.04.2系统软件结构图：车站售票管理系统售票功能查询功能调度功能维护功能统计功能销售车预订车退票车次查时刻表查售票情况运价修车辆修终点站修车次修改已售车票预订车票退票表售票统计报表打印（五）. 数据库实施和维护用户登入用户名和密码校对：Private Sub Cmdok_Click()Dim username1 As String, username2 As String username1 = Text1.TextIf Option1.Value ThenSet Text3.DataSource = Adodc1Text3.DataField = "口令"Adodc1.Recordset.MoveFirstIf username1 <> "" Thenusername2 = "用户名='" & username1 & "'" Adodc1.Recordset.Find username2If Adodc1.Recordset.EOF ThenMsgBox "用户名错误请重输", 16, "错误" ElseIf Text2.Text <> Text3.Text ThenMsgBox "密码错误请重输", 16, "错误" Text2.Text = ""ElseMDIForm1.ShowForm1.HideEnd IfEnd IfEnd IfElseIf Option2.Value ThenSet Text3.DataSource = Adodc2Text3.DataField = "口令"Adodc2.Recordset.MoveFirstIf username1 <> "" Thenusername2 = "工号='" & username1 & "'" Adodc2.Recordset.Find username2If Adodc2.Recordset.EOF ThenMsgBox "用户名错误请重输", 16, "错误" ElseIf Text2.Text <> Text3.Text ThenMsgBox "密码错误请重输", 16, "错误" Text2.Text = ""ElseMDIForm1.ShowForm1.HideEnd IfEnd IfEnd IfEnd IfEnd IfEnd Sub当选中车次显示当前座位号和剩余票数Private Sub DataGrid1_Click()Dim cc As String, sum As Integersum = 0Adodc3.Recordset.MoveFirstAdodc4.Recordset.MoveFirstAdodc6.Recordset.MoveFirstAdodc7.Recordset.MoveFirstAdodc8.Recordset.MoveFirstcc = "车型='" & Text5.Text & "'"Adodc3.Recordset.Find cccc = "站名='" & Text6.Text & "'"Adodc4.Recordset.Find ccIf Combo4.Text = "全" ThenText2.Text = Int(Val(Text7.Text) * Val(Text8.Text) + 0.5)ElseText2.Text = Int(Val(Text7.Text) * Val(Text8.Text) / 2 + 0.5)End IfText2.RefreshWhile Not Adodc8.Recordset.EOFIf Year(Text12) = Year(Date) And Month(Text12) = Combo2.Text And Day(Text12) = Combo3.Text And Text13.Text = Text9.Text And Text25.Text = "F" Thensum = sum + 1End IfAdodc8.Recordset.MoveNextWendText3.Text = sum + 1Adodc8.Recordset.MoveFirstWhile Not Adodc8.Recordset.EOFIf Year(Text12) = Year(Date) And Month(Text12) = Combo2.Text And Day(Text12) = Combo3.Text And Text13.Text = Text9.Text And Text25.Text = "T" ThenText3.Text = Text17.TextAdodc8.Recordset.MoveLastflag = "T"ElseAdodc8.Recordset.MoveNextEnd IfWendWhile Not Adodc9.Recordset.EOFIf Year(Text22.Text) = Year(Date) And Month(Text22.Text) = Combo2.Text And Day(Text22.Text) = Combo3.Text And Text23.Text = Text9.Text Thensum = sum + Val(Text24.Text)End IfAdodc9.Recordset.MoveNextWendcc = "车次='" & Text9.Text & "'"Adodc7.Recordset.Find cccc = " 车辆编号='" & Text11.Text & "'"Adodc6.Recordset.Find ccText4.Text = Val(Text10.Text) - sumText4.RefreshEnd Sub退票时当输入票号后算出应退款Private Sub Text1_LostFocus()Dim cc As StringAdodc1.Recordset.MoveFirstAdodc2.Recordset.MoveFirstcc = "票号='" & Text1.Text & "'"Adodc1.Recordset.Find ccText3.Text = Text6.TextText2.Text = Nowcc = "车次='" & Text7.Text & "'"Adodc2.Recordset.Find ccIf Not Adodc2.Recordset.EOF ThenIf Month(Text5.Text) > Month(Text2.Text) ThenText4.Text = Int(Val(Text6.Text) * 0.1 + 0.5)ElseIf Month(Text5.Text) = Month(Text2.Text) ThenIf Day(Text5.Text) > Day(Text2.Text) ThenText4.Text = Val(Text6.Text) - Int(Val(Text6.Text) * 0.1 + 0.5) ElseIf Day(Text5.Text) = Day(Text2.Text) ThenIf (Hour(Text9.Text) - Hour(Text2.Text)) * 60 + Minute(Text9.Text) - Minute(Text2.Text) >= 120 ThenText4.Text = Val(Text6.Text) - Int(Val(Text6.Text) * 0.1 + 0.5)ElseIf (Hour(Text9.Text) - Hour(Text2.Text)) * 60 + Minute(Text9.Text) - Minute(Text2.Text) >= 60 ThenText4.Text = Val(Text6.Text) - Int(Val(Text6.Text) * 0.2 + 1)ElseIf (Hour(Text9.Text) - Hour(Text2.Text)) * 60 + Minute(Text9.Text) - Minute(Text2.Text) < 5 ThenMsgBox "接近发车不能退票", 16, "错误"Form5.HideElseText4.Text = Int(Val(Text6.Text) * 0.3 + 1)End IfEnd IfEnd IfElseMsgBox "车票过期不能退", 16, "错误"Form5.HideEnd IfEnd IfElseMsgBox "车票过期不能退", 16, "错误"Form5.HideEnd IfEnd IfElseMsgBox "没有该票", 16, "错误"End IfEnd Sub（六）.数据库的操作界面用户登入界面管理员登入界面售票员登入界面（七）实验心得经过这次的实验,我个人得到了不少的收获,一方面加深了我对课本理论的认识,另一方面也提高了实验操作能力。