进销存管理系统方案

1、41/46进销存管理系统初步分析了当前业务公司管理方面存在的问题，联系实际情况设计实现了一个以控制物流为主的管理软件。该系统实现了部分ERP的功能，尽力做到降低实施成本，减少实施风险 ，加快实施进度 ，增加投资回报。企业的物资供应管理往往是很复杂，繁琐的，由于掌握的物资种类众多，订货，管理，发放的渠道各有差异，各个企业之间的管理体制不尽一样，各类统计计划报表繁多，因此物资管理必须实现计算机化，而且必须根据企业的具体情况制定便提高工作效率。根据当前的企业管理体制，一般物资供应管理系统，总是根据所掌握的物资类别，相应分成几个科室进行物资的计划，订货，核对入库，根据企业各个部门的需要来发送物资设备，

2、并随时近期进行库存盘点，作台帐，根据企业领导和自身管理的需要按月，季，年进行统计分析，产生相应报表，为了加强关键物资，设备的管理，要定期掌握其储备消耗情况，根据计划定额和实际消耗定额的比较，进行定额管理。所以一个完整的企业物资供应管理系统应包括计划管理，合同托收管理，仓库管理，定额管理，统计管理，财务管理等到模块。其中仓库管理是整个物资供应管理系统的核心。使用Microsoft Visual Basic 6.0与Microsoft Office Access 2003作为开发工具，利用面向对象的结构和自上而下的程序设计方法，基本实现了仓库的日常管理和进货出货的查询。关键字：企业资源计划，存货，

3、数据库，面向对象AbstractThe first step analyzes the current business company to manage the problem of the aspect existence, contact actual circumstance the design carried out a take controling the logistics as lord of management software.That system carried out the function of parts of ERPs, making an effor

4、t to attain to lower the implement cost, reducing to carry out the risk, speeding implement degree of progress, increasing the investment repay.The supplies supply management of the business enterprise is usually very complex, tedious, because the supplies category that control is numerous, order, m

5、anage, the outlet that issue is each to have the difference, the management system between each business enterprise does not fulfil same alike, each kind of covariance plan statement is numerous.According to the current business enterprise management system, the general supplies supply management sy

6、stem, always according to the supplies category control, correspond to be divided into the plan that a few section rooms carry on the supplies, order, check to store in warehouse, according to the demand of the business enterprise each section to send out the supplies equipments, and at any time in

7、the near future carry on the stock stocktaking, make the pedestal debt, according to the business enterprise leads to manage with oneself of demand is by the month, quarter, the year carry on statisticsing the analysis, the creation correspond the statement, for strengthenning the key supplies, the

8、management of the equipments, want to periodically control it store the depletion circumstance, settling the sum according to the plan and consuming to settle the sum physically of comparison, carry on settling the sum to manage.So an integrity of the business enterprise supplies supply management t

9、he system should include the plan management, the contract collection management, warehouse management, settle sum management, statistics the management, finance management wait until the mold piece.Among them, the warehouse management is the core of the whole supplies supply management system.Use t

10、he Microsoft Visual Basic 6.0 and the Microsoft Office Access 2003 conduct and actionses development tool, make use of the structure of face to the object and from top to bottom of program design method, basic carried out the usual management of the warehouse and enter the search of the goods shipme

11、nt.Keywords: ERP, Stock, Database, Face to the objectTOC o 1-3 h z uHYPERLINK l _Toc122689563摘要 PAGEREF _Toc122689563 h IHYPERLINK l _Toc122689564Abstract PAGEREF _Toc122689564 h IIHYPERLINK l _Toc1226895651 续言 PAGEREF _Toc122689565 h 12 系统分析HYPERLINK l _Toc1226895672.1 问题的提出 PAGEREF _Toc122689567 h

12、 4HYPERLINK l _Toc1226895682.2 分析问题 PAGEREF _Toc122689568 h 4HYPERLINK l _Toc1226895692.3 系统设计目标 PAGEREF _Toc122689569 h 5HYPERLINK l _Toc1226895702.3.1 系统设计的长远目标：实现ERP系统 PAGEREF _Toc122689570 h 5HYPERLINK l _Toc1226895712.3.2 系统设计近期 PAGEREF _Toc122689571 h 63 系统总体设计HYPERLINK l _Toc1226895733.1 数据流图

13、 PAGEREF _Toc122689573 h 7HYPERLINK l _Toc1226895743.2 部分数据字典 PAGEREF _Toc122689574 h 11HYPERLINK l _Toc1226895753.3 E-R图 PAGEREF _Toc122689575 h 12HYPERLINK l _Toc1226895763.4 功能模块 PAGEREF _Toc122689576 h 14HYPERLINK l _Toc1226895773.4.1 程序层次 PAGEREF _Toc122689577 h 14HYPERLINK l _Toc1226895783.4.2

14、 模块功能说明 PAGEREF _Toc122689578 h 15HYPERLINK l _Toc1226895833.4.3系统数据表 PAGEREF _Toc122689583 h 15HYPERLINK l _Toc1226895874 系统详细设计 PAGEREF _Toc122689587 h 17HYPERLINK l _Toc1226895885 编码实现与测试HYPERLINK l _Toc1226895895.1 编码摘要 PAGEREF _Toc122689589 h 21HYPERLINK l _Toc1226895905.2 程序界面 PAGEREF _Toc1226

15、89590 h 28HYPERLINK l _Toc1226895916 总结与展望HYPERLINK l _Toc1226895926.1 总结 PAGEREF _Toc122689592 h 34HYPERLINK l _Toc1226895936.2 心得体会 PAGEREF _Toc122689593 h 35HYPERLINK l _Toc122689594致谢 PAGEREF _Toc122689594 h 37HYPERLINK l _Toc122689595参考文献 PAGEREF _Toc122689595 h 381 续言根据指导老师、公司和客户的要求，本次毕业设计的题目是

16、进销存管理系统，要求利用Visual Basic完成管理平台设计，构造所用的类库；使用Access数据库存储数据，限单机使用。企业的物资供应管理往往是很复杂，繁琐的，由于掌握的物资种类众多，订货，管理，发放的渠道各有差异，各个企业之间的管理体制不尽一样，各类统计计划报表繁多，因此物资管理必须实现计算机化，而且必须根据企业的具体情况制定便提高工作效率，根据当前的企业管理体制，一般物资供应管理系统，总是根据所掌握的物资类别，相应分成几个科室进行物资的计划，订货，核对入库，根据企业各个部门的需要来发送物资设备，并随时近期进行库存盘点，作台帐，根据企业领导和自身管理的需要按月，季，年进行统计分析，产生

17、相应报表，为了加强关键物资，设备的管理，要定期掌握其储备消耗情况，根据计划定额和实际消耗定额的比较，进行定额管理。所以一个完整的企业物资供应管理系统应包括计划管理，合同托收管理，仓库管理，定额管理，统计管理，财务管理等到模块。其中仓库管理是整个物资供应管理系统的核心。随着科学技术特别是信息工程、计算机技术等高科技技术的飞速发展和普与，当今世界已进入到了信息时代。企业和组织要求信息处理的数量越来越大，速度越来超快。为了让管理者与时掌握准确、可靠的信息，以与执行之后构成真实的反馈，必须建立一个功能齐全和高效率的信息管理系统。信息管理系统采用以电子计算机为主的技术设备，通过自动化通信网络，与各种信息

18、终端相连接，利用完善的通信网，沟通各方面的联系，以保证迅速、准确、与时地收集情况和下达命令。本公司（现国内大多实业公司的代表）存在的问题：信息化不足，计算机使用率低，大量的日常工作皆是手工处理，因此工作效率低落，企业内部沟通不良等等问题很难克服。要提升企业竞争力，企业内部信息化是不可缺少的一个步骤。实施先进的办公室自动化系统，实现企业内部信息管理、共享与交流，才能让企业在竞争激烈的21世纪取得先机。随着经济的全球化以与中国经济改革的逐渐深化，制造业面临着越来越激烈的竞争，改善企业内部以与整个供应链各个环节的管理、调度与资源配置，迅速适应客户的新需求和市场新机遇的能力，是中国企业赢得竞争胜利的决

19、定性因素，而快速有效地实施企业资源计划（ERP）系统是被实践证明了的提高企业竞争力的最有效的方法之一。从根本上说，企业就是一个利用资源（人、财、物、时间），为客户创造价值的组织，ERP就是对这些资源进行计划、调度、控制、衡量、改进的管理技术和信息系统。现今的企业并不只是人力资源、资金和产品的组合，它还应该包括供应、销售、市场营销、客户服务、需求预测，以与其他更多的东西。如果一个ERP系统真正想要最大限度地提高其生产能力，它必须能够非常融洽地和其他关键性的商务领域进行交流。企业资源计划(ERP)应用将许许多多的商务过程自动化并集成在一起，从而有助于企业保持竞争优势；数字内容管理应用有效地控制存储

20、、检索和资源的再利用，从而理顺了各种操作，有助于避免冗余；供应链管理就是对供应链中的货物和服务、信息、以与金钱以电子方式进行规划和实行流控制，提高系统的智能化程度，产、供、销、财务形成一个统一的整体。使企业处于全面受控状态，压缩投资规模，加快资金周围，在实时反映的基础上，修正企业在日常生产经营过程中各个环节上的偏差，降低产品成本和不必要的原料和在制品积压。ERP将和供应链管理（SCM），客户关系管理（CRM），商业职能（BI），知识管理（KM）以与电子商务完全融合在一起。这些系统将会象一个团队一样工作，经常性地和客户进行联系，从而为他们提供服务，出谋划策以与保证系统的正常运行。针对目前国内实业

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

22、会。最初本着尽可能完成ERP的各项功能的原则，将物料控制到只在需要的时候向需要的部门按需要的数量，提供所需要的物料，也就是说，它既要防止物料供应滞后于对他们的要求，也要防止物料过早地出产和进货，以免增加库存，造成物资和资金的积压，设计了这套管理软件，但在设计的过程中发现许多实际问题非常复杂，软件很难控制，本着能自动化的尽量自动化，不容易实现自动化的则人为操作，由于能力有限和时间的限制，系统的设计难免会存在不足之处，敬请各位同学、老师不吝赐教。2 系统分析2.1 问题的提出本公司目前存在的问题是：信息化不足，计算机使用率低，大量的日常工作皆是手工处理，因此工作效率低落，企业内部沟通不良等等问题很

23、难克服，仓库管理很不合理，不能与时根据需要调整库存。公司希望解决的问题是：缺少一个集成的信息平台和信息系统，而各个业务部门之间缺少信息沟通（即重复劳动）和共享是传统库存管理中资金占用过大的主要原因之一。解决企业内部统一的物料编码管理，物流管理中的信息流通。库存积压与物料的配套问题。完善质量检验，对生产过程中的质量信息进行全面管理，包括原材料、外购外协件、半成品、成品各道工序的质量控制，用户反馈，售后服务，并对各种数据进行统计分析。生产管理，对车间作业进行管理，对施工通知单、设计更改通知单进行制订与查询。销售部门能方便地根据预测信息、各仓库的库存信息和客户的要货情况做出货物的调拨计划和改制计划。

24、随时了解供应商的供货（原材料和外协加工）执行情况、制造车间的加工（合格、报废、返工等）执行情况与公司的各仓库库存情况，以便随时协调或采取合适的补救措施管理供应商，在供应到货的到期日前，主动与供应商联系，检查与时到货的可能性；同时在物流和信息流上允许供应商的部分零件直接发货到客户处。对供应商的考核从质量、交货与时程度和价格上给出统计数据。计划过程不太理想，无物料清单，凭经验办事；对计划的执行率未作统计。现有量、在制品、再途库存和历史记录等多方位查询需求。库存信息与供应和生产等各部门的与时反馈和共享问题信息查询与决策，对公司的各种资源与信息进行查询，包括销售、采购、生产、质量、人事、财务等信息数据

25、进行查询、统计与分析，对根据信息作出快速合理的经营决策，增强应变反应能力。2.2 分析问题本公司是以订单为依据进行生产的实业公司，公司的主要流程是：接到一张销售订单，由销售部门转化为内部订单，转给生产部门，生产部门根据订单上的产品、数量，技术部已经配好的物料清单，与各车间半成品储存量，汇总材料需求，然后根据库存情况决定请购与预约情况，采购部门根据请购单下采购单，然后材料入库，在手工操作的条件下，各个部门之间的沟通困难，比如，当采购部下完采购订单之后，仓库是否如期到货，必须去仓库询问，而且即使询问了，有时候因为订单较多材料有可能重复，而无法确定是哪一张采购单到货，哪一张没有到货，再例如，销售部门

26、下过内部订单之后，就容易了解到这个单子上的这批货物到底处于什么状态，是已发完，还是未发，生产是否完毕等，要无数次的询问仓库和生产部门才能了解到部分情况，等等，这一系列的问题迫待解决，随着经济的全球化以与中国经济改革的逐渐深化，制造业面临着越来越激烈的竞争，改善企业内部以与整个供应链各个环节的管理、调度与资源配置，迅速适应客户的新需求和市场新机遇的能力，是中国企业赢得竞争胜利的决定性因素，如何快速有效地实现跟单，如何有效的控制库存，这一切都是本管理系统所力求实现的功能。从根本上说，企业就是一个利用资源（人、财、物、时间），为客户创造价值的组织，企业资源计划就是对这些资源进行计划、调度、控制、衡量

27、、改进的管理技术和信息系统。现今的企业并不只是人力资源、资金和产品的组合，它还应该包括供应、销售、市场营销、客户服务、需求预测，以与其他更多的东西。如果一个企业资源计划系统真正想要最大限度地提高其生产能力，它必须能够非常融洽地和其他关键性的商务领域进行交流。2.3 系统设计目标2.3.1 系统设计的长远目标：实现ERP系统1系统运行集成化：这是ERP应用成功在技术解决方案方面最基本的表现。ERP系统是对企业物流、资金流、信息流进行一体化管理的软件系统，其核心管理思想就是实现对“供应链（Supply Chain）”的管理。软件的应用将跨越多个部门甚至多个企业。为了达到预期设定的应用目标，最基本的

28、要求是系统能够运行起来，实现集成化应用，建立企业决策完善的数据体系和信息共享机制。一般来说，如果ERP系统仅在财务部门应用，只能实现财务管理规范化、改善应收帐款和资金管理；仅在销售部门应用，只能加强和改善营销管理；仅在库存管理部门应用，只能帮助掌握存货信息；仅在生产部门应用只能辅助制定生产计划和物资需求计划。只有集成一体化运行起来，才有可能达到：降低库存，提高资金利用率和控制经营风险；控制产品生产成本，缩短产品生产周期；提高产品质量和合格率；减少财务坏帐、呆帐金额等。这些目标能否真正达到，还要取决于企业业务流程重组的实施效果。2业务流程合理化：这是ERP应用成功在改善管理效率方面的体现。ERP

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

30、统提供的信息资源建立起自己的绩效监控系统，将意味着ERP系统应用没有完全成功。 4理改善持续化：随着ERP系统的应用和企业业务流程的合理化，企业管理水平将会明显提高。为了衡量企业管理水平的改善程度，可以依据管理咨询公司提供的企业管理评价指标体系对企业管理水平进行综合评价。评价过程本身并不是目的，为企业建立一个可以不断进行自我评价和不断改善管理的机制，才是真正目的。这也是ERP应用成功的一个经常不被人们重视的标志。2.3.2 系统设计近期（1）建立基本资料信息库，规范所有资料信息。（2）物料控制半自动化，加强了各个部门之间的联系。（3）高库存管理的服务水平，最大限度地降低库存量，包括中间库存和在

31、制品的库存，以减少在库存上的资金积压。（4）最大限度的保证订货任务的按期完成。（5）提高计划的可能性，实现均衡生产：（6）集成管理职能，提高管理效率。3 系统总体设计3.1 数据流图顶层数据流图如图3.1所示图3.1 进销存管理系统顶层数据流图0层数据流图如图3.2所示：图3.2 进销存管理系统0层数据流图1层数据流图如图3.3所示：图3.3 进销存管理系统1层数据流图图3.3 进销存管理系统1层数据流图（续）3.2 部分数据字典数据流图描述了系统的分解，但没有对图中各成分进行说明，数据字典就是为了数据流图的每个数据流、文件、加工，以与组成数据流或文件的数据项作出说明。因篇幅限制，每样仅举例说

32、明数据流条目：出库单 = 出库单号+日期+客户名称+ 物资类别+制单人员+ 记帐人员+发货人+状态+销售订单号+品名 + 单位 + 数量 + 规格 + 备注 + 单价各类财务统计报表 = 仓库材料消耗汇总（成本项目） + 仓库材料消耗汇总（按车间） + 材料收发存明细A + 材料收发存明细B +材料收发存明细C + 材料收发存分类汇总表 + 木材消耗汇总表。文件条目：文件名称：原材料库存文件。简述：保存原材料的基本资料。组成：材料编号+品名型号+规格尺寸+单位+采购计量单位+参数+数量+最低数量+最高数量+单价+备注+大大分类+大分类+分类+小分类。文件名称：销售文件。简述：保存所有销售订单的

33、文件。组成内部定单号+订货日期+客户编号+总金额+预收率NEWCASTLE号+PO单号包装办法+品质要求+内装箱+外装箱+MADE IN CHINA+特别指示+箱正侧内+状态+型号+色号+木材尺寸+光泽度+内绒+表面处理+数量+出货日期+单价。数据项条目：名称：材料编号简述：材料编号分四个字段（大大分类+大分类+分类+小分类），可以将材料分门别。类，因为许多地方用到编号，因此将四项和为一项保存一个冗余字段。为了便于查找。3.3 E-R图程序总体E-R图如图3.4所示：图3.4 程序总体E-R图人员管理模块如图3.5所示：图3.5 人员管理模块材料管理模块如图3.6所示：图3.6 材料管理模块3

34、.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数量Long数值必填字段5价格Long数值必填字段6名称Text 文本必填字段进货人员信息表，如表3.2所示：表3.2

35、进货人员信息表编号字段名称数据类型说明1自动编号Long数值Primary key主键2XXText 文本必填,字段不允许空串3联系方式Text 文本必填,字段不允许空串入库、出库单信息表，如表3.3所示：表3.3 入库、出库单信息表编号字段名称数据类型说明1自动编号Long数值Primary key主键2XXText 文本必填,字段不允许空串3联系方式Text 文本必填,字段不允许空串4货物名称Text 文本必填,字段不允许空串5货物数量Long数值必填,字段不允许空串6货物规格Text 文本必填,字段不允许空串货物型号Text 文本必填,字段不允许空串价格Long数值必填,字段不允许空串日

36、期Text 文本必填,字段不允许空串4 系统详细设计根据内部订单预定材料的流程图如图4.1所示：说明：KDYsl：可调用数量XQsl： 需求数量KCsl： 库存数量可调用数量=库存数量 最低库存量已预约数量设计时需求数量与库存数量、可调用数量分别比较可得出种情况需求数量可调用数量 and 需求数量 库存数量（因为库存数量=可调用数量所以可写成XQslKDYsl）需求数量=可调用数量 and 需求数量 =可调用数量所以可写成KDYsl =XQsl=KCsl）需求数量库存数量(因为库存数量=可调用数量所以不存在这种情况)需求数量可调用数量 and 需求数量 =可调用数量所以可写成XQslKDYsl

37、和KDYsl =XQsl=KCs和XQsl=B.YFYF);SELECT A.DHDH, A.KDRQ, B.CLBH, B.SLSL, B.SLSL*B.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(QCSL),0,QCJE/QCSL),(B.QCJE+A.RKJE)/(B.QCSL+A.RKSL) AS DJDJFROM AVER_MTH_RK2 AS A LEFT JO

38、IN 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 = update J_clcl set DJDJ = & da_Rec.Fields(DJDJ) & where BHBH= & da_Rec.Fields(CLBH) & AppCN.Ex

39、ecute (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_SQL)da_Rec.MoveNextLoopAppCN mitTransEnd Sub收发存明细,追踪某中材料某月的进出库情况，并显示出是那一帐单据进行操作，如果是领料则在摘要中写明成

40、本项目。计算出每次操作之后的结存数量与金额。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(SlCol As String, JeCol As String)Dim arrSlCol() As StringDim arrJeCol() As StringDim k As Intege

41、rDim 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) total = 0 For J = 1 To LstView.ListItems.Count total = total + Val(LstView.ListItems(J).SubItems(Va

42、l(arrSlCol(k) Next LstView.ListItems(LstView.ListItems.Count).SubItems(Val(arrSlCol(k) = totalNextFor k = 0 To UBound(arrJeCol) total = 0 For J = 1 To LstView.ListItems.Count total = total + Val(LstView.ListItems(J).SubItems(Val(arrJeCol(k) Next LstView.ListItems(LstView.ListItems.Count).SubItems(Va

43、l(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.Caption = 查看 & m_CLBH & 的明细情况Call DoStyleIf GetInitData(fl_Num, fl_Cash) = T

44、rue Then Call DoShow(fl_Num, fl_Cash) Call DoRemain(fl_Num, fl_Cash)End IfEnd SubPrivate Sub DoShow(m_drNum As Single, m_drCash As Double)Dim dsRec As ADODB.RecordsetDim dsSQL As StringDim I As IntegerDim itmXDim rd_theSL As SingleDim rd_theJE As DoubleDim rd_RKJE As Double, rd_CKJE As Doublerd_theS

45、L = m_drNumrd_theJE = m_drCashdsSQL = select * from SFC_MXA3 where CLBH= & m_CLBH & Set dsRec = AppCN.Execute(dsSQL & AND Month(KDRQ)= & m_Month & AND Year(KDRQ)= & m_Year)If dsRec.EOF Then MsgBox 无效的材料编号！ Exit SubEnd IfI = 1Set itmX = LstView.ListItems.Add(, , A & I) itmX.SubItems(1) = dsRec.Fields

46、(KDRQ).Value itmX.SubItems(3) = 期初数量 itmX.SubItems(10) = rd_theSL itmX.SubItems(11) = Format(m_drCash, #,#0.00)Do While Not dsRec.EOF I = I + 1 Set itmX = LstView.ListItems.Add(, , A & I) rd_RKJE = IIf(dsRec.Fields(RKJE).Value = , 0, dsRec.Fields(RKJE).Value) rd_CKJE = IIf(dsRec.Fields(CKJE).Value =

47、 , 0, dsRec.Fields(CKJE).Value) rd_theSL = rd_theSL + Val(dsRec.Fields(RKSL) - Val(dsRec.Fields(CKSL) m_drCash = m_drCash + rd_RKJE - rd_CKJE itmX.SubItems(1) = dsRec.Fields(KDRQ).Value itmX.SubItems(2) = dsRec.Fields(DHDH).Value itmX.SubItems(3) = dsRec.Fields(CBXM).Value itmX.SubItems(4) = dsRec.F

48、ields(RKSL).Value itmX.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).Value itmX.SubItems(8) = IIf(dsRec.Fields(CKDJ).Valu

49、e = , , 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_theSL itmX.SubItems(11) = Format(m_drCash, #,#0.00) dsRec.MoveNextLoopEnd SubPrivate Sub DoStyle()Dim intWid As IntegerintWid = 120

50、0LstView.ColumnHeaders.Add , , 序号, 600LstView.ColumnHeaders.Add , , 日期, 1000, lvwColumnRightLstView.ColumnHeaders.Add , , 凭证编号, intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 摘要, intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 收入数量, intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 收入单价,

51、intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 收入金额, intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 发出数量, intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 发出单价, intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 发出金额, intWid, lvwColumnRightLstView.ColumnHeaders.Add , , 结存数量, intWid, lv

52、wColumnRightLstView.ColumnHeaders.Add , , 结存金额, intWid, lvwColumnRightEnd SubPrivate Sub Form_Resize()On Error Resume NextLstView.Move 0, 100 + 500 + 50, Me.ScaleWidth, Me.ScaleHeight - Me.StatusBar1.Height - 650End SubPrivate Function GetInitData(m_giNum As Single, m_giCash As Double) As BooleanDim

53、 drRec_1 As ADODB.RecordsetDim drRec_2 As ADODB.RecordsetDim drSQL As StringGetInitData = Truem_giNum = -2002.1994m_giCash = -2002.1994drSQL = select * from T_SFC Where BHBH= & m_CLBH & drSQL = drSQL & AND Month(YFYF)= & m_Month & AND Year(YFYF)= & m_YearSet drRec_1 = AppCN.Execute(drSQL)If drRec_1.

54、EOF Then drSQL = select * from T_SFC_QC Where BHBH= & m_CLBH & drSQL = drSQL & AND Month(YFYF)= & m_Month & AND Year(YFYF)= & m_Year Set drRec_2 = AppCN.Execute(drSQL) If drRec_2.EOF Then MsgBox 没有盘点，没有期初期末数据！ GetInitData = False Else m_giNum = drRec_2.Fields(QCSL).Value m_giCash = drRec_2.Fields(QC

55、JE).Value End If drRec_2.Close: Set drRec_2 = NothingElse m_giNum = drRec_1.Fields(QCSL).Value m_giCash = drRec_1.Fields(QCJE).ValueEnd IfdrRec_1.Close: Set drRec_1 = NothingEnd FunctionPrivate Sub Form_Unload(Cancel As Integer)m_CLBH = m_Month = 0m_Year = 0End SubPrivate Sub DoRemain(m_drNum As Sin

56、gle, m_drCash As Double)Dim rd_theSL As SingleDim rd_theJE As DoubleDim rd_RKJE As Double, rd_CKJE As Doublerd_theSL = m_drNumrd_theJE = m_drCashFor I = 1 To Me.LstView.ListItems.Count rd_theSL = rd_theSL + Val(LstView.ListItems(I).SubItems(4) - Val(LstView.ListItems(I).SubItems(7) LstView.ListItems

57、(I).SubItems(10) = rd_theSL If rd_theSL 0 Then rd_CKJE = Val(Format(LstView.ListItems(I).SubItems(9), #0.00) rd_theJE = rd_theJE + rd_RKJE - rd_CKJE Else rd_theJE = 0 End If LstView.ListItems(I).SubItems(11) = Format(rd_theJE, #,#0.00)NextEnd Sub5.2 程序界面1系统登陆界面如图5.1所示：图5.1 系统登陆界面2系统总管理界面如图5.2所示：图5.2

58、 系统总管理界面3系统入库操作界面如图5.3所示图5.3 系统入库操作界面4系统出库操作界面如图5.4所示：图5.4 系统出库操作界面5人员查询界面如图5.5所示：图5.5 人员查询界面6操作员设置界面如图5.6所示：图5.6 操作员设置界面7物品查询界面如图5.7所示：图5.7 物品查询界面8日期查询界面如图5.8所示：图5.8 日期查询界面9按月份统计界面如图5.9所示：图5.9 按月统计界面10数据管理界面如图5.10所示：图5.10 数据管理界面6 总结与展望6.1 总结随着经济的全球化以与中国经济改革的逐渐深化，制造业面临着越来越激烈的竞争，改善企业内部以与整个供应链各个环节的管理、

59、调度与资源配置，迅速适应客户的新需求和市场新机遇的能力，是中国企业赢得竞争胜利的决定性因素，而快速有效地实施企业资源计划（ERP）系统是被实践证明了的提高企业竞争力的最有效的方法之一。从根本上说，企业就是一个利用资源（人、财、物、时间），为客户创造价值的组织，ERP就是对这些资源进行计划、调度、控制、衡量、改进的管理技术和信息系统。现今的企业并不只是人力资源、资金和产品的组合，它还应该包括供应、销售、市场营销、客户服务、需求预测，以与其他更多的东西。如果一个ERP系统真正想要最大限度地提高其生产能力，它必须能够非常融洽地和其他关键性的商务领域进行交流。当前, 随着经济的全球化以与中国经济改革的

60、逐渐深化，制造业面临着越来越激烈的竞争，改善企业内部以与整个供应链各个环节的管理、调度与资源配置，迅速适应客户的新需求和市场新机遇的能力，是中国企业赢得竞争胜利的决定性因素。设计本系统正是为了适应这种形势。在有限的时间内凭个人之力是很难实现所有的功能。因此系统有基本目标和长远目标。系统设计基本的目标是尽可能实现物流控制自动化，长远目标是实现ERP管理。系统投入使用后，将大大减少公司的管理部门的劳动量，改善了企业内部以与整个供应链各个环节的管理、调度与资源配置，使得管理合理规范。尽量合理的控制物流，尤其是材料库存的控制，将材料控制到只在需要的时候向需要的部门按需要的数量，提供所需要的物料，也就是