物流管理系统集中实践报告书

1、物流管理系统集中实践报告书【最新资料 ,Word 版，可自由编辑！】一、设计任务及要求：设计任务：物流管理系统的开发要求：1. 内容要求：系统由系统管理模块、会员卡管理模块、会员档案管理模块等模块组成。（1）系统管理模块：包括修改密码、添加车辆、添加货物等功能（2）查询管理模块：对客户、车辆、货物的查询、运费计算等功能（3）客户档案管理：客户基本信息的添加、删除、修改。2设计要求：建立一个工程，将完成本题目创建的所有文件添加到工程中；根据题目的要求建立数据库，库中建立所需的表。数据表之间根据需要建立必要的联系。用窗体设计一个漂亮的系统封面。 将完成的全部内容生成一个 .exe 文件 . 所有的

2、界面请尽可能设计的直观、漂亮一些。二、指导教师评语：三、成绩指导教师签名：年月日物流管理系统1.选题的意义随着社会的进步，现代物流行业有了突飞猛进的发展。目前我国各类物流企业有十四万家左右，展望整个二十一世纪，现代物流业还有更大的发展空间。我国国民经济连续多年高速增长，为现代物流发展创造了良好的条件。在发达国家，物流理论促使物流实践快速发展。经济全球化及现代物流业发展的系统化、信息化、仓储运输的现代化和综合化等趋势，对我国物流业的发展提出了全方位的挑战。传统物流行业的操作模式已经不再适应现代物流行业，如何缩短物流过程，降低产品库存，加速对市场的反应，这是物流行业所面临的问题。本系统就是针对这些

3、问题而开发的一套物流管理系统。为开发本系统使用了基本控件，数据库和手动添加的控件。2. 系统功能需求分析2.1 系统概述物流管理系统是集现代运输、仓储配送、搬运、调度为一体的网络系统，系统开发实现了物流各环节的有机结合。2.2 系统的组成及各模块的功能物流管理系统由基本信息设置、货物托运管理、信息查询、系统管理等模块组成，系统功能模块如下：（1）基本信息模块该模块主要负责完成员工信息设置、会员信息设置和车辆信息设置。（2）货物托运管理模块该模块主要由车辆调度安排、托运申请单管理、货物托运单管理组成。（3）信息查询模块该模块由货物申请单查询、车辆调度信息查询、货物托运信息查询组成。（4）系统管理

4、模块该模块由查看、删除日志、用户管理、数据备份、数据更新及部分组成。2.3 系统的运行环境1. 系统使用环境操作系统 : Windows 2000/XP系统支持： Visual basic6.0 及以上版本支持库数据库： Access。硬件环境：处理器 ; Intel Pentium 166MX或者更高。硬盘：剩余使用空间1GB以上。内存： 32MB以上。显卡： SVGA 显示适配器。2. 系统开发环境操作系统： Windows 2000/XP。系统支持： Visual Basic6.03 系统设计3.1 总体结构设计系统登录物流管理系统基货信本物息信托查息运询设管置理图 1 总体模块图3.2

5、 数据库实现表 1会员档案数据表字段名称数据类型会员卡号文本会员姓名文本联系电话文本详细地址文本登录密码文本退出系统字段大小255255255255255表 2员工信息数据表字段名称数据类型字段大小姓名文本255编号文本255联系电话文本255登录密码文本255表 3货物数据表字段名称数据类型字段大小货物名称文本255货物单号文本255货物重量数字长整型会员编号文本255会员姓名文本255车辆编号文本255发货日期日期/时间到货日期日期/时间发送费用数字长整型目的地点文本255运送情况文本255流水账号文本255备注文本255发送地点文本255收件人文本255表 4车辆数据表字段名称数据类型字

6、段大小车辆编号文本255车牌号码文本255司机姓名数字长整型联系编号数字长整型备注文本255表5托运表字段名称流水账号车辆编号会员编号发车时间到达时间出发地目的地备注状态4 系统实现4.1 登录模块的设计与实现Private Sub Command1_Click()Select Case Combo1.ListIndexCase 0Form3.Show数据类型字段大小文本255文本255文本255文本255文本255文本255文本255文本255文本255图 2 身份选择界面Form1.HideCase 1Form2.ShowForm1.HideEnd SelectEnd SubPrivate

7、 Sub Timer1_Timer()Label3.Caption = " 现在时间为：" & TimeEnd Sub图 3 员工登录界面Private Sub Command1_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from员工信息where编号='" & Text1.Text & "'and登录密码 ='" & Text2.Text & "'"

8、;Adodc1.RefreshMsgBox " 登录失败 ", vbDefaultButton1, " 提示信息 "Elsekh = Text1.TextForm11.ShowForm3.HideEnd IfEnd SubPrivate Sub Command2_Click()Form1.ShowForm3.HideEnd Sub4.2 其他模块的设计与实现图 4 员工进入Private Sub clddgl_Click()Form7.ShowEnd SubPrivate Sub Form_Load()背景 1.jpg")End SubPriv

9、ate Sub hwtygl_Click()Form8.ShowEnd SubPrivate Sub jbxxck_Click()Form6.ShowEnd SubPrivate Sub tcxt_Click()Form1.ShowForm11.HideEnd Sub图 5 员工基本信息Private Sub Form_Load()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from 员工信息where 编号 ='" & kh & "'"Ado

10、dc1.RefreshEnd Sub图 6 货物托运管理Private Sub Text7_Change()Text6.Text = Val(Text7.Text) * 10End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1Case 2Call DeletesCase 3Call SaveCase 4Call CancelCase 5Form8.HideForm11.ShowEnd SelectEnd SubPrivate Sub Sa

11、ve()c = MsgBox(" 确认保存信息吗？", 32, " 提示 ")If c = vbOK ThenMsgBox " 数据保存成功 ", 64, " 提示 "End IfEnd SubPrivate Sub Deletes()c = MsgBox(" 确认删除信息吗？", 17, " 提示 ")If c = vbOK ThenMsgBox " 数据删除成功 ", 64, " 提示 "End IfEnd SubPrivate S

12、ub Cancel()c = MsgBox(" 确认取消信息吗？", 17, " 提示 ")If c = vbOK ThenMsgBox " 取消成功 ", 64, " 提示 "End IfEnd Sub图 7 车辆调度管理Private Sub Command1_Click()Text7.Text = " 在途 "Adodc2.CommandType = adCmdTextAdodc2.RecordSource = "select * from 托运表null"Adodc2

13、.Refresh在途 "LoopEnd SubPrivate Sub Command2_Click()Text7.Text = ""Adodc2.CommandType = adCmdTextAdodc2.RecordSource = "select * from 托运表where where车辆编号车辆编号='" & Text1.Text & "'and ='" & Text1.Text & "'and状态状态is='在途 '&quo

14、t;Adodc2.Refresh到达 "LoopEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1Text8.Text = Format(Now, yymmd)Case 2Call DeletesCase 3Call EditsCase 4Call SaveCase 5Call CancelCase 6Form7.HideForm11.ShowEnd SelectEnd SubPrivate Sub Save()c = Msg

15、Box(" 确认保存信息吗？", 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 = M

16、sgBox(" 确认修改信息吗？", 17, "提示 ")If c = vbOK ThenMsgBox "数据修改成功 ", 64, " 提示 "End IfEnd SubPrivate Sub Cancel()c = MsgBox(" 确认取消信息吗？", 17, "提示 ")If c = vbOK ThenMsgBox "取消成功 ", 64, "提示 "End IfEnd Sub5 设计体会5.1 总结经过小学期的学习和摸索，终于

17、完成 “物流管理系统”。通过开发过程，我比较深入的了解和掌握 Visual Basic6.0 的使用方法，对数据库的理解也更加深刻了。由始至终的开发过程，让我深刻的体会到了软件工程这门学科对于程序开发的重要性。一个工程的开发，编码过程并不是最重要的，对于那些熟练掌握编程语言的软件开发者来说，一个的工程代码的实现，并不难做到。真正重要的反而是那些在编程之前所需做的工作。从软件的需求分析到系统打设计，每一步都非常重要，一个高质量的软件，从一开始就要扎扎实实的做好需求分析，为后续的系统设计和实现打下良好的基础。总的来说，本系统还是符合管理者需求的，可以为管理用户使用。同时感谢一直对我课程设计提供帮助

18、的刘仁芬老师，没有您的悉心指导，我不可能完成符合要求的合格的课程设计。与此同时，我也要感谢对我课程设计提供帮助的同学们，是你们给予了我更多更广泛的设计思路，才使得我的思维更加宽广，这对于我的课程设计来说，是一种莫大的帮助，谢谢你们。同时，我也要再次感谢全体老师，是你们在辛勤地为我们做了许多我们不曾注重的一些细节问题，为我们无论是在设计上还是在论文中，您们的劳动都是我的毕业设计能够完成不可缺少的因素。由于本人水平有限，再设计思路和技术方法上可能比较愚钝，在开发语言的掌握上可能相对肤浅，所以反应到系统中，难免存在许多不足之处，殷切希望各位老师批评、指正 。5.2 存在的主要问题在这次实践中我们体会到了以前在课本上无法理解和没有见到过的知识，提高自身的知识面和实践能力，收获颇丰。这样的项目对我们学过的数据结构，程序设计，数据库，软件工程，等课程是一个综合性很高的实践。经历这一段时间的实践，我们对原来学习的知识有了更深刻的认识，也学习到了大量的新知识，提高了实际应用的能力。另外我还充分体会了从事软件开发工作需要特别谨慎认真地态度和作风，一点都不能马虎。每个细微的细节都必须十分注意，如果考不认真思考决策，就会出现或大或小的错误。如果早期的错误隐藏下来，对后面的工作影响就