纺织厂采购信息管理系统.docx

《纺织厂采购信息管理系统.docx》由会员分享，可在线阅读，更多相关《纺织厂采购信息管理系统.docx（51页珍藏版）》请在三一办公上搜索。

1、 CHANGSHA UNIVERSITY OF SCIENCE & TECHNOLOGY物流管理信息系统 课程设计题目： 纺织厂采购管理信息系统设计 学生姓名： 肖玉林学 号： 201234010112班 级: 1201班专 业： 物流工程指导教师： 向慧 盛玉奎 叶鸿 2015 年 06 月纺织厂采购管理信息系统设计学生姓名： 肖玉林学 号： 201234010112班 级： 物流工程1201班 所在院(系): 交通运输工程学院 指导教师： 向慧 盛玉奎 叶鸿 完成日期: 2015年06月长沙理工大学课程设计任务书 交通运输工程 学院 物流工程 专业 2012级 班课程名称 物流管理信息系统

2、课程设计 题 目 纺织厂采购管理信息系统设计 学生姓名 肖玉林 学号 201234010112 同组设计者： 陈琪、杨谈乐、何雪婷一、已知技术参数和设计要求1、已知技术参数物流管理信息系统及其实例.西安交通大学出版社，2004.10.物流信息系统，物资出版社，2006.1.；物流管理信息系统,清华大学出版社、北京交通大学出版社,2006.10.数据库项目案例导航.，中国铁道出版社，北京：清华大学出版社,2004.8.2、设计要求本课程设计是物流工程专业物流管理信息系统专业课程学习的必修内容之一。课程设计要求学生掌握信息系统开发设计的一般步骤与应用程序开发能力。本课程设计的目的在于增强学生的感性

3、认识，沟通学生从课堂的理论知识与具体实际工作的衔接，提高学生的动手能力，实现理论和实践的统一。通过课程设计，使学生深刻地认识到信息技术的应用对物流行业发展的重要性；掌握信息系统开发的主要流程；能结合所学相关物流专业知识并运用数据库开发软件完成对物流管理信息系统设计。二、课程设计选题设计选题说明：下面所列出的是本次课程设计的选题方向，另外指导老师根据各选题提供了部分相关案例或给出了相关系统开发提示。同学通过分析可以对各选题示例进行分析，但是每一个选题只能由一个小组选择。（注：选择同一题目的人数为3-4人，并且每个小组成员完成单独一个子系统的开发及文档的撰写）。1、 服装物流管理信息系统设计2、

4、仓库管理信息系统设计3、 销售管理信息系统设计4、 连锁餐饮行业的物流管理信息系统设计5、 企业物料管理信息系统的设计6、 企业进销存管理信息系统设计7、 物流配送管理信息系统设计8、 生产企业物资采购管理信息系统设计三、本次课程设计应完成的主要任务1、系统设计及开发的可行性分析 经济可行性系统的初步调查。（企业概况、组织机构、现行系统运行情况及其业务流程中存在的问题、新系统开发条件）系统开发的必要性（物流行业竞争、在生产、采购及销售流程中信息系统的必要性）技术可行性分析（系统的体系结构、选择的开发方式，分析技术中的潜在的风险）经济可行性分析（成本/效益分析）2、系统分析 需求分析 物流信息系

5、统使用者进行相关调查（包括现有系统亟待解决的问题）组织结构分析设计的物流信息系统中所涉及的相关部门及人员，要求分析出这些部门及人员在实际工作中与物流活动相互关系的重要程度。业务流程分析要求对每个系统开发小组成员须对本人负责设计及开发的系统子功能模块的业务流程分析，同时结合文字用业务流程图表述出来。数据流程分析要求对每个系统开发小组成员须对本人负责设计及开发的系统子功能模块的数据流程进行分析，同时结合文字用数据流程图详细表述出来。3、系统设计 系统总体结构设计（子系统/模块划分）要求画出所在小组设计的物流信息系统总体结构图，小组成员着重阐述各自负责完成功能模块的功能。 代码设计要求说明系统功能模

6、块的编码形式和结构比如仓储管理中，对货物存储位置的确定（仓号-库位-货架号-货位号）是用哪些字符表示，分别代表的含义。如：表1 代码设计人事代码设计表代码对象人事代码代码类型部门码+顺序码位数7校验位1代码数量200使用期限无限使用范围本公司 数据结构设计（E-R图，建立关系数据库表）要求用E-R图来反映系统中功能模块所涉及的数据对象之间的关系，同时依E-R图进行数据库设计，建立关系数据库表。 输入输出界面设计要求结合文字和图片提交应用程序运行的结果。4、课程设计的总结和体会四、工作计划本次课程设计总体时间为两周，2015年6月8日至2015年6月21日，具体计划安排如下：2015.6.8-2

7、015.6.9：需求分析2015.6.10 -2015.6.11：系统规划2015.6.12-2015.6.14：系统分析及设计2015.6.15 -2015.6.20：应用程序开发2015.6.21：综合评价，结论；以及文档整理提交五、课程设计完成提交文档要求按以下顺序装订成册： （1）封面； （2）扉页； （3）任务书； （4）指导书； （5）目录； （6）正文； （7）附录； （8）成绩评定表。指导老师：向慧 盛玉奎 叶鸿2015年3月2日教研室意见：同意按任务书要求开展设计教研室主任：周爱莲 2015年3月2日 2012级物流工程专业物流管理信息系统课程设计指导书一、课程设计的目的和要

8、求物流管理信息系统课程设计是物流工程专业中实践环节，是完成物流管理信息系统课程学习后所进行的一次全面、综合练习，其目的在于增强对课程相关理论的感性认识，并将课堂的理论知识与企业生产实践有效的衔接起来，提高学生的动手能力，实现理论和实践的统一。通过本次课程设计，使学生深刻地认识到信息技术的应用对物流行业发展的重要性；掌握信息系统开发的主要流程；能结合所学相关物流专业知识并运用数据库开发软件完成对物流管理信息系统设计。二、课程设计的依据和资料来源1、邵举平.物流管理信息系统.第2版,清华大学出版社&北京交通大学出版社,2006.10.2、冯耕中.物流管理信息系统及其实例.第1版,西安交通大学出版社

9、，2004.10.3、彭扬.物流信息系统.中国物资出版社, 2006.1.4、薛华成.管理信息系统.第3版.北京：清华大学出版社,1999.5、陈艳峰.数据库项目案例导航.第1版. 北京：清华大学出版社,2004.8.三、课程设计应完成的任务本课程设计的主要任务包括两个方面：设计文本撰写和程序设计1. 设计文本撰写本课程设计重视书面材料的撰写，主要内容包括了信息系统前期的系统调查、系统规划、系统分析和系统设计。由于课程设计要求一人一题，因此每个同学所完成的文档都应包括以上内容。文本的撰写主要为了梳理整个信息系统建设背景、现状、改善的途径等内容，构建信息系统的设计蓝本。因此在设计文本撰写阶段主要

10、的工作包括了以下内容：1） 搜集资料根据选题，进行系统调查，搜集资料2） 系统分析 需求分析组织结构分析业务流程分析数据流程分析3）系统设计 系统总体结构设计（子系统/模块划分） 代码设计 数据结构设计（E-R图，建立关系数据库表） 输入输出界面设计 4）系统实施（附设计子系统的程序源代码）5）体会和总结2.程序设计结合信息系统设计文本，应用程序开发工具（如VB、VF等可视化语言环境）建立一个基本完整的信息系统，基本能实现文本所描述的系统功能。四、课程设计要求及时间安排1、课程设计要求：本次课程设计分小组进行，每小组4人，各小组必须选择不同的选题，且每人必须独立负责设计和开发该系统中的一个模块

11、，最后每人亲自提交一份由自己开发的设计成果（不是整个系统的设计文档）；设计过程中，根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程设计活动；最后开发出一个可运行的信息系统，界面设计合理，并可通过上机检查；最后设计文档用A4纸打印，字迹清晰，页面整洁，并按任务书要求装订成册。2、设计纪律：本次课程设计集中在固定教室（交通学院计算机机房）进行，设计期间严格考勤，按时作息，一般不允许请假，如遇特殊情况，需写请假条报院领导批准，否则按每天旷课八节处理，如果请假或旷课总时数累计达全部设计时间的三分之一以上，该课程设计成绩按零分计；此外，不得以任何理由请人代交作业，否则本次课程同样以零分计。3

12、、时间安排：两周设计时间，第 15 周第 16 周。第一周：确定好选题；搭建好系统的整体框架确定好系统开发人员及各自分工；系统开发的可行性研究；对开发对象物流活动作业流程进行系统分析第二周：系统总体设计；系统详细设计；系统实施，综合评价，结论；以及文档整理提交。五、成绩评定 1、评分标准：设计操作纪律，10分；设计成果，40分；设计文档，50分。 2、若发现有两个和两个以上不同小组的文本和程序有抄袭嫌疑，则小组的所有同学的成绩均为零分。 物流管理信息系统课程设计 目录第一章概述11.1设计背景11.2设计意义1第二章系统规划12.1 确立新系统建立的目标12.2 系统开发的可行性22.2.1

13、系统开发的必要性22.2.2 技术上的可行性22.2.3 经济上的可行性22.2.4 组织上的可行性32.3 选择系统的开发方案32.4 确立系统的开发进度3第三章 系统分析43.1 需求分析43.2 组织结构分析43.3 业务流程分析63.4数据流程分析7第四章系统设计94.1 系统总体结构设计94.2 代码设计104.3 数据库结构设计104.3.1 E-R图设计104.3.1 关系模型124.4 输入输出界面设计124.4.1登录主界面设计124.4.2新用户注册界面设计134.4.3采购信息管理系统界面设计144.4.4采购订单管理界面设计154.4.5供应商管理界面设计164.4.6

14、采购收货管理界面设计174.4.7采购付款管理界面设计18第五章总结18参考文献19附录20第一章 概述1.1 设计背景采购工作是供应物流与社会物流的衔接点，是依据生产企业生产供应采购计划来进行原材料外购的作业层，负责市场资源、供货厂家、市场变化等信息的采集和反馈。我国纺织厂的采购工作经常出现盲目采购的现象，主要原因是企业没有建立一个良好的采购管理信息系统，导致采购部门几乎靠自己的主观推测，不能准确判断原材料采购的种类和数量，采购的原材料不能满足企业的生产，或者不是生产所需的原材料，造成企业仓库、资金的浪费。1.2 设计意义随着全球化进程的推进以及中国调整产业结构、节能减排的基本方针的确立，中

15、国的纺织厂面临较大的压力。利用计算机管理可以最大限度的发挥准确、快捷、高效等作用,对纺织厂的采购管理提供强有力的支持。因此，利用计算机信息技术，通过建立采购管理信息系统，优化企业的采购流程，将有效减少错误数据的发生，降低采购成本，提高采购效率。第二章 系统规划2.1 确立新系统建立的目标建立完善的采购信息管理系统，对纺织厂原材料采购系统进行管理。从制定采购计划、制定采购订单、入库、质量检验、采购结算等各个环节进行系统的管理，实现各个环节的信息流动。简化各环节的人力、物力和财力，保证原材料的供应，降低采购成本，优化库存结构，加速资金周转，提高纺织厂的经济效益。2.2 系统开发的可行性2.2.1

16、系统开发的必要性纺织厂主要需要采购的原材料是棉花，它是典型的自然产物，存在季节性采购，价格波动对生产成本影响很大，在特殊情况下存在维持生产需求（一般一个月）的计划采购与预付款采购，资金占用大。为此相应的根据生产部门对自身实际情况的了解，以及原棉供应的市场情况设定一个针对原材料采购的信息系统是很有必要的。这对于节约成本，控制库存等都是相当有意义的。2.2.2 技术上的可行性由于所要开发的采购管理信息系统主要是利用现有的条件，在配置一般的计算机设备就可以完成。因此，新系统对机器设备的要求不高，只是对开发人员有一定的要求，不过很容易满足条件。新系统开发完毕后,对操作人员来说,只要有过操作普通计算机系

17、统的经历,都能够较顺利的操作。从总体的结构来说，操作简便，易于录入和查询信息，从而方便了用户。因此，本系统在技术上是可行的。2.2.3 经济上的可行性由于技术方面的成熟，并且并不需要特殊的设备，其开发成本不会很高。系统开发完成后,其可以改变以往人工管理的繁琐,可以直接的节省人力、物力和财力，可以降低出错的几率，提高纺织厂釆购部门的办事效率等，这些问题的改进都将直接或间接的为纺织厂节省一定的经费开支。这样不仅可以及时、准确、有效地分析统计各种釆购信息和管理数据，供上级主管部门做出科学的管理决策，还可以为纺织厂节省不少的开支，减少资源的浪费。因此，该系统开发在经济上是可行的。2.2.4 组织上的可

18、行性要实现新系统的运行，需要制定合理的项目实施进度计划、设计合理组织机构、选择经验丰富的管理人员、建立良好的协作关系、制定合适的培训计划等。而这些都可以满足，只要有经验丰富的相关人员，制定实施计划、设计合理的组织机构都不是问题。所以，在组织上是可行的。2.3 选择系统的开发方案首先对系统进行分析，在需求上、组织结构上、业务流程上以及数据流程上进行完备的分析，然后在分析的基础上进行设计，设计系统的总体结构、代码、数据库结构以及输入输出界面等，最后利用VB软件进行界面设计，并且编程使之运行。2.4 确立系统的开发进度本次系统设计总体时间为两周，2015年6月8日至2015年6月21日，为了保证在规

19、定时间内设计符合要求的、合格的系统，合理分配时间，现制定具体的计划如下：2015.6.8：确定题目，进行初步的系统规划2015.6.9：完成系统规划2015.6.10 -2015.6.12：进行系统分析2015.6.13-2015.6.14：进行系统设计、设计系统的总体结构2015.6.15 -2015.6.20：应用程序开发2015.6.21：综合评价，结论，以及文档整理提交第三章 系统分析 3.1 需求分析当前纺织厂采购存在的主要问题是信息共享程度低、更新速度慢，不利于编制数据准确的采购计划，资源浪费较大。采购管理系统是根据纺织厂采购业务管理和采购成本核算的实际需要，对采购计划制定、采购订

20、单制定、原材料入库状况、原材料的检验、采购结算以及采购付款计划的编制进行全程管理，为采购部门和财务部门提供准确及时的信息，并辅助管理抉择。设计采购信息系统主要能满足以下几个方面的需求： 采购信息系统能及时更新相关的信息，为采购部门和财务部门提供准确的信息，使得采购人员、供应商及时接收相关信息，更方便管理地采购信息，制定更加合适的采购计划。 采购信息系统操作应该简便快捷，能让用户快速上手，出现问题基本上可以自行解决。采购系统由管理员进行管理，其他用户能进行查询，使得系统的运用更加灵活。 该系统正式运行时，能够输入、修改商品和供应商基本资料，能对采购业务和交货信息进行维护，能对商品采购信息进行查询

21、、交货追踪和统计。 3.2 组织结构分析纺织厂的组织结构图如下：纺织厂技术监督部经营贸易部供应办公室采购部供应部成品库原料库生产管理部计划处调度处前纺车间细纱车间筒摇车间准备车间布机车间整理车间财务部销售处图3.1 纺织厂整体组织结构图在采购业务中涉及的相关部门组织图如下：经营贸易部生产管理部纺织厂技术监督部财务部调度处计划处销售处供应办公室采购部供应部图3.2 采购业务中主要涉及的部门组织图生产管理部：负责提供生产计划、现有库存、产品消耗等信息。财务部：负责进行产品的财务核算以及付款的相关工作。技术监督部：负责对入库产品进行检验，出具质检报告，该报告作为日后评价供应商质量的依据。经营贸易部：

22、供应部、销售部和供销办公室会提供相关的信息，以便采购部制定更加合理的采购计划，采购部负责对供应商提供的产品价格进行比较，敲定后与供应商签订订货合同，另外还要负责到财务部进行原材料采购的财务核算，对整个采购业务活动流程进行跟踪管理，保证整个采购业务的正常进行与实施。3.3 业务流程分析采购业务流程图如下：采购员供应部生产计划生产部采购计划采购付款计划财务部采购订单供应商发票供应商采购员 原料购销合同采购员到货单仓库到货单图3.3 采购业务流程图3.4数据流程分析纺织厂采购业务顶层数据流程图如下：仓库P1采购系统生产部供应商入库单生产计划采购订单财务部发票图3.4 采购业务顶层数据流程图纺织厂采购

23、业务第一层数据流程图如下：P4.0 财务部P1.0生产部采购付款管理采购订单管理生产采购付款计划计划采 定发票购 单仓库P2.0供应商管理入购 合库P3.0采购收货管理销同单供应商发货单图3.5 采购业务第一层数据流程图纺织厂采购业务第二层数据流程图如下：P2.1供应商管理P1.2P1.1生产部采购订单管理采购计划管理生产计划采购计划单采购订单P4.2购财务部销采购付款管理 付款单 合同供应商 采款购计P3.1采购收货管理付划发P4.1仓库 P3.2货付款计划管理采购入库管理发票入库单到货单 单图3.6 购业务第二层数据流程图第四章 系统设计4.1 系统总体结构设计纺织厂信息系统管理物料管理销

24、售管理生产管理采购管理图4.1 纺织厂信息系统总体结构采购管理登陆主界面供应商管理采购收货管理采购付款管理采购订单管理图4.2 纺织厂采购信息系统总体结构4.2 代码设计表41 采购订单代码设计代码对象采购订单代码类型CG+日期（如20150101）+顺序码位数无限效验码无代码数量无限使用期限无限适用范围本纺织厂表42 入库单代码设计代码对象入库单代码类型RK+日期（如20150101）+顺序码位数无限效验码无代码数量无限使用期限无限适用范围本纺织厂表43 供应商名称代码设计代码对象供应商名称代码类型GYS+顺序码位数无限效验码无代码数量无限使用期限无限适用范围本纺织厂表44 物料名称代码设计

25、代码对象物料名称代码类型WL+顺序码位数无限效验码无代码数量无限使用期限无限适用范围本纺织厂表45 采购员代码设计代码对象采购员代码类型CGY+顺序码位数无限效验码无代码数量无限使用期限无限适用范围本纺织厂表46 仓库代码设计代码对象仓库代码类型CK+顺序码位数无限效验码无代码数量无限使用期限无限适用范围本纺织厂表47 采购付款单代码设计代码对象采购付款单代码类型FK+日期（如20150101）+顺序码位数无限效验码无代码数量无限使用期限无限适用范围本纺织厂表48 采购计划单代码设计代码对象采购计划单代码类型JH+日期（如20150101）+顺序码位数无限效验码无代码数量无限使用期限无限适用范

26、围本纺织厂 表49 到货单代码设计代码对象到货单代码类型DH+日期（如20150101）+顺序码位数无限效验码无代码数量无限使用期限无限适用范围本纺织厂4.3 数据库结构设计4.3.1 E-R图设计姓名采购员号年龄采购员 性别采购定单号 m采购联系电话供应商号 n名称供应商账号地址mm付款供应采购订单号物料名称号n1付款单号财务部金额数量物料单价供应商号m存放仓库号n入库单号仓库物料号图4.3 E-R 图4.3.1 关系模型（1）采购员（采购员号，姓名，性别，年龄，采购定单号）（2）供应商（供应商号，名称，地址，联系电话，账号）（3）物料（物料名称号，产地，数量，单价，费用，入库单号，质检单号

27、，所在仓库号，付款单号）（4）财务部（付款单号，采购订单号，供应商号）（5）仓库（仓库号，入库单号，物料号）（6）采购（物料名称号，采购员号，供应商号，数量）（7）供应（供应商号，采购订单号，物料名称号，数量）（8）付款（付款单号，采购订单号，入库单号，金额，物料名称号，供应商号）（10）存放（仓库号，物料名称号，入库单号）4.4 输入输出界面设计4.4.1 登录主界面设计用户输入正确的用户名和密码才能登陆采购管理系统，如果用户名不正确，点击“登录”，则会提示“用户名不存在”；如果密码不正确，则会提示“密码不正确”。点击“注册”，则进入用户注册界面。4.4.2 新用户注册界面设计输入新的用户名

28、和密码，点击“新建”，则会注册新的用户名，提示“新用户已建立”；如果用户名或密码有一个信息没有填完整，则会提示“请输入完整的信息”。点击“取消”，则会返回登录界面。4.4.3 采购信息管理系统界面设计点击各管理按键，进入相应的管理界面；点击“退出”，则退出此界面，返回登录界面。4.4.4 采购订单管理界面设计将采购计划的数据库与窗体连接起来，点击“查询”则可以显示采购计划，根据采购计划编制相应的采购订单。同时也可以在窗体新建、修改、删除采购计划。将采购订单的数据库与此窗体连接起来，可以直接在窗体上保存、修改、删除数据库里面的信息；单击“保存”，可以保存新的采购订单，并提示“订单已保存”；单击“

29、修改”，则可以修改已经保存的订单，修改完毕单击“保存”即可；单击“删除”，则可以删除已经保存的订单，并提示“订单已删除”；单击“返回”，回到登录界面。4.4.5 供应商管理界面设计将供应商信息的数据库与窗体连接起来，在文本框输入相应的信息，单击“保存”，则可以将输入的信息录入数据库，提示“已保存”；单击“修改”，则可以进行修改，单击“保存”即可；单击“删除”则可以删除已保存的订单；单击“返回”，则返回到登录界面；单击“查询”，则可以在文本框中显示相关信息，以便查询需要。4.4.6 采购收货管理界面设计将到货单和入库单与窗体连接起来，左边显示到货单，右边显示入库单。当物料到货时，先建立到货单，根

30、据到货单再建立入库单。单击“查询”，在左侧的文本框显示相关信息，便于建立入库单；单击“保存”，可以将新的入库单录入数据库，提示“已保存入库单”；单击“修改”，则可以对入库单进行修改，单击“保存”，即可保存，并提示“已保存入库单”；单击“删除”，则可以删除相应的入库单，并提示“已删除”；单击“返回”，回到登录界面。4.4.7 采购付款管理界面设计将入库单数据库和付款单与窗体连接起来，单击“查询”，在左侧显示相关信息，根据相关信息建立付款单。如果没有付款，则进行付款操作。输入相应的信息，单击“确认付款”，则可以将新的付款单存入数据库，并提示“完成付款！”；单击“修改”，则可以修改已保存的订单，单击

31、“保存”即可；单击“删除”则可以删除已保存的订单；单击“返回”，则返回登录界面。第五章 总结通过这次纺织厂采购信息管理系统的设计，首先我学到了很多知识，接触到很多自己以前没有接触的领域；其次加深了对物流信息管理系统这门课的了解与应用，这次实践，是真正意义上把课本上的知识运用到实际上去；最后通过这次设计，我发现了自己的不足之处，对于VB软件的使用不是很熟练，不过这次设计也学到很多新的VB操作知识，同时意识到多学各种知识、技能的重要性。参考文献1 陈素敏.采购管理信息系统的设计与实现.复旦大学，2008.2 徐颖芳. 服装企业采购管理信息系统的分析与设计.云南大学，2013.3 王艳桃.间接采购管

32、理信息系统分析设计研究.北京林业大学，2011.4 熊火轮，冯厚植.设计任务及可行性分析.航空制造工程，2004.5 廖化生，何利立，刘超.面向企业级业务流程图绘制系统的实现.工业控制计算机，2011.6 冯爽.关于数据流程图画法研究.河北科技大学学报.20127 邵超，万春红.E-R图的精细设计.计算机教育.20158 张琦.数据库中VB编程的应用.河南科技.2014附录1、登录主界面Private Sub Command1_Click()Adodc1.Recordset.Find (用户名= & Text1.Text & )If Adodc1.Recordset.EOF = True Th

33、enAdodc1.Recordset.MoveFirstText1 = Text2 = Text1.SetFocusMsgBox 用户名不存在, , 提示ElseIf (Adodc1.Recordset.Fields(密码) Text2.Text) ThenMsgBox 密码不正确, , 提示Text1 = Text2 = Text1.SetFocusElseForm1.HideForm3.ShowText2.Text = End IfEnd SubPrivate Sub Command2_Click()Form2.ShowForm1.HideEnd Sub2、新用户注册Private Sub

34、 Command1_Click()If Text1 = Or Text2 = ThenMsgBox 请输入完整的信息！, , 警告！Text1.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(用户名) = Text1.TextAdodc1.Recordset.Fields(密码) = Text2.TextAdodc1.Recordset.UpdateMsgBox 新用户已建立！, , 提示Text1.Text = Text2.Text = End IfEnd SubPrivate Sub Command2_Click()Fo

35、rm2.HideForm1.ShowEnd Sub3、采购信息管理系统界面Private Sub Command1_Click()Form4.ShowForm3.HideEnd SubPrivate Sub Command2_Click()Form5.ShowForm3.HideEnd SubPrivate Sub Command3_Click()Form6.ShowForm3.HideEnd SubPrivate Sub Command4_Click()Form7.ShowForm3.HideEnd SubPrivate Sub Command5_Click()Form1.ShowForm3

36、.HideEnd Sub4、采购订单管理Private Sub Command1_Click()Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(计划单号) = Text1.TextAdodc1.Recordset.Fields(物料) = Text2.TextAdodc1.Recordset.Fields(数量) = Text3.TextAdodc1.Recordset.Fields(需求日期) = Text4.TextAdodc1.Recordset.Fields(产品等级) = Text5.TextAdodc1.Recordset.Update

37、MsgBox 已保存订单！, , 提示Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End SubPrivate Sub Command2_Click()Text1.Text = Adodc1.Recordset.Fields(计划单号)Text2.Text = Adodc1.Recordset.Fields(物料)Text3.Text = Adodc1.Recordset.Fields(数量)Text4.Text = Adodc1.Recordset.Fields(需求日期)Text5.Text = Adod

38、c1.Recordset.Fields(产品等级)Adodc1.Recordset.DeleteEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.DeleteMsgBox 已完成计划！, , 提示End SubPrivate Sub Command4_Click()Adodc2.Recordset.AddNewAdodc2.Recordset.Fields(订单号) = Text6.TextAdodc2.Recordset.Fields(供应商) = Text11.TextAdodc2.Recordset.Fields(采购员) = Tex

39、t7.TextAdodc2.Recordset.Fields(物料) = Text12.TextAdodc2.Recordset.Fields(数量(kg) = Text8.TextAdodc2.Recordset.Fields(单价) = Text13.TextAdodc2.Recordset.Fields(金额) = Text9.TextAdodc2.Recordset.Fields(产品等级) = Text14.TextAdodc2.Recordset.Fields(是否交货) = Text10.TextAdodc1.Recordset.UpdateMsgBox 已保存订单！, , 提示

40、Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = Text13.Text = Text14.Text = End SubPrivate Sub Command5_Click()Text6.Text = Adodc2.Recordset.Fields(订单号)Text11.Text = Adodc2.Recordset.Fields(供应商)Text7.Text = Adodc2.Recordset.Fields(采购员)Text12.Text = Adodc2.Recordset.Fields(物料)Text8.Text = Adodc2.Recordset.Fields(数量（kg)Text3.Text = Adodc2.Recordset.F