管理信息系统课程设计报告范文免费 管理信息系统课程设计报告范文1000字
2.2 组织结构分析
根据调查结果，企业人事部将安排专职人员对超市的销售情况进行监督管理，也就说本销售系统开发出来后会有专业人员来操作执行。该管理软件将根据用户的需要销售情况进行查询，并能打印详细信息。
图2.1 组织结构图
2.3业务流程分析
根据分析，本系统业务流程主要包括如下内容：
顾客发订单给销售部门销售部门经过订单检查，把不合格的订单反馈给客户对合格的订单，通过核对库存记录，缺货订单通过缺货统计，向采购部门发出缺货通知，并登记缺货记录;对于可供货订单，登记客户档案，开出备货单，通知仓库备货。保存订单数据，并进行销售统计。销售部门业务流程图：
图2.2 销售部业务流程图
2.4数据流程分析
根据调查结果绘出销售系统数据流程图如下： 2.4.1 0层数据流程图
图2.3 0层数据流程图
2.4.2 1层数据流程图
图2.4 1层数据流程图
2.4.3 2层数据流程图
图2.5 2层数据流程图
第三章 系统设计
3.1系统总体结构设计
根据系统分析的结果，本系统分为四个子模块：定货处理模块、缺货处理模块、提货处理模块和系统管理模块，如图所示：
3.1 系统总体结构功能图
3.2代码设计
登陆页面：
index.asp
请先选择登录身份再登录
如果没有账号，请点击下面的注册按钮
获取数据：
logincheck.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 &"'"
客页面
response.Redirect "user.asp" else
response.Redirect"manager.asp" end if end if end if
rs.open strsql,conn if rs.eof then
response.Redirect"error.asp"
else if(request("position")="user") then '如果登录身份是顾客，则跳转到顾
rs.Close conn.Close %> 系统检查：
logincheck.asp
' 请在这里输入您的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 &"'"
客页面
response.Redirect "user.asp" else
response.Redirect"manager.asp" end if
end if
rs.open strsql,conn if rs.eof then
response.Redirect"error.asp"
else if(request("position")="user") then '如果登录身份是顾客，则跳转到顾
end if
rs.Close conn.Close %> 顾客使用：
user.asp
用户订货页面
set conn=Server.CreateObject("ADODB.connection") conn.Open"mydata"
set rs=Server.CreateObject("ADODB.Recordset") strsql = "select * from products" rs.open strsql,conn
%>
' 显示记录集的字段数
%>
顾客购买商品
userupdate.asp
if (id=cstr(cint(id))) and (id>0)and (count=cstr(cint(count))) and
' 请在这里输入您的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
' 判断输入的是否是数
(count>0)then'判断输入的是否是正整数
sql1="select * from products where id="& id rs.Open sql1,conn
if rs.eof then
%>
订货失败!!
返回重新订
else
minus=CInt(rs.fields("库存量"))-count if minus
%>
订货失败!!
返回重新订
else
sql="update products set 库存量=库存量-"&
count &" where id="& id
输入"
订货失败!!
conn.Execute sql %>
订货成功!!
返回继续订
end if
end if
else %>
订货失败!!
返回重新订
end if
conn.Close %> 管理员使用：
manager.asp
管理员操作页面
' 请在这里输入您的ASP 代码
set conn=Server.CreateObject("ADODB.connection") conn.Open"mydata"
set rs=Server.CreateObject("ADODB.Recordset") strsql = "select * from products" rs.open strsql,conn
%>
' 显示记录集的字段数
%>
' 显示字段值
rs.close conn.close %>
管理员修改已有商品信息：
managerupdate.asp
id=trim(Request("id")) ' 获取id 号 op=trim(Request("option")) ' 获取选择项 newvalue=trim(Request("newvalue")) ' 获取新值 set conn=Server.CreateObject("ADODB.connection") conn.Open"mydata"
