企业进销存管理信息系统

目录TOC\o"1-5"\h\z\o"CurrentDocument"内容摘要2一、前言1二、系统分析52.1问题的提出2\o"CurrentDocument"2.2分析问题32.3系统设计目标3\o"CurrentDocument"2.3.1系统设计的长远目标：实现ERP系统3\o"CurrentDocument"2.3.2系统设计近期4三、系统总体设计\o"CurrentDocument"3.1数据流图4\o"CurrentDocument"3.2部分数据字典9\o"CurrentDocument"3.3E-R图93.4功能模块11\o"CurrentDocument"3.4.1程序层次11\o"CurrentDocument"3.4.2模块功能说明11\o"CurrentDocument"3.4.3系统数据表21四、系统详细设计13五、编码实现与测试不\o"CurrentDocument"5.1编码摘要17\o"CurrentDocument"5.2程序界面27六、总结与展望\o"CurrentDocument"6.1总结316.2心得体会32致谢32参考文献33内容摘要企业的物资供应管理复杂，繁琐的，物资种类众多，订货，管理，发放的渠道各有差异，因此物资管理必须实现计算机化，而且必须根据企业的具体情况制定便提高工作效率。利用ERP的部分功能，使用MicrosoftVisualBasic6.0及MicrosoftOfficeAccess2003作为开发工具，利用面向对象的结构和自上而下的程序设计方法，联系实际情况设计实现了一个以控制物流为主的管理软件，基本实现了仓库的日常管理和进货出货的查询。充分提高数据的准确性和指导性，提高生产效率和企业效益。关键字：企业资源计划存货数据库面向对象进销存管理系统的设计和制作一、前曰本次毕业设计的题目是进销存管理系统，要求利用VisualBasic完成管理平台设计，构造所用的类库。根据当前的企业一般物资供应管理系统，相应分成几个科室进行物资的计划，订货，核对入库，根据各个部门的需要来发送物资设备，并随时近期进行库存盘点、作台帐，按月、季、年进行统计分析，产生相应报表，以进行有效的生产管理。从根本上说，企业就是一个利用资源（人、财、物、时间），为客户创造价值的组织，ERP就是对这些资源进行计划、调度、控制、衡量、改进的管理技术和信息系统。现今的企业并不只是人力资源、资金和产品的组合，它还应该包括供应、销售、市场营销、客户服务、需求预测，以及其他更多的东西。针对目前公司存在的问题，本文设计一个以物料流处理为主，具有一定智能特性和网络特性的管理系统。该系统不仅能智能的控制企业的物流情况，而且还具有操作方便、便于纠错的特点。概括起来系统的优点如下：（1）用户基本资料一次性建立，便于规范控制。（2）物料控制半自动化，加强了各个部门之间的联系。（3）提高库存管理的服务水平，最大限度地降低库存量，包括中间库存和在制品的库存，以减少在库存上的资金积压。（4）最大限度的保证订货任务的按期完成。（5）提高计划的可能性，实现均衡生产。（6）集成管理职能，提高管理效率。本文主要阐述了进销存管理系统的设计目标，系统要求、总体设计、详细设计、测试等。二、系统分析2.1问题的提出本公司目前存在的问题是：信息化不足，计算机使用率低，大量的日常工作皆是手工处理，因此工作效率低落，企业内部沟通不良等等问题很难克服，仓库不能及时为采购和生产提供准确的指导性数据。公司希望解决的问题是：解决企业内部统一的物料编码管理，物流管理中的信息流通，库存积压与物料的配套问题，完善质量检验，对生产过程中的质量信息进行全面管理。包括原材料、外购外协件、半成品、成品各道工序的质量控制，并对各种数据进行统计分析。对公司的各种资源与信息进行查询，包括销售、采购、生产、质量、人事、财务等信息数据进行查询、统计与分析，对根据信息作出快速合理的经营决策。2.2分析问题本公司的主要流程是：接到一张销售订单，由销售部门转化为内部订单，转给生产部门，生产部门根据订单上的产品、数量，技术部已经配好的物料清单，及各车间半成品储存量，汇总材料需求，然后根据库存情况决定请购及预约情况，采购部门根据请购单下采购单，然后材料入库，这一切都是本管理系统所力求实现的功能。2.3系统设计目标2.3.1系统设计的长远目标：实现ERP系统系统运行集成化：这是ERP应用成功在技术解决方案方面最基本的表现。只有集成一体化运行起来，才有可能达到：降低库存，提高资金利用率和控制经营风险；控制产品生产成本，缩短产品生产周期；提高产品质量和合格率；减少财务坏帐、呆帐金额等。业务流程合理化：这是ERP应用成功在改善管理效率方面的体现。ERP应用成功的前提是必须对企业实施业务流程重组，因此，ERP应用成功也即意味着企业业务处理流程趋于合理化，并实现7ERP应用的以下几个最终目标：企业竞争力得到大幅度提升；企业面对市场的响应速度大大加快；客户满意度显著改善。绩效监控动态化：ERP的应用，将为企业提供丰富的管理信息。如何用好这些信息并在企业管理和决策过程中真正起到作用，是衡量ERP应用成功的另一个标志。在ERP系统完全投入实际运行后，3/35企业应根据管理需要，利用ERP系统提供的信息资源设计出一套动态监控管理绩效变化的报表体系，以期即时反馈和纠正管理中存在的问题。2.3.2系统设计近期（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部分数据字典数据流图描述了系统的分解，但没有对图中各成分进行说明，数据字典就是为了数据流图的每个数据流、文件、加工，以及组成数据流或文件的数据项作出说明。数据流条目：出库单=出库单号+日期+客户名称+物资类别+制单人员+记帐人员+发货人+状态+｛销售订单号+品名+单位+数量+规格+备注+单价｝各类财务统计报表=仓库材料消耗汇总（成本项目）+仓库材料消耗汇总（按车间）+材料收发存明细A+材料收发存明细B+材料收发存明细C+材料收发存分类汇总表+木材消耗汇总表。文件条目：文件名称：原材料库存文件。简述：保存原材料的基本资料。组成：材料编号+品名型号+规格尺寸+单位+采购计量单位+参数+数量+最低数量+最高数量+单价+备注+大大分类+大分类+分类+小分类。文件名称：销售文件。简述：保存所有销售订单的文件。组成内部定单号+订货日期+客户编号+总金额+预收率——NEWCASTLE号+PO单号包装办法+品质要求+内装箱+外装箱+MADEINCHINA+特别指示+箱正侧内+状态+｛型号+色号+木材尺寸+光泽度+内绒+表面处理+数量+出货日期+单价｝。数据项条目：名称：材料编号简述：材料编号分四个字段（大大分类+大分类+分类+小分类），可以将材料分门别。类，因为许多地方用到编号，因此将四项和为一项保存一个冗余字段。为了便于查找。3.3E-R图程序总体E-R图如图3.4所示：图3.4程序总体E-R图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数值Primarykey主键2规格Text文本必填，字段不允许空串3型号Text文本必填，字段不允许空串4数量Long数值必填字段5价格Long数值必填字段6名称Text文本必填字段

进货人员信息表，如表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：库存数量可调用数量=库存数量一最低库存量一已预约数量设计时需求数量与库存数量、可调用数量分别比较可得出4种情况需求数量〉可调用数量and需求数量〉库存数量（因为库存数量〉=可调用数量所以可写成XQsl>KDYsl）需求数量〉=可调用数量and需求数量<=库存数量（因为库存数量〉=可调用数量所以可写成KDYsl<=XQsl<=KCsl）需求数量〈可调用数量and需求数量〉库存数量（因为库存数量〉=可调用数量所以不存在这种情况）需求数量〈可调用数量and需求数量〈库存数量（因为库存数量〉=可调用数量所以可写成XQsl<KDYsl）综上所述：比较情况分为三支XQsl>KDYsl和KDYsl<=XQsl<=KCs和XQsl<KDYsl算法的设计企业的流转包括实物流转和成本流转，在理论上，两者应一致。但在实际工作中，企业的存货进出量很大，存货的品种繁多，存货的成本多变，难以保证各种存货的成本流转与实物流转相一致。由于同一种存货，尽管价格不同，但均能满足销售或生产需要，在存货减少时，毋需辨别是哪一批实物被发出，哪一批库存，成本的流转顺序和实物的流转顺序可以分离，只要知道发出成本和库存成本即可。这样就出现了存货成本的流转假设。采用某种存货成本流转的假设，在期末存货与发出存货之间分配成本，便产生了不同的存货成本分配方。图4.1内部订单预定材料流程图材料收发存分类汇总的程序流程图如图4.2所示:当判年,伯tt皎图4.2材料收发存分类汇总的程序流程图到中熊支对照艾件中逾到谜帅持料附大饕型中玄品冀义表子当判年,伯tt皎图4.2材料收发存分类汇总的程序流程图到中熊支对照艾件中逾到谜帅持料附大饕型中玄品冀义表子小类型中丈和熊亥表宗柔示所有颤据校小染型汇卷所有金藐粼屋摄第徵脚材料鼐号到基本浸料行■M料曲品客祁规格版已再收发寿中从收龄存■聃削中膏出朋初数宿版询料恣陶玄件中查出人点数昼金曲从®料虔件中有基存货计价的方法不同，对企业财务状况、盈亏情况会产生不同的影响，主要表现在以下几个方面：存货计价对企业损益的计算有直接影响。存货计价对于资产负债表有关项目数额计算有直接影响。存货计价方法的选择对计算缴纳所得税的数额有一定的影响。因本公司以前是手工计算，为了减少计算量，使用的全月一次加权平均法，报税务局的也是全月一次加权平均法，为了过度时期的使用，本系统不仅设计了更合理的移动加权平均法，同时设计了全月一次加权平均法。加权平均法（称全月一次加权平均法），指以本月全部收货数量加月初存货数量作为权数，去除本月全部收货成本加上月初存货成本，计算出存货的加权平均单位成本，从而确定存货的发出和库存成本。计算公式如下：t_月初结存金额+2[本月各批收贷的实际单位成本X本月各批收货的数量]存贝单蚀成卒=月初结存数量十本月各批收资粼量之和本月发出存货成本=本月发出存货数量X存货单位成本月末库存存货成本=月末库存存货数量X存货单位成本移动平均法移动平均法亦称移动加权平均法，指本次收货的成本加原有库存的成本，除以本次收货数量加原有收货数量，据以计算加权单价，并对发出存货进行计价的一种方法。移动加权平均法的优点：能使管理当局及时了解存货的结存情况，而且计算的平均单位成本以及发出和结存的存货成本比较客观。缺点：每次收货都要计算一次平均单价，计算工作量较大。五、编码实现与测试5.1编码摘要材料收发存分类汇总的部分代码：sql语句：SELECT[K_llll_D].[CLBH]ASCLBH,[K_llll_M].[KDRQ]ASKDRQ,[K_llll_M].[CBXM]ASCBXM,[K_llll_M].[DHDH],[K_llll_D].[SLSL]ASSLSL,[k_LLLL_D].[JEJE]ASJEJEFROMK_llll_MINNERJOINK_llll_DON[K_llll_M].[DHDH]=[K_llll_D].[DHDH]WHERE[K_llll_M].[status]=1;SELECT[K_clrk_D].[CLBH]ASCLBH,[K_clrk_M].[KDRQ]ASKDRQ,[K_clrk_M].[DHDH]ASDHDH,[K_clrk_D].[SLSL]ASSLSL,[SLSL]*[K_clrk_D].[DJDJ]ASJEJEFROMK_clrk_MINNERJOINK_clrk_DON[K_clrk_M].[DHDH]=[K_clrk_D].[DHDH]WHERE[K_clrk_m].[STATUS]=1;SELECTA.CLBH,Sum(A.SLSL)ASZSL,Sum(A.JEJE)ASZJE,year([KDRQ])&"-"&Month([KDRQ])&"-"&"1"ASMONFROMSFC_rkASAGROUPBYA.CLBH,year([KDRQ])&"-"&Month([KDRQ])&"-"&"1";SELECTA.CLBH,Sum(IIf(ISNULL(A.SLSL),0,A.SLSL))ASZSL,Sum(IIf(ISNULL(A.JEJE),0,A.JEJE))ASZJE,year([KDRQ])&"-"&Month([KDRQ])&"-&"1"ASMONFROMSFC_ckASAGROUPBYA.CLBH,year([KDRQ])&"-"&Month([KDRQ])&"-"&"1";SELECTA.BHBHASBHBH,A.YFYFASYFYF,IIf(ISNULL(A.QCSL),0,A.QCSL)ASQCSL,IIf(ISNULL(B.ZSL),0,B.ZSL)ASSRSL,[QCSL]+SRSLASMISL,IIf(ISNULL(A.QCJE),0,A.QCJE)ASQCJE,IIf(ISNULL(B.ZJE),0,B.ZJE)ASSRJE,[QCJE]+SRJEASMIJEFROMT_SFC_QCASALEFTJOINSFC_RK_GPASBON(A.YFYF=CDATE(B.MON))AND(A.BHBH=B.CLBH)ORDERBY[bhbh];SELECTA.BHBH,A.YFYF,A.QCSL,A.SRSL,A.MISL-IIF(ISNULL(B.ZSL),0,B.ZSL)ASQMSL,A.QCJE,A.SRJE,A.MIJE-IIF(ISNULL(B.ZJE),0,B.ZJE)ASQMJE,IIF(ISNULL(B.ZSL),0,B.ZSL)ASFCSL,IIF(ISNULL(B.ZJE),0,B.ZJE)ASFCJEFROMSFC_AAAASALEFTJOINSFC_CK_GPASBON(A.YFYF=CDATE(B.MON))AND(A.BHBH=B.CLBH)ORDERBY[bhbh];SELECTA.BHBH,B.PMPMASPMPM,B.GGGGASGGGG,A.YFYF,A.QCSL,A.SRSL,A.FCSL,A.QMSL,A.QCJE,A.SRJE,A.FCJE,A.QMJE,B.FLAA,B.FLBB,B.FLCCFROMSFC_BBBASALEFTJOINJ_clclASBONA.BHBH=B.BHBH18/35ORDERBYA.BHBH;SELECTSFC_CCC.*,IIf(ISNULL([O_Dzfy].[ZWZW]),"空",[O_Dzfy].[ZWZW])ASZWBBFROMSFC_CCCLEFTJOINO_DzfyON[O_Dzfy].[FHFH]=[SFC_CCC].[FLBB];SELECTSFC_ZW_B.*,IIf(isnull([O_Dzfy].[ZWZW]),"空",[O_Dzfy].[ZWZW])ASZWCCFROMSFC_ZW_BLEFTJOINO_DzfyON[SFC_ZW_B].[FLCC]=[O_Dzfy].[FHFH];SELECTA.FLBBASFLBB,A.ZWBBASZWBB,A.ZWCCASZWCC,A.YFYFASYFYF,Sum(A.QCSL)ASQCZSL,Sum(A.SRSL)ASSRZSL,Sum(A.FCSL)ASFCZSL,Sum(A.QMSL)ASQMZSL,Sum(A.QCJE)ASQCZJE,Sum(A.SRJE)ASSRZJE,Sum(A.FCJE)ASFCZJE,Sum(A.QMJE)ASQMZJEFROMSFC_ZW_CASAGROUPBYA.FLBB,A.ZWBB,A.YFYF,A.ZWCC;全月一次加权平均计算单价的部分代码：sql语句：SELECTA.CLBH,SUM(A.SLSL)ASRKSL,SUM(A.JEJE)ASRKJEFROMAVER_MTH_RK1ASAWHERENOT(ISNULL(A.YFYF))GROUPBY[CLBH];SELECTA.CLBH,[SLSL],[JEJE],[YFYF]FROMAVER_MTH_RKASALEFTJOINT_SFC_QCASBON(A.CLBH=B.BHBH)AND(A.KDRQ>=B.YFYF);SELECTA.DHDH,A.KDRQ,B.CLBH,B.SLSL,B.SLSL*B.DJDJASJEJEFROMK_clrk_MASAINNERJOINK_clrk_DASBONA.DHDH=B.DHDHWHERESTATUS=1;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="&da_Rec.Fields("DJDJ")&"*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收发存明细,追踪某中材料某月的进出库情况，并显示出是那一帐单据进行操作，如果是领料则在摘要中写明成本项目。计算出每次操作之后的结存数量及金额。/35PrivateSubCmdMe_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=0ForJ=1ToLstView.ListItems.Counttotal=total+Val(LstView.ListItems(J).SubItems(Val(arrJeCol(k))))/35NextLstView.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="查看［"&m_CLBH&"］的明细情况"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_drCashdsSQL="select*fromSFC_MXA3whereCLBH='"&m_CLBH&"'”SetdsRec=AppCN.Execute(dsSQL&"ANDMonth(KDRQ)="&m_Month&"ANDYear(KDRQ)="/35&m_Year)IfdsRec.EOFThen'MsgBox”无效的材料编号！"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").ValueTOC\o"1-5"\h\zitmX.SubItems(5)=IIf(dsRec.Fields("RKDJ").Value="”,"”,Format(dsRec.Fields("RKDJ").Value,"##,##0.00”))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="”,"”,/35LstView.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.AddLstView.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,lvwColumnRightitmX.SubItems(9)itmX.SubItems(10)=rd_theSLitmX.SubItems(ll)=Format(m_drCash,”##,##0.00”)dsRec.MoveNextLoopEndSubPrivateSubDoStyle()DimintWidAsIntegerintWid=1200,”序号”，600LstView.ColumnHeaders.Add,EndSubPrivateSubForm_Resize()OnErrorResumeNextLstView.Move0,100+500+50,Me.ScaleWidth,Me.ScaleHeight-Me.StatusBarl.Height-650EndSubPrivateFunctionGetInitData(m_giNumAsSingle,m_giCashAsDouble)AsBooleanDimdrRec_1AsADODB.RecordsetDimdrRec_2AsADODB.RecordsetDimdrSQLAsStringGetInitData=Truem_giNum=-2002.1994m_giCash=-2002.1994drSQL="select*fromT_SFCWhereBHBH='"&m_CLBH&"""drSQL=drSQL&"ANDMonth(YFYF)=〃&m_Month&"ANDYear(YFYF)=〃&m_YearSetdrRec_1=AppCN.Execute(drSQL)If,”序号”，600drSQL="select*fromT_SFC_QCWhereBHBH='"&m_CLBH&"""drSQL=drSQL&"ANDMonth(YFYF)="&m_Month&"ANDYear(YFYF)="&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=NothingElsem_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_theSLAsSingleDimrd_theJEAsDoubleDimrd_RKJEAsDouble,rd_CKJEAsDoublerd_theSL=m_drNumrd_theJE=m_drCashForI=1ToMe.LstView.ListItems.Countrd_theSL=rd_theSL+Val(LstView.ListItems(I).SubItems(4))Val(LstView.ListItems(I).SubItems(7))LstView.ListItems(I).SubItems(10)=rd_theSLIfrd_theSL<>0Thenrd_CKJE=Val(Format(LstView.ListItems(I).SubItems(9),"###0.00”))rd_theJE=rd_theJE+rd_RKJE-rd_CKJEElserd_theJE=0EndIfLstView.ListItems(I).SubItems(11)=Format(rd_theJE,"##,##0.00”)NextEndSub5.2程序界面1.系统总管理界面如图5.1所示:图5.1系统总管理界面2.系统入库操作界面