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

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

更新时间:2009-12-19:  来源:毕业论文
物流管理系统论文范文 第4页
 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 If
End 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 Sub
3.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 Select
End 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 If
End Sub
3.4  货物托运管理
货物托运管理是本系统的核心,在货物托运申请完成之后,就可以填写货物托运单,托运司机根据货物托运单将货物托运到客户手中。对于同一张货物托运单,可以托运多种不同的货物,在托运管理窗体中可以添加或删除托运货物,还可以通过ListView控件浏览货物托运单信息。
货物托运管理模块的运行结果如图8所示,单击工具栏中的【添加货物】按钮,将弹出增加托运货物窗体,如图9所示。
 
图8  货物托运管理模块的运行结果

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

物流管理系统论文范文 第4页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

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