企业进销存管理信息系统.pdf

《企业进销存管理信息系统.pdf》由会员分享，可在线阅读，更多相关《企业进销存管理信息系统.pdf（35页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、内容摘要、前言二、系统分析2.1问题的提出2.2分析问题2.3系统设计目标企业进销存管理信息系统目录2.3.1系统设i:I的长远目标：实现ERP系统2.3.2系统设i:I近期三、系统总体设计3.1数据流固3.2部分鼓据字典3.3 E-R图3.4功能模块3.4.1程序层次3.4.2模块功能说明3.4.3系统数据表I I 35 2 5 2 3 3 3 4 4 9 9 11 11 11 21 企业进销存管理信息系统四、系统详细设计13 五、编码实现与测试不5.1编码摘要17 5.2程序界面27 六、总结与展望6.1总结31 6.2心得体会32 致谢32 参考文献33 日I35 企业；近销存管理信息系

2、统内容摘要企业的物资供应管理复杂，繁琐的，物资种类众多，订货，管理，发放的渠道各有差异，因此物资管理必须实现t才算机化，而且必须根据企业的具体情况制定便提高工作效率。利用ERP的部分功能，使用MicrosoftVisual Basic 6.0及licrosoftOffice Access 2003作为开发工具，利用丽向对象的结构和自上而下的程序设计方法，联系实际情况设计实现了一个以控制物流为主的管理软件，基本实现了仓库的日常管理和进货出货的查询。充分提高数据的准确性和指导性，提高生产效率和企业效益。关键字：企业资源讨划存货数据库面向对象企业；近销存管理信息系统进销存管理系统的设计和制作一、前言

3、本次fl,业设计的题目是进销存管理系统，要求利用VisualBasic完成管理平台设计，构趋所用的炎廊。根据当前的企业一般物资供应管理系统，相应分成几个科室进行物资的计划，订货，核对入库，根据各个部门的需要来发送物资设备，并随时近期；近行库存必点、作台帐，t在月、季、年逃行统计分析，产生相应报表，以避行有效的生产管理。从根本上说，企业就是一个利用资源（人、财、物、时间），为客户创造价值的组织，ERP就是对这些资派；近行计划、调皮、控制、衡量、改进的管理技术和信息系统。现今的企业并不只是人力资源、资金和产品的组合，它还应该包指供应、销售、市场营销、客户服务、需求预测，以及其他更多的东西。针对目前

4、公司存在的问题，本文设计一个以物料流处理为主，具有一定智能特性和网络特性的管理系统。该系统不仅能智能的控制企业的物流情况，而且还具有操作方便、便于纠错的特点。概括起来系统的优点如下：(1）用户基本资料一次性建立，便于规范控制。(2）物料控制半自动化，加强了各个部门之间的联系。(3）提高r!i1存管理的服务水平，最大限度地降低库存盏，包括中间库存和在制品的库存，以减少在库存上的资金积压。(4）最大限度的保证订货任务的按期完成。(5）提高计划的可能性，实现均衡生产。(6）集成管理职能，提高管理效率。本文主要阐述了进销存管理系统的设计目标，系统要求、总体设计、详细设ti、测试等。二、系统分析2.1问

5、题的提出2 I 35 企业；近销存管理信息系统本公司目前存在的问题是信息也不足，计算机使用率低，大量的日常工作皆是手工处理，因此工作效率低落，企业内部沟通不良等等问题很难克服，仓库不能及时为采购和生产提供准确的指导性数据。公司希望解决的问题是解决企业内部统一的物料编码管理，物流管理中的信息流通，库存积压与物料的配套问题，完善质量检验，对生产过程中的质量信息进行全而管理。包括原材料、外购外协件、半成品、成品各道工序的质量控制，并对各种数掘进行统讨分析。刘公司的各种资源与信息进行查询，包括销售、采购、生产、质量、人事、财务等信息数掘进行查询、统计与分析，对根据信息作出快速合理的经营决策。2.2分析

6、问题本公司的主要流程是：接jilj张销售订单，由销售部门转化为内部订单，转给生产部门，生产部门根据汀单上的产品、数量，技术都已经配好的物料消单，及各车间半成品储存量，汇总材料需求，然后根据库存情况决定消购及预约情况，采购部门根据消购单下采购单，然后材料入库这一切都是本管理系统所力求实现的功能。2.3系统设计目标2.3.l系统设计的长远目标：实现ERP系统1.系统运行集成化：这是ERP应用成功在技术解泱方案方而段基本的表现。只苟祭成一体化运行起来，才有可能达到：降低廊存，提高资金利用率和控制经营风险：控制产品生产成本，缩短产品生产周期：提高产品质量和合格率：减少财务坏帐、果帐金额等。2.业务流程

7、合理化：这是ERP应用成功在改善管理效率方丽的体现。ERP应用成功的前提是必须对企业实施业务流程重组，因此，ERP应用成功也即意味着企业业务处理流程趋于合理化，并实现了ERP应用的以下几个最终目标：企业竞争力得到大幅度提升：企业而对市场的响应速度大大加快，客户满意度显著改善。3.绩效监控动态化：ERP的应用，将为企业提供丰富的管理信息。如何用好这些信息并在企业管理和决策过程中真正起到作用，是衡量ERP E吃用成功的另一个标志在ERP系统完全投入实际运行后，3 I 35 企业；近销存管理信息系统企业府，根据管理需要，利用ERP系统提供的信息资源设计出一套动态ll监控管理锁效变化的报表体系，以期R

8、P时反锁和纠正管理中存在的问题。2.3.2系统设计近期(1）建立基本资料信息库，规范所有资料信息。(2）物料控制半自动化，加强了各个部门之间的联系。(3）商库存管理的服务水平，最大限度地降低序存盏，以减少在库存上的资金积压。(4）最大限度的保证订货任务的按期完成。(5）提高计划的可能险实现均衡生产：(6）集成管理职能，提高管理效率。三、系统总体设计3.1 数据流图顶层数据流剧如昼I3.1所示：4 I 35 企业；近销存管理信息系统供应留查询oRl备刻R表注1自存营理系统材料库单采购、汀单l鲁我表单各类衰草SR廿tAB贝。辛茹uam阜口出!11 单销售订单客户进销存管理系统顶层数据流阁因3.1

9、5 I 35。层数据流民虫日创3.2所示企业；近销存管理信息系统采购订阜盘点报表材料庭单也提tm箱单报刊天资料单销售汀单俗惶惶把华国备关统计Em衰采购军统财务军统利刻晶响百川崎盯成口MW半成口”、人洋原材料半成晶领科色官军统2 物控军统销售军统销售立件ltt部军统半JiR晶库存文件生产军统进销存管理系统0层数据流阁倒3.26 I 35 1层费生抵流阪如阁3.3所示报”天资制单山山也贝漏阻抽血肉曲企业；近销存管理信息系统销售订单中且她恤扭扭碎口报关内部订单订单处理军统山山aR曲也山也贝岳且钮植于脯情ii文件内部、汀单出货逼知单 出揣冒a艾件产品俐梆“忡口回仲工严宿皿细川曲申出拟出产品商文件进销存

10、管理系统l层数据流阁7 I 35 倒3.3一:盖 章 唾-.l d捆 在IL 割草4扭 辑 革t 剖革；:”,.重略的阴气（刷刷）一边缝每毅盹M耐眼部扣除宰割4 唱唱辑、袭制堕ii&33易L营EUH比ERA句“，laa岖每哇BEEt.ttEe警偶S写tttttliigce堕氯88T制缸”uauuF伊咆W定哇哇咂建瞄I!1,g曼时制Mm码也制扣除军费司一叫川响nn一豆事事毒Jn-p s艇wef事k每tHEE$st阿伶也unaa耐由qBEBEE叭”是创钝AZe”R警TEEETE-,.gu4蟹Z萃价lAvi-3aaZBes-&T NMmhu言如州民1吨Iii茸茸唱链瞿事靠靠！企业；近销存管理信息系统

11、3.2部分数据字典数据流阁梢述7系统的分解，但没有对剧中各成分进行说明，数据字典就是为了数据流阁的每个数据流、文件、加工，以及组成数据流或文件的数据顷作出说明。数据流条曰：出1萃单出,tr.单号日期客户窄，称物资类别寺和l单人员记llc人员发货人状态销售汀单号oI，名单位数量规格备i主单价各类财务统tt才臣表仓库材料消娓汇总（成本项目）+仓库材料消施汇总（按车间材料收发存明细A材料收发存明细B叫才料收发存明细C材料收发存分类汇总表木材消辈革汇总表。文牛条目文件名称：原材料库存文伶。简i在保存原材料的基本资料。组成：材料编号品伊i型号规格尺寸单位采购计量单位参数数量最低数量最高数量单价备注大大分

12、炎大分类分类小分类。文件名称：销售文件。简述保存所有销售订单的文件。组成内部定单号订货日期客户编号总金额预收率一NEWCASTLE号PO单号包装办法品质要求内装箱外装箱以DEIN CHINA特别指示箱正侧内状态型号色号木材尺寸光泽度内绒表而处理数量出货日期单价。数据项条曰：名称材料编号简述材料编号分四个字段（大大分类大分类分类叫、分炎，可以将材料分门别。炎，因为许多地方用到编号，因此将四项和为一项保存一个冗余字段。为了便于查找。3.3 E-R图程序总体E-R阁如怪I3.4所示9 I 35 总t:Vtj、J:.ln.,人织管理模块如昼I3.5所示：编号企业；近销存管理信息系统司;i斗，1.曹、记

13、tfi=阁3.4程序总体E-R倒i挂货、仕l货人员姓名剧3.5人员管理模块10 I 35 I l，货，人(Al.z o n 联系方式企业；近销存管理信息系统材料管理模块如鉴I3.6所示：品,t价格1号H捋IJl!怖.I,称前1号材料管理模块剧3.63.4功能模块3.4.1程序层次理ff层次如因3.7所示登llrW丽管理系统界而打印统计帮助等系统设！.询Ii.基本管理数据整理操作员设置人员设置饺人员盒询按物品金询技日期盒询修改密码出席管理道库管理程序层次阁剧3.7 II I 35 3.4.2模块功能说明篇幅所坝，仅挑i在部分功能说明企业；近销存管理信息系统不登陆验证功能主要功能为身份验证，防止非

14、法用户地入系统。实现方法如茎I3.8所刁苦苦陈敏说徒刑fl!；误N y 进入系统国3.8登陆验证实现方法3.4.3系统数据表仓库物资信息表材料表），如表3.1所示：司是3.1 仓库物资信息表编号字段f;称数据炎型说明1 自动编号L。ng数值Primary key主键2 规格Text文本必埃，字段不允许空串3 型号Text文本必埃，字段不允许空串4 数量L。ng数值必填字段5 价格L。ng数值必填字段6 名称Text文本必填字段12 I 35 企业；近销存管理信息系统进货人员信息表，如表3.2所示：表3.2进货人员信息表编号字段名称数据类型1 自动编号L。ng数值2 姓名Text文本3 联系方式

15、Text文本入序、出l1f单信息表，女日表3.3所示 3.3 入廊、出j擎单信息表编号字段名称数损失型1 自动编号L。ng数值2 姓名Text文本3 联系方式Text文本4 货物名称Text文本5 货物数量L。ng数值6 货物规格Text文本7 货物型号Text文本8 价格L。ng数值9 日期Text文本四、系统详细设计根据内部订单预定材料的流程闺女日阁4.1所示说明KDYsl：可调用数量XQsl:需求数量KCsl:序存数量13 I 35 说明Primary key主键必填，字段不允许空串必填，字段不允许空串说明Primary key主键必填，字段不允许空串必填，字段不允许空串必填，字段不允许

16、空串必填，字段不允许空串必填，字段不允许空串必填，字段不允许空串必填，字段不允许空串必填，字段不允许空串企业；近销存管理信息系统可调用数量库存数量最低库存量-己预约数量设计时需求数量与库存数量、可调用数量分别比较可得出4种情况需求数量可调用数量and需求数量库存数量（因为库存数量可调用数量所以可写成XQslKDYsl)需求数量可调用数最and需求数量。库存数量（因为库存数量可调用数量所以可写成KDYsl=X Qsl=KCsl)需求数量可调用数量and需求放最库存激量（因为库存数量司调用数量所以不存在这种情况）需求数量可调用数量and需求数量库存数量（因为库存数量可调用数量所以可写成XQslKD

17、Ys l平OKDYsl=XQs l=KCs和XQslKDYsl 算法的设计企业的流传包括实物流1专利成本流转，石E理论上，两者应一数。但在实际工作中，企业的存货迹出量很大，存货的品种繁多，存货的成本多变，难以保证各种存货的成本流转与实物流转相一致。由于网一种存货，尽管价格不同，但均能满足销售或生产需要，在存货减少时，毋需辨别是哪一批实物被发出，哪一批库存，成本的流转顺序和实物的流转顺序可以分离，只要知道发出成本利库存成本RPiiJ。这样就出现了存货成本的流转假设采用某种存货成本流转的假设，在期末存货与发出存货之间分配成本，便产生了不同的存货成本分配方a14 I 35 哩醺a、Ec:l 量用z缸

18、，呼“极毒飞.句审眼睛脚西且也叮句且电量通阳嚣冉幢但供血咱阎4.1 内部订单预定材料流程怪材料收发存分类汇总的程序流程剧如星I4.2所示：15 I 35 领崖峭剧从收彼得糊例中量1111刷饲数宿从司”宜呻噩$入/!i数量金额从领剧变悻呻!II馁4数量金额,t.11:剿来数据企业；近销存管理信息系统输信用从81草收发布呻t童歌数辑Z根帽每.fllH4镜等Jll贵梢窟材剧由句品各相规搭fll申庭直对JI.3l:1l呻矗flit:.!柿材坞的大提型呻.:it.fll l电.:it承个类型中立担负直隶理15(寸、型汇.e.所宵拿额数2极大提型汇总所有金额数量量显示所宵数宿槌禾当峭元数娼阁4.2材料收发

19、存分类汇总的程序流程倒存货计价的方法不同，对企业财务状况、盈亏情况会产生不同的影响，主要表现在以下几个方而(1）存货计价对企业损益的计算有直接影响(2）存货计价对于资产负债表有关项目数额计算有直接影响。(3）存货计价方法的选择对计算缴纳所得税的数额有一定的影响。因本公司以前是手工ti算，为了减少计算囊，使用的全月一次加权平均法，!l税务局的也是全月一次加权平均法，为了过度时期的使用，本系统不仅设计了更合理的移动加权平均16 I 35 企业；近销存管理信息系统法，同时设计7全月一次加权平均法力日权平均法（称全月一次加权平均法，指以本月全部收货数量力日月初存货数量作为权数，去涂本月全部收货成本加上

20、月初存货成本，计算出存货的加权平均单位成本，从而确定存货的发出利库存成本计算公式如下：月初结存金额二本月各批收货的实际单位成本x本月各批收贺的数量l存货单位成本月初结存数量本月各批收货数量之和木月发出存货成东东月发出存货数量X存货单位威东月末库存存货戚本月末库存存货数量X存货单位成本移动平均法移动平均法亦称移动加权平均法，指本次收货的成本加原有库存的成本，除以本次收货数量加原有收货数量，据以计算加权单价，并对发出存货进行材价的一种方法移动加权平均法的优点：能使管理当局及时了解存货的结存情况，而且计算的平均单位成本以及发出和纺存的存货成本比较客观。缺点每次收货都要讨算一次平均单价，讨算工作量较大

21、。五、编码实现与测试5.1编码摘要材料收发存分类汇总的部分代码sql i在句：SEL配TK_llll_D.CLB剖AS CLBH,K_llll_M.KDRQ AS KD闷，K_llll川.CBXM AS CB棚，K_llll_M.DHD时，K_llll_D.SLSL AS SLSL,k_LLLL_D.JEJE AS JEJE FROM K _llll_M INNER JOIN K _l lll_D ON K _llll_M.DHD的K_llll_D).DHDH)WHERE K _llll_M.status)=l;SELECT 飞clrk_D.CLBH)AS CLBH,K_clrk_M.KDRQ

22、)AS KD邸，K_clrk_M).DHDH)AS DHDH,K _clrk_D.SLSL)AS SLSL,SLSL),1,K _clrk_D.DJDJ)AS JEJE FROM K _clrk_M INNER JOIN K _clrk_D ON K _clrk_M).DHDH)=K _clrk_D).DHDH)附fEREK _clrk_m.STATUS)=l;17 I 35 企业；近销存管理信息系统SEL配TA.CLBH,Sum(A.SLSL)AS ZSL,Sum(A.JEJE)AS ZJE,year(KDRQ)气M。nth(KDRQ)&_N 气ASMON!ROM SlC rk AS A G

23、ROUP BY A.CLBH,ye世（KDRQ)&_N&M。nth(KDRQ)气1，SELECT A.CLBH,Sum(!If(ISNULL(A.SLSL),0,A.SLSL)AS ZSL,Sum(Ilf(ISNULL(A.JE冗）,0,A.JEJE)AS Z咒，year(KDRQ)气Month(KDRQ)气&NlN AS MON!ROM SlC ck AS A GROUP BY A.CLBH,ye世（KDRQ)&_N&M。nth(KDRQ)气1，SELECT A.BHBH AS BHBH,A.YlYl AS YlYl,!If(ISNl几L(A.QCSL),0,A.QCSL)AS QCSL,I

24、lf(ISNULL(B.ZSL),0,B.ZSL)AS SRSL,QCSL+SRSL AS M ISL,!If(ISNULL(A.QCJE),0,A.QCJE)AS QCJE,!If(ISNl几L(B.ZJE),0,B.ZJE)AS SRJE,QCJE+SRJE AS MIJE!ROM T_SlC_QC AS A LEFT JOIN SFC_RK_GP AS B ON(A.YlYf=CDATE(B.MON）州D(A.BHBH=B.CLBH)ORDER BY bhbh;SELECT A.BH BH,A.YlYl,A.QCSL,A.SRSL,A.!ISL-Ill(ISNULL(B.ZSL),0,B

25、.ZSL)AS QMSL,A.QCJE,A.SRJE,A.MIJE-IIF(IS阳LL(B.ZJE),0,B.ZJE)AS QMJE,!If(ISNULL(B.ZSL),0,B.ZSL)AS FCSL,!IF(ISNl几L(B.ZJE),0,B.ZJE)AS fCJE!ROM SlC_AAA AS A LEFT JOIN SlC_CK_GP AS B ON(A.YlYl=CDATE(B.MON)AND(A.BHBH=B.CLBH)ORDER BY bhbh;SELEi口A.BHBH,B.PMPM AS PMPM,B.GGGG AS GGGG,A.YfYl,A.QCSL,A.SRSL,A.!CS

26、L,A.QMSL,A.QC咒，ASRJE,A.fC元，A.QMJE,B.FLAA,B.FL邸，B.FLCC!ROM SlC_BBB AS A LEFT JOIN J_clcl AS BON A.BHBH=B.BHBH 18 I 35 企业；近销存管理信息系统ORDER BY A.BHBH:SELECT SlC_CCC.*IIf(ISt-lJLL(O _Dzfy.ZWZW），空气O_Dzfy.ZWZW)AS ZWBB!ROM SlC_CCC LE!T JOIN O _Dzfy ON O_Dzfy.FH!H=SFC _CCC.FLBB;SELECT SlC_ZW_B.*Ilf(isnull(O_D

27、zfy.ZWZW），空气O_Dzfy.ZWZW)AS ZW!ROM SlC_ZW_B LE!T JOIN O _Dzfy ON SFC_Z飞Bl.FLCC=O_Dzfy.FH!H;SELECT A.lLBB AS lL邸，AZWBB AS ZW邸，AZWCC AS ZWCC,A.YlYl AS YlYl,Sum(A.QCSL)AS QCZ丸，Sum(A.SRSL)AS SRZSL,Sum(A.FCSL)AS lCZSL,Sum(A.QMSL)AS QMZSL,Sum(A.Q CJE)AS QCZE,Sum(A.S盯E)AS SRZE,Sum(A.lCE)AS FCZJE,Sum(A.QMJE)

28、AS QMZJE!ROM SlC ZW CASA GROUP BY A.FLBB,A.ZWBB,A.YlYl,A.ZWCC;全月一次加权平均ti算单价的部分代码sql i吾句：SEL配TA.CLBH,SU M(A.SLSL)AS RKSL,SUM(A.JEJE)AS RKJE!ROM AVER MTH RKl AS A WHERE NOT(ISNULL(A.YlYl)GROUP BY CLBH;SELECT A.CLBH,SLSL,JEJE,YlYF!ROM AVER_M TH _RK AS A LEFT JOIN T_SlC_QC AS BON(A.CLBH=B.BHBH)AND(A.KDR

29、Q=B.YlYl);SELECT A.DHD H,A.KDRQ,B.CLBH,B.SLSL,B.SLSL*B.DJD J AS JEJE!ROM K _clrk_M AS A INNER JOIN K_clrk_D AS BON A.D H DH=B.DHDH 附fERE STAJS=l:19 I 35 企业；近销存管理信息系统SEL配TA.CLBH,B.YFYF,IIf(A.RKSL=O,IIf(ISNl几L(QCSL),0,QCJE/QCSL),(B.QCJE+A.RKJE)I(B.QCSL+A.RKSL)AS DJDJ FROM AVER_MTH_RK2 AS A LEFT JOIN T

30、_SFC_QC AS BON A.CLBH=B.BHBH;功能函数Public Sub D。Aver_DJ()Dim da Rec As ADODB.Rec。rdset Dim da_SQL As String Set da_Rec=AppCN.Execute(nselect*fr。mAVER_DJH)AppCN.BeginTrans D。WhileN。tda Rec.EOF da_SQL=update J_clcl set DJDJ=&da_Rec.Fields(DJDJH)&where BHBH=”&da_Rec.Fields(CLBHH)&”N AppCN.Execute(da_SQL)

31、da_SQL=update K _LLLL_D set JEJE=H&da_Rec.Fields(nDJDJn)&n*k_LLLL_D.SLSL where K LLLL D.CLBH=H&da_Rec.Fields（CLBH）川andK_LLLL_D.DHDH IN(SELECT DHDH FROM AVER_mth_LL2)H AppCN.Execute(da_SQL)da Rec.MoveN ext L。PAppCN.C。mmitTransEnd Sub 收发存明细，追踪某中材料某月的进出序情况，共二显示出是那一帐单掘进行操作，如果是领料则在摘要中写明成本项目讨算出每次操作之后的结存数量

32、及金额。20 I 35 企业；近销存管理信息系统Private Sub CmdMe_Click(Index As Integer)If Index=0 Then Call PrintLstv(Me.LstView,L。adResString(804),材料m _CLBH&n收发存明细AH,l,1)Else Unl。adMe End If End Sub Private Sub DoGr。upCube(SlC。lAs String,JeC。lAs String)Dim arrSlC。1()As String Dim arrJeC。1()As String Dim k As Integer Dim

33、 total As D。ubleCall ON_GetArray(SlC。l,arrSlC。1)Call ON_GetArray(JeC。l,arr JeC。1)LstView.Listitems.Add,”LstView.Listitems(LstView.Listitems.Count).Subitems(l)气总讨yF。rk=0 T。UB。und(arrSlC。1)t。tal=0 F。rJ=1 T。LstView.Listitems.Countt。tal=t。tal+Val(LstView.Listitems(J).Subitems(Val(arrSlCol(k)Next LstView

34、.Listitems(LstView.Listitems.Count).Subitems(Val(arrSlC。1(k)=total Next F。rk=0 T。UB。und(arrJeC。1)t。tal=0 F。rJ=1 日LstView.List i tems.Count t。tal=t。tal+Val(LstView.List I terns(J).Sub Items(Val(arrJeCol(k)21 I 35 企业；近销存管理信息系统Next LstView.Listitems(LstView.Li stitems.C。unt).Subitems(Val(arrJeC。1(k)F。r

35、mat(t。tal，11#0.00）N ext End Sub Pr ivate Sub F。rm_L。ad()Dim f l_Num As Single Dim f l Cash As D。ub leM e.Icon=L。adResPicture(101,vbResic。n)M e.M。ve(Screen.W idth-M e.Width)I 2,(Screen.Height-M e.Height)I 4 Me.Capti。n=查看N 田CLBH寸的明细情况NCall D。StyleIf GetinitData(fl_Num,fl_Cash)=True Then Call D。Show(fl

36、_Num,fl_Cash)Call D。Remain(f l_Num,f l_Ca.sh)End If End Sub Pr ivate Sub DoShow(m _drNum As Single,m _drCash As Double)Dim dsRec As ADODB.Rec。rdsetDim dsSQL As String Dim I As Integer Dim itmX Dim rd_theSL As Single Dim rd_theJE As D。ubleDim rd_RKJE As Double,rd_CKJE As Double rd theSL=m drNum rd_th

37、eJE=m _drCash dsSQL=”select*fr。mSFC仪A3where CLBH=n 田CLBH刷HSet dsRec=AppCN.Execute(dsSQL 创DMont h(KDRQ)=N&m_M。nth&AND Year(KDRQ)=n 22 I 35 企业；近销存管理信息系统&m _Year)I f dsRec.EOf Then lsgB。XN无效的材料编号，Exit Sub End If I=1 Set itmX=Lst View.List ltems.Add(,A&I)itmX.Subltems(l)=dsRec.Fields(nKD闷）.Value i tmX.S

38、ub!terns(3)期初数量i tmX.Subltems(lO)=rd_t heSL i tmX.Subltems(ll)=F。rmat(m_drCash，!iii,11#0.OOH)D。明1ileN。tdsRec.EOF I=I+1 Set i tmX=LstView.List!terns.Add(,A&I)rd_RKJE=!If(dsRec.Fields(RKJEn).Value 川，0,dsRec.Fiel ds(RKJE).Value)rd_CKJE=!If(dsRec.Fields(CKJEn).Value=”,0,dsRec.Fields(NCKJE).Value)rd_theS

39、L=rd_t heSL+Val(dsRec.Fields(nRKSL)-Val(dsRec.Fields(CKSLN)m _drCash 田drCash+rd_RKJE-rd_CKJE i tmX.Subltems(l)=dsRec.Fields（飞D闷）.Value i tmX.Subltems(2)=dsRec.Fields(nDHDH).Value i tmX.Subltems(3)=dsRec.Fields(nCBXM).Value i tmX.Subltems(4)=dsRec.Fields(nRKSL).Value i tmX.Sub!terns(5)Ilf(dsRec.Field

40、s(RKDJn).Value F。rmat(dsRec.Fields(nRKDJn).Value,n掷，0.00）i tmX.Sub!terns(6)Ilf(dsRec.Fields(RKJEN).Value F。rmat(dsRec.Fields CRKJE).Value,NII#,11#0.00)i tmX.Subltems(7)=dsRec.Fields(nCKSL).Value i tmX.Sub!terns(8)Ilf(dsRec.Fields(CKDn).Value 23 I 35”v.NH.NH.企业；近销存管理信息系统F。rmat(dsRec.Fields(HCKDJn).Va

41、lue,n#,#0.00)i tmX.Sub I terns(9)IIf(dsRec.Fields(CKJEH).Value F。rmat(dsRec.Fields(CKJEn).Value,n#II,11110.00)itmX.Subitems(lO)=rd_theSL itmX.Subitems(ll)=F。rmat(m_drCash，1111,#0.00H)dsRec.M。veNextL。pEnd Sub Private Sub DoStyleO Dim intWid As Integer intWid=1200 Ls tView.C。lumnHeaders.Add，序号气600Ls t

42、View.C。lumnHeaders.Add，日期气1000,1 vwC。lumnRightLs tView.C。lumnHeaders.Add，凭证编号，intWid,lvwC。lumnRightLs tView.C。lumnHeaders.Add，摘要气intWid,lvwC。l山1U1RightLstView.c。lumnHeaders.Add，收入数量，intWid,lvwColumnRight Ls tView.C。lumnHeaders.Add，收入单价，intWid,lvw仁。lumnRightLs tView.C。lumnHeaders.Add，收入金额，intWid,lvw仁

43、。lumnRightLs tView.C。lumnHeaders.Add，发出数量，intWid,lvwC。lumnRightLs tView.C。lumnHeaders.Add，发出单价，intWid,lvw仁。lumnRightLs tView.C。lWI州eaders.Add，发出金额，intWid,lvw仁。lumnRightLstView.c。lumnHeaders.Add，结存数量，intWid,lvwColumnRight Ls tView.C。lumnHeaders.Add，结存金额，intWid,lvw仁。lumnRightEnd Sub Pr ivate Sub Form_

44、Resize()On Err。rResume Next,.Ls tView.M。ve0,100+500+50,Me.ScaleWidth,Me.ScaleHeight-Me.StatusBarl.Height-650 24 I 35 企业；近销存管理信息系统End Sub Private Function GetlnitData(m _giNum As Single，回giCashAs Doubl e)As B。leanDim drRec 1 As ADODB.Rec。rdsetDim drRec 2 As ADODB.Rec。rdsetDim drSQL As String GetlnitD

45、ata=True 田giNum=-2002.1994 田giCash=-2002.1994 drSQL=”select*fr。mT_SfC here BHBH=n&m _CLBH&”drSQL=drSQL&AND Month(YFYF)=n&m_M。nth&AND Year(YFYF)=&m _Year Set drRec_l=AppCN.Execute(drSQL)If drRec 1.EOF Then drSQL=#select*fr。mT_SFC_QC研ihereBHBH=”&m _CLBH 川，drSQL=drSQL&HAND Month(YFYf)=&m _Month&HAND Ye

46、ar(YFYf）田Ye缸Set drRec_2=AppCN.Execute(drSQL)If drRec 2.EOF Then MsgB町没有盆点，没有期初j捎来数据！H GetlnitData=False Else e eu u1 1a av vv-),R 俨、户EV户IVAU写AU写NMH，t、fts qd-AU 口i-Le e-lF F 衍，“nru-c ce eR JmLU AU=n ms ua umHPL、品、品，。，。-rz mmI-d n EVM drRec_2.Cl。se:Set drRec_2=N。thingElse m _giNum=drRec_l.Fields(QCSLn

47、).Value m _giCash=drRec_l.Fields(QCJEn).Value End If 25 I 35 企业；近销存管理信息系统drRec_l.Cl。se:Set drRec_l=N。thingEnd Functi。nPrivate Sub F。rm_Unload(CancelAs Integer)m CLBH=H m M。nth=0 m Year=0 End Sub Private Sub DoRemain(m _drNum As Single，回drCa.shAs Double)Dim rd_theSL As Single Dim rd_theJE As D。ubleDi

48、m rd_RKJE As Double,rd_CKJE As D。ublerd theSL=m drNum rd_theJE=m _drCash F。rI=1 T。Me.Ls tView.Listltems.C。untrd_theSL=rd_theSL+Val(LstView.List!terns(I).Sub!terns(4)Val(LstView.Listl terns(I).Sublterns(7)Next LstView.List!terns(I).Sub I terns(10)=rd_theSL If rd theSL 0 Then rd_CKJE=Val(f。rrnat(LstVi

49、ew.List lterns(I).Sublterns(9),n#IIO.O On)rd_theJE=rd_theE+rd_RKJE-rd_CKJE Else rd_theJE=0 End If LstView.Listl terns(I).Sublterns(ll)=F。rrnat(rd_theE，1111,#0.OOH)End Sub 26 I 35 企业；近销存管理信息系统5.2程序界丽1.系统总管理界而如阪I5.1所示-:-os-x-1 E鞠百一一AEJ呻币一血雨品 llW 管，.，.,.铺细OS-te-l6皿瞌寇”管理fc铠酬。n:.,.t.t立在 L阁5.1 系统总管理界而2.系统

50、入序跺作界丽如阁5.2所示I;,.,.A雹a筑施 ID次滋)leF余创越！.!IS到岛事到自晶Z盟能U!lll:单位制人酣醉人 一一一芦f.象制强应.lg）寸底层盟：！：一二二E旦J盟国也J l 。咆谶l 也精峨国5.2系统入库跺作界27 I 35 企业；近销存管理信息系统3.系统出f!f.操作界而如阁5.3所示：r;.,.-,a 6志在!1串宠量邮日目坐立主咀置说锈悔：篇幅lo也咽芷嗣哇手人 旦亨吉E巴国5.3系统出f!f.跺作界而4.人负查询界而如妥I5.4所示：m工萨瑾军耻日毛w司寸毛在去E鳞晶,R电工费 晨串E614,很慢其它蹲准i巴r I,（川牛二；二一气：1 编号姓名瑞罢一oosl