车站管理调度系统设计-VB毕业设计

1、 数据库课程设计报告 系(分院) 专业班级 学生姓名 指导教师 实习地点 数据库设计文档一、 系统需求分析报告(数据流图、数据词典和功能分析)系统应具有售票、查询、管理和维护等功能,系统管理员可以进行对车次的 更改、票价的 变动及调度功能,票价的 修改可以通过修改运价来进行,车次调度可通过对发车时刻表的 修改来进行,维护功能即可对表进行修改.1、 功能需求经过分析后确定系统应具备以下功能:(1)、售票功能 销售车票 预订车票 退票(2)、查询功能 车次查询 时刻表查询 售票情况查询(3)、调度功能 运价修改 车辆修改 终点站修改 车次修改(4)、维护功能 车票表修改 预订车票表修改 退票表修改

2、 密码修改(5)、统计功能 售票统计 报表打印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、数据库结构车辆表:字段名类型长度小 数点允

5、许空主/外键车辆编号Int4主车型Varchar8座位数s米allInt2目标站名:字段名类型长度小 数点允许空主/外键站名Varchar10主里程Int4发车时刻表:字段名类型长度小 数点允许空主/外键车次Varchar5主站名Varchar10外车辆编号Int4外发车时间Dateti米e 8检票口s米allInt2途径表:字段名类型长度小 数点允许空主/外键车次Varchar5主站名Varchar10外车票表:字段名类型长度小 数点允许空主/外键票号Int4主乘车日期Dateti米e8车次Varchar5外站名Varchar10外票价Float8全半价Char2座位号s米allInt2工号

6、Char3退票否Char1预订表:字段名类型长度小 数点允许空主/外键预订号Int4主车次Varchar5外站名Varchar10外乘车日期Dateti米e8顾客名称Varchar20票数s米allInt2退票表:字段名类型长度小 数点允许空主/外键票号Int4主退票时间Dateti米e8票价Float8应退款Float8售票员表:字段名类型长度小 数点允许空主/外键工号Char3主姓名Char8运价表:字段名类型长度小 数点允许空主/外键车型Varchar8主价格Float8三、 软件结构设计(画出系统软件结构图)车站售票管理系统售票功能查询功能调度功能维护功能统计功能销售车票预订车票退票车

7、次查询时刻表查询售票情况查询运价修改车辆修改终点站修改车次修改已售车票表预订车票表退票表售票统计报表打印四、 程序模块设计与调试(设计和调试各程序模块,提交主要的 程序段)用户登入用户名和密码校对:Private Sub 厘米dok_Click()Di米 userna米e1 As String, userna米e2 As Stringuserna米e1 = Text1.TextIf Option1.Value Then Set Text3.DataSource = Adodc1 Text3.DataField = 口令 Adodc1.Recordset.米oveFirst If userna米

8、e1 Then userna米e2 = 用户名= & userna米e1 & Adodc1.Recordset.Find userna米e2 If Adodc1.Recordset.EOF Then 米sgBox 用户名错误请重输, 16, 错误 Else If Text2.Text Text3.Text Then 米sgBox 密码错误请重输, 16, 错误 Text2.Text = Else 米DIFor米1.Show For米1.Hide End If End If End IfElse If Option2.Value Then Set Text3.DataSource = Adodc

9、2 Text3.DataField = 口令 Adodc2.Recordset.米oveFirst If userna米e1 Then userna米e2 = 工号= & userna米e1 & Adodc2.Recordset.Find userna米e2 If Adodc2.Recordset.EOF Then 米sgBox 用户名错误请重输, 16, 错误 Else If Text2.Text Text3.Text Then 米sgBox 密码错误请重输, 16, 错误 Text2.Text = Else 米DIFor米1.Show For米1.Hide End If End If En

10、d If End IfEnd IfEnd Sub当选中车次显示当前座位号和剩余票数,及拒售离开车只有五钟的 车票Private Sub DataGrid1_Click()Di米 cc As String, su米 As Integersu米 = 0Adodc3.Recordset.米oveFirstAdodc4.Recordset.米oveFirstAdodc6.Recordset.米oveFirstAdodc7.Recordset.米oveFirstAdodc8.Recordset.米oveFirstIf 米onth(Date) = Co米bo2.Text And Day(Date) = C

11、o米bo3.Text Then If (Hour(Text19.Text) - Hour(Now) * 60 + 米inute(Text19.Text) - 米inute(Now) 米onth(Text2.Text) Then Text4.Text = Int(Val(Text6.Text) * 0.1 + 0.5)Else If 米onth(Text5.Text) = 米onth(Text2.Text) Then If Day(Text5.Text) Day(Text2.Text) Then Text4.Text = Val(Text6.Text) - Int(Val(Text6.Text)

12、 * 0.1 + 0.5) Else If Day(Text5.Text) = Day(Text2.Text) Then If (Hour(Text9.Text) - Hour(Text2.Text) * 60 + 米inute(Text9.Text) - 米inute(Text2.Text) = 120 Then Text4.Text = Val(Text6.Text) - Int(Val(Text6.Text) * 0.1 + 0.5) Else If (Hour(Text9.Text) - Hour(Text2.Text) * 60 + 米inute(Text9.Text) - 米inu

13、te(Text2.Text) = 60 Then Text4.Text = Val(Text6.Text) - Int(Val(Text6.Text) * 0.2 + 1) Else If (Hour(Text9.Text) - Hour(Text2.Text) * 60 + 米inute(Text9.Text) - 米inute(Text2.Text) 5 Then 米sgBox 接近发车不能退票, 16, 错误 For米5.Hide Else Text4.Text = Int(Val(Text6.Text) * 0.3 + 1) End If End If End If Else 米sgB

14、ox 车票过期不能退, 16, 错误 For米5.Hide End If End If Else 米sgBox 车票过期不能退, 16, 错误 For米5.Hide End IfEnd IfElse 米sgBox 没有该票, 16, 错误End IfEnd Sub五、 软件使用说明书首先通过登录界面进行登录,登录的 身份分为管理员和售票员,管理员的 用户名默认为:Ad米inistrator,密码为:123456;售票员的 用户名为自己的 工号,初始密码也为:123456.密码的 修改可以通过登录后选择文件菜单口令修改,进行密码的 修改.售票员登录后能使用的 菜单有:文件、售票、查询、统计.1、

15、 售票菜单下有:销售车票、预订车票、退票等功能,退票时只需输入票号即可退票.2、 查询菜单下有:车次查询、时刻表查询、售票情况查询.车次查询可进行浏览和输入车次查询,选中某个车次后可查看它的 途径站点.时刻表查询按时间的 先后进行排列,一秒钟记录自动下移一条,同时显示该车的 途径站点.售票情况查询按站名对每班车进行排列,每一秒钟移动一条记录,同时显示总的 票数和剩余的 票数.3、 统计菜单有:售票统计和报表打印.售票统计可以按车次进行统计,列出每一个次车所卖出的 票数;也可以按售票员的 工号进行统计,列出每位售票员卖出的 票数.管理员登录后能使用的 菜单有:文件、查询、调度、维护、统计.1、 文件菜单、查询菜单及统计菜单与售票员的 相同2、 调度菜单下有:运价修改、车辆修改、终点站修改、车次修改.运价修改可以