物流管理信息系统设计报告

物流管理系统设计报告

电子商务物流管理信息系统

对于物流管理信息系统，其包括以下这些模块：基本信息模块、订单管理模块、运输管理模块、仓库管理模块、客户关系管理模块、财务管理模块、业绩管理模块。这几大模块分别实现了不同的功能，此次我们小组编写代码实现了基本信息管理模块并对其他各模块进行了设计分析。

基本信息管理模块

该模块由ASP为搭载，通过ASP连接数据库来实现对基本信息的管理。该模块主要的功能包括登录页面，基本信息查询，信息插入，信息修改，信息删除等功能。下面是各个功能的简单介绍（包含代码）。

一、登陆界面

该部分包括用户名，密码以及验证码的输入。用户名和密码将保存在后台数据库当中，该部分同时包含了验证码的功能。一共包含两个ASP文件，一个是登陆界面的设计，另一个用于连接数据库以及判断用户名，密码以及验证码。（1）登陆界面截图

（2）代码

1.admin_index

电子商务物流管理信息系统 基本信息管理 method="post"action="admin_check.asp?action=login"> color="#FFFFFF">用户名： class="login"> 密码： color="#FFFFFF">验证码：

2.admin_check

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

dim action,rs,sql,Username,Password,code

action=request.QueryString("action")

if action="login" then

Username=request.Form("username")

Password=md5(request.Form("password"))

if Username="" or Password="" then

response.write("")

response.end

end if

code=replace(trim(Request.form("txt_check")),"'","")

if code="" then

response.write("")

response.end

end if

if code<>CStr(session("validateCode")) then

response.write("")

response.end

end if

set rs=server.CreateObject("adodb.recordset")

sql="select * from admin where name='"&Username&"' and

password='"&Password&"'"

rs.open sql,conn,1,1

if rs.eof then

rs.close

set rs=nothing

response.write("")

else

session("adminname")=Username

session("adminpwd")=Password

response.Redirect("index.asp")

rs.close

set rs=nothing

end if

end if

%>

二、主界面?

该部分的主要功能是连接查询界面。

（1）界面截图?

（2）代码

1.index.asp

基本信息查询与操作

项目	查询
区域资料	查询
计费资料	查询
货主资料	查询
仓库资料	查询
运输资料	查询
报表	查询

三、查询功能

（1）界面截图

（2）代码

1.select1.asp

区域资料

<%

Dim conn,strConn

Set conn=Server.CreateObject("ADODB.Connection")

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &

Server.MapPath("manage.mdb")

conn.Open strConn

Dim rs,strSql

strSql="Select * From 区域资料Order By ID DESC"

Set rs=conn.Execute(strSql)

%>

插入数据

<%

Do While Not rs.Eof

%>

<%

rs.MoveNext

Loop

%>

城市	所属区域	城市负责人	区域负责人	删除	更新
<%=rs("城市")%>	<%=rs("所属区域")%>	<%=rs("城市负责人")%>	<%=rs("区域负责人")%>	">删除	">更新

返回

四、删除功能

（1）代码

<%

Dim conn,strConn

Set conn=Server.CreateObject("ADODB.Connection")

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &

Server.MapPath("manage.mdb")

conn.Open strConn

Dim strSql

strSql="Delete From 区域资料Where ID="&Request.QueryString("id")

conn.Execute(strSql)

response.redirect("select1.asp")

%>

五、更新功能

（1）界面截图

（2）代码

1.update-form.asp

更新信息

<%

Dim conn,strConn

Set conn=Server.CreateObject("ADODB.Connection")

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("manage.mdb")

conn.Open strConn

Dim strSql,rs

strSql="Select * From 区域资料Where ID=" & Request.QueryString("ID")

Set rs=conn.Execute(strSql)

%>

城市	">
所属区域	">
城市负责人	">
区域负责人	">
value="<%=rs("ID")%>">

（2）update.asp

<%

Dim ID,strCity,strArea,strCityman,strAreaman

ID=cint(request.Form("txtID"))

strCity=request.Form("txtcity")

strArea=request.Form("txtarea")

strAreaman=request.Form("txtareaman")

strCityman=request.Form("txtcityman")

Dim conn,strConn

set conn=server.CreateObject("ADODB.Connection")

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data

Source="&Server.MapPath("manage.mdb")

conn.Open strConn

Dim strSql

if strCity<>"" and strArea<>"" and strAreaman<>"" and strCityman<>"" then strSql="Update 区域资料Set 城市='"& strCity &"',所属区域='"& strArea &"',城市负责人='"& strCityman &"',区域负责人='"& strAreaman &"'Where ID="&ID conn.Execute(strSql)

response.redirect("select1.asp")

end if

%>

六、插入功能

（1）界面截图

（2）代码

Insert.asp

添加新数据

城市
所属区域
城市负责人
区域负责人

<%

Dim strCity,strArea,strAreaman,strCityman

strCity=trim(Request.Form("txtcity"))

strArea=trim(Request.Form("txtarea"))

strAreaman=trim(Request.Form("txtcityman"))

strCityman=trim(Request.Form("txtareaman"))

if strCity<>"" and strArea<>"" and strAreaman<>"" and strCityman<>"" then

Dim conn,strConn

Set conn=Server.CreateObject("ADODB.Connection")

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("manage.mdb")

conn.Open strConn

Dim strSql

strSql="Insert Into 区域资料(城市,所属区域,城市负责人,区域负责人) Values('" & strCity & "','" & strArea & "','" & strAreaman & "','" & strCityman & "')"

conn.Execute(strSql)

response.Redirect("select1.asp")

end if

%>

订单管理模块功能

订单管理师整个物流管理的起点，货主首先通过Internet网络，将托运或托管的货物清单送到物流管理部门，由其审核客户信用度后，在进行物流服务的策划。总体流程

1、订单处理

2、物流策划

针对订单选择合适的运输方式、运输分包商或仓储分包商，跟踪货物动态。货物动态跟踪系统

3、订单查询

运输管理模块

一、系统总体设计功能结构