物流管理系统分解.docx
《物流管理系统分解.docx》由会员分享，可在线阅读，更多相关《物流管理系统分解.docx（17页珍藏版）》请在冰豆网上搜索。
物流管理系统分解
石家庄铁道大学四方学院
集中实践报告书
课题名称
物流管理系统
姓名
学号
系、部
土木工程系
专业班级
指导教师
刘仁芬
2015年06月25日
一、设计任务及要求：
设计任务：
物流管理系统的开发
要求：
1.内容要求：
系统由系统管理模块、会员卡管理模块、会员档案管理模块等模块组成。
（1）系统管理模块：
包括修改密码、添加车辆、添加货物等功能
（2）查询管理模块：
对客户、车辆、货物的查询、运费计算等功能
（3）客户档案管理：
客户基本信息的添加、删除、修改。
2．设计要求：
①建立一个工程，将完成本题目创建的所有文件添加到工程中；②根据题目的要求建立数据库，库中建立所需的表。
③数据表之间根据需要建立必要的联系。
④用窗体设计一个漂亮的系统封面。
将完成的全部内容生成一个.exe文件.所有的界面请尽可能设计的直观、漂亮一些。
二、指导教师评语：
三、成绩
指导教师签名：
年月日
物流管理系统
1.选题的意义
随着社会的进步，现代物流行业有了突飞猛进的发展。
目前我国各类物流企业有十四万家左右，展望整个二十一世纪，现代物流业还有更大的发展空间。
我国国民经济连续多年高速增长，为现代物流发展创造了良好的条件。
在发达国家，物流理论促使物流实践快速发展。
经济全球化及现代物流业发展的系统化、信息化、仓储运输的现代化和综合化等趋势，对我国物流业的发展提出了全方位的挑战。
传统物流行业的操作模式已经不再适应现代物流行业，如何缩短物流过程，降低产品库存，加速对市场的反应，这是物流行业所面临的问题。
本系统就是针对这些问题而开发的一套物流管理系统。
为开发本系统使用了基本控件，数据库和手动添加的控件。
2.系统功能需求分析
2.1系统概述
物流管理系统是集现代运输、仓储配送、搬运、调度为一体的网络系统，系统开发实现了物流各环节的有机结合。
2.2系统的组成及各模块的功能
物流管理系统由基本信息设置、货物托运管理、信息查询、系统管理等模块组成，系统功能模块如下：
（1）基本信息模块
该模块主要负责完成员工信息设置、会员信息设置和车辆信息设置。
（2）货物托运管理模块
该模块主要由车辆调度安排、托运申请单管理、货物托运单管理组成。
（3）信息查询模块
该模块由货物申请单查询、车辆调度信息查询、货物托运信息查询组成。
（4）系统管理模块
该模块由查看、删除日志、用户管理、数据备份、数据更新及部分组成。
2.3系统的运行环境
1.系统使用环境
操作系统:
Windows2000/XP
系统支持：
Visualbasic6.0及以上版本支持库
数据库：
Access。
硬件环境：
处理器;IntelPentium166MX或者更高。
硬盘：
剩余使用空间1GB以上。
内存：
32MB以上。
显卡：
SVGA显示适配器。
2.系统开发环境
操作系统：
Windows2000/XP。
系统支持：
VisualBasic6.0
3系统设计
3.1总体结构设计
图1总体模块图
3.2数据库实现
表1会员档案数据表
字段名称
数据类型
字段大小
会员卡号
文本
255
会员姓名
文本
255
联系电话
文本
255
详细地址
文本
255
登录密码
文本
255
表2员工信息数据表
字段名称
数据类型
字段大小
姓名
文本
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系统实现
4.1登录模块的设计与实现
图2身份选择界面
PrivateSubCommand1_Click（）
SelectCaseCombo1.ListIndex
Case0
Form3.Show
Form1.Hide
Case1
Form2.Show
Form1.Hide
EndSelect
EndSub
PrivateSubTimer1_Timer（）
Label3.Caption="现在时间为：
"&Time
EndSub
图3员工登录界面
PrivateSubCommand1_Click（）
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*from员工信息where编号='"&Text1.Text&"'and登录密码='"&Text2.Text&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"登录失败",vbDefaultButton1,"提示信息"
Else
kh=Text1.Text
Form11.Show
Form3.Hide
EndIf
EndSub
PrivateSubCommand2_Click（）
Form1.Show
Form3.Hide
EndSub
4.2其他模块的设计与实现
图4员工进入
PrivateSubclddgl_Click（）
Form7.Show
EndSub
PrivateSubForm_Load（）
Form11.Picture=LoadPicture（App.Path+"\背景1.jpg"）
EndSub
PrivateSubhwtygl_Click（）
Form8.Show
EndSub
PrivateSubjbxxck_Click（）
Form6.Show
EndSub
PrivateSubtcxt_Click（）
Form1.Show
Form11.Hide
EndSub
图5员工基本信息
PrivateSubForm_Load（）
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*from员工信息where编号='"&kh&"'"
Adodc1.Refresh
EndSub
图6货物托运管理
PrivateSubText7_Change（）
Text6.Text=Val（Text7.Text）*10
EndSub
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Index
Case1
Adodc1.Recordset.AddNew
Case2
CallDeletes
Case3
CallSave
Case4
CallCancel
Case5
Form8.Hide
Form11.Show
EndSelect
EndSub
PrivateSubSave（）
c=MsgBox（"确认保存信息吗？
",32,"提示"）
Ifc=vbOKThen
Adodc1.Recordset.Update
MsgBox"数据保存成功",64,"提示"
EndIf
EndSub
PrivateSubDeletes（）
c=MsgBox（"确认删除信息吗？
",17,"提示"）
Ifc=vbOKThen
Adodc1.Recordset.Delete
MsgBox"数据删除成功",64,"提示"
EndIf
EndSub
PrivateSubCancel（）
c=MsgBox（"确认取消信息吗？
",17,"提示"）
Ifc=vbOKThen
Adodc1.Recordset.CancelUpdate
MsgBox"取消成功",64,"提示"
EndIf
EndSub
图7车辆调度管理
PrivateSubCommand1_Click（）
Text7.Text="在途"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource="select*from托运表where车辆编号='"&Text1.Text&"'and状态isnull"
Adodc2.Refresh
DoWhileAdodc2.Recordset.EOF<>True
Adodc2.Recordset.Fields（7）="在途"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveNext
Loop
EndSub
PrivateSubCommand2_Click（）
Text7.Text=""
Adodc2.CommandType=adCmdText
Adodc2.RecordSource="select*from托运表where车辆编号='"&Text1.Text&"'and状态='在途'"
Adodc2.Refresh
DoWhileAdodc2.Recordset.EOF<>True
Adodc2.Recordset.Fields（7）="到达"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveNext
Loop
EndSub
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Index
Case1
Adodc1.Recordset.AddNew
Text8.Text=Format（Now,yymmd）
Case2
CallDeletes
Case3
CallEdits
Case4
CallSave
Case5
CallCancel
Case6
Form7.Hide
Form11.Show
EndSelect
EndSub
PrivateSubSave（）
c=MsgBox（"确认保存信息吗？
",32,"提示"）
Ifc=vbOKThen
Adodc1.Recordset.Update
MsgBox"数据保存成功",64,"提示"
EndIf
EndSub
PrivateSubDeletes（）
c=MsgBox（"确认删除信息吗？
",17,"提示"）
Ifc=vbOKThen
Adodc1.Recordset.Delete
MsgBox"数据删除成功",64,"提示"
EndIf
EndSub
PrivateSubEdits（）
c=MsgBox（"确认修改信息吗？
",17,"提示"）
Ifc=vbOKThen
Adodc1.Recordset.Update
MsgBox"数据修改成功",64,"提示"
EndIf
EndSub
PrivateSubCancel（）
c=MsgBox（"确认取消信息吗？
",17,"提示"）
Ifc=vbOKThen
Adodc1.Recordset.CancelUpdate
MsgBox"取消成功",64,"提示"
EndIf
EndSub
5设计体会
5.1总结
经过小学期的学习和摸索，终于完成“物流管理系统”。
通过开发过程，我比较深入的了解和掌握VisualBasic6.0的使用方法，对数据库的理解也更加深刻了。
由始至终的开发过程，让我深刻的体会到了软件工程这门学科对于程序开发的重要性。
一个工程的开发，编码过程并不是最重要的，对于那些熟练掌握编程语言的软件开发者来说，一个的工程代码的实现，并不难做到。
真正重要的反而是那些在编程之前所需做的工作。
从软件的需求分析到系统打设计，每一步都非常重要，一个高质量的软件，从一开始就要扎扎实实的做好需求分析，为后续的系统设计和实现打下良好的基础。
总的来说，本系统还是符合管理者需求的，可以为管理用户使用。
同时感谢一直对我课程设计提供帮助的刘仁芬老师，没有您的悉心指导，我不可能完成符合要求的合格的课程设计。
与此同时，我也要感谢对我课程设计提供帮助的同学们，是你们给予了我更多更广泛的设计思路，才使得我的思维更加宽广，这对于我的课程设计来说，是一种莫大的帮助，谢谢你们。
同时，我也要再次感谢全体老师，是你们在辛勤地为我们做了许多我们不曾注重的一些细节问题，为我们无论是在设计上还是在论文中，您们的劳动都是我的毕业设计能够完成不可缺少的因素。
由于本人水平有限，再设计思路和技术方法上可能比较愚钝，在开发语言的掌握上可能相对肤浅，所以反应到系统中，难免存在许多不足之处，殷切希望各位老师批评、指正。
5.2存在的主要问题
在这次实践中我们体会到了以前在课本上无法理解和没有见到过的知识，提高自身的知识面和实践能力，收获颇丰。
这样的项目对我们学过的数据结构，程序设计，数据库，软件工程，等课程是一个综合性很高的实践。
经历这一段时间的实践，我们对原来学习的知识有了更深刻的认识，也学习到了大量的新知识，提高了实际应用的能力。
另外我还充分体会了从事软件开发工作需要特别谨慎认真地态度和作风，一点都不能马虎。
每个细微的细节都必须十分注意，如果考不认真思考决策，就会出现或大或小的错误。
如果早期的错误隐藏下来，对后面的工作影响就会很大，有时候会弄的满盘皆输的后果。
我们不得不对软件的每一步进行检查，给我们的信心带来了打击，非常劳累和痛苦。
由于自己的经验及各方面的能力的不足，所以进展的速度非常的缓慢，遇到了好多棘手的问题，不得不去翻阅课本和大量的课外素材，最后自己无法解决的情况下向老师进行请教。
鉴于能力水平所限，我们存在的问题还不少，界面不够精明，样式死板，可供查询的内容比较少，望老师提出批评意见。
参考文献
[1]明日科技编著《Visualbasic数据库系统开发案例精选》，人民邮电出版社
出版日期：
2006-5
[2]张鲁.《Visualbasic6.0编程技巧与实例分析》，水利水电出版社，出版日期：
1999-10-1
升级会员 