交通工程上机实习报告样本.doc

资料内容仅供您学习参考，如有不当之处，请联系改正或者删除。
青岛理工大学
汽车与交通学院

课程设计任务书

课程名称 交通工程上机实习
实验序号 02
课题名称 公交公司调度软件
专业班级 级交通工程2班
组 员 王瑶 24038
组 员 于亚男 24039
组 员 张春利 24040
指导教师 阎岩 潘福全 魏金丽 陈秀峰

日期 7月15日
汽车与交通学院 交通工程教研室

一、 实习性质:上机实习是交通工程专业教学计划的重要组成部分,是贯彻理论联系实际,培养高素质人才的重要实践环节.
二、 实习时间:7月4日—7月15日
三、 实习目的:
⑴经过实践锻炼,培养学生理论联系实际,实事求是的良好作风;
⑵经过实习达到巩固所学计算机软件(VB等),硬件知识,交通工程专业知识
⑶提高综合应用能力,并为毕业设计等做一定程度的准备.
四、 实习要求:
( 1) 学生必须服从指导教师安排。
( 2) 严格遵守各项规章制度和实习纪律。
( 3) 勤于思考, 有目的地提高自己分析问题, 解决问题的能力。
( 4) 必须提前准备好上机实验的草稿, 无草稿不能上机。
( 5) 实习期间必须严格执行请假制度, 原则上不准事假, 如有特殊情况应征得学校指导教师的同意, 病假应有医院证明。实习期间不得旷课, 迟到或早退。
四.实验设备仪器:计算机,打印机.
五.实验原理:经过VB与数据库编程,实现交通工程项目管理,交通调度软件,交通仿真的相关功能.
六.软件模块功能介绍:
流程图:

公交公司调度系统

人事管理
系统管理
车辆调度

请假信息数据表界面
员工工资数据表界面
职工信息数据表界面
车场信息列表
车辆调度派班信息
驾驶员信息列表
车辆信息列表
密码
用户登录

模块

七. 软件界面:
1、 登陆界面

2、 目录界面

3、 车辆调度界面

4、 人事管理界面

5、 车辆信息列表界面

6、 驾驶员信息列表界面

7、 车辆调度派车信息界面

8、 车场信息列表界面

9、 职工信息数据表界面

10、 员工工资数据表界面

11、 请假信息数据表界面

八.心得体会:在这次VB程序设计实习中, 我逐渐了解了程序在VB 6.0中调试并运行的方法, 我知道了程序中适当定义全局变量, 方便各模块间的数据传递, 也能够在代码通用段或标准模块中定义一些通用变量, 以扩大这些变量起作用的范围。也学会了让交通调度与VB语言相结合,实现我们想完成的调度任务.对我们的专业知识,得到了更深刻的认识,和初步的应用.

九.程序代码:
1、 登陆代码:
Private Sub Command1_Click()
Dim p As Integer
If Text1.Text = "abc" And Text2.Text = "123456" Then
MsgBox "欢迎登陆"
Form2.Show
Form1.Hide
Else
p = MsgBox("密码错误! ", 5 + 48, "输入密码")
If p = 4 Then
Text1.SetFocus
Else
MsgBox "密码错误, 不重试了! "
End
End If
End If
End Sub
Private Sub Command2_Click()
Form1.Hide
End Sub
Private Sub Form_Load()
Text2.PasswordChar = "*"
Text2.Text = ""
End Sub
Private Sub Image1_Click()
End Sub
2、 目录代码:
Private Sub Command1_Click()
Form3.Show
Form2.Hide
End Sub
Private Sub Command2_Click()
Form4.Show
Form2.Hide
End Sub
Private Sub Command3_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub Image1_Click()
End Sub
3、 车辆调度目录代码:
Private Sub Command1_Click()
frm2.Show
Form3.Hide
End Sub
Private Sub Command2_Click()
frm3.Show
Form3.Hide
End Sub
Private Sub Command3_Click()
frm4.Show
Form3.Hide
End Sub
Private Sub Command4_Click()
frm5.Show
Form3.Hide
End Sub
Private Sub Command5_Click()
Form2.Show
Form3.Hide
End Sub
Private Sub Image1_Click()
End Sub
4、 人事调度目录代码:

Private Sub Command1_Click()
frm6.Show
Form4.Hide
End Sub
Private Sub Command2_Click()
frm7.Show
Form4.Hide
End Sub
Private Sub Command3_Click()
frm8.Show
Form4.Hide
End Sub
Private Sub Command4_Click()
Form2.Show
Form4.Hide
End Sub
Private Sub Image1_Click()
End Sub
5、 车辆信息列表代码:
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click)
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Command1_Click()
frm3.Show
frm2.Hide
End Sub
Private Sub Command2_Click()
Form3.Show
frm2.Hide
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误, 注释掉下一行代码
'如果想捕捉错误, 在这里添加错误处理代码
MsgBox "数据错误事件命中错误: " & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录: " & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象, 当记录集创立后并使用下面的行时,
'必须设置 Index 属性
'Data1.Caption = "记录: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时, 调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub lblLabels_Click(Index As Integer)
End Sub
6、 驾驶员信息列表界面:
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Command1_Click()
frm4.Show
frm3.Hide
End Sub
Private Sub Command2_Click()
Form3.Show
frm3.Hide
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误, 注释掉下一行代码
'如果想捕捉错误, 在这里添加错误处理代码
MsgBox "数据错误事件命中错误: " & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录: " & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象, 当记录集创立后并使用下面的行时,
'必须设置 Index 属性
'Data1.Caption = "记录: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时, 调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
End Sub
7、 车辆调度派车信息界面:
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Command1_Click()
frm5.Show
frm4.Hide
End Sub
Private Sub Command2_Click()
Form3.Show
frm4.Hide
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误, 注释掉下一行代码
'如果想捕捉错误, 在这里添加错误处理代码
MsgBox "数据错误事件命中错误: " & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录: " & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象, 当记录集创立后并使用下面的行时,
'必须设置 Index 属性
'Data1.Caption = "记录: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时, 调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
End Sub
8、 车场信息列表界面:
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Command1_Click()
Form2.Show
frm5.Hide
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误, 注释掉下一行代码
'如果想捕捉错误, 在这里添加错误处理代码
MsgBox "数据错误事件命中错误: " & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录: " & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象, 当记录集创立后并使用下面的行时,
'必须设置 Index 属性
'Data1.Caption = "记录: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时, 调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
End Sub
9、 职工信息数据表界面:
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Command1_Click()
frm7.Show
frm6.Hide
End Sub
Private Sub Command2_Click()
Form4.Show
frm6.Hide
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误, 注释掉下一行代码
'如果想捕捉错误, 在这里添加错误处理代码
MsgBox "数据错误事件命中错误: " & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录: " & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象, 当记录集创立后并使用下面的行时,
'必须设置 Index 属性
'Data1.Caption = "记录: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时, 调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
End Sub
10、 员工工资数据表界面:
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Command1_Click()
frm8.Show
frm7.Hide
End Sub
Private Sub Command2_Click()
Form4.Show
frm7.Hide
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误, 注释掉下一行代码
'如果想捕捉错误, 在这里添加错误处理代码
MsgBox "数据错误事件命中错误: " & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录: " & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象, 当记录集创立后并使用下面的行时,
'必须设置 Index 属性
'Data1.Caption = "记录: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时, 调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
End Sub
11、 请假信息数据表界面:
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Command1_Click()
Form2.Show
frm8.Hide
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误, 注释掉下一行代码
'如果想捕捉错误, 在这里添加错误处理代码
MsgBox "数据错误事件命中错误: " & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录: " & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象, 当记录集创立后并使用下面的行时,
'必须设置 Index 属性
'Data1.Caption = "记录: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时, 调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
End Sub