物流管理系统

物流管理系统

Company number：【WTUT-WT88Y-W8BBGB-BWYTT-19998】

石家庄铁道大学四方学院

集中实践报告书

课题名称 物流管理系统

姓 名 学 号

系、 部 土木工程系

专业班级 指导教师

刘仁芬

2015年 06 月 25 日

※※※※※※※※

※ ※※ ※

※ ※※ ※

※

※

※

※

※

※

※

※

2014级

高级语言程序课程设计

物流管理系统1.选题的意义

随着社会的进步，现代物流行业有了突飞猛进的发展。目前我国各类物流企业有十四万家左右，展望整个二十一世纪，现代物流业还有更大的发展空间。我国国民经济连续多年高速增长，为现代物流发展创造了良好的条件。

在发达国家，物流理论促使物流实践快速发展。经济全球化及现代物流业发展的系统化、信息化、仓储运输的现代化和综合化等趋势，对我国物流业的发展提出了全方位的挑战。传统物流行业的操作模式已经不再适应现代物流行业，如何缩短物流过程，降低产品库存，加速对市场的反应，这是物流行业所面临的问题。本系统就是针对这些问题而开发的一套物流管理系统。

为开发本系统使用了基本控件，数据库和手动添加的控件。

2.系统功能需求分析

系统概述

物流管理系统是集现代运输、仓储配送、搬运、调度为一体的网络系统，系统开发实现了物流各环节的有机结合。

系统的组成及各模块的功能

物流管理系统由基本信息设置、货物托运管理、信息查询、系统管理等模块组成，系统功能模块如下：

（1）基本信息模块

该模块主要负责完成员工信息设置、会员信息设置和车辆信息设置。

（2）货物托运管理模块

该模块主要由车辆调度安排、托运申请单管理、货物托运单管理组成。

（3）信息查询模块

该模块由货物申请单查询、车辆调度信息查询、货物托运信息查询组成。

（4）系统管理模块

该模块由查看、删除日志、用户管理、数据备份、数据更新及部分组成。

系统的运行环境

1.系统使用环境

操作系统:Windows 2000/XP

系统支持：Visual basic及以上版本支持库

数据库：Access。

硬件环境：

处理器;Intel Pentium 166MX或者更高。

硬盘：剩余使用空间1GB以上。

内存：32MB以上。

显卡：SVGA显示适配器。

2.系统开发环境

操作系统：Windows 2000/XP。

系统支持：Visual Basic

3系统设计

字段名称数据类型字段大小姓名文本255

编号文本255

联系电话文本255

登录密码文本255

表 3 货物数据表

字段名称数据类型字段大小货物名称文本255

货物单号文本255

货物重量数字长整型会员编号文本255

会员姓名文本255

车辆编号文本255

发货日期日期/时间

到货日期日期/时间

发送费用数字长整型目的地点文本255

运送情况文本255

流水账号文本255

备注文本255

发送地点文本255

收件人文本255

表4 车辆数据表

字段名称数据类型字段大小车辆编号文本255

车牌号码文本255

司机姓名数字长整型联系编号数字长整型备注文本255

表5托运表

字段名称数据类型字段大小流水账号文本255

车辆编号文本255

会员编号文本255

发车时间文本255

到达时间文本255

出发地文本255

目的地文本255

备注文本255

状态文本255

4系统实现

登录模块的设计与实现

图2身份选择界面

Private Sub Command1_Click()

Select Case

Case 0

Case 1

End Select

End Sub

Private Sub Timer1_Timer()

= "现在时间为：" & Time

End Sub

图3员工登录界面

Private Sub Command1_Click()

= adCmdText

= "select * from 员工信息 where 编号='" & & "' and 登录密码='" & & "'"

MsgBox "登录失败", vbDefaultButton1, "提示信息"

Else

kh =

End If

End Sub

Private Sub Command2_Click()

End Sub

其他模块的设计与实现

图4员工进入

Private Sub clddgl_Click()

End Sub

Private Sub Form_Load()

= LoadPicture + "\背景")

End Sub

Private Sub hwtygl_Click()

End Sub

Private Sub jbxxck_Click()

End Sub

Private Sub tcxt_Click()

End Sub

图5员工基本信息

Private Sub Form_Load()

= adCmdText

= "select * from 员工信息 where 编号='" & kh & "'"

End Sub

图6货物托运管理