交通工程上机实习报告

青岛理工大学汽车与交通学院课程设计任务书课程名称 交通工程上机实习 实验序号 02 课题名称 公交公司调度软件 专业班级 2008级交通工程2班 组 员 王瑶 200824038 组 员 于亚男 200824039 组 员 张春利 200824040 指导教师 阎岩 潘福全 魏金丽 陈秀峰日期 2011年7月15日汽车与交通学院 交通工程教研室一、实习性质:上机实习是交通工程专业教学计划的重要组成部分,是贯彻理论联系实际,培养高素质人才的重要实践环节.二、实习时间:7月4日7月15日三、实习目的:通过实践锻炼,培养学生理论联系实际,实事求是的良好作风;通过实习达到巩固所学计算机软件(VB等),硬件知识,交通工程专业知识提高综合应用能力,并为毕业设计等做一定程度的准备.四、实习要求：（1）学生必须服从指导教师安排。（2）严格遵守各项规章制度和实习纪律。（3）勤于思考，有目的地提高自己分析问题，解决问题的能力。（4）必须提前准备好上机实验的草稿，无草稿不能上机。（5）实习期间必须严格执行请假制度，原则上不准事假，如有特殊情况应征得学校指导教师的同意，病假应有医院证明。实习期间不得旷课，迟到或早退。四.实验设备仪器:计算机,打印机.五.实验原理:通过VB与数据库编程,实现交通工程项目管理,交通调度软件,交通仿真的相关功能.六.软件模块功能介绍：流程图:公交公司调度系统人事管理系统管理车辆调度请假信息数据表界面员工工资数据表界面职工信息数据表界面车场信息列表车辆调度派班信息驾驶员信息列表车辆信息列表密码用户登录模块7. 软件界面:1、登陆界面2、目录界面3、车辆调度界面4、人事管理界面5、车辆信息列表界面6、驾驶员信息列表界面7、车辆调度派车信息界面8、车场信息列表界面9、职工信息数据表界面10、员工工资数据表界面11、请假信息数据表界面八.心得体会:在这次VB程序设计实习中，我逐渐了解了程序在VB 6.0中调试并运行的方法，我知道了程序中适当定义全局变量，方便各模块间的数据传递，也可以在代码通用段或标准模块中定义一些通用变量，以扩大这些变量起作用的范围。也学会了让交通调度与VB语言相结合,实现我们想完成的调度任务.对我们的专业知识,得到了更深刻的认识,和初步的应用.九.程序代码:1、登陆代码：Private Sub Command1_Click()Dim p As IntegerIf Text1.Text = abc And Text2.Text = 123456 ThenMsgBox 欢迎登陆Form2.ShowForm1.HideElsep = MsgBox(密码错误！, 5 + 48, 输入密码)If p = 4 ThenText1.SetFocusElseMsgBox 密码错误，不重试了！EndEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Form1.HideEnd SubPrivate Sub Form_Load()Text2.PasswordChar = *Text2.Text = End SubPrivate Sub Image1_Click()End Sub2、目录代码：Private Sub Command1_Click()Form3.ShowForm2.HideEnd SubPrivate Sub Command2_Click()Form4.ShowForm2.HideEnd SubPrivate Sub Command3_Click()Form1.ShowForm2.HideEnd SubPrivate Sub Image1_Click()End Sub3、车辆调度目录代码：Private Sub Command1_Click()frm2.ShowForm3.HideEnd SubPrivate Sub Command2_Click()frm3.ShowForm3.HideEnd SubPrivate Sub Command3_Click()frm4.ShowForm3.HideEnd SubPrivate Sub Command4_Click()frm5.ShowForm3.HideEnd SubPrivate Sub Command5_Click()Form2.ShowForm3.HideEnd SubPrivate Sub Image1_Click()End Sub4、人事调度目录代码：Private Sub Command1_Click()frm6.ShowForm4.HideEnd SubPrivate Sub Command2_Click()frm7.ShowForm4.HideEnd SubPrivate Sub Command3_Click()frm8.ShowForm4.HideEnd SubPrivate Sub Command4_Click()Form2.ShowForm4.HideEnd SubPrivate Sub Image1_Click()End Sub5、车辆信息列表代码：Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() 如果删除记录集的最后一条记录 记录或记录集中唯一的记录 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 这仅对多用户应用程序才是需要的 Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModifiedEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub Command1_Click()frm3.Showfrm2.HideEnd SubPrivate Sub Command2_Click()Form3.Showfrm2.HideEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 这就是放置错误处理代码的地方 如果想忽略错误，注释掉下一行代码 如果想捕捉错误，在这里添加错误处理代码 MsgBox 数据错误事件命中错误： & Error$(DataErr) Response = 0 忽略错误End SubPrivate 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) + 1End SubPrivate 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 = vbHourglassEnd SubPrivate Sub lblLabels_Click(Index As Integer)End Sub6、驾驶员信息列表界面：Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() 如果删除记录集的最后一条记录 记录或记录集中唯一的记录 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 这仅对多用户应用程序才是需要的 Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModifiedEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub Command1_Click()frm4.Showfrm3.HideEnd SubPrivate Sub Command2_Click()Form3.Showfrm3.HideEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 这就是放置错误处理代码的地方 如果想忽略错误，注释掉下一行代码 如果想捕捉错误，在这里添加错误处理代码 MsgBox 数据错误事件命中错误： & Error$(DataErr) Response = 0 忽略错误End SubPrivate 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) + 1End SubPrivate 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 = vbHourglassEnd SubPrivate Sub Form_Load()End Sub7、车辆调度派车信息界面:Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() 如果删除记录集的最后一条记录 记录或记录集中唯一的记录 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 这仅对多用户应用程序才是需要的 Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModifiedEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub Command1_Click()frm5.Showfrm4.HideEnd SubPrivate Sub Command2_Click()Form3.Showfrm4.HideEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 这就是放置错误处理代码的地方 如果想忽略错误，注释掉下一行代码 如果想捕捉错误，在这里添加错误处理代码 MsgBox 数据错误事件命中错误： & Error$(DataErr) Response = 0 忽略错误End SubPrivate 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) + 1End SubPrivate 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 = vbHourglassEnd SubPrivate Sub Form_Load()End Sub8、车场信息列表界面:Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() 如果删除记录集的最后一条记录 记录或记录集中唯一的记录 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 这仅对多用户应用程序才是需要的 Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModifiedEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub Command1_Click()Form2.Showfrm5.HideEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 这就是放置错误处理代码的地方 如果想忽略错误，注释掉下一行代码 如果想捕捉错误，在这里添加错误处理代码 MsgBox 数据错误事件命中错误： & Error$(DataErr) Response = 0 忽略错误End SubPrivate 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) + 1End SubPrivate 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 = vbHourglassEnd SubPrivate Sub Form_Load()End Sub9、职工信息数据表界面:Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() 如果删除记录集的最后一条记录 记录或记录集中唯一的记录 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 这仅对多用户应用程序才是需要的 Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModifiedEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub Command1_Click()frm7.Showfrm6.HideEnd SubPrivate Sub Command2_Click()Form4.Showfrm6.HideEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 这就是放置错误处理代码的地方 如果想忽略错误，注释掉下一行代码 如果想捕捉错误，在这里添加错误处理代码 MsgBox 数据错误事件命中错误： & Error$(DataErr) Response = 0 忽略错误End SubPrivate 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) + 1End SubPrivate 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 = vbHourglassEnd SubPrivate Sub Form_Load()End Sub10、员工工资数据表界面:Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() 如果删除记录集的最后一条记录 记录或记录集中唯一的记录 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 这仅对多用户应用程序才是需要的 Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModifiedEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub Command1_Click()frm8.Showfrm7.HideEnd SubPrivate Sub Command2_Click()Form4.Showfrm7.HideEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 这就是放置错误处理代码的地方 如果想忽略错误，注释掉下一行代码 如果想捕捉错误，在这里添加错误处理代码 MsgBox 数据错误事件命中错误： & Error$(DataErr) Response = 0 忽略错误End SubPrivate 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) + 1End SubPrivate 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 = vbHourglassEnd SubPrivate Sub Form_Load()End Sub11、请假信息数据表界面:Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() 如果删除记录集的最后一条记录 记录或记录集中唯一的记录 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd Su