纺织厂采购信息管理系统

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、 仓库管理信息系统设计3、 销售

4、管理信息系统设计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 -2015.6.9:需求分析2

7、015.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日201徼物流工程专业物流管理信息系统课程设计指导书一、课程设计的目的和要求物流管理信息系统课程设计是物流工程专业中实

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

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

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

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

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

13、2.2.2 技术上的可行性 22.2.3 经济上的可行性 22.2.4 组织上的可行性 32.3 选择系统的开发方案 32.4 确立系统的开发进度 3第三章系统分析 43.1 需求分析 43.2 组织结构分析 53.3 业务流程分析 83.4 数据流程分析 9第四章系统设计 124.1 系统总体结构设计 124.2 代码设计 134.3 数据库结构设计 154.3.1 E-R 图设计 154.3.2 关系模型 184.4 输入输出界面设计 194.4.1 登录主界面设计 194.4.2 新用户注册界面设计 204.4.3 采购信息管理系统界面设计 214.4.4 采购订单管理界面设计 224.

14、4.5 供应商管理界面设计 234.4.6 采购收货管理界面设计 244.4.7 采购付款管理界面设计 25第五章总结 25参考文献 26附录 27物流管理信息系统课程设计1为”女孝1为”女孝物流管理信息系统课程设计第一章 概述1.1 设计背景采购工作是供应物流与社会物流的衔接点，是依据生产企业生产一一供应一 一采购计划来进行原材料外购的作业层，负责市场资源、供货厂家、市场变化等 信息的采集和反馈。我国纺织厂的采购工作经常出现盲目采购的现象，主要原因是企业没有建立一个良好的采购管理信息系统， 导致采购部门几乎靠自己的主观 推测，不能准确判断原材料采购的种类和数量， 采购的原材料不能满足企业的生

15、 产，或者不是生产所需的原材料，造成企业仓库、资金的浪费。1.2 设计意义随着全球化进程的推进以及中国调整产业结构、节能减排的基本方针的确 立，中国的纺织厂面临较大的压力。利用计算机管理可以最大限度的发挥准确、 快捷、高效等作用，对纺织厂的采购管理提供强有力的支持。因此，利用计算机 信息技术，通过建立采购管理信息系统，优化企业的采购流程，将有效减少错误 数据的发生，降低采购成本，提高采购效率。第二章 系统规划2.1 确立新系统建立的目标建立完善的采购信息管理系统，对纺织厂原材料采购系统进行管理。从制定采购计划、制定采购订单、入库、质量检验、采购结算等各个环节进行系统的管 理，实现各个环节的信息

16、流动。简化各环节的人力、物力和财力，保证原材料的 供应，降低采购成本，优化库存结构，加速资金周转，提高纺织厂的经济效益。2.2 系统开发的可行性2.2.1 系统开发的必要性纺织厂主要需要采购的原材料是棉花， 它是典型的自然产物，存在季节性采 购，价格波动对生产成本影响很大，在特殊情况下存在维持生产需求（一般一个 月）的计划采购与预付款采购，资金占用大。为此相应的根据生产部门对自身实 际情况的了解，以及原棉供应的市场情况设定一个针对原材料采购的信息系统是 很有必要的。这对于节约成本，控制库存等都是相当有意义的。2.2.2 技术上的可行性由于所要开发的采购管理信息系统主要是利用现有的条件，在配置一

17、般的计 算机设备就可以完成。因此，新系统对机器设备的要求不高，只是对开发人员有 一定的要求，不过很容易满足条件。新系统开发完毕后，对操作人员来说，只要有 过操作普通计算机系统的经历,都能够较顺利的操作。从总体的结构来说，操作 简便，易于录入和查询信息，从而方便了用户。因此，本系统在技术上是可行的。2.2.3 经济上的可行性由于技术方面的成熟，并且并不需要特殊的设备，具开发成本不会很高。系 统开发完成后，其可以改变以往人工管理的繁琐，可以直接的节省人力、物力和财 力，可以降低出错的几率，提高纺织厂采购部门的办事效率等， 这些问题的改进 都将直接或间接的为纺织厂节省一定的经费开支。这样不仅可以及时

18、、准确、有效地分析统计各种采购信息和管理数据，供上级主管部门做出科学的管理决策， 还可以为纺织厂节省不少的开支， 减少资源的浪费。因此，该系统开发在经济上 是可行的。2.2.4 组织上的可行性要实现新系统的运行，需要制定合理的项目实施进度计划、设计合理组织机构、选择经验丰富的管理人员、建立良好的协作关系、制定合适的培训计划等。 而这些都可以满足，只要有经验丰富的相关人员，制定实施计划、设计合理的组 织机构都不是问题。所以，在组织上是可行的。2.3 选择系统的开发方案首先对系统进行分析，在需求上、组织结构上、业务流程上以及数据流程上 进行完备的分析，然后在分析的基础上进行设计，设计系统的总体结构

19、、代码、 数据库结构以及输入输出界面等，最后利用VB软件进行界面设计，并且编程使之运行。2.4 确立系统的开发进度本次系统设计总体时间为两周，2015年6月8日至2015年6月21日，为 了保证在规定时间内设计符合要求的、 合格的系统，合理分配时间，现制定具体 的计划如下：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页

20、共54页1为”女孝物流管理信息系统课程设计第三章 系统分析3.1需求分析当前纺织厂采购存在的主要问题是信息共享程度低、更新速度慢，不利于编 制数据准确的采购计划，资源浪费较大。采购管理系统是根据纺织厂采购业务管 理和采购成本核算的实际需要，对采购计划制定、采购订单制定、原材料入库状 况、原材料的检验、采购结算以及采购付款计划的编制进行全程管理，为采购部 门和财务部门提供准确及时的信息，并辅助管理抉择。设计采购信息系统主要能 满足以下几个方面的需求：采购信息系统能及时更新相关的信息，为采购部门和财务部门提供准确 的信息，使得采购人员、供应商及时接收相关信息，更方便管理地采购 信息，制定更加合适的

21、采购计划。 采购信息系统操作应该简便快捷，能让用户快速上手，出现问题基本上 可以自行解决。采购系统由管理员进行管理，其他用户能进行查询，使 得系统的运用更加灵活。该系统正式运行时，能够输入、修改商品和供应商基本资料，能对采购 业务和交货信息进行维护，能对商品采购信息进行查询、交货追踪和统 计。第4页共54页物流管理信息系统课程设计第5页共54页3.2 组织结构分析纺织厂的组织结构图如下:纺织厂技术监督部经营贸易部次#）火才物流管理信息系统课程设计图3.1纺织厂整体组织结构图在采购业务中涉及的相关部门组织图如下：第#页共54页物流管理信息系统课程设计第7页共54页计划处调 度 处 1 力”&qu

22、ot;物流管理信息系统课程设计图3.2采购业务中主要涉及的部门组织图生产管理部：负责提供生产计划、现有库存、产品消耗等信息。财务部：负责进行产品的财务核算以及付款的相关工作。技术监督部：负责对入库产品进行检验，出具质检报告，该报告作为日后评 价供应商质量的依据。经营贸易部：供应部、销售部和供销办公室会提供相关的信息，以便采购部制定更加合理的采购计划，采购部负责对供应商提供的产品价格进行比较，敲定 后与供应商签订订货合同，另外还要负责到财务部进行原材料采购的财务核算， 对整个采购业务活动流程进行跟踪管理，保证整个采购业务的正常进行与实施。3.3 业务流程分析采购业务流程图如下:第9页共54页采购

23、付款计划采购订单图3.3采购业务流程图3.4 数据流程分析物流管理信息系统课程设计事发票I财务部图3.4采购业务顶层数据流程图纺织厂采购业务第一层数据流程图如下:第#页共54页销蛆物流管理信息系统课程设计供应第11页共54页发货单图3.5采购业务第一层数据流程图纺织厂采购业务第二层数据流程图如下:生产 部生产计划"P1.1米购计划单.P1.2米购订单供P2.1采购计划管理采购订单管理供应商 管理购销合同采款内计付划图3.6购业务第二层数据流程图物流管理信息系统课程设计第四章系统设计4.1系统总体结构设计纺织厂信息系统管理生 产 管 理销 售 管 理物料管理图4.1纺织厂信息系统总体结

24、构第13页共54页物流管理信息系统课程设计第17页共54页采购管理登陆主界面采 购 订 单 管 理供应商管理采 购 收 货 管 理采付理图4.2纺织厂采购信息系统总体结构4.2 代码设计表4-1采购订单代码设计代码对象采购订单代码类型CG期（如20150101） + 顺序 码位数无限效验码无代码数量无限使用期限无限适用范围本纺织厂表42入库单代码设计代码对象入库单代码类型RK+0期（如20150101） + 顺序码位数无限效验码无代码数量无限使用期限无限适用范围本纺织厂表4 3供应商名称代码设计代码对象供应商名称代码类型GYS顺月马位数无限效验码无代码数量无限使用期限无限适用范围本纺织厂表44

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

26、量无限使用期限无限适用范围本纺织厂表49到货单代码设计代码对象到货单代码类型DH旧期(如20150101) + 顺序码位数无限效验码无代码数量无限使用期限无限适用范围本纺织厂4.3 数据库结构设计4.3.1 E-R 图设计物流管理信息系统课程设计姓名性别第17页共54页物流管理信息系统课程设计第21页共54页物料名称号1n图4.3 E-R 图4.3.2 关系模型(1)采购员(采购员号，姓名,性别，年龄，采购定单号)(2)供应商(供应商号，名称.地址，联系电话，账号)(3)物料(物料名称号,产地，数量，单价，费用，入库单号，质检单号, 所在仓库号，付款单号)(4)财务部(付款单号，采购订单号,供

27、应商号)(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、单。当 物料到货时，先建立到货单，根据到货单再建立入库单。单击“查询”，在左侧的文本框显示相关信息，便于建立入库单；单击“保存”，可以将新的入库单录 入数据库，提示“已保存入库单”；单击“修改”，则可以对入库单进行修改，单 击“保存”，即可保存，并提示“已保存入库单”；单击“删除”，则可以删除相 应的入库单，并提示“已删除”；单击“返回”，回到登录界面。第#页共54页1为”女孝物流管理信息系统课程设计4.4.7 采购付款管理界面设计将入库单数据库和付款单与窗体连接起来，单击“查询”，在左侧显示相关 信息，根据相关信息建立付款单。如果没有付款，则进行付款操作。输入相应的 信息，单击“确认付款”，

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

32、8.2徐颖芳.服装企业采购管理信息系统的分析与设计.云南大学，2013.3王艳桃.间接采购管理信息系统分析设计研究.北京林业大学，2011.4熊火轮，冯厚植.设计任务及可行性分析.航空制造工程，2004.5廖化生，何利立，刘超.面向企业级业务流程图绘制系统的实现.工业控 制计算机，2011.6冯爽.关于数据流程图画法研究.河北科技大学学报.20127邵超，万春红.E-R图的精细设计.计算机教育.20158张琦.数据库中VB编程的应用.河南科技.2014Text1 =""第27页共54页附录1、登录主界面Private Sub Command1_Click()Adodc1.R

33、ecordset.Find (" 用户名='"& Textl.Text & "”')If Adodc1.Recordset.EOF = True ThenAdodc1.Recordset.MoveFirstText1 =""Text2 =""Text1.SetFocusMsgBox "用户名不存在"一"提示"ElseIf (Adodc1.Recordset.Fields(" 密码")<> Text2.Text) ThenM

34、sgBox "密码不正确"" 提示"Text2 =""Textl.SetFocusElseForml.HideForm3.ShowText2.Text =""End IfEnd SubPrivate Sub Command2_Click()Form2.ShowForm1.HideEnd Sub2、新用户注册Private Sub Command1_Click()If Text1 = "" Or Text2 = "" ThenMsgBox "请输入完整的信息！&quo

35、t;一"警告！"Text1.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用户名")=Text1.TextAdodc1.Recordset.Fields("密码")=Text2.TextAdodc1.Recordset.UpdateMsgBox "新用户已建立！"一" 提示"1为”女孝物流管理信息系统课程设计Textl.Text =""Text2.Text =""End IfEnd

36、SubPrivate Sub Command2_Click()Form2.HideForml.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 Su

37、b Command5_Click()Forml.ShowForm3.HideEnd Sub4、采购订单管理Private Sub Command1_Click()AdodcI.Recordset.AddNew第31页共54页Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("AdodcI.Recordset.UpdateMsgBox "已保

38、存订单！",计划单号")=Text1.Text物料")=Text2.Text数量")=Text3.Text需求日期")=Text4.Text产品等级")=Text5.Text提示"Text1.Text =""Text2.Text =""Text3.Text =""Text4.Text =""Text5.Text =""End SubPrivate Sub Command2_Click()Textl.Text = Adodc1.

39、Recordset.Fields("计戈U单号")Text2.Text = Adodc1.Recordset.Fields("物料")Text3.Text = Adodc1.Recordset.Fields("数量")Text4.Text = Adodc1.Recordset.Fields("需求日期")Text5.Text = Adodc1.Recordset.Fields("产品等级")AdodcI.Recordset.DeleteEnd SubPrivate Sub Command3_Cl

40、ick()AdodcI.Recordset.DeleteMsgBox "已完成计划！"一"提示"End SubPrivate Sub Command4_Click()Adodc2.Recordset.AddNewAdodc2.Recordset.Fields(Adodc2.Recordset.Fields(Adodc2.Recordset.Fields(Adodc2.Recordset.Fields(Adodc2.Recordset.Fields(订单号")=Text6.Text供应商")=Text11.Text采购员")=

41、Text7.Text物料")=Text12.Text数量(kg)") = Text8.Text物流管理信息系统课程设计Adodc2.Recordset.Fields("Adodc2.Recordset.Fields("Adodc2.Recordset.Fields("Adodc2.Recordset.Fields("AdodcI.Recordset.UpdateMsgBox "已保存订单！",单价")=Text13.Text金额")=Text9.Text产品等级")=Text14.Te

42、xt是否交货")=Text10.Text提示"Text6.Text =""Text7.Text =""Text8.Text =""Text9.Text =""Text10.Text =""Textll.Text =""Text12.Text =""Text13.Text =""Text14.Text =""End SubPrivate Sub Command5_Click()Text6.Text

43、= 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.Fields("

44、;单价")Text9.Text = Adodc2.Recordset.Fields（"金额"）Text14.Text = Adodc2.Recordset.Fields（"产品等级"）TextIO.Text = Adodc2.Recordset.Fields（"是否交货"）Adodc2.Recordset.DeleteEnd SubPrivate Sub Command6_Click（）Adodc2.Recordset.DeleteMsgBox "已删除订单！"一" 提示"End Su

45、bPrivate Sub Command7_Click（）Form4.HideForm3.ShowEnd SubPrivate Sub Command8_Click（）Text1.Text = Adodc1.Recordset.Fields（"计戈U单号"）Text2.Text = Adodc1.Recordset.Fields（"物料"）Text3.Text = Adodc1.Recordset.Fields（"数量"）Text4.Text = Adodc1.Recordset.Fields（"需求日期"）Tex

46、t5.Text = Adodc1.Recordset.Fields（"产品等级"）End Sub第33页共54页1为”女孝物流管理信息系统课程设计Private Sub Command9_Click()Form4.HideForm6.ShowEnd Sub5、采购收货管理Private Sub Command1_Click()供应商号")=Text1.Text供应商名称")=Text2.Text电话")=Text3.Text账号")=Text4.Text地址")=Text5.Text提供物料")=Text6.Tex

47、tAdodcI.Recordset.AddNewAdodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("AdodcI.Recordset.UpdateMsgBox "已保存！"一" 提示"Text1.Text =""Text2.Text

48、 =""Text3.Text =""Text4.Text =""Text5.Text =""Text6.Text =""End SubPrivate Sub Command2_Click()第35页共54页物流管理信息系统课程设计Textl.Text = Adodc1.Recordset.Fields("供应商号")Text2.Text = Adodc1.Recordset.Fields("供应商名称")Text3.Text = Adodc1.Record

49、set.Fields("电话")Text4.Text = Adodc1.Recordset.Fields("账号”)Text5.Text = Adodc1.Recordset.Fields("地址")Text6.Text = Adodc1.Recordset.Fields("提供物料")AdodcI.Recordset.DeleteEnd SubPrivate Sub Command3_Click()AdodcI.Recordset.DeleteMsgBox "已删除！"提示"End SubPr

50、ivate Sub Command4_Click()Form5.HideForm3.ShowEnd SubPrivate Sub Command5_Click()Text1.Text = Adodc1.Recordset.Fields("供应商号")Text2.Text = Adodc1.Recordset.Fields("供应商名称")Text3.Text = Adodc1.Recordset.Fields("电话")Text4.Text = Adodc1.Recordset.Fields("账号”)第37页共54页Tex

51、t5.Text = Adodc1.Recordset.Fields("地址")Text6.Text = Adodc1.Recordset.Fields("提供物料")End SubPrivate Sub Command6_Click()Form6.HideForm7.ShowEnd Sub6、采购付款管理Private Sub Command1_Click()Adodc2.Recordset.AddNew订单号")=Text2.TextAdodc2.Recordset.Fields("Adodc2.Recordset.Fields(&

52、quot;入库单号")=Text3.TextAdodc2.Recordset.Fields("仓库号")=Text4.TextAdodc2.Recordset.Fields("数量")=Text6.TextAdodc2.Recordset.Fields("物料")=Text5.TextAdodc2.Recordset.Fields("金额")=Text7.TextAdodc2.Recordset.Fields("供应商")=Text8.TextAdodc2.Recordset.Upda

53、teMsgBox "已保存入库单", vbOKOnly + vbExclamation,”提示"Textl.Text =""Text2.Text =""Text3.Text =""Text4.Text =""1为”女孝物流管理信息系统课程设计Text5.Text =""Text6.Text =""Text7.Text =""Text8.Text =""End SubPrivate Sub Command2_

54、Click（）Text2.Text = Adodc2.Recordset.Fields（"订单号"）Text3.Text = Adodc2.Recordset.Fields（"入库单号"）Text4.Text = Adodc2.Recordset.Fields（"仓库号"）Text6.Text = Adodc2.Recordset.Fields（"数量"）Text5.Text = Adodc2.Recordset.Fields（"物料"）Text7.Text = Adodc2.Recordset

55、.Fields（"金额"）Adodc2.Recordset.DeleteEnd SubPrivate Sub Command3_Click（）Adodc2.Recordset.DeleteMsgBox "已删除", vbOKOnly + vbExclamation," 提示End SubPrivate Sub Command4_Click（）Form6.HideForm3.ShowEnd SubPrivate Sub Command5_Click()Textl.Text = Adodc1.Recordset.Fields("是否交货")Text2.Text = Adodc1.Recordset.Fields("订单号")Text6.Text = Adodc1.Recordset.Fields("数量(kg)")Text5.Text = A