1、企业进销存管理信息系统二、系统分析 5三、系统总体设计内容摘要企业的物资供应管理复杂，繁琐的，物资种类众多，订货，管理，发放的渠道各有差异，因此物资管理必须实现计算机化，而且必须根据企业的具体情况制定便提高工作效率。利用ERP的部分功能，使用Microsoft Visual Basic 6。0及Microsoft Office Access 2003作为开发工具，利用面向对象的结构和自上而下的程序设计方法，联系实际情况设计实现了一个以控制物流为主的管理软件，基本实现了仓库的日常管理和进货出货的查询。充分提高数据的准确性和指导性,提高生产效率和企业效益。关键字:企业资源计划 存货 数据库 面向对
2、象进销存管理系统的设计和制作一、前言本次毕业设计的题目是进销存管理系统，要求利用Visual Basic完成管理平台设计,构造所用的类库。根据当前的企业一般物资供应管理系统,相应分成几个科室进行物资的计划，订货，核对入库，根据各个部门的需要来发送物资设备，并随时近期进行库存盘点、作台帐,按月、季、年进行统计分析，产生相应报表，以进行有效的生产管理。从根本上说，企业就是一个利用资源（人、财、物、时间),为客户创造价值的组织，ERP就是对这些资源进行计划、调度、控制、衡量、改进的管理技术和信息系统。现今的企业并不只是人力资源、资金和产品的组合，它还应该包括供应、销售、市场营销、客户服务、需求预测，
3、以及其他更多的东西。针对目前公司存在的问题，本文设计一个以物料流处理为主，具有一定智能特性和网络特性的管理系统。该系统不仅能智能的控制企业的物流情况，而且还具有操作方便、便于纠错的特点。概括起来系统的优点如下: （1）用户基本资料一次性建立,便于规范控制。（2)物料控制半自动化，加强了各个部门之间的联系。（3）提高库存管理的服务水平，最大限度地降低库存量，包括中间库存和在制品的库存，以减少在库存上的资金积压。(4）最大限度的保证订货任务的按期完成。（5)提高计划的可能性，实现均衡生产。（6）集成管理职能,提高管理效率。本文主要阐述了进销存管理系统的设计目标，系统要求、总体设计、详细设计、测试等
4、。二、系统分析2.1 问题的提出本公司目前存在的问题是：信息化不足，计算机使用率低,大量的日常工作皆是手工处理，因此工作效率低落，企业内部沟通不良等等问题很难克服,仓库不能及时为采购和生产提供准确的指导性数据。公司希望解决的问题是：解决企业内部统一的物料编码管理，物流管理中的信息流通，库存积压与物料的配套问题，完善质量检验，对生产过程中的质量信息进行全面管理。包括原材料、外购外协件、半成品、成品各道工序的质量控制，并对各种数据进行统计分析.对公司的各种资源与信息进行查询，包括销售、采购、生产、质量、人事、财务等信息数据进行查询、统计与分析，对根据信息作出快速合理的经营决策。2。2 分析问题本公
5、司的主要流程是：接到一张销售订单，由销售部门转化为内部订单，转给生产部门，生产部门根据订单上的产品、数量,技术部已经配好的物料清单，及各车间半成品储存量，汇总材料需求，然后根据库存情况决定请购及预约情况，采购部门根据请购单下采购单，然后材料入库,这一切都是本管理系统所力求实现的功能。2.3 系统设计目标2。3。1 系统设计的长远目标:实现ERP系统1系统运行集成化：这是ERP应用成功在技术解决方案方面最基本的表现。只有集成一体化运行起来，才有可能达到:降低库存，提高资金利用率和控制经营风险；控制产品生产成本，缩短产品生产周期；提高产品质量和合格率;减少财务坏帐、呆帐金额等。2业务流程合理化：这
6、是ERP应用成功在改善管理效率方面的体现。ERP应用成功的前提是必须对企业实施业务流程重组，因此，ERP应用成功也即意味着企业业务处理流程趋于合理化，并实现了ERP应用的以下几个最终目标：企业竞争力得到大幅度提升；企业面对市场的响应速度大大加快；客户满意度显著改善。3绩效监控动态化：ERP的应用，将为企业提供丰富的管理信息。如何用好这些信息并在企业管理和决策过程中真正起到作用，是衡量ERP应用成功的另一个标志.在ERP系统完全投入实际运行后，企业应根据管理需要，利用ERP系统提供的信息资源设计出一套动态监控管理绩效变化的报表体系，以期即时反馈和纠正管理中存在的问题。 2。3。2 系统设计近期（
7、1）建立基本资料信息库，规范所有资料信息。（2）物料控制半自动化，加强了各个部门之间的联系。（3）高库存管理的服务水平，最大限度地降低库存量，以减少在库存上的资金积压.（4）最大限度的保证订货任务的按期完成.（5）提高计划的可能性，实现均衡生产：（6）集成管理职能，提高管理效率.三、系统总体设计3。1 数据流图顶层数据流图如图3.1所示：图3。1 进销存管理系统顶层数据流图0层数据流图如图3.2所示:图3。2 进销存管理系统0层数据流图 1层数据流图如图3。3所示：图3。3 进销存管理系统1层数据流图图3。3 进销存管理系统1层数据流图（续）3.2 部分数据字典数据流图描述了系统的分解，但没有
8、对图中各成分进行说明，数据字典就是为了数据流图的每个数据流、文件、加工,以及组成数据流或文件的数据项作出说明.数据流条目：出库单 = 出库单号+日期+客户名称+ 物资类别+制单人员+ 记帐人员+发货人+状态+销售订单号+品名 + 单位 + 数量 + 规格 + 备注 + 单价各类财务统计报表 = 仓库材料消耗汇总（成本项目） + 仓库材料消耗汇总（按车间） + 材料收发存明细A + 材料收发存明细B +材料收发存明细C + 材料收发存分类汇总表 + 木材消耗汇总表。文件条目：文件名称：原材料库存文件。简述:保存原材料的基本资料。组成：材料编号+品名型号+规格尺寸+单位+采购计量单位+参数+数量+
9、最低数量+最高数量+单价+备注+大大分类+大分类+分类+小分类。文件名称：销售文件。简述：保存所有销售订单的文件。组成内部定单号+订货日期+客户编号+总金额+预收率-NEWCASTLE号+PO单号包装办法+品质要求+内装箱+外装箱+MADE IN CHINA+特别指示+箱正侧内+状态+型号+色号+木材尺寸+光泽度+内绒+表面处理+数量+出货日期+单价。数据项条目：名称：材料编号简述:材料编号分四个字段（大大分类+大分类+分类+小分类），可以将材料分门别。类，因为许多地方用到编号，因此将四项和为一项保存一个冗余字段。为了便于查找。3.3 E-R图程序总体E-R图如图3.4所示：图3。4 程序总体
10、ER图人员管理模块如图3.5所示：图3.5 人员管理模块材料管理模块如图3.6所示：图3.6 材料管理模块3。4 功能模块3。4.1 程序层次程序层次如图3。7所示：图3.7 程序层次图3.4.2 模块功能说明篇幅所限，仅挑选部分功能说明.不登陆验证功能：主要功能为身份验证,防止非法用户进入系统。实现方法如图3。8所示:图3。8 登陆验证实现方法3。4.3 系统数据表仓库物资信息表(材料表），如表3.1所示：表3.1 仓库物资信息表编号字段名称数据类型说明1自动编号Long数值Primary key主键2规格Text 文本必填，字段不允许空串3型号Text 文本必填,字段不允许空串4数量Lon
11、g数值必填字段5价格Long数值必填字段6名称Text 文本必填字段进货人员信息表，如表3。2所示：表3。2 进货人员信息表编号字段名称数据类型说明1自动编号Long数值Primary key主键2姓名Text 文本必填,字段不允许空串3联系方式Text 文本必填,字段不允许空串 入库、出库单信息表，如表3.3所示：表3。3 入库、出库单信息表编号字段名称数据类型说明1自动编号Long数值Primary key主键2姓名Text 文本必填，字段不允许空串3联系方式Text 文本必填,字段不允许空串4货物名称Text 文本必填，字段不允许空串5货物数量Long数值必填,字段不允许空串6货物规格T
12、ext 文本必填，字段不允许空串7货物型号Text 文本必填，字段不允许空串8价格Long数值必填,字段不允许空串9日期Text 文本必填，字段不允许空串四、系统详细设计根据内部订单预定材料的流程图如图4.1所示：说明:KDYsl：可调用数量XQsl： 需求数量KCsl： 库存数量可调用数量=库存数量 最低库存量已预约数量设计时需求数量与库存数量、可调用数量分别比较可得出种情况需求数量可调用数量 and 需求数量 库存数量（因为库存数量=可调用数量所以可写成XQslKDYsl）需求数量=可调用数量 and 需求数量 =库存数量(因为库存数量=可调用数量所以可写成KDYsl =XQsl库存数量（
13、因为库存数量=可调用数量所以不存在这种情况)需求数量可调用数量 and 需求数量 =可调用数量所以可写成XQsl KDYsl ）综上所述：比较情况分为三支XQslKDYsl和KDYsl =XQsl=KCs和XQsl=B。YFYF）；SELECT A。DHDH, A.KDRQ, B。CLBH, B.SLSL， B.SLSLB.DJDJ AS JEJEFROM K_clrk_M AS A INNER JOIN K_clrk_D AS B ON A。DHDH=B.DHDHWHERE STATUS=1；SELECT A.CLBH， B。YFYF, IIf(A。RKSL=0,IIf（ISNULL（QCS
14、L），0,QCJE/QCSL）,（B。QCJE+A。RKJE）/(B.QCSL+A。RKSL)） AS DJDJFROM AVER_MTH_RK2 AS A LEFT JOIN T_SFC_QC AS B ON A。CLBH=B.BHBH；功能函数Public Sub Do_Aver_DJ（）Dim da_Rec As ADODB.RecordsetDim da_SQL As StringSet da_Rec = AppCN.Execute(select * from AVER_DJ”)AppCN。BeginTransDo While Not da_Rec。EOFda_SQL = ”updat
15、e J_clcl set DJDJ = da_Rec.Fields(”DJDJ) & where BHBH= & da_Rec。Fields（”CLBH”) & ”AppCN.Execute (da_SQL）da_SQL = update K_LLLL_D set JEJE =” da_Rec。Fields(”DJDJ） & k_LLLL_D.SLSL where K_LLLL_D.CLBH=” & _ da_Rec.Fields（”CLBH”) & and K_LLLL_D.DHDH IN (SELECT DHDH FROM AVER_mth_LL2）” AppCN。Execute (da_
16、SQL）da_Rec。MoveNextLoopAppCN.CommitTransEnd Sub收发存明细，追踪某中材料某月的进出库情况，并显示出是那一帐单据进行操作，如果是领料则在摘要中写明成本项目。计算出每次操作之后的结存数量及金额。Private Sub CmdMe_Click（Index As Integer）If Index = 0 ThenCall PrintLstv（Me.LstView, LoadResString（804), 材料” m_CLBH & 收发存明细A”, 1, 1）ElseUnload MeEnd IfEnd SubPrivate Sub DoGroupCube(
17、SlCol As String， JeCol As String)Dim arrSlCol（） As StringDim arrJeCol() As StringDim k As IntegerDim total As DoubleCall ON_GetArray（SlCol, arrSlCol)Call ON_GetArray（JeCol， arrJeCol)LstView。ListItems.Add ， ， ”LstView。ListItems(LstView.ListItems.Count)。SubItems（1） = ”总计”For k = 0 To UBound(arrSlCol)
18、total = 0 For J = 1 To LstView。ListItems.Count total = total + Val（LstView。ListItems(J).SubItems(Val(arrSlCol(k)）)） Next LstView。ListItems(LstView.ListItems。Count).SubItems(Val（arrSlCol（k） = total NextFor k = 0 To UBound(arrJeCol) total = 0 For J = 1 To LstView.ListItems.Count total = total + Val（Ls
19、tView。ListItems(J）。SubItems(Val(arrJeCol（k)） Next LstView。ListItems(LstView。ListItems.Count).SubItems(Val（arrJeCol(k) = Format（total， ”#0。00”)NextEnd SubPrivate Sub Form_Load（）Dim fl_Num As SingleDim fl_Cash As DoubleMe.Icon = LoadResPicture(101, vbResIcon)Me。Move （Screen。Width - Me.Width） / 2， (Screen.Height - Me。Height） / 4Me
