物流管理系统论文范文 第2页
1 系统分析
1.1 需求分析
通过市场调查，要求本系统具有以下功能：
统一友好的操作界面，能保证系统的易用性。
规范、完善的基础信息设置。
灵活的报表设计及打印功能。
实现货物申请、托运、跟踪与验收的全过程。
全方位的信息查询功能。
系统日志详细记录各种操作，提供追查的有力依据。
完善的权限管理，增强系统的安全性。
强大的数据备份及恢复功能，保证系统数据的安全性。
1.2 可行性分析
由于传统物流行业操作过程复杂，手续繁多，业务信息多，围绕这些信息的处理也很纷杂。而且，物流行业竞争激烈，这种竞争，一方面表现在发展客户的市场开拓上，另一方面也存在于收集处理信息的速度、广度和深度，以及在业务操作中对业务数据处理的准确性和严密性，而更高层次上，还牵涉到公司决策层对整体业务的控制和协调。
物流管理系统从物流行业的实际需求出发，参照先进的物流理念和多家领先的物流公司实际的运营流程开发而成，系统从完善的基础信息设置到货物的托运管理、在线跟踪，信息查询、到最后各种报表的生成，清晰的业务流程，使操作人员能够按照流程清晰的进行实际的操作，保证物流运作有序而高效的进行。
2 总体设计
2.1 项目规划
物流管理系统是一个典型的数据库管理系统，系统由基本信息设置、货物托运管理、信息查询、报表管理、系统管理等模块组成，规划系统功能模块如下：
基本信息设置模块
该模块主要负责完成部门资料设置、职务信息设置、公司资料设置、员工资料设置、客户资料设置、司机资料设置和车辆资料设置。
货物托运管理模块
该模块主要由车辆调度安排、托运申请单管理、货物托运单管理、货物验收单管理和车辆配送跟踪记录单管理几部分组成。
信息查询模块
该模块由货物申请单查询、车辆调度信息查询、货物托运信息查询、货物托运验收查询和车辆在途跟踪查询几部分组成。
报表管理模块
包括货物申请单报表、货物托运单报表和货物验收单报表3部分。
系统管理模块
包括查看日志、删除日志、用户管理、数据备份、数据恢复和系统数据清理几部分。
2.2 系统功能结构图
物流管理系统的系统功能结构图如图1所示。
图1 系统功能结构图
3 详细设计
3.1 系统登录设计
系统登录主要用于对登录物流管理系统的用户进行安全性检查，以防止非法用户登录该系统。根据给管理员分配的权限，登录用户可以根据自己所具有的权限操作系统中相应的功能。
在登录系统时验证操作员及其密码，主要通过ADO控件中记录集（RecordSet）对象结合If语句判断用户选定的操作员及其输入的密码与数据库中的操作员和密码是否相同来实现，如果相同则允许登录，并给予相应的权限，否则将不允许用户登录。
系统登录的运行结果如图2所示。
图2 系统登录窗体的运行结果
1．窗体设计
（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 系统登录窗体的设计界面
2．代码设计
在代码窗口的声明部分定义如下变量：
Dim itmX As ListItem '定义一个ListItem对象
Dim key As String '定义字符串变量
在窗体装载事件中，通过ADO控件的ConnectionString属性建立数据库连接，同时将所有操作员的姓名添加到Cbx_Name控件当中，代码如下：
Private Sub Form_Load()
Call WHScreen '调用获取屏幕分辨率的过程函数
'使用代码连接数据库与数据表
Adodc1.ConnectionString = PublicStr
Adodc1.RecordSource = "select * from tb_user"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Cbx_Name.Clear '在添加数据时，首先清空控件中的内容
Do While Adodc1.Recordset.EOF = False '将操作员信息添加到ListView控件当中
Cbx_Name.AddItem (Adodc1.Recordset.Fields("user_name"))
Adodc1.Recordset.MoveNext
Loop
End If
If TWidth <= 800 Or THeigth <= 600 Then '判断屏幕分辨率的大小
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>