2022年2022年管理信息系统课设范 .pdf

沈阳理工大学课程实践（论文）I 目录1 前言. I1.1 作业背景 . 11.2 选题说明 . 11.3 工作业绩 . 22 系统规划 . 42.1 项目名称 . 42.2 项目背景 . 42.3 项目目标 . 42.4 开发方法 . 42.5 项目功能 . 42.6 可行性分析报告 . 53 系统分析 . 63.1 业务流程图 . 63.2 数据流程图 . 73.3 数据字典 . 84 系统设计 . 17 4.1 总体设计 . 17 4.2 详细设计 . 17 5 系统实施 . 23 5.1 登录设计 . 23 5.2 采购信息录入 . 24 5.3 出库记录修改 . 27 5.3 采购记录删除 . 30 5.5 总信息查询 . 31 5.6 其他表单 . 33 结束语 . 34 参考文献 . 35 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）1 1 前言1.1 作业背景课程作业的具体要求如下：用信息系统开发工具（例如PowerBuilder 、Delphi 、VB 、VFP等）开发一个实用的中小型物流管理信息系统。（1）根据课程实践时间选择适当规模大小的设计课题。针对信息系统课程实践的具体特点，体现项目管理的思想，可由指导教师对学生进行分组（每组4-6 人） ，一组一题，分工合作，共同完成。（2）根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程实践活动。（3）课程实践过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文档，最后要求提交详细的课程实践报告。（4）开发出可以运行的管理信息系统，通过上机检查。1.2 选题说明项目背景研究课题题目：采购管理系统设计与开发。1.2.1 基本思路首先对研究企业的背景进行研究进而从经济、管理和技术三个方面对开发项目的可行性进行分析。 得出结论之后， 开始对该企业的组织结构和业务流程进行分析，然后得出逻辑模型即数据流程图。根据系统分析阶段的数据流程图得到物理模型即模块结构图。最后根据系统设计的内容进行程序设计并运行系统。1.2.2 作业目标通过对采购管理信息系统的设计与开发，熟练使用所学的结构化分析以及设计方法分析系统，描述系统，设计系统。掌握业务流程图，数据流程图，数据字典等工具。熟练使用模块设计方法，数据库设计方法，代码设计方法，输入输出设计方法等设计物理系统。并且会做简单的系统，并运行实施。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）2 1.3 工作业绩1.3.1 个人主要工作通过对前三部分的可行性分析、 系统分析和系统设计的研究基础上完成最后的数据库和程序的设计工作。1.3.2 主要收获从这个系统的可行性分析道最后实施完成，通过小组成员的通力合作完成了可行性分析，系统的分析，系统的设计，最后是系统的实施。当中过程小组成员通过合理的分配， 把各自的强项分配到各个部分， 其中前三部分分别由其他三个组员完成， 第四部分由我自己独立完成。在完成实施部分的时候， 数据来源全部根据前三部分完成。 在图书馆查阅了相关的资料之后对实施部分也有了一定的了解， MIS系统开发与应用实现这本书给我很大的灵感。在对整个采购系统了解之后，成功进行了数据库的设计。这个技术支持是VF 实验课上的知识，在当时不太深刻了解的情况下设计数据库的难度很大，在老师和同学的帮助下克服了种种困难终于成功设计成功。代码的设计这部分， 抱着可靠性的原则， 仔细查阅了相关资料最终设计了可运行的源代码。当然程序的测试过程给了我很大的启发， 因为这个过程就是对自己劳动成果的收获过程，查漏补缺，在一次次错误的情况下， 很好的考验了我的耐心和毅力。在测试成功之后，终于实现了系统采购信息的录入，修改和查询等等的功能。 这种成功感激励了我为开发更复杂的系统增添了不少信心。同时整个过程也增强了小组成员之间默契的配合。1.3.3 自我评定优良中及格不及格1.3.4 小组成员任务分工情况本组为本次课程设计第三组，组长为：张小雪，小组所有成员分工如下：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）3 小组成员分工表学号姓名任务备注0804080103 关金系统规划0804080119 张小雪系统分析组长0804080111 孙婷系统设计0804080134 李展鹏系统实施名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）4 2 系统规划2.1 项目名称信达公司采购管理系统设计与开发。2.2 项目背景自 1990 年信达公司成立以来， 信达公司根据不同层次的客户的不同需求销售各种款式的鞋制品。 随着社会发展， 信达公司在传统的采购管理运作下已经不能满足顾客的大量需求， 所以信达公司的管理层想要开发采购管理信息系统来辅助作出采购管理决策， 提高采购活动效率， 降低采购成本， 促进公司获得更高的收益。2.3 项目目标通过开发采购管理信息系统， 建立比较完整的采购体系， 使公司的运营更加顺利，得到较高的效益。具体如下：建立采购管理信息系统，使采购记录的文件量占用面积变小， 节省一定量的资金； 采用采购管理信息系统可以方便查询每一件采购的产品信息来源，便于控制。2.4 开发方法本系统运用结构化系统开发方法。2.5 项目功能该采购信息系统是一整套采购业务流程信息管理系统，依据此系统可以按产品的信息查询入库产品的多少与卖出的多少，以方便看此产品是否畅销， 有没有利润可言，是否还要采购此产品，依据信息进行辅助决策等。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）5 2.6 可行性分析报告2.6.1 技术可行性运用 Visual Basic 语言完成系统，同时运用Microsoft Office实用软件完成文档工作。本公司采用先进的技术手段， 为信息管理提供了强大的硬件保证，不管从设备方面还是技术力量方面，本公司都达到了一定的能力。 在技术方面可以建立管理信息系统。2.6.2 经济可行性有一定的资金， 能够支持计算外围设备费用、软件开发的费用、 人员培训的费用、维护费用、管理费用。间接的经济效益中，公司的管理层待遇优厚，可以为公司的管理信息系统的运行提供保证。2.6.3 管理可行性管理人员对开发本项目的态度是积极的，直属领导对项目的开发支持， 管理方法科学，在这个现代社会这样的管理制度开发相应成熟，规章制度已经具备了开发系统的条件， 有专门开发的人员四人， 既能合理的分配相应的工作， 又能在完成各自工作的同时对整体的系统管理进行整合。2.6.4 需求分析随着鞋业竞争的激烈与人们对自身要求的提高，使本公司对于挑选高质量的鞋的标准也越来越高， 设计采购管理信息系统为了使我们公司在采购方面能够给公司做好基础，使公司的品牌效益有保证，使公司人员的工作更有条理。综上分析可得出结论：该公司完全具备开发采购管理信息系统的能力。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）6 3 系统分析3.1 业务流程图通过对信达公司采购业务的实际调查分析，弄清了该公司的采购业务管理作的业务流程和管理功能，系统的业务流程图如图3.1 所示。图 3.1 采购管理业务流程图名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）7 3.2 数据流程图绘制顶层数据流程图关键在于找出主要外部实体和关键数据流。该公司采购业务的主要外部实体是需求部门和仓储部门。采购管理顶层数据流程图如图3.2所示。图 3.2 采购管理顶层数据流程图采购管理一级数据流程图如图3.3 所示。图 3.3 采购管理一级数据流程图绘制采购业务二级数据流程图时， 主要将采购计划管理进一步细化为需求计划汇总和生成采购计划两个处理模块，将采购收货管理进一步细化为采购收货管理和入库管理两个处理模块。 同时各个数据处理过程伴随产生相应的数据流，并作出数据存储。采购管理二级数据流程图如图3.4 所示。F1 需求计划单S1 需求部门P 采购管理系统F4 入库单S2 仓储部门S1 需求部门F1 需求计划单采购计划管理P1 P2 F2 采购计划单生成采购订单F3 采购订单D1 采购计划文件采购收货管理P3 F4 入库单S2 仓储部门D2 采购订单文件D3 收货单文件名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）8 图 3.4 采购管理二级数据流程图3.3 数据字典3.3.1 数据项定义数据项编号： I1 数据项名称：需求计划单号类型及宽度： char(13) 说明：货物需求计划编号取值范围：S1 需求部门F1.1 需求计划P1.1 需求计划汇总F1.2 采购需求单生成采购计划P1.2 F2 采购计划单P2 生成采购订单D1.1 需求计划文件D1.2 采购计划文件F3 采购订单D2.3 供应商资料采购收货管理P3.1 D2.1 采购订单文件D2.2 采购合同文件F4.1 入库信息P3.2 入库管理F4.2 入库单S2 仓储部门D3 收货单文件名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）9 数据项编号： I2 数据项名称：订单号类型及宽度： char(13) 说明：需求计划编号取值范围：数据项编号： I3 数据项名称：收获通知编号类型及宽度： char(13) 说明：收获通知单编号取值范围：数据项编号： I4 数据项名称：入库单编号类型及宽度： char(13) 说明：入库单编号编号取值范围：数据项编号： I5 数据项名称：供应商编号类型及宽度： char(5) 说明：供应商编号取值范围：数据项编号： I6 数据项名称：仓储部门编号类型及宽度： char(5) 说明：仓储部门编号取值范围：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）10 数据项编号： I7 数据项名称：存货编码类型及宽度： char(13) 说明：存货编码取值范围：数据项编号： I8 数据项名称：计量单位类型及宽度： char(10) 说明：货物计量单位取值范围：数据项编号： I9 数据项名称：数量类型及宽度： decimal(10,2) 说明：采购数量取值范围：数据项编号： I10 数据项名称：单价类型及宽度： decimal(10,2) 说明：采购单价取值范围：数据项编号： I11 数据项名称：金额类型及宽度： decimal(10,2) 说明：不含税总价取值范围：数据项编号： I12 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）11 数据项名称：税率类型及宽度： decimal(3,2) 说明：增值税率取值范围：数据项编号： I13 数据项名称：运费类型及宽度： decimal(10,2) 说明：该批采购物料的运费取值范围：数据项编号： I14 数据项名称：制单人编码类型及宽度： char(5) 说明：该单据的制作的操作员取值范围：数据项编号： I15 数据项名称：审核人编码类型及宽度： char(5) 说明：该单据的审核的操作员取值范围：数据项编号： I16 数据项名称：审核时间类型及宽度： char(10) 说明：该单据的审核时间取值范围：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）12 3.3.2 数据流的描述数据流编号： F1.1 数据流名称：需求计划单简述：由需求部门根据供需情况制定的所需的货物清单数据流来源：需求部门数据流去向：需求计划汇总处理模块数据项组成：日期 +货物编码 +单价+数量数据流量： 10 张/ 月高峰流量： 15 张/ 月数据流编号： F1.2 数据流名称：采购需求单简述：根据需求订货单和存货情况制定的所需采购的货物清单数据流来源：需求计划汇总处理模块数据流去向：生成采购计划处理模块数据项组成：日期 +货物编码 +单价+数量数据流量： 10 张/ 月高峰流量： 15 张/ 月数据流编号： F2 数据流名称：采购计划单简述：根据采购需求单和库存情况由采购员制定的采购计划数据流来源：生成采购计划处理模块数据流去向：生成采购订单处理模块数据项组成：日期 +供应商编码 +货物编码 +单价+数量数据流量： 10 张/ 月高峰流量： 15 张/ 月数据流编号： F3 数据流名称：采购订单简述：由采购主管根据采购计划和供应商信息填制的所需采购的货物订单数据流来源：生成采购订单处理模块数据流去向：采购收货管理处理模块数据项组成：日期+订单号 +供应商编码 +订货部门编码 +发运方式 +制单人 +审核人名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）13 +存货编码 +计量单位 +订货数量 +订货单价 +订货金额 +增值税率数据流量： 10 张/ 月高峰流量： 15 张/ 月数据流编号： F4.1 数据流名称：入库信息简述：由库管员填写收货入库的信息数据流来源：采购收货管理处理模块数据流去向：入库管理数据项组成：日期 +货物编码 +数量+单价数据流量： 10 张/ 月高峰流量： 15 张/ 月数据流编号： F4.2 数据流名称：入库单简述：货物经验收合格实际出库的单据凭证数据流来源：入库管理处理模块数据流去向：仓储部门数据项组成：日期+出库单编号 +收货通知号 +仓库编码 +制单人 +审核人 +计量单位+入库数量 +入库单价 +入库金额数据流量： 10张/ 月高峰流量： 15 张/ 月3.3.3 处理逻辑的描述处理逻辑编号： P1.1 处理逻辑名称：需求计划汇总简述：汇总所需货物的相关信息输入的数据流：需求计划单处理描述：根据需求部门的需求信息得出所需货物的汇总信息输出的数据流：采购需求单处理频率： 10次/ 月处理逻辑编号： P1.2 处理逻辑名称：生成采购计划名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）14 简述：填写采购货物的计划输入的数据流：采购需求单处理描述：根据需求计划单和存货情况编写出采购计划输出的数据流：采购计划处理频率： 10次/ 月处理逻辑编号： P2 处理逻辑名称：生成采购订单简述：填写采购货物的订单输入的数据流：采购计划处理描述：根据采购计划和供应商资料，选择合格的供应商， 确认价格填写采购订单输出的数据流：采购订单处理频率： 10次/ 月处理逻辑编号： P3.1 处理逻辑名称：采购收货管理简述：对采购的货物进行收获管理输入的数据流：采购订单处理描述：当货物到达时，根据采购订单，对货物进行查验质量，数量等输出的数据流：入库信息处理频率： 10次/ 月处理逻辑编号： P3.2 处理逻辑名称：入库管理简述：对已收货进行入库管理输入的数据流：入库信息处理描述：根据入库信息，对已经检验收货的货物，入库，上架，记录输出的数据流：入库单名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）15 3.3.4 数据存储的描述数据存储编号： D1.1 数据存储名称：需求计划文件简述：存储需求计划的文件数据存储组成：日期 +货物编码 +单价+数量关键字：部门代码，货物编码相关联的处理： P1.1 数据存储编号： D1.2 数据存储名称：采购计划文件简述：登记采购计划的文件数据存储组成：日期 +供应商编码 +货物编码 +单价+数量关键字：供应商编码，货物编码相关联的处理： P1.2 数据存储编号： D2.3 数据存储名称：供应商资料简述：登记供应商的相关信息数据存储组成：供应商编码+货物编码 +单价+数量关键字：供应商编码，货物编码相关联的处理： P1.2 数据存储编号： D2.1 数据存储名称：采购订单文件简述：登记采购货物订单的文件数据存储组成：日期+订单号 +供应商编码 +订货部门编码 +发运方式 +制单人 +审核人+存货编码 +计量单位 +订货数量 +订货单价 +订货金额 +增值税率关键字：订单号，供应商编码，订货部门编码，存货编码相关联的处理： P2 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）16 数据存储编号： D2.2 数据存储名称：采购合同文件简述：编写采购合同的文件数据存储组成：日期+订单号 +供应商编码 +订货部门编码 +发运方式 +制单人 +审核人+存货编码 +计量单位 +订货数量 +订货单价 +订货金额 +增值税率关键字：订单号，供应商编码，订货部门编码，存货编码相关联的处理： P2 数据存储编号： D3 数据存储名称：收货单文件简述：汇总收货单的文件数据存储组成：日期+订单号 +供应商编码 +订货部门编码 +制单人 +审核人 +计量单位+订货数量 +订货单价 +订货金额 +增值税率关键字：订单号，供应商编码，订货部门编码，存货编码相关联的处理： P3.1+P3.2 3.3.5 外部实体的描述外部实体编号： S1 实体名称：需求部门简述：产生货物需求的部门输入的数据流：申请单输出的数据流：需求计划单名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）17 4 系统设计4.1 总体设计根据企业数据流程图可绘制的系统功能结构图如图4.1 所示。图 4.1 采购管理系统模块结构图4.2 详细设计4.2.1 代码设计（1）商品代码设计商品代码采用由两位整数组成的层次码，设计方案如图4.2 所示。图 4.2 商品代码方案设计（2）部门代码设计规格顺序号品种顺序号采购处理计划管理订单处理收货处理需求计划管理生成采购计划计划完成情况分生成采购订单订单完成订单终止或取消订单收货处理入库处理名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）18 公司公司部门只有少数几个， 因此，将部门的代码设计成有两位整数组成的顺序码，设计方案如图4.3 所示。图 4.3 部门代码设计方案同理，由于公司只有人数有限（几十人） ，将员工代码也设计成由两位整数组成的顺序码，设计方案同上。（3）商品采购订单编号方案设计考虑公司商品采购时间的不确定，每天采购量的不确定性， 采用的编码设计方案如图 4.4 所示。图 4.4 采购订单编号设计方案4.2.2 输出设计对系统需要的输出结果进行设计，本系统主要是查询采购及入库的相关信息。现仅就采购信息查询输出表进行描述如表4.1 所示。表 4.1 采购信息查询输出表顺序号采购时间X X 顺序号名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 19 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）19 通过表 4.1 可以快速方便地查到本企业的采购信息。4.2.3 输入设计采购信息录入如图4.5 所示。图 4.5 采购信息录入界面入库信息录入如图4.6 所示。采购信息录入商品编号商品名称单位采购数量单价采购时间录入清空退出采购信息查询名称供应地种类单价采购时间返回名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 20 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）20 图 4.6 入库信息录入界面4.2.4 数据库结构设计(1) 概念结构设计（ E-R图）采购管理信息系统概念结构设计E-R图如图 4.7 所示。图 4.7 采购管理信息系统E-R图入库信息录入商品编号商品名称单位入库数量商品单价入库时间录入清空退出需求计划单生成采购计划单生成采购订单收货收货单送货供应商检验检验单入库物料存单库存台账n 1 1 n n 1 1 n 1 1 m 1 1 记账名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 21 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）21 部分实体所具有的属性描述如下：需求计划实体属性E-R分图如图 4.8 所示。图 4.8 需求计划单实体图采购计划实体属性E-R分图如图 4.9 所示。图 4.9 采购计划单实体属性E-R分图采购订单实体属性E-R分图如图 4.10 所示。图 4.10 采购订单实体属性E-R分图(2) 逻辑结构设计（关系模型）需求计划单编号部门代码部门名称需求理由采购计划单编号部门代码部门名称决策结果采购订单订单编号商品代码商品编号备注名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 22 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）22 需求计划（编号 *，部门代码，部门名称，需求理由，采购计划编号）采购计划（编号 *，部门代码，部门名称，决策结果）采购订单（订单编号 *，商品代码，商品编号，备注，采购计划编号）收货单（收货编号 *，收货日期，收货人，备注）检验单（检验单编号 *，审核时间，审核结果，审核人，收货单编号）物料存单（存单编号 *，存货人，存货时间，备注，收货单编号）存货台账（编号 *，记录时间，负责人，备注）供应商（供应商编号 *，供应商名称，联系方式，地址，备注）(3) 物理结构设计 (部分结构如表 4.2 ，表 4.3 ，表 4.4 ，表 4.5 所示) 表 4.2 需求计划单字段名称字段说明类型宽度小数位数xqjhID 需求计划单编号字符型10 cgjhID 采购计划单编号字符型10 BMDM 部门代码字符型12 bmNAME 部门名称字符型50 xqReason 需求理由字符型200 表 4.3 采购计划单字段名称字段说明类型宽度小数位数cgjhID 采购计划单编号字符型10 BMDM 部门代码字符型12 bmNAME 部门名称字符型50 jcResult 决策结果字符型150 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 23 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）23 5 系统实施5.1 登录设计新建一个表单，命名为“登录界面” 。把表单 Caption 属性设置为“登录系统” ； 在 “登录表单”表单上放置相应的控件， 2 个标签 Label ， 2 个文本框 Text,3个命令按钮 Command，1 个 Image控件，更改其中控件的Caption 属性，表单如图 5.1 所示。图 5.1 登录界面窗口具体代码编写如下：（1） “确定”按钮的 Click事件代码select 密码表 1 locate for alltrim(thisform.text1.value)=alltrim(用户名 ) if found() and alltrim(thisform.text2.value)=alltrim(密码) thisform.release do form 主界面 else i=i+1 if i3 messagebox(对不起！您输入有误，请重试！,64,错误) thisform.text1.value= thisform.text2.value= 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 24 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）24 thisform.text2.enabled=.f. thisform.text1.enabled=.t. thisform.text1.setfocus else messagebox(对不起！您输入有误，禁止进入系统！,64,错误) thisform.release endif endif （2） “取消”按钮的 Click事件代码mand1.enabled=.t. thisform.text1.value= thisform.text2.value= thisform.Label2.visible=.f. thisform.text2.visible=.f. mand1.enabled=.f. mand2.enabled=.f. thisform.text1.enabled=.t. thisform.text1.setfocus （3） “退出”按钮的 Click事件代码thisform.release 5.2 采购信息录入新建一个表单，命名为“采购信息录入” 。把表单 Caption 属性设置为“采购信息录入”；在“采购信息录入”表单上放置相应的控件，6 个标签 Label ，6个文本框 Text，3 个命令按钮 Command，更改其中控件的Caption 属性，表单如图 5.2 所示。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 25 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）25 图 5.2 采购信息录入窗口具体代码编写如下：（1） “录入”按钮的 Click事件代码if !empty(thisform.text1.value) and !empty(thisform.text2.value) and; !empty(thisform.text3.value) and !empty(thisform.text4.value) and; !empty(thisform.text5.value) and !empty(thisform.text6.value) sele 采购材料信息append blank go bottom replace 材料编号 with alltrim (thisform.text1.value) replace 材料名称 with alltrim (thisform.text2.value) replace 单位 with alltrim (thisform.text3.value) replace 采购数量 with thisform.text4.value replace 单价 with thisform.text5.value replace 采购时间 with thisform.text6.value messagebox ( 成功添加记录 ,48,信息窗口 ) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 26 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）26 select 库存材料信息locate for allt(材料编号 )=allt(thisform.text1.value) if found() replace 数量 with thisform.text4.value+数量replace 材料名称 with alltrim(thisform.text2.value) replace 单位 with alltrim(thisform.text3.value) replace 单价 with thisform.text5.value replace 采购时间 with thisform.text6.value else append blank go bottom replace 材料名称 with alltrim(thisform.text2.value) replace 单位 with alltrim(thisform.text3.value) replace 数量 with thisform.text4.value replace 材料编号 with alltrim(thisform.text1.value) replace 单价 with thisform.text5.value endif endif thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value=0 thisform.text5.value=0 thisform.text6.value=date() thisform.refresh （2） “清空”按钮的 Click事件代码thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value=0 thisform.text5.value=0 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 27 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）27 thisform.text6.value=date() thisform.refresh （3） “退出”按钮的 Click事件代码thisform.release 5.3 出库记录修改新建一个表单，命名为“出库记录修改” 。把表单 Caption 属性设置为“出库记录修改”；在“出库记录修改”表单上放置相应的控件，6 个标签 Label ，6个文本框 Text,2 个命令按钮组 CommandGroup，更改其中控件的Caption 属性，表单如图 5.3 所示。图 5.3 出库记录窗口具体代码编写如下：（1）“首记录”按钮的click事件go top mand2.enabled=.f. mand3.enabled=.t. thisform.refresh （2）“上条记录”按钮的click事件if bof() messagebox(已是第一个记录 ,48, “信息窗口” ) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 28 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）28 mand2.enabled=.f. else skip -1 mand3.enabled=.t. endif thisform.refresh （3）“下条记录”按钮的click事件if eof() messagebox(已是最后一条记录 ,48,信息窗口 ) mand3.enabled=.f. else skip mand2.enabled=.t endif thisform.refresh （4）“未记录”按钮的click事件go bottom mand3.enabled=.f. mand2.enabled=.t. thisform.refresh if mand1.caption=修改 mand1.caption=保存 thisform.txt 材料编号 .enabled=.t. thisform.txt 材料名称 .enabled=.t. thisform.txt 单位.enabled=.t. thisform.txt 出库数量 .enabled=.t. thisform.txt 原材料单位 .enabled=.t. thisform.txt 出库时间 .enabled=.t. mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 29 页，共 37 页 - - - - - - - - - 沈阳理工大学课程实践（论文）29 mand4.enabled=.f. else yn=messagebox(确定保存吗？ ,4+32, 信息窗口 ) if yn=6 =tablerevert(.