(精品论文)物流管理系统毕业范文毕业论文

吉林省明日科技有限公司监制物流管理系统学 院专 业班 级学 号姓 名指导教师教师职称年月日 39 摘要【摘要】随着市场经济的高速发展，制造业、商业企业逐步接受着第三方物流服务。越来越多的企业认识到物流企业外包是降低成本、提高服务水平的有效渠道。物流管理的特点是以客户为核心、构建面向客户的业务流程支持各种形式、各种需求的现在企业中的业务模式。系统支持多形式客户的数据共享、提高作业效率、监控整个流程、提供完整的货品、进行订单跟踪，并且特别关注对各环节业务的监控及例外情况的监控。【关键词】 客户 物流 物流管理系统目录摘要1目录1引言11 系统分析21.1 需求分析21.2 可行性分析22 总体设计22.1 项目规划22.2 系统功能结构图33 详细设计33.1 系统登录设计33.2 车辆调度安排63.3 托运申请单管理83.4 货物托运管理113.5 在途跟踪管理173.6 信息查询20附录A 参考文献30附录B 数据表结构31附录C 文件架构图37引言在当今高速发展的信息社会，现代物流行业突飞猛进发展，伴随着我国国民经济连续多年的高速增长，为现代物流发展创造了良好的条件。目前，我国各类物流企业有14万家左右，展望整个21世纪，可以说现代物流业还将有更大的发展。在发达国家，物流理论促使物流实践快速发展。经济全球化及现代物流业发展的系统化、信息化、仓储运输的现代化和综合化等趋势，对我国物流业的发展提出了全方位的挑战。传统物流行业的操作模式已经不适应现代的物流行业，如何缩短物流过程，降低产品库存，加速对市场的反应，这是所有企业所面对的问题。本系统就是针对这些问题根据中小型企业的实际需求而开发的一套物流管理系统。系统的开发能够帮助企业实现对物流全过程的优化调度和动态控制，高效整合企业的物流业务，以全面提高经济效益和效率为目的，提供高效、实用、技术的物流管理系统和运营手段。物流管理系统是集现代运输、仓储配送、搬运、调度、跟踪为一体的网络系统，系统的开发实现了商品从原料供应商、制造商、分销商到零售商再到消费者的各个环节的有机结合。1 系统分析1.1 需求分析通过市场调查，要求本系统具有以下功能：q 统一友好的操作界面，能保证系统的易用性。q 规范、完善的基础信息设置。q 灵活的报表设计及打印功能。q 实现货物申请、托运、跟踪与验收的全过程。q 全方位的信息查询功能。q 系统日志详细记录各种操作，提供追查的有力依据。q 完善的权限管理，增强系统的安全性。q 强大的数据备份及恢复功能，保证系统数据的安全性。1.2 可行性分析由于传统物流行业操作过程复杂，手续繁多，业务信息多，围绕这些信息的处理也很纷杂。而且，物流行业竞争激烈，这种竞争，一方面表现在发展客户的市场开拓上，另一方面也存在于收集处理信息的速度、广度和深度，以及在业务操作中对业务数据处理的准确性和严密性，而更高层次上，还牵涉到公司决策层对整体业务的控制和协调。物流管理系统从物流行业的实际需求出发，参照先进的物流理念和多家领先的物流公司实际的运营流程开发而成，系统从完善的基础信息设置到货物的托运管理、在线跟踪，信息查询、到最后各种报表的生成，清晰的业务流程，使操作人员能够按照流程清晰的进行实际的操作，保证物流运作有序而高效的进行。2 总体设计2.1 项目规划物流管理系统是一个典型的数据库管理系统，系统由基本信息设置、货物托运管理、信息查询、报表管理、系统管理等模块组成，规划系统功能模块如下：q 基本信息设置模块该模块主要负责完成部门资料设置、职务信息设置、公司资料设置、员工资料设置、客户资料设置、司机资料设置和车辆资料设置。q 货物托运管理模块该模块主要由车辆调度安排、托运申请单管理、货物托运单管理、货物验收单管理和车辆配送跟踪记录单管理几部分组成。q 信息查询模块该模块由货物申请单查询、车辆调度信息查询、货物托运信息查询、货物托运验收查询和车辆在途跟踪查询几部分组成。q 报表管理模块包括货物申请单报表、货物托运单报表和货物验收单报表3部分。q 系统管理模块包括查看日志、删除日志、用户管理、数据备份、数据恢复和系统数据清理几部分。2.2 系统功能结构图物流管理系统的系统功能结构图如图1所示。图1 系统功能结构图3 详细设计3.1 系统登录设计系统登录主要用于对登录物流管理系统的用户进行安全性检查，以防止非法用户登录该系统。根据给管理员分配的权限，登录用户可以根据自己所具有的权限操作系统中相应的功能。在登录系统时验证操作员及其密码，主要通过ADO控件中记录集（RecordSet）对象结合If语句判断用户选定的操作员及其输入的密码与数据库中的操作员和密码是否相同来实现，如果相同则允许登录，并给予相应的权限，否则将不允许用户登录。系统登录的运行结果如图2所示。图2 系统登录窗体的运行结果1窗体设计（1）在工程中新建1个窗体，将窗体的名称设置为“frm_xtdl”，BorderStyle属性设置为“0-None”，通过设置Picture属性为窗体添加图片。（2）在窗体上添加Adodc控件，由于该控件属于ActiveX控件，在使用之前必须从“部件”对话框中添加到工具箱。添加方法如下：在“工程”/“部件”对话框中勾选“Microsoft Ado Data Controls 6.0(SP4)”列表项，单击【确定】按钮之后即可将Ado控件添加到工具箱当中。（3）在窗体中添加1个ComboBox控件和文本框控件,分别设置名称为Name属性为“Cbx_Name”和“txt_Password”，设置BorderStyle属性为“0-None”，将ComboBox控件的Text属性设置为“MR”。（4）在窗体中添加2个CommandButton控件，分别将Name属性设置为“Cmd_Ok”和“Cmd_Cancel”，Caption属性设置为“登录”和“取消”。登录窗体的设计结果如图3所示图3 系统登录窗体的设计界面2代码设计在代码窗口的声明部分定义如下变量：Dim itmX As ListItem 定义一个ListItem对象Dim key As String 定义字符串变量在窗体装载事件中，通过ADO控件的ConnectionString属性建立数据库连接，同时将所有操作员的姓名添加到Cbx_Name控件当中，代码如下：Private Sub Form_Load() Call WHScreen 调用获取屏幕分辨率的过程函数使用代码连接数据库与数据表 Adodc1.ConnectionString = PublicStr Adodc1.RecordSource = select * from tb_user Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Cbx_Name.Clear 在添加数据时，首先清空控件中的内容 Do While Adodc1.Recordset.EOF = False 将操作员信息添加到ListView控件当中 Cbx_Name.AddItem (Adodc1.Recordset.Fields(user_name) Adodc1.Recordset.MoveNext Loop End If If TWidth = 800 Or THeigth 0 Then MPassword = Adodc1.Recordset.Fields(user_mm) If Txt_Password.Text = MPassword Then 判断数据的密码是否正确 Name1 = Cbx_Name.Text Frm_Main.StatusBar1.Panels.Item(2).Text = 当前操作员： + Adodc1.Recordset.Fields(user_name) Frm_Main.Show 通过身份验证则显示主窗体，登录到系统当中 Unload Me Else MsgBox 密码不正确,请您确认后重新输入, , 提示信息 Txt_Password.Text = Txt_Password.SetFocus End If Else MsgBox 对不起 没有此用户的信息, , 提示信息 Cbx_Name.Text = Txt_Password.Text = End If End IfEnd Sub如果在输入密码的文本框中按下Enter键，则将调用【确定】按钮的单击事件，判断登录用户是否合法，代码如下所示。Private Sub Txt_Password_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Call Cmd_Ok_Click 调用确定按钮的单击事件代码 End IfEnd Sub3.2 车辆调度安排车辆调度安排是物流管理过程中的重要环节，物流公司在接到托运货物信息之后，首要的问题是安排托运货物的车辆。在本系统当中通过车辆调度安排填写安排托运车辆的信息，然后打印出车辆调度通知单，并将通知单发放到托运司机的手中，司机根据调度通知单上的信息执行托运任务。通过单击窗体中的Cmd_Select按钮选择车牌号码，然后输入其他一些辅助的信息，最后保存车辆调度安排信息。车辆调度安排模块的运行结果如图4所示。图4 车辆调度安排窗体的运行结果1窗体设计（1）在工程中新建1个窗体，将窗体的名称设置为“frm_Cldd”，BorderStyle属性设置为“1-Fixed Single”，MaxButton属性设置False。（2）在窗体上添加1个Toolbar控件和1个ImageList控件。（3）在窗体的Toolbar控件上单击鼠标右键，在弹出的快捷菜单中选择“属性”项，在弹出的“属性页”对话框中设置窗体的工具栏，设计完成的工具栏如图5所示。（4）在窗体中添加1个Frame控件，在Frame控件上添加1个文本框控件数组，并为每个文本框控件配置1个标签控件，并且设置相应的Caption属性值，如图5所示。（5）在窗体上添加1个DTPicker控件，命名为DT1，用于输入或显示托运司机执行任务的日期时间。（6）在窗体上添加1个Ado控件和1个DataGrid控件，将DataGrid控件的名称设置为Dgr_Sjll，DataSource属性设置为Adodc1，AllowUpdate属性值设置为False。（7）在窗体中添加1个标签控件，命名为Lbl_Num。（8）在窗体上添加1个时钟控件Timer1，在属性窗口中将控件的Interval属性值设置为60。车辆调度安排窗体的设计结果如图5所示。图5 车辆调度安排窗体的设计结果2代码设计工具栏中的控制按钮控制着窗体的各项操作，在Toolbar控件Tbr_xxcz的ButtonClick事件当中，通过选择Select Case语句的索引值（单击工具栏中的按钮执行相应的索引值）调用相应的过程来完成添加、删除、修改和保存等操作的功能，保存过程事件的代码如下：Private Sub Saves() 保存信息的过程 If Text1(0).Text = Or Text1(3).Text = Then MsgBox 重要信息不能为空值, 48, 提示信息 Else AdoRs.Open select * from tb_Goods_cldd where cldd_cphm= + Text1(0).Text + , Cnn, adOpenKeyset If AdoRs.RecordCount 0 Then MsgBox 该信息已经存在, 48, 提示信息 AdoRs.Close 关闭记录集对象 Else AdoRs.Close 关闭记录集对象 c = MsgBox(确认保存信息吗, 33, 提示信息) If c = vbOK Then Set AdoRs = Cnn.Execute(insert into tb_Goods_cldd values( &Txt_id & , & Text1(0)& , & Text1(1) & , & Text1(2) & ,& Text1(3) & , & Str(DT1.Value) & , & Text1(4) & , & Text1(5)& , & Txt_bz & ) MsgBox 数据保存成功, 64, 提示信息 Else End If Adodc1.RecordSource = select * from tb_Goods_cldd order by cldd_id Adodc1.Refresh Call DBGCon End If Call Tbr_cortrol(Tbr_xxcz, True) End IfEnd Sub用户自定义修改信息过程事件的代码如下：Private Sub Edits() 修改信息的过程 c = MsgBox(确认修改信息吗, 33, 提示信息) If c = vbOK Then Set AdoRs = Cnn.Execute(UPDATE tb_Goods_cldd SET cldd_id= + Txt_id + ,cldd_cphm= + Text1(0) + ,cldd_czxm= + Text1(1) + ,cldd_sjxm= + Text1(2) + ,cldd_rwsj= + Str(DT1.Value) + ,cldd_phmc= + Text1(4) + ,cldd_shdd= + Text1(5) + ,cldd_bz= + Txt_bz + where cldd_id= + Txt_id.Text + ) MsgBox 数据修改成功, 64, 提示信息 Adodc1.RecordSource = select * from tb_Goods_cldd order by cldd_id Adodc1.Refresh StrId = Txt_id.Text StrTitle = Text1(0).Text Call joinRZ 添加修改信息日志 Call DBGCon Else End IfEnd Sub用户自定义删除信息过程事件的代码如下：Private Sub Deletes() 删除信息 c = MsgBox(确认删除该信息吗, 17, 提示信息) If c = vbOK Then On Error Resume Next 执行错误处理 Set AdoRs = Cnn.Execute(Delete tb_Goods_cldd from tb_Goods_cldd where cldd_id= + Txt_id.Text + ) Adodc1.Refresh 刷新数据信息 End If For i = 0 To 5 Text1(i).Text = Next i Txt_bz.Text = End Sub3.3 托运申请单管理在正式托运货物之前，需要进行托运货物申请，在进行托运货物申请时需要填写托运货物申请单，托运申请单经过核对之后，才可以填写货物托运单进行托运货物。在托运申请单中记录的托运货物的详细信息，以便托运货物时进行核对。货物托运申请管理模块的运行结果如图6所示。图6 货物托运申请管理模块运行结果1窗体设计（1）在工程中新建1个窗体，将窗体的名称设置为“frm_Tysq”，BorderStyle属性设置为“1-Fixed Single”，MaxButton属性设置“False”。（2）在窗体上添加1个Toolbar控件和1个ImageList控件，为窗体设计工具栏。（3）在窗体中添加1个Frame控件，在Frame控件上添加1个文本框控件数组，并为每个文本控件配置1个标签控件，设置相应的Caption属性值，如图7所示。（4）在Frame控件上添加2个DTPicker控件，分别名称命名为DT1和DT2，用于输入或显示出货日期时间和开票日期。（5）在窗体上添加1个Ado控件。（6）在窗体中添加1个标签控件，命名为Lbl_Num。（7）在窗体上添加1个时钟控件Timer1，在属性窗口中将控件的Interval属性值设置为60。货物托运申请单管理窗体的设计结果如图7所示。图7 货物托运管理窗体的设计结果2代码设计当窗体启动时，锁定窗体中文本框，禁止输入字符信息，同时通过Ado控件的ConnectionString属性连接到数据库，实现代码如下：Private Sub Form_Load() Call LoadFile 在窗体加载的时候显示数据信息 For i = 1 To 20 Text1(i).Locked = True 锁定文本框，禁止输入字符信息 Next i Adodc1.ConnectionString = PublicStr 通过代码连接到数据库 Adodc1.RecordSource = select * from tb_Goods_sqd order by sqd_lszh Adodc1.Refresh DT1.Value = Date Call Tbr_cortrol(Tbr_xxcz, True)End Sub单击窗体中的工具栏按钮，完成相应的添加、删除、修改、保存和打印的操作，Toolbar控件Tbr_xxcz的ButtonClick事件代码如下所示：Private Sub Tbr_xxcz_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 添加信息 Call Tbr_cortrol(Tbr_xxcz, False) For i = 0 To 20 Text1(i).Locked = False Text1(i).Text = Next i Text1(0).SetFocus AdoRs.Open select * from tb_Goods_sqd where sqd_lszh like % + Format(Date, yyyymmdd) + % order by sqd_lszh, Cnn, adOpenKeyset 根据日期产生流水账号 If AdoRs.RecordCount 0 Then AdoRs.MoveLast Txt_id.Text = Val(AdoRs.Fields(sqd_lszh) + 1 Else Txt_id.Text = Format(Date, yyyymmdd) & 0000001 End If AdoRs.Close Case 2 删除信息 Call Deletes Case 3 修改信息 Call Edits Case 4 保存信息 Call Saves Case 5 Call Tbr_cortrol(Tbr_xxcz, True) For i = 1 To 20 Text1(i).Text = Text1(1).SetFocus Next i Case 6 打印信息 Unload Me End SelectEnd Sub通过文本框的Change事件，来实现在另一个文本框中自动计算合计金额的功能，实现的具体代码如下所示：Private Sub Text1_Change(Index As Integer) If Index = 7 Then Text1(15).Text = Val(Text1(7).Text) + Val(Text1(11).Text) ElseIf Index = 11 Then Text1(15).Text = Val(Text1(7).Text) + Val(Text1(11).Text) ElseIf Index = 15 Then Text1(15).Text = Val(Text1(7).Text) + Val(Text1(11).Text) End IfEnd Sub3.4 货物托运管理货物托运管理是本系统的核心，在货物托运申请完成之后，就可以填写货物托运单，托运司机根据货物托运单将货物托运到客户手中。对于同一张货物托运单，可以托运多种不同的货物，在托运管理窗体中可以添加或删除托运货物，还可以通过ListView控件浏览货物托运单信息。货物托运管理模块的运行结果如图8所示，单击工具栏中的【添加货物】按钮，将弹出增加托运货物窗体，如图9所示。图8 货物托运管理模块的运行结果图9 增加托运货物窗体1货物托运窗体及增加托运货物窗体的设计（1）在工程中新建一个窗体，将窗体的名称设置为“frm_Hpty”，BorderStyle属性设置为“1-Fixed Single”，MaxButton属性设置False。（2）在窗体上添加Toolbar控件，根据前面所介绍的方法为窗体设计工具栏。（3）在窗体中添加2个ImageList控件。（4）在窗体上添加1个ListView控件。（5）在ListView控件上单击鼠标右键，在弹出的快捷菜单中选择“属性”项，在弹出的“属性页”对话框中选择“通用”选项卡，在该选项卡中选取“整行选择”、“网格行”和“热跟踪”等复选框，在“查看”旁的列表框中选择3-lvwReport，如图10所示。图10 设置控件的显示模式（6）在ListView控件上单击鼠标右键，在弹出的快捷菜单中选择“属性”项，在弹出“属性页”对话框中选择“列首”选项卡，在该选项卡中单击【插入列】按钮，然后在“文本”文本框中输入插入列的标题名称，在“宽度”文本框中输入插入列的宽度，如图11所示。图11 设置插入列的属性（7）在ListView控件上单击鼠标右键，在弹出的快捷菜单中选择“属性”项，在弹出的“属性页”对话框中选择“图像列表”选项卡，在该选项卡中的“普通”和“列标头”列表框中分别选择“ImageList2”，如图12所示。图12 连接ImageList2控件（8）在窗体上添加1个Ado控件。（9）在窗体中添加3个Frame控件，分别在Frame控件中添加文本框控件和DataGrid控件，将DataGrid控件的名称设置为Dgr_Sjll，DataSource属性设置为Adodc1，BackColor属性值设置为&H00FFFFC0&，设计完成的界面如图13所示。（10）在窗体中添加1个标签控件，名称命名为Lbl_Num。（11）在窗体上添加1个时钟控件Timer1，在属性窗口中将控件的Interval属性值设置为60。货物托运管理窗体的设计结果如图13所示。图13 货物托运管理窗体的设计界面（12）在工程中添加1个窗体，将窗体命名为Frm_Tyhwgl，该窗体作为货物托运管理的子窗体，用于为完成为货物托运单添加托运货物的操作。（13）将该窗体的BorderStyle属性设置为“1-Fixed Single”。（14）在该窗体上添加1个Ado控件。（15）在该窗体中添加1个Frame控件，在Frame控件中添加文本框控件和标签控件。（16）在该窗体中添加1个DataGrid控件，将DataGrid控件的名称设置为Dgr_Sjll，DataSource属性设置为Adodc1，设计完成的界面如图14所示。（17）在窗体上添加4个CommandButton控件，分别将控件的名称命名为“Cmd_Add”、“Cmd_Save”、“Cmd_Del”、“Cmd_Cancel”，Caption属性设置为“添加”、“保存”、“删除”、“取消”。图14 托运货物管理窗体的设计界面2货物托运管理窗体的代码设计在窗体启动时，通过调用LoadFile过程，在窗体上显示数据，同时利用Ado对象计算出当前数据库中数据记录的条数，代码如下：Private Sub Form_Load() Call RefreshData Call LoadFile For i = 1 To 21 锁定文本框，禁止输入内容 Text1(i).Locked = True Next i AdoRs.Open select * from tb_Goods_tyd order by tyd_tydh, Cnn, adOpenKeyset If AdoRs.RecordCount 0 Then Lbl_Num.Caption = 当前数据表中共有 & AdoRs.RecordCount & 条记录 End If AdoRs.Close Call Tbr_cortrol(Tbr_xxcz, True)End Sub单击工具栏中的控制按钮，通过Select Case语句控制工具栏中的按钮，完成添加、删除、修改、保存、添加货物和删除货物等操作，实现的代码如下：Private Sub Tbr_xxcz_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Call Tbr_cortrol(Tbr_xxcz, False) For i = 0 To 21 Text1(i).Locked = False Text1(i).Text = Next i Text1(0).SetFocus 根据日期产生流水账号 AdoRs.Open select * from tb_Goods_tyd where tyd_tydh like % + Format(Date, yyyymmdd) + % order by tyd_tydh, Cnn, adOpenKeyset If AdoRs.RecordCount 0 Then AdoRs.MoveLast Txt_id.Text = Val(AdoRs.Fields(tyd_tydh) + 1 Else Txt_id.Text = Format(Date, yyyymmdd) & 00001 End If AdoRs.Close Case 2 删除信息 Call Deletes Case 3 修改信息 Call Edits Case 4 保存信息 Call Saves Case 5 Call Tbr_cortrol(Tbr_xxcz, True) For i = 1 To 21 Text1(i).Text = Text1(1).SetFocus Next i Case 6 添加货物 TStrs = Txt_id.Text Frm_Tyhwgl.Cmd_Del.Enabled = False 使添加货物窗体中的“删除”按钮不可用 Frm_Tyhwgl.Show 1 Case 7 删除货物 TStrs = Txt_id.Text Frm_Tyhwgl.Cmd_Add.Enabled = False Frm_Tyhwgl.Cmd_Save.Enabled = False Frm_Tyhwgl.Show 1 Case 8 Unload Me End SelectEnd Sub通过单击选择ListView控件中的元素（托运单号），然后调用DataLoad过程在窗体上显示相对应托运单号的数据信息，同时查询该记录是否被修改过，如果修改过则将修改时间及修改人信息显示在窗体的Txt_ysrq和Txt_ysr文本框当中，代码如下所示：Private Sub ListView1_Click() AdoRs.Open select * from tb_Goods_tyd where tyd_tydh= & ListView1.SelectedItem & order by tyd_tydh, Cnn, adOpenKeyset If AdoRs.RecordCount 0 Then Call DataLoad 调用显示数据的过程 End If AdoRs.Close 关闭数据集对象 AdoRs1.Open select * from tb_Goods_khys where khys_tydh= & ListView1.SelectedItem & , Cnn, adOpenKeyset If AdoRs1.RecordCount 0 Then Txt_ysrq.Text = AdoRs1.Fields(khys_ysrq) Txt_ysr.Text = AdoRs1.Fields(khys_ysr) Else Txt_ysrq.Text = Txt_ysr.Text = End If AdoRs1.Close Call ShowData 调用数据刷新的过程 Call DBGConEnd Sub通过时钟控件，将当前数据库中的记录条数显示在标签控件Lbl_Num当中，实现的代码如下所示：Private Sub Timer1_Timer() On Error Resume Next 执行错误处理的语句 Lbl_Num.Caption = 当前数据表中共有 & AdoRs.RecordCount & 条记录End Sub3添加托运货物信息窗体的代码设计在增加托运货物窗体中单击【添加】按钮，清空窗体中文本框的信息，代码如下：Private Sub Cmd_Add_Click() For i = 1 To 4 Text1(i).Text = Next i Text1(1).SetFocusEnd Sub在窗体中单击【保存】按钮，在确认该货物信息没有被保存之后，保存所添加的货物信息，同时刷新窗体中的数据信息，代码如下：Private Sub Cmd_Save_Click() If Text1(0).Text = Then MsgBox 托运单号不能为空, 64, 提示信息 Else AdoRs.Open select * from tb_Goods_hwzx where hwzx_hwid= + Text1(1) + , Cnn, adOpenKeyset If AdoRs.RecordCount 0 Then MsgBox 该货物已经添加过, 64, 提示信息 Else c = MsgBox(确认保存信息吗, 33, 提示信息) If c = vbOK Then Set AdoRs = Cnn.Execute(insert into tb_Goods_hwzx values( & Text1(1) & , & Text1(2) & , & Text1(0) & , & Text1(3) & , & Text1(4) & ) MsgBox 数据保存成功, 64, 提示信息 Adodc1.RecordSource = select * from tb_Goods_hwzx where hwzx_sqdh= + Text1(0) + order by hwzx_hwid Adodc1.Refresh Call DBGCon Cmd_Add.SetFocus End If End If AdoRs.Close End IfEnd Sub3.5 在途跟踪管理在途跟踪是对正在托运的货物信息进行管理，托运司机在托运货物的过程中，每到一个地方或者在托运过程中出现某些异常情况，就会给托运公司反馈一个信息，托运公司将反馈回来的信息进行记录，并且对反馈回来的异常情况进行处理，这个过程就是在途跟踪。在途跟踪管理模块的运行结果如图15所示。图15 在途跟踪管理模块运行结果1窗体设计（1）在工程中新建1个窗体，将窗体的名称设置为“Frm_Ztgz”，BorderStyle属性设置为“1-Fixed Single”，MaxButton属性设置False。（2）在窗体上添加1个Toolbar控件和1个ImageList控件。（3）在窗体上添加1个ListView控件。（4）在窗体上添加1个Ado控件。（5）在窗体中添加3个Frame控件，在Frame控件中添加文本框控件，并设置控件的相关属性。（6）在窗体上添加DataGrid控件，将DataGrid控件的名称设置为Dgr_Sjll，DataSource属性设置为Adodc1。在途跟踪管理窗体的设计结果如图16所示。图16 在途跟踪管理窗体的设计2代码设计通过单击选择ListView控件中的元素（托运单号），在窗体中即可以显示相对应托运单号的数据信息，同时查询tb_Goods_ztgzlx数据表，从中检索出该托运单号的跟踪路线信息，将其显示在窗体的Txt_lx.文本框当中，实现的代码如下所示：Private Sub ListView1_Click() AdoRs.Open select * from tb_Goods_ztgz where ztgz_cydh= & ListView1.SelectedI