物流管理系统论文范文 第7页
If AdoRs1.RecordCount > 0 Then
Txt_lx.Text = AdoRs1.Fields("ztgzlx_lx")
End If
AdoRs1.Close '关闭记录集对象
Adodc1.RecordSource = "select * from tb_Goods_ztgz where ztgz_cydh='" +
ListView1.SelectedItem + "'"
Adodc1.Refresh '刷新数据信息
Call DBGCon '给DataGrid控件的列标题赋值
End Sub
在工具栏中单击【保存】按钮将调用用户自定义的保存过程，保存在途跟踪信息，用户自定义的保存过程的代码如下：
Private Sub Saves() '保存信息的过程
If Text1(1).Text = "" Then
MsgBox "托运单号不能为空", 48, "提示信息"
Else
AdoRs2.Open "select * from tb_Goods_ztgz where ztgz_id='" + Text1(0) +
"'", Cnn, adOpenKeyset
If AdoRs2.RecordCount > 0 Then
MsgBox "该信息已经存在", 48, "提示信息"
Else
c = MsgBox("确认保存信息吗", 33, "提示信息")
If c = vbOK Then
Set AdoRs = Cnn.Execute("insert into tb_Goods_ztgz values('" &
Text1(0) & "','" & Text1(1) & "','" & Text1(2) & "','" & Text1(3) & "','"
& Text1(4) & "','" & Text1(5) & "','" & Str(DT1.Value) & "','" & Text1(6)
& "')")
AdoRs.Open "select * from tb_Goods_ztgzlx where ztgzlx_tydh='"
+ Text1(1) + "'", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
Call DDTJ '统计到达的路线
Set AdoRs = Cnn.Execute("UPDATE tb_Goods_ztgzlx SET
ztgzlx_lx='" + Txt_lx + "' where ztgzlx_tydh='" + Text1(1).Text + "'")
Else
Call DDTJ '统计到达的路线
Set AdoRs = Cnn.Execute("insert into tb_Goods_ztgzlx
values('" & Text1(1) & "','" & Txt_lx & "')")
End If
MsgBox "数据保存成功", 64, "提示信息"
End If
Adodc1.RecordSource = "select * from tb_Goods_ztgz order by ztgz_id"
Adodc1.Refresh
Call DBGCon
Call Tbr_cortrol(Tbr_xxcz, True)
End If
AdoRs2.Close
End If
Call RefreshData
End Sub
在工具栏中单击【删除】按钮将调用用户自定义的删除过程，删除在途跟踪信息，用户自定义删除在途跟踪过程的代码如下：
Private Sub Deletes() '删除信息
c = MsgBox("确认删除该信息吗", 17, "提示信息")
If c = vbOK Then
On Error Resume Next
Set AdoRs = Cnn.Execute("Delete tb_Goods_ztgz from tb_Goods_ztgz where
ztgz_id='" + Text1(0).Text + "'")
Adodc1.Refresh '刷新数据信息
Call DBGCon
End If
For i = 1 To 5
Text1(i).Text = ""
Next i
Cbx_xb.Text = "" '清除列表控件的内容
Call RefreshData
End Sub
在保存在途跟踪信息的时候，需要调用用户自定义的DDTJ过程，完成在文本框Txt_lx中显示跟踪路线信息的功能，DDTJ过程的实现代码如下：
Private Sub DDTJ()
AdoRs1.Open "select * from tb_Goods_ztgz where ztgz_cydh='" + Text1(1) + "'", Cnn, adOpenKeyset
If AdoRs1.RecordCount > 0 Then
AdoRs1.MoveFirst '将数据库中的记录移向第一条
Txt_lx.Text = ""
On Error Resume Next '执行错误处理
For i = 0 To AdoRs1.RecordCount
If Txt_lx.Text = "" Then
Txt_lx.Text = "公司本部" & "-->" & AdoRs1.Fields("ztgz_dadd")
Else
Txt_lx.Text = Txt_lx.Text & "-->" & AdoRs1.Fields("ztgz_dadd")
End If
AdoRs1.MoveNext '将数据库中的记录移向下一条
Next i
End If
AdoRs1.Close '关闭记录集对象
End Sub
3.6 信息查询
在应用软件的设计过程中，将同一项功能设计到同一个窗体当中是非常必要的，这样会减少应用程序中窗体的数量和代码数量，提高程序的运行速度，本系统当中的查询模块就是这样设计的。通过在主窗体的查询模块的菜单中设置一个标识变量，然后在查询窗体中根据这个标识变量设置具体实现的查询功能，如将托运申请单查询的标识变量设置为1、车辆调度信息查询的标识变量设置为2等等，这样在查询窗体当中，当窗体启动时进行判断，如果标识变量是1，则进行托运申请信息查询的相关操作，如果标识变量是2，则进行车辆调度信息查询的相关操作。
信息查询模块的运行结果如图17所示（这里以货物托运单查询为例）。
图17 信息查询模块运行结果
1．窗体设计
（1）在工程中新建1个窗体，将窗体的名称设置为“Frm_Xxcx”，BorderStyle属性设置为“1-Fixed Single”，MaxButton属性设置False。
（2）在窗体上添加1个Ado控件，其名称为默认。
（3）在窗体中添加1个Frame控件，在Frame控件中添加1个ComboBox控件、1个标签控件、1个文本框控件和2个CommandButton控件，并设置控件的相关属性。
（4）在窗体上添加1个DataGrid控件，将DataGrid控件的名称设置为“Dgr_Cx”，DataSource属性设置为Adodc1。
信息查询窗体的设计结果如图18所示。
图18 信息查询窗体的设计结果
2．代码设计
在窗体启动时，通过接收到不同的标识变量值，将相应的查询字段信息添加到ComboBox控件当中，并且根据标识变量执行相应的查询函数Flcx()，完成在窗体上显示数据表中所有数据的功能，实现的代码如下：
Private Sub Form_Load()
AdoRs.Open "select * from tb_Goods_sqd", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
物流管理系统论文范文 第7页下载如图片无法显示或论文不完整，请联系qq752018766
