2青海小西牛企业销售管理信息系统设计.doc

课程、专业实习报告小西牛企业库存销售管理系统设计班级：08信息管理与信息系统小组：第二小组组长：寇佳佳0833205111组员：张忠青0833205123孔莹莹0833205113魏 溶0833205133孙占鹏0833205135焦成斌0833205128实验日期：2011年6月7日2011年7月16日实验地点：财院实验室2-1目 录目 录1一、小组分工1二、系统背景1三、系统必要性和可行性分析11、必要性分析12、操作可行性分析13、管理可行性分析14、经济可行性分析15、技术可行性分析1四、系统分析部分11、业务流程图12、数据流程图13、功能分析14、数据分析1五、系统设计部分11、系统总体结构设计11.1 功能结构图设计11.2 功能模块设计11.3 系统流程图设计12、数据结构与数据库设计13、逻辑结构设计14、代码设计1六、系统实施部分11、系统部分源程序12、用户交互界面设计13、系统运行说明1七、结束语1附录1一、小组分工根据课程实习计划，以及通过参考各成员的意愿，确定了各成员的任务与分工。1、 寇佳佳 主要负责系统背景分析，系统必要性和可行性分析，实现库存管理功能模块，以及相关文档的整理编辑工作。2、 张忠青 主要负责系统流程图的设计，以及系统实施部分各功能模块源程序的修改与设计。3、 孔莹莹 主要负责实现库存管理功能模块，系统业务流程图的设计，以及数据字典的设计。4、 孙占鹏主要负责系统实施部分用户交互界面的设计，以及基础信息功能模块的设计。5、 焦成斌 主要负责数据库设计，以及系统设置功能模块的设计。6、 魏溶 主要负责实现销售管理功能模块，以及数据流程图的设计。二、系统背景青海小西牛生物乳业有限公司是在原西宁城北小西牛饮料厂的基础上组建的股份制企业，公司自1999年起从事鲜牛乳收购及乳制品加工。目前，“小西牛”系列产品在省内乳制品市场独树一帜确定了自己的优势地位，“小西牛”已逐渐显现出其品牌价值。过硬的质量、良好的信誉、优质的服务以及专业化的生产是“小西牛”从一个地区品牌上升到省内著名商标并逐步将品牌推向全国的基础。而企业的销售与库存管理必然是提高企业内控的关键。针对不同的销售渠道，小西牛采取了不同的销售模式，主要是：直营，分销，代理。为了适应企业的发展，公司拟开发一个针对性强的销售与库存管理系统，以更好地为各类客户提供服务。该系统的项目目标是：通过本系统信息的采集，进一步加强辅助企业的进销决策。其具体目标包括：更好地为客户服务，提高企业在现有环境下的竞争力；加强对客户和订单的管理，提高企业管理水平和工作效率，降低企业资金风险；通过对市场销售和市场需求分析，有利于科学决策，制定和调制销售计划；达到合理的购进原材料，降低库存、减少积压的目的，尤其是新鲜的奶乳和产成品，保证了奶源和产品的新鲜供应，也在一定程度上降低了产品保质期过期的风险，也同时减少了库存面积，简化了库存管理，能够大大减少公司的运营成本。企业目前的主要问题是客户的订单提交主要是通过电话或传真，销售人员在订单的整理和录入上要花费大量的时间。此外，由于生产、供货商等问题，订单的处理状态在某个时刻很难确认，而不管是客户还是销售人员都需要及时跟踪和了解订单的处理状态。仓库作业和库存控制作业已十分复杂化多样化，仅靠人工记忆和手工录入，不但费时费力，而且容易出错，给企业带来巨大损失。针对企业目前的现状，拟开发一个库存与销售管理系统。三、系统必要性和可行性分析1、必要性分析在信息技术的催化之下，世界经济的变革已经进入了加速状态。世界经济一体化，企业经营全球化，以及高度竞争造成的高度个性化与迅速改变的客户需求，令企业与顾客、企业与供方的关系变得更加密切和复杂。强化管理，规范业务流程，提高透明度，加快商品资金周转，以及为流通领域信息管理全面网络化打下基础，是销售公司乃至众多商业企业梦寐以求的愿望。2、操作可行性分析本系统在视觉上简约的设计风格，流程清晰流畅，可以使操作形成惯性化模式，使用非常简单方便。在界面的设计上简约大方，但却不失高贵与深远，可以让操作员自然而清楚的找到需要的各项功能。3、管理可行性分析对于小西牛这样的生产型企业，领导很是注重信息技术的应用，对管理信息系统的开发会大力支持，基层业务人员也对信息化持积极状态。如果实现企业的信息化，企业现行的管理方式，组织结构，业务流程的可能需要变化，但信息化后的工作模式无疑对于业务或是员工来讲都是高效率的，所以其在企业中的应用是必然的，因此它在管理上是可行的。4、经济可行性分析经济上主要考虑本系统带来的效益是否大于开发本系统的成本，由于本系统的开发以课程设计为依托，参与人员的目的以学习为主，投入成本比较小。另外，本系统的管理人员不需要经过培训或只需要经过少量培训即可操作本软件。这样可以为开发本系统节省资金。同时无纸化办公可以节省资源，减少后期资源浪费，因此，开发本系统在经济上是可行的。5、技术可行性分析本系统是以计算机软件技术为基础，利用Microsoft Visual Basic 6.0、Access 2003，以及Microsoft Visio等工具进行系统的设计，以上工具都是最基本的应用软件，在学校提供的实习机房里就可以完成本系统的设计工作。因此，开发本系统在技术上是可行的。小西牛企业是一个较为知名的企业，该企业拥有一定量必须的计算机软硬件，并且拥有熟悉计算机操作的员工，因此该企业具备本系统的运行条件。四、系统分析部分 通过对小西牛企业的初步调查得到的资料进行分析、整理，可以抽象得出该企业的相关图如下。 1、业务流程图 2、数据流程图 数据流程图是一种能全面地描述信息系统逻辑模型的主要工具，它可以用少数几种符号综合地反映出信息在系统中的流动、处理和存储情况。（1）系统关联图此系统的数据来源是客户、生产部门，数据去处是销售主管。由此可得到此系统的最高层数据流图关联图。“F1”：生产部门提供的产成品和原料的货物清单；“F2”：客户提供的成品货物需求清单；“F3”：库存信息月报表，包括原料和成品；“F4”：提供给生产部门的原料库存预警信息单；“F5”：提供给生产部门的原料清单；“F6”：提供给决策者季度销售报表（2）顶层图 根据系统关联图，导出系统顶层图如下：客户库存销售管理系统客户订单不合格订单销售主管销售主管客户统计信息供应商决策信息 发货通知退货单（3）一层：库存管理数据流程图根据顶层图，我们将采购部分的功能分为三个基本功能：订单处理、库存处理、采购处理，细分下的数据流程图如下：工作人员填写采购单采购入库采购查询添加采购明细采购单表采购单明细表商品库存表工作人员采购单信息采购明细选择采购单采购单采购单采购明细采购明细采购单库存采购单查询条件查询结果采购管理数据流程图（4）一层：销售管理数据流程图工作人员工作人员填写销售单添加销售明细销售出库销售查询（销售利润）销售单明细表商品库存表销售单表销售单库存销售明细查询条件销售单销售单销售单销售单信息选择销售单销售明细销售管理数据流程图3、功能分析 企业销售与库存管理系统是集产品采购、管理、存储、销售等活动的整合，作为生产经营的主要环节，在生产活动中占有举足轻重的地位，是企业经营活动中影响效率和效益高低的主要因素之一。因此，本系统的内容包括企业的物资供应，物资的库存管理等内容。如下图：4、数据分析数据字典：（1）数据元素数据元素名：商品编号别名：商品编码简要说明：商品编号是商品的识别符，每种商品都有唯一的编号数据元素结构：代码类型（由数字组成的字符串）取值范围：000001999999（2）数据流名称：缺货通知单别名：缺货通知编号：FQH-1简要说明：在仓库中物品的储存量过少或没有的时候，发出的一种物品缺少通知数据流来源：仓管部数据流去向：采购部数据流组成：商品编号+需订购数量（3）数据存储名称：盘点明细表别名：库存盘点表编码：FPD-2简要说明：本企业仓库现在的库存信息存储组织：该时间点每种商品一条记录记录组成：项名： 编号ID 商品编号 调整数量 成本价 调整总金额 操作日期 操作人员 标志（4）加工名称：采购管理编码：PCG-3简要说明：采购的安排采购部对进行处理李输入数据流：缺货通知与销售主管决策信息输出数据流：采购单、退货单、到货通知加工逻辑：A. 对于一段时间内的仓库需求，能正确的进行处理，以便及时合理的采购B.向采购部发出采购通知C.对于采购进来的物品进行质量检验，不合格物品将会退回给相应的供应商（5）数据结构数据结构名：采购单编号：JCG-6简述：用于录入企业的采购订单数据来源：采购部数据流去向：销售记录管理组成：采购单编号+供货商编号+采购日期+核销标志（是/否）+操作人员+税价合计+不含税价+税额+总共金额数据流量：30张/日高峰流量：50张/日 数据结构名：采购单明细编号：CGD-1简述：用于录入企业的进货单数据来源：采购部数据流去向：销售记录管理组成：编号ID+商品编号+采购单号+采购数量+采购单价+总共金额（税价合计）+不含税额数据流量：30张/日高峰流量：50张/日 数据结构名：销售订单编码：JXS-5说明：用于录入企业的销售订单组成：销售单号+商品编号+客户编号+销售日期+销售员+税价合计+总共金额+税额数据流量：30张/日高峰流量：50张/日 数据结构名：销售单明细表编码：XS-1说明：销售单的从表数据来源：销售部数据去向：销售主管组成：编号ID+销售单号+商品编号+销售数量+成本单价价+总共金额+不含税价+税额数据流量：30张/日高峰流量：50张/日（6）外部项名称：仓管员编号：RY-04简要说明：负责对仓库的信息及时进行盘点和汇总，根据库存信息来向发货人员发出发货通知和对采购部发出缺货通知输入数据流：商品库存信息输出数据流：发货通知、缺货通知、商品库存盘点明细表五、系统设计部分1、系统总体结构设计 包括功能结构图设计、功能模块设计和信息系统流程图设计等。1.1 功能结构图设计1.2 功能模块设计将功能模块按照高内聚、低耦合，影响范围在控制范围之内的原则分成若干个字模块。1.3 系统流程图设计2、数据结构与数据库设计1）概念结构设计 A .首先确定实体集。包括：供应商，客户，商品，员工，用户。 B .确定联系类型。供应商和物资之间，客户和物资之间的联系是1：n的关系。 C .确定实体集和联系的属性。实体集供应商的属性：供应商编号，供应商名称，地址，电话，传真，信誉等级，提供商品，简介实体集客户的属性：客户编号，客户名称，地址，电话，传真，信誉等级，所需商品，简介实体集商品的属性：商品编号，商品名称，计量单位，供应商编号，供应商地址，商品说明实体集员工的属性：员工代码，姓名，性别，所属部门，联系电话，备注实体集用户的属性：用户名称，密码，权限，身份证，住址，电话，邮箱 3、逻辑结构设计（1）采购单明细表（2）采购单表（3）供应商资料表（4）客户资料表（5）盘点明细表（6）商品库存表（7）商品资料表（8）销售单表（9）销售单明细表（10）用户信息表（11）员工信息表4、代码设计在本系统中一般使用的代码，意义如下：xx xx xx部门员工号部门编号企业总号xx xx x x批次季度年份顺序号仅以以下代码为例说明本系统的代码设计：100000 企业总经理市场部101001 市场部经理101002 市场部员工02101003 市场部员工03 101099市场部员工99采购部102001 采购部经理102002 采购部员工02102003 采购部员工03 102099 采购部员工99库管部103001 采购部经理103002 采购部员工02103003 采购部员工03 103099 采购部员工99生产部104001 生产部经理104002 生产部员工02104003 生产部员工03 104099 生产部员工99六、系统实施部分系统实施这个阶段我们小组主要做了两项工作，编写程序和测试系统。在编写程序的时候，由于自身条件的限制，我们决定参照网上成品系统的部分代码，用于我们的系统当中。1、系统部分源程序（1）打开数据库Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean打开数据库连接，连接成功返回true，出错时返回false Set Conn = New ADODB.Connection 出错处理 On Error GoTo ErrorHandle Conn.Open GetConnStr OpenConn = True Exit FunctionErrorHandle: MsgBox 连接数据库失败！请重新连接！ OpenConn = False Exit FunctionEnd Function（2）登陆界面Option ExplicitDim SQL As StringDim msg As StringPrivate Sub Command3_Click() Dim rst As ADODB.Recordset Dim password As String 判断用户是否存在 UserID = Left(Trim(Text1.Text), 4) 取出用户的ID SQL = select 用户ID,密码 from 用户信息表 where 用户ID= & UserID & Set rst = SelectSQL(SQL, msg) If rst.RecordCount 0 Then password = Trim(rst.Fields(1) 取出该用户的密码 rst.Close Else MsgBox (数据库操作错误！) Exit Sub End If 判断密码是否正确 If password = Trim(Text2.Text) Then LoginSucceeded = True 主界面.Show Unload Me Else MsgBox (密码错误！) LoginSucceeded = False End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub（3）销售单Option ExplicitDim rs As ADODB.RecordsetDim SQL As StringDim msg As StringDim Index As IntegerDim flag As String 判断是新增记录还是修改记录Public SaleNo As String 保存销售单号Public SaleFlag As String 保存核销标志Private Sub Form_Load() Dim rst As ADODB.Recordset 初始化查询条件ComboBox CboQuery.AddItem (销售单号) CboQuery.AddItem (客户编号) CboQuery.ListIndex = 0 默认查询条件为销售单号 初始化客户编号ComboBox SQL = Select * from 客户资料表 Set rst = SelectSQL(SQL, msg) If rst.RecordCount = 0 Then MsgBox 没有客户编号，请先建立客户资料！ Exit Sub 销售单.Enabled = False Else Do While Not rst.BOF And Not rst.EOF 添加到ComboBox列表 Me.CboKHID.AddItem (rst.Fields(客户编号) & rst.Fields(客户名称) rst.MoveNext 指向下一条记录 Loop CboKHID.ListIndex = 0 默认ComboBox rst.Close End If 初始化操作人员 txt(3).Text = UserID 操作员默认为当前进入的用户 Call LoadData 装载数据 Call ShowData 显示数据End SubPrivate Sub LoadData()装载数据 Dim colName As String 保存所选择的查询条件 Dim colValue As String 保存所要查询具体的值 Dim strWhere As String colName = CboQuery.Text 取出条件的值 colValue = txtQuery.Text 取出所要查询的值 构建条件 strWhere = where & colName & like % & colValue & % Set rs = Nothing 查询销售单 SQL = SELECT * FROM 销售单表 & strWhere & ORDER BY 销售单号 Set rs = SelectSQL(SQL, msg) Set Me.DataGrid1.DataSource = rs DataGrid1.Refresh If rs.RecordCount = 0 Then 如果不存在记录 编辑控件可用性 CmdAdd.Enabled = True: CmdModify.Enabled = False: CmdDelete.Enabled = False CmdCancel.Enabled = False: CmdSave.Enabled = False: CmdLook.Enabled = False Else 编辑控件可用性 CmdAdd.Enabled = True: CmdModify.Enabled = True: C