物流管理系统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 Basic3系统设计字段名称数据类型字段大小姓名文本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状态文本2554系统实现登录模块的设计与实现图2身份选择界面Private Sub Command1_Click()Select CaseCase 0Case 1End SelectEnd SubPrivate Sub Timer1_Timer()= "现在时间为：" & TimeEnd Sub图3员工登录界面Private Sub Command1_Click()= adCmdText= "select * from 员工信息 where 编号='" & & "' and 登录密码='" & & "'"MsgBox "登录失败", vbDefaultButton1, "提示信息"Elsekh =End IfEnd SubPrivate Sub Command2_Click()End Sub其他模块的设计与实现图4员工进入Private Sub clddgl_Click()End SubPrivate Sub Form_Load()= LoadPicture + "\背景")End SubPrivate Sub hwtygl_Click()End SubPrivate Sub jbxxck_Click()End SubPrivate Sub tcxt_Click()End Sub图5员工基本信息Private Sub Form_Load()= adCmdText= "select * from 员工信息 where 编号='" & kh & "'"End Sub图6货物托运管理Private Sub Text7_Change()= Val * 10End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As Select CaseCase 1Case 2Call DeletesCase 3Call SaveCase 4Call CancelCase 5End SelectEnd SubPrivate Sub Save()c = MsgBox("确认保存信息吗", 32, "提示")If c = vbOK ThenMsgBox "数据保存成功", 64, "提示"End IfEnd SubPrivate Sub Deletes()c = MsgBox("确认删除信息吗", 17, "提示")If c = vbOK ThenMsgBox "数据删除成功", 64, "提示"End IfEnd SubPrivate Sub Cancel()c = MsgBox("确认取消信息吗", 17, "提示")If c = vbOK ThenMsgBox "取消成功", 64, "提示"End IfEnd Sub图7车辆调度管理Private Sub Command1_Click()= "在途"= adCmdText= "select * from 托运表 where 车辆编号='" & & "'and 状态 is null"LoopEnd SubPrivate Sub Command2_Click()= ""= adCmdText= "select * from 托运表 where 车辆编号='" & & "'and 状态 ='在途'"LoopEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button AsSelect CaseCase 1= Format(Now, yymmd)Case 2Call DeletesCase 3Call EditsCase 4Call SaveCase 5Call CancelCase 6End SelectEnd SubPrivate Sub Save()c = MsgBox("确认保存信息吗", 32, "提示")If c = vbOK ThenMsgBox "数据保存成功", 64, "提示"End IfEnd SubPrivate Sub Deletes()c = MsgBox("确认删除信息吗", 17, "提示") If c = vbOK ThenMsgBox "数据删除成功", 64, "提示"End IfEnd SubPrivate Sub Edits()c = MsgBox("确认修改信息吗", 17, "提示")If c = vbOK ThenMsgBox "数据修改成功", 64, "提示"End IfEnd SubPrivate Sub Cancel()c = MsgBox("确认取消信息吗", 17, "提示")If c = vbOK ThenMsgBox "取消成功", 64, "提示"End IfEnd Sub5设计体会总结经过小学期的学习和摸索，终于完成“物流管理系统”。
通过开发过程，我比较深入的了解和掌握Visual 的使用方法，对数据库的理解也更加深刻了。
由始至终的开发过程，让我深刻的体会到了软件工程这门学科对于程序开发的重要性。
一个工程的开发，编码过程并不是最重要的，对于那些熟练掌握编程语言的软件开发者来说，一个的工程代码的实现，并不难做到。
真正重要的反而是那些在编程之前所需做的工作。
从软件的需求分析到系统打设计，每一步都非常重要，一个高质量的软件，从一开始就要扎扎实实的做好需求分析，为后续的系统设计和实现打下良好的基础。
总的来说，本系统还是符合管理者需求的，可以为管理用户使用。
同时感谢一直对我课程设计提供帮助的刘仁芬老师，没有您的悉心指导，我不可能完成符合要求的合格的课程设计。
与此同时，我也要感谢对我课程设计提供帮助的同学们，是你们给予了我更多更广泛的设计思路，才使得我的思维更加宽广，这对于我的课程设计来说，是一种莫大的帮助，谢谢你们。
同时，我也要再次感谢全体老师，是你们在辛勤地为我们做了许多我们不曾注重的一些细节问题，为我们无论是在设计上还是在论文中，您们的劳动都是我的毕业设计能够完成不可缺少的因素。
由于本人水平有限，再设计思路和技术方法上可能比较愚钝，在开发语言的掌握上可能相对肤浅，所以反应到系统中，难免存在许多不足之处，殷切希望各位老师批评、指正。
存在的主要问题在这次实践中我们体会到了以前在课本上无法理解和没有见到过的知识，提高自身的知识面和实践能力，收获颇丰。