物流管理系统0001

1、探 探 探 探 探 探 探2014 级高级语言程序课程设计探石家庄铁道大学四方学院集中实践报告书课题名称物流管理系统姓 名学 号系、部土木工程系专业班级指导教师刘仁芬2015年 06月 25 日一、设计任务及要求：设计任务：物流管理系统的开发要 求：1. 内容要求：系统由系统管理模块、会员卡管理模块、会员档案管理模块等模块 组成。（1）系统管理模块：包括修改密码、添加车辆、添加货物等功能（2）查询管理模块：对客户、车辆、货物的查询、运费计算等功能（3）客户档案管理：客户基本信息的添加、删除、修改。2设计要求：建立一个工程，将完成本题目创建的所有文件添加到工程中； 根据题目的要求建立数据库，库中

2、建立所需的表。数据表之间根据需要建立必要 的联系。用窗体设计一个漂亮的系统封面。将完成的全部内容生成一个.exe文件. 所有的界面请尽可能设计的直观、漂亮一些。二、指导教师评语：二、成绩指导教师签名：年月 日物流管理系统1.选题的意义随着社会的进步， 现代物流行业有了突飞猛进的发展。 目前我国各类物流企业有 十四万家左右， 展望整个二十一世纪， 现代物流业还有更大的发展空间。 我国国民经 济连续多年高速增长，为现代物流发展创造了良好的条件。在发达国家， 物流理论促使物流实践快速发展。 经济全球化及现代物流业发展的 系统化、 信息化、仓储运输的现代化和综合化等趋势， 对我国物流业的发展提出了全

3、方位的挑战。 传统物流行业的操作模式已经不再适应现代物流行业， 如何缩短物流过 程，降低产品库存，加速对市场的反应，这是物流行业所面临的问题。本系统就是针 对这些问题而开发的一套物流管理系统。为开发本系统使用了基本控件，数据库和手动添加的控件。2. 系统功能需求分析2.1 系统概述物流管理系统是集现代运输、仓储配送、搬运、调度为一体的网络系统，系统 开发实现了物流各环节的有机结合。2.2 系统的组成及各模块的功能物流管理系统由基本信息设置、 货物托运管理、 信息查询、 系统管理等模块组 成，系统功能模块如下：（1）基本信息模块 该模块主要负责完成员工信息设置、会员信息设置和车辆信息设置。（2）

4、货物托运管理模块 该模块主要由车辆调度安排、托运申请单管理、货物托运单管理组成。（3）信息查询模块 该模块由货物申请单查询、车辆调度信息查询、货物托运信息查询组成。（4）系统管理模块 该模块由查看、删除日志、用户管理、数据备份、数据更新及部分组成。2.3 系统的运行环境1. 系统使用环境操作系统 : Windows 2000/XP系统支持： Visual basic 6.0 及以上版本支持库数据库： Access。硬件环境：处理器 ; Intel Pentium 166MX 或者更高。硬盘：剩余使用空间1GB以上。内存：32MB以上。显卡：SVGA显示适配器。2. 系统开发环境操作系统：Win

5、 dows 2000/XP。系统支持：Visual Basic 6.03系统设计3.1总体结构设计3.2数据库实现字段名称会员卡号会员姓名联系电话详细地址登录密码基 本 信 息 设 置系统登录间 彳 H 冷 甜 H 间表物流会理系档案数据表数据类型AA-J/I-I 丿 J 二文本货物托运管2理员工信息数据表字段大小255255字段名称数据类型字段大小姓名文本255编号文本255联系电话文本255登录密码文本255表3 货物数据表字段名称数据类型字段大小货物名称文本255货物单号文本255表货物重量数字长整型会员编号文本255会员姓名文本255车辆编号文本255发货日期日期/时间到货日期日期/时

6、间发送费用数字长整型目的地点文本255运送情况文本255流水账号文本255备注文本255发送地点文本255收件人文本255表4车辆数据表字段名称数据类型字段大小车辆编号文本255车牌号码文本255司机姓名数字长整型联系编号数字长整型备注文本255表5托运表字段名称数据类型字段大小流水账号文本255车辆编号文本255会员编号文本255发车时间文本255到达时间文本255出发地文本255目的地文本255备注文本255状态文本2554系统实现4.1登录模块的设计与实现图2身份选择界面Private Sub Comma nd1_Click()Select Case Combo1.Listl ndexC

7、ase 0Form3.ShowForm1.HideCase 1Form2.ShowForm1.HideEnd SelectEnd SubPrivate Sub Timer1_Timer()Label3.Caption = 现在时间为： & TimeEnd Sub图 3 员工登录界面Private Sub Command1_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 员工信息 where 编号 = & Text1.Text & and 登录密码= & Text2.Text & Adodc1.Re

8、freshMsgBox 登录失败 , 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 SubPrivate Sub hwtygl_Click()Form8.ShowEnd SubPri

9、vate Sub jbxxck_Click()Form6.ShowEnd SubPrivate Sub tcxt_Click()Form1.ShowForm11.HideEnd Sub图5员工基本信息Private Sub Form_Load()Adodc1.Comma ndType = adCmdText员工信息 where编号=& kh & “Adodc1.RecordSource = select * fromAdodc1.RefreshEnd Sub图6货物托运管理Private Sub Text7_Cha nge()Text6.Text = Val(Text7.Text) * 10E

10、nd 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 Save()c = MsgBox( 确认保存信息吗？ , 32, 提示 )If c = vbOK ThenMsgBox 数据保存成功 , 64, 提示End IfEnd SubP

11、rivate 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 Comma nd1_Click()Text7.Text =在途”Adodc2.Comma ndType = adCmdTextAdodc2.RecordSo

12、urce = select * from 托运表 where 车辆编号=& Text1.Text & and 状态 is nullAdodc2.RefreshLoopEnd SubPrivate Sub Comma nd2_Click()Text7.Text =Adodc2.Comma ndType = adCmdTextAdodc2.RecordSource = select * from 托运表 where 车辆编号=& Textl.Text & and状态 =在途”Adodc2.RefreshLoopEnd SubPrivate Sub Toolbar1_Butto nClick(ByV

13、al Button As MSComctlLib.Butt on)Select Case Butt on.ln dexCase 1Text8.Text = Format(Now, yymmd)Case 2Call DeletesCase 3Call EditsCase 4Call SaveCase 5Call CancelCase 6Form7.HideForm11.ShowEnd SelectEnd SubPrivate Sub Save()c = MsgBox( 确认保存信息吗？ , 32, 提示 )If c = vbOK ThenMsgBox 数据保存成功 , 64, 提示End IfE

14、nd 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

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

16、还是符合管理者需求的，可以为管理用户使用。同时感谢一直对我课程设计提供帮助的刘仁芬老师，没有您的悉心指导，我不可能完成符合要求的合格的课程设计。与此同时，我也要感谢对我课程设计提供帮助的同学们， 是你们给予了我更多更 广泛的设计思路，才使得我的思维更加宽广，这对于我的课程设计来说，是一种莫大 的帮助，谢谢你们。同时，我也要再次感谢全体老师，是你们在辛勤地为我们做了许多我们不曾注重 的一些细节问题，为我们无论是在设计上还是在论文中， 您们的劳动都是我的毕业设 计能够完成不可缺少的因素。由于本人水平有限，再设计思路和技术方法上可能比较愚钝，在开发语言的掌握 上可能相对肤浅，所以反应到系统中，难免存

17、在许多不足之处，殷切希望各位老师批 评、指正。5.2存在的主要问题在这次实践中我们体会到了以前在课本上无法理解和没有见到过的知识，提高自身的知识面和实践能力，收获颇丰。这样的项目对我们学过的数据结构，程序设计， 数据库，软件工程，等课程是一个综合性很高的实践。经历这一段时间的实践，我们 对原来学习的知识有了更深刻的认识， 也学习到了大量的新知识，提高了实际应用的 能力。另外我还充分体会了从事软件开发工作需要特别谨慎认真地态度和作风， 一点都不 能马虎。每个细微的细节都必须十分注意，如果考不认真思考决策，就会出现或大或 小的错误。如果早期的错误隐藏下来，对后面的工作影响就会很大，有时候会弄的满 盘皆输的后果。 我们不得不对软件的每一步进行检查， 给我们的信