销售管理信息系统设计.doc

管理信息系统课程设计以标准文档为导向设计班级管理信息系统以标准文档为导向设计XX管理信息系统 浙江工商大学XX学院XX专业 学生姓名： 学 号：指导教师：电 邮： 2005 年 12 月 20 日13浙江工商大学XX学院XX专业 学号： 姓名 目录前言1一、项目背景1二、现有系统存在的问题1三、确定系统目标1第1章 系统分析11.1 业务流程的调查和分析11.2 数据流程的调查和分析11.3 编写数据字典1一、数据流1二、数据项1三、文件1四、主要的加工处理1第2章 系统设计12.1 模块结构图12.2 代码设计12.3 数据库设计12.4 输入/输出设计12.5 程序设计说明书（IPO）1第3章 系统实现13.1 登录界面13.2 主控界面13.3 菜单界面13.4 客户信息录入界面1第4章 系统评价1前言一、项目背景本文根据管理信息系统课程要求而做。课程作业要求如下：设计一个服装批发管理系统，主要内容包括客户数据库，库存商品管理系统以及销售业务处理系统，对整个销售流程能够比较全面细致的处理。二、现有系统存在的问题现在的销售管理信息系统是基本完善的，但是也存在一定的问题1.系统的可操作性不够强，影响了内部系统管理人员的工作效率，增加了人工成本。2.销售录入系统不够完善，工序复杂3.系统的功能不够完善，人机间交流不完善。4.系统的界面不够人性化，不够优美。5.系统的维护不够理想。1、 老系统的管理业务详情2、 存在的问题三、确定系统目标通过服装批发管理系统的的有效使用，可带来如下好处：1.可以通过输入或选择商品货号对各类型的存货进行快速查询、浏览2通过键入删除、新增按钮对库存进行添加、修改3通过输入或选择客户代码快速查询客户基本情况4.通过新增、修改、删除按钮对客户资料进行管理5.通过录入进货单的基本内容进行销售管理，计算无折扣和折扣销售额，录入进销表，如有应收帐，则同时录入应收帐款资料表6.应收帐款资料表记录企业应收帐款基本情况7. 提供更完善更人性化的系统。8.提供各种新的处理功能和决策信息。第1章 系统分析1.1 业务流程的调查和分析服装批发销售管理系统的业务流程如下图：调研应用运行调试编程确定。发货记帐可欠定单有货定单检查信用处理完定单即付定单查库存分级客户定单查客户数据表合格定单检查定单客户不合格定单待付款定单通知付款缺货定单收款发货1.2 数据流程的调查和分析顶层数据流程图第1层数据流程图第2层数据流程图1.3 编写数据字典一、 数据流数据流定义表编号数据流名内部名组成流量备注 1 定货单 a 日期+定货单位+货号+商品名+数量 20笔/日 2 发货单 b 货名+数量+单价+总家价 15笔/日 3 到货通知 c 日期+货号+数量+单价+总额 5笔/日 4 新客户 d 客户名+联系电话+地址 2户/日 5 老客户 e 顾客代码+客户名+联系电话+地址+信用等级 15户/日 二.数据项数据项定义表编号名称内部名值域类型长度备注100顾客代码aa20109999字符型10101顾客名称bb顾客的名称字符型16102地址cc顾客的地址字符型30103信用等级ddAC字符型1104货号ee001999字符型10105销货数量ff1数值型10106剩余gg=0数值型10107进货单价hh0数值型10108销售总金额ii0数值型10109收现状况jj.T.I.F.逻辑型1三.文件数据项定义表编号文件名内部名组成备注200进销表 aaa日期+货号+名称+客户单位+进货单价+销货单价+销货数量+剩余+销售总金额+收现状况201客户数据表bbb顾客代码+顾客名称+联系电话+地址+信用等级+备注202商品库存ccc货号+名称+单位+进货单价+销货单价+存量四.主要的加工处理无折扣销售新用户给予5%的折扣A级客户检查新老客户B级客户给予2%的折扣老用户无折扣销售C级客户第2章 系统设计业务处理2.1 模块结构图帐务处理客户资料处理库存处理登记应收帐输入定单查询输入编辑登记应收帐编制进销表输入编辑查询修改新增修改新增删除删除2.2 代码设计1. 登陆表单“确定”按钮click事件主要程序if thisform.text1.value=susan and thisform.text2.value=845939DO FORM c:documents and settingswangshanshan桌面shaoyongvf6.0vfp98信息管理系统1232.scxelsemessagebox(输入有误！,0)thisform.text1.value=thisform.text2.value=a=a+1if a2messagebox(无权登陆！,0)thisform.setall(readonly,.t.,textbox)endifendifthisform.refresh2. 进销表单按“入帐“按钮的click事件主要代码if 商品库存.存量val(thisform.text4.value)sele 商品库存locate for alltrim(商品库存.货号) =alltrim(thisform.text2.value)if found() sele 进销表ppend blankreplace 日期 with date()replace 货号 with thisform.text2.valuereplace 名称 with thisform.text3.valuereplace 客户单位 with thisform.text1.valuereplace 进货单价 with 商品库存.进货单价replace 销货单价 with 商品库存.销售单价replace 销货数量 with val(thisform.text4.value)replace 剩余 with 商品库存.存量-进销表.销货数量sele 商品库存replace 存量 with 存量-进销表.销货数量sele 客户数据库locate for alltrim(顾客名称)=alltrim(thisform.text1.value) if found()do case case 信用等级=Athisform.text6.value=A级客户,折扣率5%thisform.a=0.05thisform.text5.value=进销表.销货数量*商品库存.销售单价*(1-0.05)sele 进销表 replace 销售总金额 with thisform.text5.value case 信用等级=B thisform.text6.value=B级客户,折扣率2% thisform.b=0.02 thisform.text5.value=进销表.销货数量*商品库存.销售单价*(1-0.02) sele 进销表replace 销售总金额 with thisform.text5.value case 信用等级=C thisform.text6.value=C级客户,无折扣! thisform.c=0 thisform.text5.value=进销表.销货数量*商品库存.销售单价 sele 进销表 replace 销售总金额 with thisform.text5.value endcase endif else messagebox(该货号不存在)endifelsemessagebox(存量不足,无法供货!,0)endifthisform.refresh3. 客户表单“删除”按钮click代码：if messagebox(确定删除？,1)=1deleteskip -1endifthisform.refresh2.3 数据库设计该数据库有四张二维表，分别是进销表、客户数据库、商品库存、应收帐款进销表包括：日期（D），货号（C），名称（C），客户单位（C），进货单价（N），销货单价（N），销货数量（N），剩余（N），销售总金额（N），收帐情况（L）11个字段客户数据库包括：顾客代码（C），顾客名称（C），联系电话（C），地址（C），信用等级（C）4个字段商品库存包括：货号（C），名称（C），单位（C），进货单价（N），销售单价（N），存量（N）6个字段应收帐款包括：日期（D），客户单位（C），进货型号（C），金额（N），信用期（N），还款情况（L）6个字段 2.4 输入/输出设计输入设计数据项数据内容精度数值范围输入方式正确性校正输入设备用户名登陆用户名 5无限制输入位数必须与精度相符，否则不能登陆必须在部门办公室键盘密码登陆密码6无限制必须在部门办公室输入位数必须与精度相符，否则不能登陆 必须是三位，否则显示“该商品不存在” 必须是四位，否则显示“该顾客不存在” 键盘顾客代码要查询顾客的代码420109999必须在部门办公室键盘货号要查询的库存品货号3001999必须在部门办公室键盘客户单位定货单上的进货单位16无限制输入位数不超过16个字符，超出出错 必须在部门办公室键盘销货量定货单上的定货量10无限制必须在部门办公室输入位数不超过10个字符，超出出错 键盘输出设计数据项数据内容精度数值范围顾客名称查询顾客的名称(字符型)=16无限制联系电话顾客的联系电话(字符型)=10无限制地址顾客的地址(字符型)=30无限制信用等级顾客信用等级(字符型)1A,B,C名称查询商品的名称(字符型)=16无限制单位库存品的单位(字符型)=10无限制进货单价查询商品的进货价格(数值型)=79999.99销售单价查询商品的销售价格(数值型)=79999.99存量查询商品的库存量(数值型)=8val(thisform.text4.value)sele 商品库存locate for alltrim(商品库存.货号) =alltrim(thisform.text2.value)if found() sele 进销表ppend blankreplace 日期 with date()replace 货号 with thisform.text2.valuereplace 名称 with thisform.text3.valuereplace 客户单位 with thisform.text1.valuereplace 进货单价 with 商品库存.进货单价replace 销货单价 with 商品库存.销售单价replace 销货数量 with val(thisform.text4.value)replace 剩余 with 商品库存.存量-进销表.销货数量sele 商品库存replace 存量 with 存量-进销表.销货数量sele 客户数据库locate for alltrim(顾客名称)=alltrim(thisform.text1.value) if found()do case case 信用等级=Athisform.text6.value=A级客户,折扣率5%thisform.a=0.05thisform.text5.value=进销表.销货数量*商品库存.销售单价*(1-0.05)sele 进销表 replace 销售总金额 with thisform.text5.value case 信用等级=B thisform.text6.value=B级客户,折扣率2% thisform.b=0.02 thisform.text5.value=进销表.销货数量*商品库存.销售单价*(1-0.02) sele 进销表replace 销售总金额 with thisform.text5.value case 信用等级=C thisform.text6.value=C级客户,无折扣! thisform.c=0 thisform.text5.value=进销表.销货数量*商品库存.销售单价 sele 进销表 replace 销售总金额 with thisform.text5.value endcase endif else messagebox(该货号不存在)endifelsemessagebox(存量不足,无法供货!,0)endifthisform.refresh第3章 系统实现系统使用Microsoft Visual Foxpro 6.0开发实现，系统部分运行界面如下：3.1 登录界面3.2