企业进销存管理信息系统Word下载.docx

企业进销存管理信息系统Word下载.docx

《企业进销存管理信息系统Word下载.docx》由会员分享，可在线阅读，更多相关《企业进销存管理信息系统Word下载.docx（31页珍藏版）》请在冰豆网上搜索。

概括起来系统的优点如下:

（1）用户基本资料一次性建立，便于规范控制。

（2）物料控制半自动化，加强了各个部门之间的联系。

（3）提高库存管理的服务水平，最大限度地降低库存量，包括中间库存和在制品的库存，以减少在库存上的资金积压。

（4）最大限度的保证订货任务的按期完成。

（5）提高计划的可能性，实现均衡生产。

（6）集成管理职能，提高管理效率。

本文主要阐述了进销存管理系统的设计目标，系统要求、总体设计、详细设计、测试等。

二、系统分析第2页共36页2.1问题的提出本公司目前存在的问题是：

信息化不足，计算机使用率低，大量的日常工作皆是手工处理，因此工作效率低落，企业内部沟通不良等等问题很难克服，仓库不能及时为采购和生产提供准确的指导性数据。

公司希望解决的问题是：

解决企业内部统一的物料编码管理，物流管理中的信息流通，库存积压与物料的配套问题，完善质量检验，对生产过程中的质量信息进行全面管理。

包括原材料、外购外协件、半成品、成品各道工序的质量控制，并对各种数据进行统计分析。

对公司的各种资源与信息进行查询，包括销售、采购、生产、质量、人事、财务等信息数据进行查询、统计与分析，对根据信息作出快速合理的经营决策。

2.2分析问题本公司的主要流程是：

接到一张销售订单，由销售部门转化为内部订单，转给生产部门，生产部门根据订单上的产品、数量，技术部已经配好的物料清单，及各车间半成品储存量，汇总材料需求，然后根据库存情况决定请购及预约情况，采购部门根据请购单下采购单，然后材料入库，这一切都是本管理系统所力求实现的功能。

2.3系统设计目标2.3.1系统设计的长远目标：

实现ERP系统1系统运行集成化：

这是ERP应用成功在技术解决方案方面最基本的表现。

只有集成一体化运行起来，才有可能达到：

降低库存，提高资金利用率和控制经营风险；

控制产品生产成本，缩短产品生产周期；

提高产品质量和合格率；

减少财务坏帐、呆帐金额等。

2业务流程合理化：

这是ERP应用成功在改善管理效率方面的体现。

ERP应用成功的前提是必须对企业实施业务流程重组，因此，ERP应用成功也即意味着企业业务处理流程趋于合理化，并实现了ERP应用的以下几个最终目标：

企业竞争力得到大幅度提升；

企业面对市场的响应速度大大加快；

客户满意度显著改善。

3绩效监控动态化：

ERP的应用，将为企业提供丰富的管理信息。

如何用好这些信息并在企业管理和决策过第3页共36页程中真正起到作用，是衡量ERP应用成功的另一个标志。

在ERP系统完全投入实际运行后，企业应根据管理需要，利用ERP系统提供的信息资源设计出一套动态监控管理绩效变化的报表体系，以期即时反馈和纠正管理中存在的问题。

2.3.2系统设计近期

（1）建立基本资料信息库，规范所有资料信息。

（3）高库存管理的服务水平，最大限度地降低库存量，以减少在库存上的资金积压。

（5）提高计划的可能性，实现均衡生产：

三、系统总体设计3.1数据流图顶层数据流图如图3.1所示：

第4页共36页图3.10层数据流图如图3.2所示：

进销存管理系统顶层数据流图第5页共36页图3.21层数据流图如图3.3所示：

进销存管理系统0层数据流图第6页共36页图3.3进销存管理系统1层数据流图第7页共36页图3.3进销存管理系统1层数据流图（续）第8页共36页3.2部分数据字典数据流图描述了系统的分解，但没有对图中各成分进行说明，数据字典就是为了数据流图的每个数据流、文件、加工，以及组成数据流或文件的数据项作出说明。

数据流条目：

出库单=出库单号+日期+客户名称+物资类别+制单人员+记帐人员+发货人+状态+销售订单号+品名+单位+数量+规格+备注+单价各类财务统计报表=仓库材料消耗汇总（成本项目）+仓库材料消耗汇总（按车间）+材料收发存明细A+材料收发存明细B+材料收发存明细C+材料收发存分类汇总表+木材消耗汇总表。

文件条目：

文件名称：

原材料库存文件。

简述：

保存原材料的基本资料。

组成：

材料编号+品名型号+规格尺寸+单位+采购计量单位+参数+数量+最低数量+最高数量+单价+备注+大大分类+大分类+分类+小分类。

销售文件。

保存所有销售订单的文件。

组成内部定单号+订货日期+客户编号+总金额+预收率NEWCASTLE号+PO单号包装办法+品质要求+内装箱+外装箱+MADEINCHINA+特别指示+箱正侧内+状态+型号+色号+木材尺寸+光泽度+内绒+表面处理+数量+出货日期+单价。

数据项条目：

名称：

材料编号简述：

材料编号分四个字段（大大分类+大分类+分类+小分类），可以将材料分门别。

类，因为许多地方用到编号，因此将四项和为一项保存一个冗余字段。

为了便于查找。

3.3E-R图程序总体E-R图如图3.4所示：

第9页共36页图3.4程序总体E-R图人员管理模块如图3.5所示：

图3.5人员管理模块第10页共36页管理系统界面查询基本管理出库管理修改密码按日期查询按物品查询进库按人人员设置系统设置员查询操作员设置数据整理打印统计帮助等登陆界面管理图3.7程序层次图材料管理模块如图3.6所示：

图3.6材料管理模块3.4功能模块3.4.1程序层次程序层次如图3.7所示：

3.4.2模块功能说明篇幅所限，仅挑选部分功能说明。

第11页共36页不登陆验证功能：

主要功能为身份验证，防止非法用户进入系统。

实现方法如图3.8所示：

图3.8登陆验证实现方法3.4.3系统数据表仓库物资信息表（材料表），如表3.1所示：

表3.1仓库物资信息表编号字段名称数据类型说明1自动编号Long数值Primarykey主键2规格Text文本必填,字段不允许空串3型号Text文本必填,字段不允许空串4数量Long数值必填字段5价格Long数值必填字段6名称Text文本必填字段第12页共36页进货人员信息表，如表3.2所示：

表3.2进货人员信息表编号字段名称数据类型说明1自动编号Long数值Primarykey主键2姓名Text文本必填,字段不允许空串3联系方式Text文本必填,字段不允许空串入库、出库单信息表，如表3.3所示：

表3.3入库、出库单信息表编号字段名称数据类型说明1自动编号Long数值Primarykey主键2姓名Text文本必填,字段不允许空串3联系方式Text文本必填,字段不允许空串4货物名称Text文本必填,字段不允许空串5货物数量Long数值必填,字段不允许空串6货物规格Text文本必填,字段不允许空串7货物型号Text文本必填,字段不允许空串8价格Long数值必填,字段不允许空串9日期Text文本必填,字段不允许空串四、系统详细设计根据内部订单预定材料的流程图如图4.1所示：

说明：

KDYsl：

可调用数量XQsl：

需求数量KCsl：

库存数量第13页共36页可调用数量=库存数量最低库存量已预约数量设计时需求数量与库存数量、可调用数量分别比较可得出种情况需求数量可调用数量and需求数量库存数量（因为库存数量=可调用数量所以可写成XQslKDYsl）需求数量=可调用数量and需求数量=可调用数量所以可写成KDYsl=XQsl=KCsl）需求数量库存数量（因为库存数量=可调用数量所以不存在这种情况）需求数量可调用数量and需求数量=可调用数量所以可写成XQslKDYsl和KDYsl=XQsl=KCs和XQsl=B.YFYF）;

SELECTA.DHDH,A.KDRQ,B.CLBH,B.SLSL,B.SLSL*B.DJDJASJEJEFROMK_clrk_MASAINNERJOINK_clrk_DASBONA.DHDH=B.DHDHWHERESTATUS=1;

第19页共36页SELECTA.CLBH,B.YFYF,IIf（A.RKSL=0,IIf（ISNULL（QCSL）,0,QCJE/QCSL）,（B.QCJE+A.RKJE）/（B.QCSL+A.RKSL）ASDJDJFROMAVER_MTH_RK2ASALEFTJOINT_SFC_QCASBONA.CLBH=B.BHBH;

功能函数PublicSubDo_Aver_DJ（）Dimda_RecAsADODB.RecordsetDimda_SQLAsStringSetda_Rec=AppCN.Execute（select*fromAVER_DJ）AppCN.BeginTransDoWhileNotda_Rec.EOFda_SQL=updateJ_clclsetDJDJ=&

da_Rec.Fields（DJDJ）&

whereBHBH=&

da_Rec.Fields（CLBH）&

AppCN.Execute（da_SQL）da_SQL=updateK_LLLL_DsetJEJE=&

*k_LLLL_D.SLSLwhereK_LLLL_D.CLBH=&

_da_Rec.Fields（CLBH）&

andK_LLLL_D.DHDHIN（SELECTDHDHFROMAVER_mth_LL2）AppCN.Execute（da_SQL）da_Rec.MoveNextLoopAppCN.CommitTransEndSub收发存明细,追踪某中材料某月的进出库情况，并显示出是那一帐单据进行操作，如果第20页共36页是领料则在摘要中写明成本项目。

计算出每次操作之后的结存数量及金额。

PrivateSubCmdMe_Click（IndexAsInteger）IfIndex=0ThenCallPrintLstv（Me.LstView,LoadResString（804）,材料&

m_CLBH&

收发存明细A,1,1）ElseUnloadMeEndIfEndSubPrivateSubDoGroupCube（SlColAsString,JeColAsString）DimarrSlCol（）AsStringDimarrJeCol（）AsStringDimkAsIntegerDimtotalAsDoubleCallON_GetArray（SlCol,arrSlCol）CallON_GetArray（JeCol,arrJeCol）LstView.ListItems.Add,LstView.ListItems（LstView.ListItems.Count）.SubItems

（1）=总计Fork=0ToUBound（arrSlCol）total=0ForJ=1ToLstView.ListItems.Counttotal=total+Val（LstView.ListItems（J）.SubItems（Val（arrSlCol（k）NextLstView.ListItems（LstView.ListItems.Count）.SubItems（Val（arrSlCol（k）=totalNextFork=0ToUBound（arrJeCol）total=0第21页共36页ForJ=1ToLstView.ListItems.Counttotal=total+Val（LstView.ListItems（J）.SubItems（Val（arrJeCol（k）NextLstView.ListItems（LstView.ListItems.Count）.SubItems（Val（arrJeCol（k）=Format（total,#0.00）NextEndSubPrivateSubForm_Load（）Dimfl_NumAsSingleDimfl_CashAsDoubleMe.Icon=LoadResPicture（101,vbResIcon）Me.Move（Screen.Width-Me.Width）/2,（Screen.Height-Me.Height）/4Me.Caption=查看&

的明细情况CallDoStyleIfGetInitData（fl_Num,fl_Cash）=TrueThenCallDoShow（fl_Num,fl_Cash）CallDoRemain（fl_Num,fl_Cash）EndIfEndSubPrivateSubDoShow（m_drNumAsSingle,m_drCashAsDouble）DimdsRecAsADODB.RecordsetDimdsSQLAsStringDimIAsIntegerDimitmXDimrd_theSLAsSingleDimrd_theJEAsDoubleDimrd_RKJEAsDouble,rd_CKJEAsDoublerd_theSL=m_drNumrd_theJE=m_drCash第22页共36页dsSQL=select*fromSFC_MXA3whereCLBH=&

SetdsRec=AppCN.Execute（dsSQL&

ANDMonth（KDRQ）=&

m_Month&

ANDYear（KDRQ）=&

m_Year）IfdsRec.EOFThenMsgBox无效的材料编号！

ExitSubEndIfI=1SetitmX=LstView.ListItems.Add（,A&

I）itmX.SubItems

（1）=dsRec.Fields（KDRQ）.ValueitmX.SubItems（3）=期初数量itmX.SubItems（10）=rd_theSLitmX.SubItems（11）=Format（m_drCash,#,#0.00）DoWhileNotdsRec.EOFI=I+1SetitmX=LstView.ListItems.Add（,A&

I）rd_RKJE=IIf（dsRec.Fields（RKJE）.Value=,0,dsRec.Fields（RKJE）.Value）rd_CKJE=IIf（dsRec.Fields（CKJE）.Value=,0,dsRec.Fields（CKJE）.Value）rd_theSL=rd_theSL+Val（dsRec.Fields（RKSL）-Val（dsRec.Fields（CKSL）m_drCash=m_drCash+rd_RKJE-rd_CKJEitmX.SubItems

（1）=dsRec.Fields（KDRQ）.ValueitmX.SubItems

（2）=dsRec.Fields（DHDH）.ValueitmX.SubItems（3）=dsRec.Fields（CBXM）.ValueitmX.SubItems（4）=dsRec.Fields（RKSL）.ValueitmX.SubItems（5）=IIf（dsRec.Fields（RKDJ）.Value=,Format（dsRec.Fields（RKDJ）.Value,#,#0.00）第23页共36页itmX.SubItems（6）=IIf（dsRec.Fields（RKJE）.Value=,Format（dsRec.Fields（RKJE）.Value,#,#0.00）itmX.SubItems（7）=dsRec.Fields（CKSL）.ValueitmX.SubItems（8）=IIf（dsRec.Fields（CKDJ）.Value=,Format（dsRec.Fields（CKDJ）.Value,#,#0.00）itmX.SubItems（9）=IIf（dsRec.Fields（CKJE）.Value=,Format（dsRec.Fields（CKJE）.Value,#,#0.00）itmX.SubItems（10）=rd_theSLitmX.SubItems（11）=Format（m_drCash,#,#0.00）dsRec.MoveNextLoopEndSubPrivateSubDoStyle（）DimintWidAsIntegerintWid=1200LstView.ColumnHeaders.Add,序号,600LstView.ColumnHeaders.Add,日期,1000,lvwColumnRightLstView.ColumnHeaders.Add,凭证编号,intWid,lvwColumnRightLstView.ColumnHeaders.Add,摘要,intWid,lvwColumnRightLstView.ColumnHeaders.Add,收入数量,intWid,lvwColumnRightLstView.ColumnHeaders.Add,收入单价,intWid,lvwColumnRightLstView.ColumnHeaders.Add,收入金额,intWid,lvwColumnRightLstView.ColumnHeaders.Add,发出数量,intWid,lvwColumnRightLstView.ColumnHeaders.Add,发出单价,intWid,lvwColumnRightLstView.ColumnHeaders.Add,发出金额,intWid,lvwColumnRightLstView.ColumnHeaders.Add,结存数量,intWid,lvwColumnRightLstView.ColumnHeaders.Add,结存金额,intWid,lvwColumnRightEndSub第24页共36页PrivateSubForm_Resize（）OnErrorResumeNextLstView.Move0,100+500+50,Me.ScaleWidth,Me.ScaleHeight-Me.StatusBar1.Height-650EndSubPrivateFunctionGetInitData（m_giNumAsSingle,m_giCashAsDouble）AsBooleanDimdrRec_1AsADODB.RecordsetDimdrRec_2AsADODB.RecordsetDimdrSQLAsStringGetInitData=Truem_giNum=-2002.1994m_giCash=-2002.1994drSQL=select*fromT_SFCWhereBHBH=&

drSQL=drSQL&

ANDMonth（YFYF）=&

ANDYear（YFYF）=&

m_YearSetdrRec_1=AppCN.Execute（drSQL）IfdrRec_1.EOFThendrSQL=select*fromT_SFC_QCWhereBHBH=&

m_YearSetdrRec_2=AppCN.Execute（drSQL）IfdrRec_2.EOFThenMsgBox没有盘点，没有期初期末数据！

GetInitData=FalseElsem_giNum=drRec_2.Fields（QCSL）.Valuem_giCash=drRec_2.Fields（QCJE）.ValueEndIfdrRec_2.Close:

SetdrRec_2=Nothing第25页共36页Elsem_giNum=drRec_1.Fields（QCSL）.Valuem_giCash=drRec_1.Fields（QCJE）.ValueEndIfdrRec_1.Close:

SetdrRec_1=NothingEndFunctionPrivateSubForm_Unload（CancelAsInteger）m_CLBH=m_Month=0m_Year=0EndSubPrivateSubDoRemain（m_drNumAsSingle,m_drCashAsDouble）Dimrd_theSLA