物流管理系统论文范文 第5页
图9 增加托运货物窗体
1．货物托运窗体及增加托运货物窗体的设计
（1）在工程中新建一个窗体，将窗体的名称设置为“frm_Hpty”，BorderStyle属性设置为“1-Fixed Single”，MaxButton属性设置False。
（2）在窗体上添加Toolbar控件，根据前面所介绍的方法为窗体设计工具栏。
（3）在窗体中添加2个ImageList控件。
（4）在窗体上添加1个ListView控件。
（5）在ListView控件上单击鼠标右键，在弹出的快捷菜单中选择“属性”项，在弹出的“属性页”对话框中选择“通用”选项卡，在该选项卡中选取“整行选择”、“网格行”和“热跟踪”等复选框，在“查看”旁的列表框中选择3-lvwReport，如图10所示。
图10 设置控件的显示模式
（6）在ListView控件上单击鼠标右键，在弹出的快捷菜单中选择“属性”项，在弹出“属性页”对话框中选择“列首”选项卡，在该选项卡中单击【插入列】按钮，然后在“文本”文本框中输入插入列的标题名称，在“宽度”文本框中输入插入列的宽度，如图11所示。
图11 设置插入列的属性
（7）在ListView控件上单击鼠标右键，在弹出的快捷菜单中选择“属性”项，在弹出的“属性页”对话框中选择“图像列表”选项卡，在该选项卡中的“普通”和“列标头”列表框中分别选择“ImageList2”，如图12所示。
图12 连接ImageList2控件
（8）在窗体上添加1个Ado控件。
（9）在窗体中添加3个Frame控件，分别在Frame控件中添加文本框控件和DataGrid控件，将DataGrid控件的名称设置为Dgr_Sjll，DataSource属性设置为Adodc1，BackColor属性值设置为&H00FFFFC0&，设计完成的界面如图13所示。
（10）在窗体中添加1个标签控件，名称命名为Lbl_Num。
（11）在窗体上添加1个时钟控件Timer1，在属性窗口中将控件的Interval属性值设置为60。
货物托运管理窗体的设计结果如图13所示。
图13 货物托运管理窗体的设计界面
（12）在工程中添加1个窗体，将窗体命名为Frm_Tyhwgl，该窗体作为货物托运管理的子窗体，用于为完成为货物托运单添加托运货物的操作。
（13）将该窗体的BorderStyle属性设置为“1-Fixed Single”。
（14）在该窗体上添加1个Ado控件。
（15）在该窗体中添加1个Frame控件，在Frame控件中添加文本框控件和标签控件。
（16）在该窗体中添加1个DataGrid控件，将DataGrid控件的名称设置为Dgr_Sjll，DataSource属性设置为Adodc1，设计完成的界面如图14所示。
（17）在窗体上添加4个CommandButton控件，分别将控件的名称命名为“Cmd_Add”、“Cmd_Save”、“Cmd_Del”、“Cmd_Cancel”，Caption属性设置为“添加”、“保存”、“删除”、“取消”。
图14 托运货物管理窗体的设计界面
2．货物托运管理窗体的代码设计
在窗体启动时，通过调用LoadFile过程，在窗体上显示数据，同时利用Ado对象计算出当前数据库中数据记录的条数，代码如下：
Private Sub Form_Load()
Call RefreshData
Call LoadFile
For i = 1 To 21 '锁定文本框，禁止输入内容
Text1(i).Locked = True
Next i
AdoRs.Open "select * from tb_Goods_tyd order by tyd_tydh", Cnn,
adOpenKeyset
If AdoRs.RecordCount > 0 Then
Lbl_Num.Caption = "当前数据表中共有 " & AdoRs.RecordCount & " 条记录"
End If
AdoRs.Close
Call Tbr_cortrol(Tbr_xxcz, True)
End Sub
单击工具栏中的控制按钮，通过Select Case语句控制工具栏中的按钮，完成添加、删除、修改、保存、添加货物和删除货物等操作，实现的代码如下：
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 21
Text1(i).Locked = False
Text1(i).Text = ""
Next i
Text1(0).SetFocus
'根据日期产生流水账号
AdoRs.Open "select * from tb_Goods_tyd where tyd_tydh like '%" + Format(Date, "yyyymmdd") + "%' order by tyd_tydh", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
AdoRs.MoveLast
Txt_id.Text = Val(AdoRs.Fields("tyd_tydh")) + 1
Else
Txt_id.Text = Format(Date, "yyyymmdd") & "00001"
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 21
Text1(i).Text = ""
Text1(1).SetFocus
Next i
Case 6 '添加货物
TStrs = Txt_id.Text
Frm_Tyhwgl.Cmd_Del.Enabled = False '使添加货物窗体中的“删除”按钮不可用
Frm_Tyhwgl.Show 1
Case 7 '删除货物
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
物流管理系统论文范文 第5页下载如图片无法显示或论文不完整，请联系qq752018766
