毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

物流管理系统论文范文 第6页

更新时间:2009-12-19:  来源:毕业论文
物流管理系统论文范文 第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
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。