现代物流系统的分析与设计目录引言 (3)一、系统分析 (4)（一）需求分析 (4)（二）可行性分析 (4)二、总体设计 (4)（一）项目规划 (4)（二）系统功能结构图 (5)三、详细设计 (6)（一）系统登录设计 (6)（二）窗体设计 (7)（三）代码设计 (7)（四）车辆调度安排 (10)（五）托运申请单管理 (14)（六）货物托运管理 (17)（七）在途跟踪管理 (26)（八）信息查询 (31)四、结论 (37)致谢 (38)参考文献 (39)摘要随着市场经济的高速发展，制造业、商业企业逐步接受着第三方物流服务。
越来越多的企业认识到物流企业外包是降低成本、提高服务水平的有效渠道。
物流管理的特点是以客户为核心、构建面向客户的业务流程支持各种形式、各种需求的现在企业中的业务模式。
系统支持多形式客户的数据共享、提高作业效率、监控整个流程、提供完整的货品、进行订单跟踪，并且特别关注对各环节业务的监控及例外情况的监控。
关键词： 1、客户 2、物流 3、物流管理系统引言在当今高速发展的信息社会，现代物流行业突飞猛进发展，伴随着我国国民经济连续多年的高速增长，为现代物流发展创造了良好的条件。
目前，我国各类物流企业有14万家左右，展望整个21世纪，可以说现代物流业还将有更大的发展。
在发达国家，物流理论促使物流实践快速发展。
经济全球化及现代物流业发展的系统化、信息化、仓储运输的现代化和综合化等趋势，对我国物流业的发展提出了全方位的挑战。
传统物流行业的操作模式已经不适应现代的物流行业，如何缩短物流过程，降低产品库存，加速对市场的反应，这是所有企业所面对的问题。
本系统就是针对这些问题根据中小型企业的实际需求而开发的一套物流管理系统。
系统的开发能够帮助企业实现对物流全过程的优化调度和动态控制，高效整合企业的物流业务，以全面提高经济效益和效率为目的，提供高效、实用、技术的物流管理系统和运营手段。
物流管理系统是集现代运输、仓储配送、搬运、调度、跟踪为一体的网络系统，系统的开发实现了商品从原料供应商、制造商、分销商到零售商再到消费者的各个环节的有机结合。
一、系统分析（一）需求分析1、通过市场调查，要求本系统具有以下功能：（1）统一友好的操作界面，能保证系统的易用性。
（2）规范、完善的基础信息设置。
（3）灵活的报表设计及打印功能。
（4）实现货物申请、托运、跟踪与验收的全过程。
（5）全方位的信息查询功能。
（6）系统日志详细记录各种操作，提供追查的有力依据。
（7）完善的权限管理，增强系统的安全性。
（8）强大的数据备份及恢复功能，保证系统数据的安全性。
（二）可行性分析1、由于传统物流行业操作过程复杂，手续繁多，业务信息多，围绕这些信息的处理也很纷杂。
而且，物流行业竞争激烈，这种竞争，一方面表现在发展客户的市场开拓上，另一方面也存在于收集处理信息的速度、广度和深度，以及在业务操作中对业务数据处理的准确性和严密性，而更高层次上，还牵涉到公司决策层对整体业务的控制和协调。
2、物流管理系统从物流行业的实际需求出发，参照先进的物流理念和多家领先的物流公司实际的运营流程开发而成，系统从完善的基础信息设置到货物的托运管理、在线跟踪，信息查询、到最后各种报表的生成，清晰的业务流程，使操作人员能够按照流程清晰的进行实际的操作，保证物流运作有序而高效的进行。
二、总体设计（一）项目规划1、物流管理系统是一个典型的数据库管理系统，系统由基本信息设置、货物托运管理、信息查询、报表管理、系统管理等模块组成，规划系统功能模块如下：（1）基本信息设置模块该模块主要负责完成部门资料设置、职务信息设置、公司资料设置、员工资料设置、客户资料设置、司机资料设置和车辆资料设置。
（2）货物托运管理模块该模块主要由车辆调度安排、托运申请单管理、货物托运单管理、货物验收单管理和车辆配送跟踪记录单管理几部分组成。
（3）信息查询模块该模块由货物申请单查询、车辆调度信息查询、货物托运信息查询、货物托运验收查询和车辆在途跟踪查询几部分组成。
（4）报表管理模块包括货物申请单报表、货物托运单报表和货物验收单报表3部分。
（5）系统管理模块包括查看日志、删除日志、用户管理、数据备份、数据恢复和系统数据清理几部分。
（二）系统功能结构图1、物流管理系统的系统功能结构图如图1所示。
图1 系统功能结构图三、详细设计（一）系统登录设计1、系统登录主要用于对登录物流管理系统的用户进行安全性检查，以防止非法用户登录该系统。
根据给管理员分配的权限，登录用户可以根据自己所具有的权限操作系统中相应的功能。
2、在登录系统时验证操作员及其密码，主要通过ADO控件中记录集（RecordSet）对象结合If语句判断用户选定的操作员及其输入的密码与数据库中的操作员和密码是否相同来实现，如果相同则允许登录，并给予相应的权限，否则将不允许用户登录。
系统登录的运行结果如图2所示。
图2 系统登录窗体的运行结果（二）窗体设计1、在工程中新建1个窗体，将窗体的名称设置为“frm_xtdl”，BorderStyle属性设置为“0-None”，通过设置Picture属性为窗体添加图片。
2、在窗体上添加Adodc控件，由于该控件属于ActiveX控件，在使用之前必须从“部件”对话框中添加到工具箱。
添加方法如下：在“工程”/“部件”对话框中勾选“Microsoft Ado Data Controls 6.0(SP4)”列表项，单击【确定】按钮之后即可将Ado控件添加到工具箱当中。
3、在窗体中添加1个ComboBox控件和文本框控件,分别设置名称为Name属性为“Cbx_Name”和“txt_Password”，设置BorderStyle属性为“0-None”，将ComboBox 控件的Text属性设置为“MR”。
4、在窗体中添加2个CommandButton控件，分别将Name属性设置为“Cmd_Ok”和“Cmd_Cancel”，Caption属性设置为“登录”和“取消”。
登录窗体的设计结果如图3所示图3 系统登录窗体的设计界面（三）、代码设计1、在代码窗口的声明部分定义如下变量：Dim itmX As ListItem '定义一个ListItem对象Dim key As String '定义字符串变量2、在窗体装载事件中，通过ADO控件的ConnectionString属性建立数据库连接，同时将所有操作员的姓名添加到Cbx_Name控件当中，代码如下：Private Sub Form_Load()Call WHScreen '调用获取屏幕分辨率的过程函数'使用代码连接数据库与数据表Adodc1.ConnectionString = PublicStrAdodc1.RecordSource = "select * from tb_user"Adodc1.RefreshIf Adodc1.Recordset.RecordCount > 0 ThenAdodc1.Recordset.MoveFirstCbx_Name.Clear '在添加数据时，首先清空控件中的内容Do While Adodc1.Recordset.EOF = False '将操作员信息添加到ListView 控件当中Cbx_Name.AddItem (Adodc1.Recordset.Fields("user_name")) Adodc1.Recordset.MoveNextLoopEnd IfIf TWidth <= 800 Or THeigth <= 600 Then '判断屏幕分辨率的大小Exit SubElseChangeScreen '调整屏幕分辨率End IfEnd Sub3、单击【确定】按钮，如果输入的操作员姓名和口令正确，则通过身份验证，登录到系统当中。
设计思路：通过SQL语句查询输入的用户名和密码信息在数据库中是否存在，如果查询到符合条件的记录信息则显示系统主窗体，登录到系统当中，实现的程序代码如下：Private Sub Cmd_Ok_Click()Dim MPassword As StringIf Cbx_Name.Text = "MR" And Txt_Password.Text = "mingrisoft" Then '判断是否使用的是超级口令登录Frm_Main.StatusBar1.Panels.Item(2).Text = "当前操作员： MR"Name1 = Cbx_Name.Text '将操作员姓名信息赋予全局变量Name1 Unload MeFrm_Main.Show '显示系统主窗体ElseAdodc1.RecordSource = "select * from tb_user where user_name ='" &Cbx_Name.Text & "'"Adodc1.RefreshIf Adodc1.Recordset.RecordCount > 0 ThenMPassword = Adodc1.Recordset.Fields("user_mm")If Txt_Password.Text = MPassword Then '判断数据的密码是否正确Name1 = Cbx_Name.TextFrm_Main.StatusBar1.Panels.Item(2).Text = "当前操作员： " + Adodc1.Recordset.Fields("user_name")Frm_Main.Show '通过身份验证则显示主窗体，登录到系统当中Unload MeElseMsgBox "密码不正确,请您确认后重新输入", , "提示信息"Txt_Password.Text = ""Txt_Password.SetFocusEnd IfElseMsgBox "对不起没有此用户的信息", , "提示信息"Cbx_Name.Text = ""Txt_Password.Text = ""End IfEnd IfEnd Sub4、如果在输入密码的文本框中按下〈Enter〉键，则将调用【确定】按钮的单击事件，判断登录用户是否合法，代码如下所示。