进销存管理系统.doc

I 44 进销存管理系统进销存管理系统 初步分析了当前业务公司管理方面存在的问题 联系实际情况设计实现了一 个以控制物流为主的管理软件 该系统实现了部分 ERP 的功能 尽力做到降低 实施成本 减少实施风险 加快实施进度 增加投资回报 企业的物资供应管理往往是很复杂 繁琐的 由于掌握的物资种类众多 订 货 管理 发放的渠道各有差异 各个企业之间的管理体制不尽相同 各类统计 计划报表繁多 因此物资管理必须实现计算机化 而且必须根据企业的具体情况 制定便提高工作效率 根据当前的企业管理体制 一般物资供应管理系统 总是根据所掌握的物资 类别 相应分成几个科室进行物资的计划 订货 核对入库 根据企业各个部门 的需要来发送物资设备 并随时近期进行库存盘点 作台帐 根据企业领导和自 身管理的需要按月 季 年进行统计分析 产生相应报表 为了加强关键物资 设备的管理 要定期掌握其储备消耗情况 根据计划定额和实际消耗定额的比较 进行定额管理 所以一个完整的企业物资供应管理系统应包括计划管理 合同托 收管理 仓库管理 定额管理 统计管理 财务管理等到模块 其中仓库管理是 整个物资供应管理系统的核心 使用 Microsoft Visual Basic 6 0 及 Microsoft Office Access 2003 作为开发工具 利用面向对象的结构和自上而下的程序设计方法 基本实现了仓库的日常管理和 进货出货的查询 关键字关键字 企业资源计划 存货 数据库 面向对象 II 44 Abstract The 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 effort 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 manage 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 system 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 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 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 the 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 the 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 shipment Keywords ERP Stock Database Face to the object III 44 目目 录录 摘摘 要要 I Abstract II 1 续言续言 1 2 系统分析系统分析 2 1 问题的提出 4 2 2 分析问题 4 2 3 系统设计目标 5 2 3 1 系统设计的长远目标 实现 ERP 系统 5 2 3 2 系统设计近期 6 3 系统总体设计系统总体设计 3 1 数据流图 7 3 2 部分数据字典 11 3 3 E R 图 12 3 4 功能模块 14 3 4 1 程序层次 14 3 4 2 模块功能说明 15 IV 44 3 4 3 系统数据表 15 4 系统详细设计系统详细设计 17 5 编码实现与测试编码实现与测试 5 1 编码摘要 21 5 2 程序界面 28 6 总结与展望总结与展望 6 1 总结 34 6 2 心得体会 35 致致 谢谢 37 参考文献参考文献 38 1 44 1 续言续言 根据指导老师 公司和客户的要求 本次毕业设计的题目是进销存管理系统 要求利用 Visual Basic 完成管理平台设计 构造所用的类库 使用 Access 数据库 存储数据 限单机使用 企业的物资供应管理往往是很复杂 繁琐的 由于掌握的物资种类众多 订 货 管理 发放的渠道各有差异 各个企业之间的管理体制不尽相同 各类统计 计划报表繁多 因此物资管理必须实现计算机化 而且必须根据企业的具体情况 制定便提高工作效率 根据当前的企业管理体制 一般物资供应管理系统 总是根据所掌握的物资类别 相应分成几个科室进行物资的计划 订货 核对入库 根据企业各个部门的需要 来发送物资设备 并随时近期进行库存盘点 作台帐 根据企业领导和自身管理 的需要按月 季 年进行统计分析 产生相应报表 为了加强关键物资 设备的 管理 要定期掌握其储备消耗情况 根据计划定额和实际消耗定额的比较 进行 定额管理 所以一个完整的企业物资供应管理系统应包括计划管理 合同托收管理 仓 库管理 定额管理 统计管理 财务管理等到模块 其中仓库管理是整个物资供 应管理系统的核心 随着科学技术特别是信息工程 计算机技术等高科技技术的飞速发展和普及 当今世界已进入到了信息时代 企业和组织要求信息处理的数量越来越大 速度 越来超快 为了让管理者及时掌握准确 可靠的信息 以及执行之后构成真实的 反馈 必须建立一个功能齐全和高效率的信息管理系统 信息管理系统采用以电 子计算机为主的技术设备 通过自动化通信网络 与各种信息终端相连接 利用 完善的通信网 沟通各方面的联系 以保证迅速 准确 及时地收集情况和下达 命令 本公司 现国内大多实业公司的代表 存在的问题 信息化不足 计算机使 用率低 大量的日常工作皆是手工处理 因此工作效率低落 企业内部沟通不良 等等问题很难克服 要提升企业竞争力 企业内部信息化是不可缺少的一个步骤 实施先进的办公室自动化系统 实现企业内部信息管理 共享及交流 才能让企 业在竞争激烈的 21 世纪取得先机 2 44 随着经济的全球化以及中国经济改革的逐渐深化 制造业面临着越来越激烈 的竞争 改善企业内部以及整个供应链各个环节的管理 调度及资源配置 迅速 适应客户的新需求和市场新机遇的能力 是中国企业赢得竞争胜利的决定性因素 而快速有效地实施企业资源计划 ERP 系统是被实践证明了的提高企业竞争力 的最有效的方法之一 从根本上说 企业就是一个利用资源 人 财 物 时间 为客户创造价值的组织 ERP 就是对这些资源进行计划 调度 控制 衡量 改进的管理技术和信息系统 现今的企业并不只是人力资源 资金和产品的组合 它还应该包括供应 销售 市场营销 客户服务 需求预测 以及其他更多的东 西 如果一个 ERP 系统真正想要最大限度地提高其生产能力 它必须能够非常 融洽地和其他关键性的商务领域进行交流 企业资源计划 ERP 应用将许许多多的商务过程自动化并集成在一起 从而 有助于企业保持竞争优势 数字内容管理应用有效地控制存储 检索和资源的再 利用 从而理顺了各种操作 有助于避免冗余 供应链管理就是对供应链中的货 物和服务 信息 以及金钱以电子方式进行规划和实行流控制 提高系统的智能 化程度 产 供 销 财务形成一个统一的整体 使企业处于全面受控状态 压 缩投资规模 加快资金周围 在实时反映的基础上 修正企业在日常生产经营过 程中各个环节上的偏差 降低产品成本和不必要的原料和在制品积压 ERP 将和 供应链管理 SCM 客户关系管理 CRM 商业职能 BI 知识管理 KM 以及电子商务完全融合在一起 这些系统将会象一个团队一样工作 经 常性地和客户进行联系 从而为他们提供服务 出谋划策以及保证系统的正常运 行 针对目前国内实业公司存在的问题 本文设计一个以物料流处理为主 具有 一定智能特性和网络特性的管理系统 该系统不仅能智能的控制企业的物流情况 而且还具有操作方便 便于纠错的特点 概括起来系统的优点如下 1 用户基本资料一次性建立 便于规范控制 2 物料控制半自动化 加强了各个部门之间的联系 3 提高库存管理的服务水平 最大限度地降低库存量 包括中间库存和 在制品的库存 以减少在库存上的资金积压 4 最大限度的保证订货任务的按期完成 3 44 5 提高计划的可能性 实现均衡生产 6 集成管理职能 提高管理效率 本文主要阐述了进销存管理系统的设计目标 系统要求 总体设计 详细设 计 测试等 最后是本次毕业设计的总结和体会 最初本着尽可能完成 ERP 的各项功能的原则 将物料控制到只在需要的时 候向需要的部门按需要的数量 提供所需要的物料 也就是说 它既要防止物料 供应滞后于对他们的要求 也要防止物料过早地出产和进货 以免增加库存 造 成物资和资金的积压 设计了这套管理软件 但在设计的过程中发现许多实际问 题非常复杂 软件很难控制 本着能自动化的尽量自动化 不容易实现自动化的 则人为操作 由于能力有限和时间的限制 系统的设计难免会存在不足之处 敬 请各位同学 老师不吝赐教 4 44 2 系统分析系统分析 2 1 问题的提出问题的提出 本公司目前存在的问题是 信息化不足 计算机使用率低 大量的日常工作 皆是手工处理 因此工作效率低落 企业内部沟通不良等等问题很难克服 仓库 管理很不合理 不能及时根据需要调整库存 公司希望解决的问题是 缺少一个集成的信息平台和信息系统 而各个业务 部门之间缺少信息沟通 即重复劳动 和共享是传统库存管理中资金占用过大的 主要原因之一 解决企业内部统一的物料编码管理 物流管理中的信息流通 库 存积压与物料的配套问题 完善质量检验 对生产过程中的质量信息进行全面管 理 包括原材料 外购外协件 半成品 成品各道工序的质量控制 用户反馈 售后服务 并对各种数据进行统计分析 生产管理 对车间作业进行管理 对施 工通知单 设计更改通知单进行制订与查询 销售部门能方便地根据预测信息 各仓库的库存信息和客户的要货情况做出货物的调拨计划和改制计划 随时了解 供应商的供货 原材料和外协加工 执行情况 制造车间的加工 合格 报废 返工等 执行情况及公司的各仓库库存情况 以便随时协调或采取合适的补救措 施管理供应商 在供应到货的到期日前 主动与供应商联系 检查及时到货的可 能性 同时在物流和信息流上允许供应商的部分零件直接发货到客户处 对供应 商的考核从质量 交货及时程度和价格上给出统计数据 计划过程不太理想 无 物料清单 凭经验办事 对计划的执行率未作统计 现有量 在制品 再途库存 和历史记录等多方位查询需求 库存信息与供应和生产等各部门的及时反馈和共 享问题信息查询与决策 对公司的各种资源与信息进行查询 包括销售 采购 生产 质量 人事 财务等信息数据进行查询 统计与分析 对根据信息作出快 速合理的经营决策 增强应变反应能力 2 2 分析问题分析问题 本公司是以订单为依据进行生产的实业公司 公司的主要流程是 接到一张 销售订单 由销售部门转化为内部订单 转给生产部门 生产部门根据订单上的 产品 数量 技术部已经配好的物料清单 及各车间半成品储存量 汇总材料需 5 44 求 然后根据库存情况决定请购及预约情况 采购部门根据请购单下采购单 然 后材料入库 在手工操作的条件下 各个部门之间的沟通困难 比如 当采购部 下完采购订单之后 仓库是否如期到货 必须去仓库询问 而且即使询问了 有 时候因为订单较多材料有可能重复 而无法确定是哪一张采购单到货 哪一张没 有到货 再例如 销售部门下过内部订单之后 就容易了解到这个单子上的这批 货物到底处于什么状态 是已发完 还是未发 生产是否完毕等 要无数次的询 问仓库和生产部门才能了解到部分情况 等等 这一系列的问题迫待解决 随着 经济的全球化以及中国经济改革的逐渐深化 制造业面临着越来越激烈的竞争 改善企业内部以及整个供应链各个环节的管理 调度及资源配置 迅速适应客户 的新需求和市场新机遇的能力 是中国企业赢得竞争胜利的决定性因素 如何快 速有效地实现跟单 如何有效的控制库存 这一切都是本管理系统所力求实现的 功能 从根本上说 企业就是一个利用资源 人 财 物 时间 为客户创造价 值的组织 企业资源计划就是对这些资源进行计划 调度 控制 衡量 改进的 管理技术和信息系统 现今的企业并不只是人力资源 资金和产品的组合 它还 应该包括供应 销售 市场营销 客户服务 需求预测 以及其他更多的东西 如果一个企业资源计划系统真正想要最大限度地提高其生产能力 它必须能够非 常融洽地和其他关键性的商务领域进行交流 2 3 系统设计目标系统设计目标 2 3 1 系统设计的长远目标 实现系统设计的长远目标 实现 ERP 系统系统 1 系统运行集成化 这是 ERP 应用成功在技术解决方案方面最基本的表现 ERP 系统是对企业 物流 资金流 信息流进行一体化管理的软件系统 其核心管理思想就是实现对 供应链 Supply Chain 的管理 软件的应用将跨越多个部门甚至多个企业 为 了达到预期设定的应用目标 最基本的要求是系统能够运行起来 实现集成化应 用 建立企业决策完善的数据体系和信息共享机制 一般来说 如果 ERP 系统 仅在财务部门应用 只能实现财务管理规范化 改善应收帐款和资金管理 仅在 销售部门应用 只能加强和改善营销管理 仅在库存管理部门应用 只能帮助掌 6 44 握存货信息 仅在生产部门应用只能辅助制定生产计划和物资需求计划 只有集 成一体化运行起来 才有可能达到 降低库存 提高资金利用率和控制经营风险 控制产品生产成本 缩短产品生产周期 提高产品质量和合格率 减少财务坏帐 呆帐金额等 这些目标能否真正达到 还要取决于企业业务流程重组的实施效果 2 业务流程合理化 这是 ERP 应用成功在改善管理效率方面的体现 ERP 应用成功的前提是必 须对企业实施业务流程重组 因此 ERP 应用成功也即意味着企业业务处理流程 趋于合理化 并实现了 ERP 应用的以下几个最终目标 企业竞争力得到大幅度 提升 企业面对市场的响应速度大大加快 客户满意度显著改善 3 绩效监控动态化 ERP 的应用 将为企业提供丰富的管理信息 如何用好这些信息并在企业管 理和决策过程中真正起到作用 是衡量 ERP 应用成功的另一个标志 在 ERP 系 统完全投入实际运行后 企业应根据管理需要 利用 ERP 系统提供的信息资源 设计出一套动态监控管理绩效变化的报表体系 以期即时反馈和纠正管理中存在 的问题 这项工作 一般是在 ERP 系统实施完成后由企业设计完成 企业如未 能利用 ERP 系统提供的信息资源建立起自己的绩效监控系统 将意味着 ERP 系 统应用没有完全成功 4 理改善持续化 随着 ERP 系统的应用和企业业务流程的合理化 企业管理水平将会明显提高 为了衡 量企业管理水平的改善程度 可以依据管理咨询公司提供的企业管理评价指标体系对企业管 理水平进行综合评价 评价过程本身并不是目的 为企业建立一个可以不断进行自我评价和 不断改善管理的机制 才是真正目的 这也是 ERP 应用成功的一个经常不被人们重视的标 志 2 3 2 系统设计近期系统设计近期 1 建立基本资料信息库 规范所有资料信息 2 物料控制半自动化 加强了各个部门之间的联系 3 高库存管理的服务水平 最大限度地降低库存量 包括中间库存和在 制品的库存 以减少在库存上的资金积压 4 最大限度的保证订货任务的按期完成 7 44 5 提高计划的可能性 实现均衡生产 6 集成管理职能 提高管理效率 8 44 3 系统总体设计系统总体设计 3 1 数据流图数据流图 顶层数据流图如图 3 1 所示 图 3 1 进销存管理系统顶层数据流图 9 44 0 层数据流图如图 3 2 所示 10 44 图 3 2 进销存管理系统 0 层数据流图 1 层数据流图如图 3 3 所示 11 44 图 3 3 进销存管理系统 1 层数据流图 12 44 13 44 图 3 3 进销存管理系统 1 层数据流图 续 3 2 部分数据字典部分数据字典 数据流图描述了系统的分解 但没有对图中各成分进行说明 数据字典就是 为了数据流图的每个数据流 文件 加工 以及组成数据流或文件的数据项作出 说明 因篇幅限制 每样仅举例说明 数据流条目 出库单 出库单号 日期 客户名称 物资类别 制单人员 记帐人员 发货 人 状态 销售订单号 品名 单位 数量 规格 备注 单价 各类财务统计报表 仓库材料消耗汇总 成本项目 仓库材料消耗汇 总 按车间 材料收发存明细 A 材料收发存明细 B 材料收发存明细 C 材料收发存分类汇总表 木材消耗汇总表 文件条目 文件名称 原材料库存文件 简述 保存原材料的基本资料 组成 材料编号 品名型号 规格尺寸 单位 采购计量单位 参数 数量 最低数量 最高数量 单价 备注 大大分类 大分类 分类 小分类 文件名称 销售文件 简述 保存所有销售订单的文件 组成内部定单号 订货日期 客户编号 总金额 预收率 NEWCASTLE 号 PO 单号包装办法 品质要求 内装箱 外装箱 MADE IN CHINA 特别指示 箱正侧内 状态 型号 色号 木材尺寸 光泽度 内绒 表面处理 数量 出货日期 单价 数据项条目 名称 材料编号 简述 材料编号分四个字段 大大分类 大分类 分类 小分类 可以将材料分门 别 类 因为许多地方用到编号 因此将四项和为一项保存一个冗余字段 为了便于 查找 14 44 3 3 E R 图图 程序总体 E R 图如图 3 4 所示 图 3 4 程序总体 E R 图 人员管理模块如图 3 5 所示 15 44 图 3 5 人员管理模块 材料管理模块如图 3 6 所示 图 3 6 材料管理模块 3 4 功能模块功能模块 3 4 1 程序层次程序层次 程序层次如图 3 7 所示 16 44 登陆界面 管理系统界面 进 库 管 理 出 库 管 理 修 改 密 码 按 日 期 查 询 按 物 品 查 询 基本管理 查 询 按 人 员 查 询 系统设置 人 员 设 置 操 作 员 设 置 数 据 整 理 打 印 统 计 帮 助 等 图 3 7 程序层次图 3 4 2 模块功能说明模块功能说明 篇幅所限 仅挑选部分功能说明 登陆验证功能 主要功能为身份验证 防止非法用户进入系统 实现方法如 图 3 8 所示 17 44 图 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 进货人员信息表 编号字段名称数据类型说明 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货物规格Text 文本必填 字段不允许空串 货物型号Text 文本必填 字段不允许空串 价格Long 数值必填 字段不允许空串 日期Text 文本必填 字段不允许空串 18 44 19 44 4 系统详细设计系统详细设计 根据内部订单预定材料的流程图如图 4 1 所示 说明 KDYsl 可调用数量 XQsl 需求数量 KCsl 库存数量 可调用数量 库存数量 最低库存量 已预约数量 设计时 需求数量与库存数量 可调用数量分别比较可得出 种情况 需求数量 可调用数量 and 需求数量 库存数量 因为库存数量 可调用数量所以可写成 XQsl KDYsl 需求数量 可调用数量 and 需求数量 可调用数量所以可写成 KDYsl XQsl KCsl 需求数量库存数量 因为库存数量 可调用数量 所以 不存在这种情况 需求数量 可调用数量 and 需求数量 可调用数量所以可写成 XQslKDYsl 和 KDYsl XQsl KCs 和 XQsl B YFYF SELECT A DHDH A KDRQ B CLBH B SLSL B SLSL B DJDJ AS JEJE FROM K clrk M AS A INNER JOIN K clrk D AS B ON A DHDH B DHDH WHERE STATUS 1 25 44 SELECT A CLBH B YFYF IIf A RKSL 0 IIf ISNULL QCSL 0 QCJE QCSL B QCJE A RKJE B QCSL A RKSL AS DJDJ FROM 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 Recordset Dim da SQL As String Set da Rec AppCN Execute select from AVER DJ AppCN BeginTrans Do While Not da Rec EOF da SQL update 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 SQL da Rec MoveNext Loop AppCN CommitTrans End Sub 收发存明细 追踪某中材料某月的进出库情况 并显示出是那一帐单据进行 操作 如果是领料则在摘要中写明成本项目 计算出每次操作之后的结存数量及 金额 Private Sub CmdMe Click Index As Integer If Index 0 Then Call PrintLstv Me LstView LoadResString 804 材料 m CLBH 收发存明 细 A 1 1 Else Unload Me End If End Sub 26 44 Private Sub DoGroupCube SlCol As String JeCol As String Dim arrSlCol As String Dim arrJeCol As String Dim k As Integer Dim total As Double Call 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 Val arrSlCol k Next LstView ListItems LstView ListItems Count SubItems Val arrSlCol k total Next For 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 Val arrJeCol k Format total 0 00 Next End Sub Private Sub Form Load Dim fl Num As Single Dim fl Cash As Double Me Icon LoadResPicture 101 vbResIcon Me Move Screen Width Me Width 2 Screen Height Me Height 4 Me Caption 查看 m CLBH 的明细情况 Call DoStyle If GetInitData fl Num fl Cash True Then Call DoShow fl Num fl Cash Call DoRemain fl Num fl Cash End If End Sub Private Sub DoShow m drNum As Single m drCash As Double Dim dsRec As ADODB Recordset Dim dsSQL As String Dim I As Integer 27 44 Dim itmX Dim rd theSL As Single Dim rd theJE As Double Dim rd RKJE As Double rd CKJE As Double rd theSL m drNum rd theJE m drCash dsSQL 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 Sub End If I 1 Set itmX LstView ListItems Add A I itmX SubItems 1 dsRec Fields 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 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 Fields 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 Value Format dsRec Fields CKDJ Value 0 00 itmX SubItems 9 IIf dsRec Fields CKJE Value Format dsRec Fields CKJE Value 0 00 28 44 itmX SubItems 10 rd theSL itmX SubItems 11 Format m drCash 0 00 dsRec MoveNext Loop End Sub Private Sub DoStyle Dim intWid As Integer intWid 1200 LstView ColumnHeaders Add 序号 600 LstView ColumnHeaders Add 日期 1000 lvwColumnRight LstView ColumnHeaders Add 凭证编号 intWid lvwColumnRight LstView ColumnHeaders Add 摘要 intWid lvwColumnRight LstView ColumnHeaders Add 收入数量 intWid lvwColumnRight LstView ColumnHeaders Add 收入单价 intWid lvwColumnRight LstView ColumnHeaders Add 收入金额 intWid lvwColumnRight LstView ColumnHeaders Add 发出数量 intWid lvwColumnRight LstView ColumnHeaders Add 发出单价 intWid lvwColumnRight LstView ColumnHeaders Add 发出金额 intWid lvwColumnRight LstView ColumnHeaders Add 结存数量 intWid lvwColumnRight LstView ColumnHeaders Add 结存金额 intWid lvwColumnRight End Sub Private Sub Form Resize On Error Resume Next LstView Move 0 100 500 50 Me ScaleWidth Me ScaleHeight Me StatusBar1 Height 650 End Sub Private Function GetInitData m giNum As Single m giCash As Double As Boolean Dim drRec 1 As ADODB Recordset Dim drRec 2 As ADODB Recordset Dim drSQL As String GetInitData True m giNum 2002 1994 m giCash 2002 1994 drSQL select from T SFC Where BHBH m CLBH drSQL drSQL AND Month YFYF m Month AND Year YFYF m Year Set drRec 1 AppCN Execute drSQL 29 44 If drRec 1 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 QCJE Value End If drRec 2 Close Set drRec 2 Nothing Else m giNum drRec 1 Fields QCSL Value m giCash drRec 1 Fields QCJE Value End If drRec 1 Close Set drRec 1 Nothing End Function Private Sub Form Unload Cancel As Integer m CLBH m Month 0 m Year 0 End Sub Private Sub DoRemain m drNum As Single m drCash As Double Dim rd theSL As Single Dim rd theJE As Double Dim rd RKJE As Double rd CKJE As Double rd theSL m drNum rd theJE m drCash For 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 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 30 44 Next End Sub 5 2 程序界面程序界面 1 系统登陆界面如图 5 1 所示 图 5 1 系统登陆界面 2 系统总管理界面如图 5 2 所示 31 44 图 5 2 系统总管理界面 3 系统入库操作界面如图 5 3 所示 图 5 3 系统入库操作界面 4 系统出库操作界面如图 5 4 所示 32 44 图 5 4 系统出库操作界面 5 人员查询界面如图 5 5 所示 图 5 5 人员查询界面 33 44 6 操作员设置界面如图 5 6 所示 图 5 6 操作员设置界面 7 物品查询界面如图 5 7 所示 图 5 7 物品查询界面 34 44 8 日期查询界面如图 5 8 所示 图 5 8 日期查询界面 9 按月份统计界面如图 5 9 所示 图 5 9 按月统计界面 10 数据管理界面如图 5 10 所示 35 44 图 5 10 数据管理界面 36 44 6 总结与展望总结与展望 6 1 总结总结 随着经济的全球化以及中国经济改革的逐渐深化 制造业面临着越来越激烈 的竞争 改善企业内部以及整个供应链各个环节的管理 调度及资源配置 迅速 适应客户的新需求和市场新机遇的能力 是中国企业赢得竞争胜利的决定性因素 而快速有效地实施企业资源计划 ERP 系统是被实践证明了的提高企业竞争力 的最有效的方法之一 从根本上说 企业就是一个利用资源 人 财 物 时间 为客户创造价值的组织 ERP 就是对这些资源进行计划 调度 控制 衡量 改进的管理技术和信息系统 现今的企业并不只是人力资源 资金和产品的组合 它还应该包括供应 销售 市场营销 客户服务 需求预测 以及其他更多的东 西 如果一个 ERP 系统真正想要最大限度地提高其生产能力 它必须能够非常 融洽地和其他关键性的商务领域进行交流 当前 随着经济的全球化以及中国经济改革的逐渐深化 制造业面临着越来 越激烈的竞争 改善企业内部以及整个供应链各个环节的管理 调度及资源配置 迅速适应客户的新需求和市场新机遇的能力 是中国企业赢得竞争胜利的决定性 因素 设计本系统正是为了适应这种形势 在有限的时间内凭个人之力是很难实 现所有的功能 因此系统有基本目标和长远目标 系统设计基本的目标是尽可能 实现物流控制自动化 长远目标是实现 ERP 管理 系统投入使用后 将大大减少公司的管理部门的劳动量 改善了企业内部 以及整个供应链各个环节的管理 调度及资源配置 使得管理合理规范 尽量合 理的控制物流 尤其是材料库存的控制 将材料控制到只在需要的时候向需要的 部门按需要的数量 提供所需要的物料 也就是说 它既防止物料供应滞后于对 他们的要求 也防止了物料过早地出产和进货 以免增加库存 造成物资和资金 的积压 本系统采用 Visual Basic 为主要开发工具 结合 Access 数据库管理系统与 NT 操作系统 既考虑了系统的需求 又兼顾了运行的效率 以及今后系统的功能拓 展等 具有运行效率 开发周期短 扩展能力强 技术规范等特点 主要技术包括 财务上的存货概念知识 生产与运作管理知识 关系数据库 37 44 技术 当然 系统还有需要改进的地方 例如本系统的帮助系统还很欠缺 这一点 对于没有电脑操作经验的使用者来说是很重要的 6 2 心得体会心得体会 通过本管理系统的开