物流管理信息系统课程设计.docx

编号：
时间：2021年x月x日

书山有路勤为径，学海无涯苦作舟
页码：第- 40 -页 共41页

目录
第一章 系统设计及开发的可行性分析 1
1 .1经济可行性系统的初步调查 2
1.2 系统开发的必要性 6
1.3 技术可行性分析 6
1.4 经济可行性研究 6
第二章 系统分析 8
2.1 需求分析 8
2.2 组织结构分析 8
2.3业务流程分析 9
2.4数据流程分析 9
第三章 系统设计 12
3.1系统总体结构设计 12
3.2代码设计 13
3.3数据结构设计 32
3.4 输入输出界面设计 32
第四章 课程设计的总结和体会 37
4.1 课程设计的总结 37
4.2课程设计的体会 37
参考文献 38

第一章 系统设计及开发的可行性分析
1 .1经济可行性系统的初步调查
1.1.1企业概况
湖南长沙家润多超市有限公司是由全国零售业前十强企业湖南友谊阿波罗股份有限公司全资控股的子公司。公司的第一家门店于2000年9月28日在长沙市朝阳区开业，至今在湖南省拥有家润多朝阳店、千喜店、赤岗冲店、常德店、益阳店、岳阳店、浏阳店、吉首店、衡阳店、郴州店等多家大型超市。家润多超市从2000年10月开始在其供应商中间推广9448-SCM供应链管理解决方案。家润多的供应商可通过9448网站的供应链管理平台，共同分享销售、库存、结算等商业数据，共同进行品类分析和管理。该平台在家润多超市1352家供应商中，推广率达到91％。该平台不仅帮助家润多超市节省了大量的结算人力，也让供应商体会到了网络技术带来的便捷。
2002年1月lO日，家润多物流配送中心正式投入运营。同时。公司向国内知名商业ERP供应商武汉富基公司购买了一套连锁超市ERP管理软件，对超市进行信息化管理。在购买的软件与家润多运作模式出现了一些不协调之后，超市于2004年开始，委托友谊阿波罗集团旗下的远征软件公司，根据家润多超市本身的需求重新开发了一套超市管理信息系统。
家润多超市之所以能在竞争激烈的湖南商业圈内立足不败，与其在信息技术上的不断革新是密不可分的。
1.1.2组织结构
1 家润多超市总体结构
家润多超市采取总部、门店、物流中心的整体架构，总部统一管理、统一结算，物流中心统一采购。以总部为主体，在全省各县市开设大型卖场
(1)通过营运部的管理以及对城市财务中心或地区配送中心的监控实现对
各门店的管理与控制；
(2)通过统一的信息管理系统实现整体的统一；
(3)通过计算机联网方式实现信息数据的共享：

总部

财务部
地区配送中心块
营运部

城市财务中心
城市配送中心块
分店（1….n）

分店出纳

图1.1 家润多超市总体框架图
2 家润多总部的机构设置
总部是公司的管理机构，是经营决策部门，是整个系统运营的信息控制中心。其职能是负责网点开发、商品开发、经营计划和发展战略，财产和资金管理、成本核算、往来结算、税收、利润分配、流转票据统一管理等。总部的业务涉及财务部门、业务部门、供货厂商、客户、银行等往来单位。收集、汇总、分析各门店的补货、销售信息和物流中心的库存信息，及时与供货厂商沟通，调整经营策略，向物流中心下达配送、进货等指令，指导整个连锁系统的经营活动。如下图。
人事部
财务部
门店出纳
工程部
发展部
咨询部
市场部
营运副总经
总经理
商品部
城市财务中心
门店维修部
门店咨询部
营运部
门店（1...n）
地方性采购
门店运营管理
全国性采购
门店人事部
门店公关部

图1.2家润多超市总部机构图
(1) 入力资源部
负责人事档案管理、人员招聘考核、人员培训、人员考勤、工资计算。通过电脑网络系统有权查阅各分店的人事档案资料，可直接与分店人力资源部发生工作关系。
(2) 资讯部
信息系统的需求分析，电脑系统的开发，电脑软硬件的维护维修，操作流程的培训，保证总部与门店之间信息传递的顺畅，可直接与门店电脑资讯部发
生工作关系。
(3) 财务部
负责供应商的结算、工资的发放、财务报表的制定、资金方面的管理。通过电脑网络系统有权调阅、监督门店或地区财务中心的相关财会报表，直接监控公司在全省各地区的财务结算中心，可直接与门店财务部发生工作关系。
(4) 发展部
负责新店的选址及场地的谈判。
(5) 工程部
负责新店的设计，工程实施及店内设备，小资产的采购。
(6) 商品部
是卖场流通业务开展的主要部门，包括采购预算、新品的引进、供应商的硕士学位论文第3章湖南家润多超市管理信息系统应用现状分析引进、淘汰及谈判、商品的促销、商品价格的交动、门店销售的分析。
(7) 营运部
负责管理并控制各分店的营运及分店卖场内的货架排面管理。
(8) 市场部
负责公司总体促销策略、广告宣传的策划，并对促销效果作出分析、评估；对商品的进销存数据进行详细的分析，对商品、采购的业绩加以评估。
1.1.3现行系统存在的问题
家润多连锁超市管理信息系统整个停留在功能全面的MIS系统层面，尤其没能够达到真正的管理信息系统所期望的辅助决策分析的功能，其根本原因在该系统在决策分析上是采用事务型处理而非分析性处理。如；物流中心在进货、补货的问题上通常是依靠管理人员的判断，或者干脆等到商品断货再补货，这样的方式受主观因素影响严重，容易引起商品的滞销或脱销。要达到科学选择进货商品，优化进货流程的目的，就必须对以往的商品销售数据进行分析，并在基础上制定进货方案。管理信息系统是将企业所有资源进行整台集成管理，简单的说是将企业的三大流：物流、资金流、信息流进行全面一体化管理的管理信息系统。在一个缺乏决策支持系统的管理信息系统中，企业的资源无法达到最有效的使用。
1.1.4新系统开发的条件
基于旧的信息系统已经不能满足极润多超市的发展要求，资金尚且足够，研发新软件的资金也足够，技术上夜能给予很大的支持。家润多超市已经具备开发信系统的条件。
1.2 系统开发的必要性
1.2.1竞争：
家润多近几年的经营状况并不是非常理想。在湖南地区，像沃尔玛，步步高，大润发，家乐福等这样的实力雄厚的大型超市林立其中。家润多超市这样一个起步晚，实力较弱的超市要在湖南继续生存，谋求发展，改革势在必行。旧的管理信息系统已经跟不上时代的发展，满足不了超市的发展，新管理信息系统的开发迫在眉睫。
1.2.2采购、销售、储存：
物流管理信息系统是指与物流活动有关的信息。在物流活动的管理与决策中，具有支持与保障的功能。对于超市的采购、销售、储存和财务四个方面来说，信息系统是必不可少的。如果事事都让人去一步一步的来做，将会很费时，费力，费钱。在采购管理、销售管理、储存管理、财务管理等活动中，信息系统能起到支持保障功能。
1.3 技术可行性分析
在家润多连锁超市管理信息系统中，业务系统采用了C，s结构，网上的订货系统和远程决策系统采用B／S结构。系统是基于P Ⅳ微处理器, Window s 2000 操作系统和VB6. 0, Off ice XP 的软件环境, 能够满足系统开发的软件要求, 安全可靠, 开发人员对其也容易熟练掌握。在IT行业中从业的工作人员一般都要求掌握计算机技术，具有一定的软硬件基础，会使用各种管理软件，熟悉IT产品。因为，有的超市对员工的素质要求比较高，从管理层到下面的销售人员，都要求具有一定的计算机基础，所以在新系统投入使用时，只要对员工进行少量的培训，系统的功能和使用方法就基本上能够是系统顺利运行。
1.4 经济可行性研究
1.4.1超市有能力承担系统开发费用
开发新系统的工作是一项间距复杂的工作，它的投资主要是人力和物力的投资。对于本系统的开发者来说，其主要投资还是在人力和物力两个方面。如果是企业自己安排人手开发系统的话，其主要的投资还是在人力资源上，从系统的业务需求调查到系统的分析编码制作都是需要巨大的人力投入的。软件企业作为一个简短的高科技产业，其员工要求都比一般企业的要求要高，而且对系统开发及软件产业了解比较多，所以在自我开发管理系统的过程中，企业自己比较容易安排人手，这样就可以为企业借阅大部分的额外开支。同时软件就其它产品来说，属于高端行业，无论是产品的价格还是质量都比较高，而经营产品的经销商或者是商家都要求有雄厚的资金支持。所以，在系统的开发过程中，企业完全有能力承担开发费用。
1.4.2新系统将为企业带来经济效益
销售管理系统是一个信息化、智能化和先进管理理念的集合体。而销售管理是一个动态过程，在其运行过程中要采取多项措施。所以在管理中获得经济效益是一个综合效益，要对它进行直接定量的分析是比较困难的。一般新系统带来的经济效益是简介的，其最主要的表现就是能够及时地了解超市每日的销售情况，据此还可实现短缺商品的配送。而其它一些繁琐的食物都通过新系统来加以分析解决，不仅节省了大量的时间，还为企业的各项决策提供了宝贵的资料，为企业带来巨大的经济效益。

第二章 系统分析
2.1 需求分析
把握市场动向，提高销售利润是企业的最终目标。在企业管理日趋科学化的今天，如何准确及时地进行经营决策是企业老总面临的严峻问题。这要求决策者准确及时地捕捉到销售信息，分析销售情况，随时根据历史的销售情况，对下一步的经营科学地进行决策。销售分析需要的基础数据涉及到的模块有销售、库存和财务，能够围绕销售合同，历史销售数据、应收款、财务、库存等多角度进行分析，并给出如销售趋势、产品需求趋势等辅助决策信息。具体地，采用决策支持系统进行销售分析可以帮助企业解决的问题有：某段时闻内的商品销售情况分析；当天商品销售的时段分析：某商品在某段时间内促销的情况分析；同一种品如何根据不同情况制定不同的价格策略；产品销售收入及获利情况分析，何种产品在给定的分析条件下的销售量最大?决策支持系统根据企业需要解决的问题，帮助企业建立相应的分析主题和分析指标，从业务系统的基础数据库中抽取需要的数据，按预先建立的业务模型进行分析决策，分析结果显示直观、形象。决策者只需要简单地点取操作，便可以从决策支持强大的销售分析工具中获得所需的决策信息。
2.2 组织结构分析
根据调查结果，企业人事部将安排专职人员对超市的销售情况进行监督管理，也就说本销售系统开发出来后会有专业人员来操作执行。该管理软件将根据用户的需要销售情况进行查询，并能打印详细信息。
销售信息查询
销售信息维护
销售信息盘点
超市销售系统

图2.1 组织结构图
2.3业务流程分析
根据分析，本系统业务流程主要包括如下内容：
顾客发订单给销售部门销售部门经过订单检查，把不合格的订单反馈给客户对合格的订单，通过核对库存记录，缺货订单通过缺货统计，向采购部门发出缺货通知，并登记缺货记录；对于可供货订单，登记客户档案，开出备货单，通知仓库备货。保存订单数据，并进行销售统计。销售部门业务流程图：
销售人员
顾客
采购员
不合格订单
订单
发货票
库存信息
到货通知单
缺货单

图2.2 销售部业务流程图
2.4数据流程分析
根据调查结果绘出销售系统数据流程图如下：
2.4.1 0层数据流程图
顾客档案
P0
业务
处理
顾客订货
销售统计表
库存记录

图2.3 0层数据流程图
2.4.2 1层数据流程图

校验
数据
缺货通知
P2
缺货
统计
缺货货单
少供货货单
P3
备货
处理
库存记录
销售统计表
P1
可供货货单
不合格货单
缺货货单
顾客档案
顾客货单
校验
数据

图2.4 1层数据流程图

2.4.3 2层数据流程图

S1.1
顾客
D1.1
新顾客
登记表
P1.1
登录新顾客的数据
F1.1
顾客档案

S2.1
供应商
D2.1
发货通知
P2.1
处理
发货单
F2.1
发货单
S3.1
仓库
D3.1
备货单
P3.1
处理
备货单
F3.1
库存记录
销售统计表
F3.2
S3.2
超市
D3.2
发货单
P3.2
销售
统计

图2.5 2层数据流程图

第三章 系统设计
3.1系统总体结构设计
根据系统分析的结果，本系统分为四个子模块：定货处理模块、缺货处理模块、提货处理模块和系统管理模块，如图所示：
超市销售管理系统

系统管理模块
提货处理模块
进货处理模块

订货处理模块

增加库存量
输入进货单
用户设置
系统初始化

缺货记录登记
库存记录修改
确定能否提供货
输入并检验订单
读库存记录

缺货订单处理
可供货处理

减少库存量

3.1 系统总体结构功能图
3.2代码设计
登陆页面：
<HTML>
<HEAD>
<Title>index.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
<script language="javascript">
function validate( ) //检查用户名或密码不能为空
{
if((document.login.username.value.length==0)||(document.login.password.value.length==0)){
alert("用户名和密码都不能为空！！！");
return false;
}
return true;
}
</script>
</HEAD>
<BODY>
<center>
请先选择登录身份再登录
<form name="login" onsubmit="return validate()" action="logincheck.asp" method="post">
选择登录身份：<select name="position" SelectedIndex=1>
<option value="user">顾客身份</option>
<option value="manager">管理员身份</option>
</select><br>
姓名：<input name="username" type="text"><br>
密码：<input name="password" type="password"><br>
<input type="submit" value="登录"><br>
</form>
如果没有账号，请点击下面的注册按钮
<form name="regist" action="regist.asp" method="post">
<br>
<input type="submit" value="注册">
</form>
<br>
</center>
<%
%>
</BODY>
</HTML>
获取数据：
<HTML>
<HEAD>
<Title>logincheck.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
<script language="vbscript">
dim name,password
</script>
</HEAD>
<BODY>
<%
name=trim(Request("username")) '获取用户名
password=trim(Request("password")) '获取用户密码
set conn=Server.CreateObject("ADODB.connection")
conn.Open"mydata"
set rs=Server.CreateObject("ADODB.Recordset")
if(request("position")="user") then '选择用户表还是管理员表
strsql = "select * from user where username='"& name &" 'and password= '"& password &"'"
else
strsql = "select * from manager where username='"& name &" 'and password= '"& password &"'"
end if
rs.open strsql,conn
if rs.eof then
response.Redirect"error.asp"
else if(request("position")="user") then '如果登录身份是顾客，则跳转到顾客页面
response.Redirect "user.asp"
else
response.Redirect"manager.asp"
end if
end if
rs.Close
conn.Close
%>
</BODY>
</HTML>
系统检查：
<HTML>
<HEAD>
<Title>logincheck.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
<script language="vbscript">
dim name,password
</script>
</HEAD>
<BODY>
<%
'请在这里输入您的ASP代码
name=trim(Request("username")) '获取用户名
password=trim(Request("password")) '获取用户密码
set conn=Server.CreateObject("ADODB.connection")
conn.Open"mydata"
set rs=Server.CreateObject("ADODB.Recordset")
if(request("position")="user") then '选择用户表还是管理员表
strsql = "select * from user where username='"& name &" 'and password= '"& password &"'"
else
strsql = "select * from manager where username='"& name &" 'and password= '"& password &"'"
end if
rs.open strsql,conn
if rs.eof then
response.Redirect"error.asp"
else if(request("position")="user") then '如果登录身份是顾客，则跳转到顾客页面
response.Redirect "user.asp"
else
response.Redirect"manager.asp"
end if
end if
rs.Close
conn.Close
%>
</BODY>
</HTML>
顾客使用：
<HTML>
<HEAD>
<Title>user.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
</HEAD>
<BODY>
<center><h1>用户订货页面</h1></center>
<%
set conn=Server.CreateObject("ADODB.connection")
conn.Open"mydata"
set rs=Server.CreateObject("ADODB.Recordset")
strsql = "select * from products"
rs.open strsql,conn
%>
<table border=1>
<tr>
<%for i=0 to rs.fields.count-1 '显示记录集的字段数
%><th><%=rs(i).name '显示字段名
%></th>
<%next%>
</tr>
<%while not rs.eof%>
<tr>
<% for i=0 to rs.fields.count-1%>
<td><%=rs(i) '显示字段值
%></td>
<%next%>
</tr>
<%
rs.movenext
wend
rs.close
conn.close
%>
</table>
<form action="userupdate.asp" method="post">
订单
产品ID号：<input type="text" name="id"><br>
订货数量：<input type="text" name="count"><br>
<input type="submit" value="提交订单">
</form>
</BODY>
</HTML>
顾客购买商品
<HTML>
<HEAD>
<Title>userupdate.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
<script language="vbscript">
dim id,count,minus
</script>
</HEAD>
<BODY>
<%
'请在这里输入您的ASP代码
id=trim(Request("id"))
count=trim(Request("count"))
set conn=Server.CreateObject("ADODB.connection")
conn.Open"mydata"
set rs=Server.CreateObject("ADODB.Recordset")
if (isnumeric(id))and(isnumeric(count)) then '判断输入的是否是数字
if (id=cstr(cint(id))) and (id>0)and (count=cstr(cint(count))) and (count>0)then'判断输入的是否是正整数
sql1="select * from products where id="& id
rs.Open sql1,conn
if rs.eof then
%>
<script language="vbscript">
msgbox "输入的ID号不存在！！请重新输入"
</script>
<center><h1>
订货失败！！
</h1>
<a href="user.asp">返回重新订</a>
</center>
<%
else
minus=CInt(rs.fields("库存量"))-count
if minus<0 then
%>
<script language="vbscript">
msgbox "库存量不足，请重新输入"
</script>
<center><h1>
订货失败！！
</h1>
<a href="user.asp">返回重新订</a>
</center>
<%
else
sql="update products set 库存量=库存量-"& count &" where id="& id
conn.Execute sql
%>
订货成功！！
<a href="user.asp">返回继续订</a>
<%
end if
end if
else %>
<script language="vbscript">
msgbox "输入的ID或者订货数量为非正整数！！请重新输入"
</script>
<center><h1>
订货失败！！
</h1>
<a href="user.asp">返回重新订</a>
</center>
<%
end if
else
%>
<script language="vbscript">
msgbox "输入的ID或者订货数量不是数字！！请重新输入"
</script>
<center><h1>
订货失败！！
</h1>
<a href="user.asp">返回重新订</a>
</center>
<%
end if
conn.Close
%>
</BODY>
</HTML>
管理员使用：
<HTML>
<HEAD>
<Title>manager.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
</HEAD>
<BODY>
<center>
<h1>管理员操作页面</h1>
</center>
<%
'请在这里输入您的ASP代码
set conn=Server.CreateObject("ADODB.connection")
conn.Open"mydata"
set rs=Server.CreateObject("ADODB.Recordset")
strsql = "select * from products"
rs.open strsql,conn
%>
<table border=1>
<tr>
<%for i=0 to rs.fields.count-1 '显示记录集的字段数
%><th><%=rs(i).name '显示字段名
%></th>
<%next%>
</tr>
<%while not rs.eof%>
<tr>
<% for i=0 to rs.fields.count-1%>
<td><%=rs(i) '显示字段值
%></td>
<%next%>
</tr>
<%
rs.movenext
wend
rs.close
conn.close
%>
</table>
<form name="f1" action="managerupdate.asp" method="post"> <!-- 修改单价或者库存量 -->
将ID号为<input type="text" name="id">的产品的
<select name="option" SelectedIndex=1>
<option value="单价（元）">单价(元)</option>
<option value="库存量">库存量</option>
</select>
改为<input type="text" name="newvalue"><br>
<input type="submit" value="修改">
</form>
<form name="f2" action="addproduct.asp" method="post">
增加一种产品，请输入对应项：<br>
<table border=1>
<tr>
<th>名称</th>
<th>单价（元）</th>
<th>计量方式</th>
<th>库存量</th>
<th>类别</th>
</tr>
<tr>
<td><input type="text" name="name"></td>
<td><input type="text" name="DJ"></td>
<td><input type="text" name="JLFS"></td>
<td><input type="text" name="KCL"></td>
<td><input type="text" name="sort"></td>
</tr>
</table>
<input type="submit" value="添加">
</form>
</BODY>
</HTML>
管理员修改已有商品信息：
<HTML>
<HEAD>
<Title>managerupdate.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
<script language="vbscript">
dim id,op,newvalue
</script>
</HEAD>
<BODY>
<%
id=trim(Request("id")) '获取id号
op=trim(Request("option")) '获取选择项
newvalue=trim(Request("newvalue")) '获取新值
set conn=Server.CreateObject("ADODB.connection")
conn.Open"mydata"
if (isnumeric(id))and isnumeric(newvalue) then
if(id=cstr(cint(id)))and (cint(id)>0)and (newvalue=cstr(cint(newvalue)))and (cint(newvalue)>0) then
set rs=Server.CreateObject("ADODB.Recordset")
sql1="select id,库存量 from products where id="& id
rs.Open sql1,conn
if rs.eof then
%>
<script language="vbscript">
msgbox "输入的ID号不存在！！请重新输入"
</script>
<center><h1>
修改失败！！
</h1>
<a href="manager.asp">返回重新修改</a>
</center>
<%
else
sql="update products set "& op &"="& newvalue &" where id="& id
conn.Execute sql
%>
<center><h1>
修改成功！！
</h1>
<a href="manager.asp">返回继续修改</a>
</center>
<%
end if
else
%>
<script language="vbscript">
msgbox "输入的ID或者修改数量为非正整数！！请重新输入"
</script>
<center><h1>
修改失败！！
</h1>
<a href="manager.asp">返回重新修改</a>
</center>
<%
end if
else
%>
<script language="vbscript">
msgbox "输入的ID或者修改数量不是数字！！请重新输入"
</script>
<center><h1>
修改失败！！
</h1>
<a href="manager.asp">返回重新修改</a>
</center>
<%
end if
conn.Close
%>
</BODY>
</HTML>
管理员添加新商品：
<HTML>
<HEAD>
<Title>addproduct.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
<script language="vbscript">
dim name,DJ,JLFS,KCL,sort,flag1,flag2
</script>
</HEAD>
<BODY>
<%
'请在这里输入您的ASP代码
name=trim(Request("name")) '获取新增产品的名称
DJ=trim(Request("DJ")) '获取新增产品的单价
JLFS=trim(Request("JLFS")) '获取新增产品的计量方式
KCL=trim(Request("KCL"))
sort=trim(Request("sort"))
flag1=true
flagr2=true
if (name="") or (DJ="") or(JLFS="") or(KCL="")o