物流管理系统论文范文 第6页
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 Select
End 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 DBGCon
End Sub
通过时钟控件，将当前数据库中的记录条数显示在标签控件Lbl_Num当中，实现的代码如下所示：
Private Sub Timer1_Timer()
On Error Resume Next '执行错误处理的语句
Lbl_Num.Caption = "当前数据表中共有 " & AdoRs.RecordCount & " 条记录"
End Sub
3．添加托运货物信息窗体的代码设计
在增加托运货物窗体中单击【添加】按钮，清空窗体中文本框的信息，代码如下：
Private Sub Cmd_Add_Click()
For i = 1 To 4
Text1(i).Text = ""
Next i
Text1(1).SetFocus
End 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 If
End Sub
3.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.SelectedItem & "' order by ztgz_cydh", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
Text1(0).Text = AdoRs.Fields("ztgz_id")
Text1(1).Text = AdoRs.Fields("ztgz_cydh")
Text1(2).Text = AdoRs.Fields("ztgz_sjxm")
Text1(3).Text = AdoRs.Fields("ztgz_cphm")
DT1.Value = AdoRs.Fields("ztgz_dasj")
Text1(4).Text = AdoRs.Fields("ztgz_sjsj")
Text1(5).Text = AdoRs.Fields("ztgz_dadd")
Text1(6).Text = AdoRs.Fields("ztgz_bz")
End If
AdoRs.Close '关闭记录集对象
AdoRs1.Open "select * from tb_Goods_ztgzlx where ztgzlx_tydh='" &
ListView1.SelectedItem & "'", Cnn, adOpenKeyset
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
物流管理系统论文范文 第6页下载如图片无法显示或论文不完整，请联系qq752018766
