物流管理系统论文范文 第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] ... 下一页 >>