数据库课程设计-物资管理系统方案

数据库课程设计—物质管理系统方案数据库课程设计—物质管理系统方案34/34数据库课程设计—物质管理系统方案目录1归纳-1-项目背景：错误!不决义书签。编写目的：-1-项目名称：-1-开发环境：-1-2需求解析-2-问题的提出：-2-需完成的功能：-3-3数据库设计的过程-3-看法模型设计-3-逻辑数据库设计-8-规范化理论的应用-10-物理数据库设计-10-4软件功能设计-15-系统功能解析-15-系统功能模块设计-17-5设计心得错误!不决义书签。参照文件-24-附录错误!不决义书签。第一章归纳、项目背景物质管理系统是企业管理的一个重要内容，随着时代的进步，企业也逐渐变的弘大起来。如何管理好企业内部物质的信息，成为企业管理中的一个大问题。在这种情况下，一个能够规范化，自动化的物质管理信息系统就显得特别必要。最初的物质管理，都是靠人力来完成的。当企业规模比较小的时候，人力能够完成，随着企业的规模越来越大，企业的进出物质数量也越来越多，仍旧保持着人力进行物质管理，必然会造成工作效率低，工作错误增高的问题。物质管理系统就是把分其他企事业单位的职工信息实行一致，集中，规范的收集管理，建立分类编号管理，电脑储藏盘问以及防火，防潮，防蛀，防盗等现代化，专业化的管理系统，为企事业单位和职工清除后顾之忧。、编写目的：物质管理系统是为了配合相关部门对自己本部门物质的管理，充分运用现代化信息技术手段高效、快捷的工作而开发的软件系统。物质管理信息系统为企事业单位供应信息咨询，信息检索，信息存取等服务。、项目名称：物质管理系统.、开发环境：本系统使用中文版作为前台设计和MicrosoftSQLServer2000管理数据库VisualBasic6.0作为Microsoft企业开发的BasicStudio6.0套件的一部分，是一个功能丰富、方便合用的程序开发环境，它的一个很大的特色就是功能富强、编程简单的数据库操作能力。可视化的开发环境、丰富的数据库接见空间的支持使得VisualBasic成为数据库应用程序项目中重要的开发工具。.专业.专注MicrosoftSQLServer2000中文版是基于客户机/服务器模式的新一代大型数据库管理系统，它在电子商务、数据库房和数据库解决方案等应用中起重视要的核心作用，可为企业的数据管理供应富强的支持，并采用有效的措施来实现数据的安全性、完满性、备份和恢复。是当前广泛使用的关系型数据库。第二章需求解析、问题的提出：物质管理是一般工业、商业企业生产管理环节中主要的一环，需要对物质基本信息管理，对物质分派信息等进行完满的监控，这样才能跟有效地利用物质。物质入库的时候第一需要登记物质的基本信息，包括物质的种类、名称、型号、单位、单价等；尔后登记入、出库信息，包括物质的基本信息，入、出库人，经办人，物质数量，资料说明的等；关于库房中的物质，即对节余物质进行盘问和统计。长远以来，物质管理工作中的信息管理是采用人工的方式，要付出大量人力，填写各种表格、凭证、账册、卡片和文件。由于信息是随着时间不断变化的，各业务部门对信息的使用要求也各不相同，因此要依照不相同的分类经常不断地汇总、统计，经常要做好多重复登记和转抄。这种手工操作的管理方式，不但浪费人力，而且存在好多缺点：（1）办理速度慢，影响信息及时性。2）易出现错误，影响信息精确性。（3）不便于盘问。（4）缺乏综合性，不能够起控制作用。由于这些缺点，大大降低了信息的利用价值，显然越来越不适应现代物质管理工作的需要。因此，发展以电子计算机为基础的物质管理系统已经是十分迫切和必要的了。.专业.专注、需完成的功能：针对一般物质管理信息系统的需求，经过对上面物质分派工作过程的内容和数据流程解析，设计以下面所示的数据项和数据结构：相关物质基本信息的输入、包括物质编号、物质名称、规格型号、种类和计量单位等；物质基本信息的盘问、更正；入库信息的输入、盘问、更正；出库信息的输入、盘问、更正；物质节余物质的盘问、预览，统计盘问。第三章数据库设计的过程、数据库需求解析用户的需求详尽表现在各种的信息的供应、保存、更新和盘问等方面。这就要求数据库能够充分满足各种输入信息和输出信息。开发者要收集基本数据、数据结构以及数据办理的流程，组成一份详尽的数据字典。为下一步的数据库详尽设计做好充分的准备。再仔细解析物质管理信息系统需求的基础上，将获得以下如图3.1所示的本系统所办理的数据流程。物质登记基本信息录入.专业.专注物质基本信息管理物质入库信息管理物质分派物质领用信息管理物质余额信息管理图物质管理信息系统数据流程图针对一般物质管理信息系统的需求，经过对物质分派工作过程的内容和数据流程解析，设计以下面所示的数据项和数据结构：物质基本信息，包括的数据项有：物质编号、物质名称、规格型号、种类、计量单位等。入库物质信息，包括的数据项有：物质编号、物质名称、规格型号、种类、计量单位、数量、单价、金额、领用时间、领用人、经办人、保存人、库房、备注等。出库物质信息，包括的数据项有：物质编号、物质名称、规格型号、种类、计量单位、数量、单价、金额、领用时间、领用人、经办人、保存人、库房、备注等。物质余额信息，包括的数据项有：物质编号、物质名称、规格型号、种类、计量单位、数量、金额、库房等。.专业.专注、看法模型设计获得上面的数据项和数据结构今后，就可以设计出能够满足用户需求的各种试题以及它们之间的关系，为后边的逻辑结构设计打下基础。这些试题包括各种详尽信息，经过相互间的作用形成数据的流动。本系统依照上面的设计规划出的实体有：物质基本信息实体、物质入库信息实体、物质出库信息实体、物质余额信息实体。物质基本信息实体计量单位物质编号物质名规格型号种类图物质基本信息实体E-R图物质入库信息实体物质基本信息保存人入库时间经办人.专业.专注图物质入库信息实体E-R图物质领用信息实体物质基本信息领用人领用时间经办人图物质出库信息实体E-R图物质出库信息实体物质基本信息库房.专业.专注数量金额图物质余额信息实体E-R图在找出所有实体的基础上，需要进一步的解析各个实体之间的关系，经过解析能够的获得所有实体的E—R图；如图3.25是经过E—R图来说明这些实体之间的关系：出库信息领用库存信息入库信息登记图物质管理信息的E—R图.专业.专注3.2、逻辑数据库设计经过对数据库看法模型的设计，确定以下是该系统需建立的几个表格。表物质表物质表material字段名种类NULL其他备注wzidchar(8)NPK物质编号wznamechar(20)N物质名称wzspecchar(20)N物质型号wzkind,char(10)种类wzunitchar(10)计量单位表3.22物质入库表物质入库表msave字段名种类NULL其他备注rknochar(14)NPK入库号rkidchar(8)N物质编号rknamechar(20),N物质名称rkspecchar(20),规格型号rkkindchar(10),N种类rkunitchar(10),N计量单位.专业.专注rkaccountnumeric(5,0)N数量rkpricenumeric(8,2)N单价rkvaluenumeric(10,2)N金额rkdatedatetimeN入库时间rkdeal_personchar(10)NPK经办人rksave_personchar(10)N保存人rkbasechar(10),Index,FK库房rkmemotext备注表物质入库表物质入库表msurplus字段名种类NULL其他备注yeidchar(8)NPk物质编号yenamechar(20),N物质名称yespecchar(20),物质型号yekindchar(10),N种类yeunitchar(10),N计量单位yeaccountnumeric(5,0)N数量yepricenumeric(8,2)N单价yebasechar(10),Index,FK库房yememotext备注表物质领用表物质领用表muse字段名种类NULL其他备注lynochar(14)NPK领用号lyidchar(8)N物质编号lynamechar(20),N物质名称.专业.专注lyspecchar(20),规格型号lykindchar(10),N种类lyunitchar(10),N计量单位lyaccountnumeric(5,0)N数量lypricenumeric(8,2)N单价lyvaluenumeric(10,2)N金额lydatedatetimeN领用时间lydeal_personchar(10)NPK领用人lysave_personchar(10)N保存人lybasechar(10),PK库房lymemotext备注3.3、规范化理论的应用在以上的逻辑解析中，我们不难得出这些关系转变都在第三范式中。3.4、物理数据库设计在完成了数据库的逻辑设计此后，即可开始数据库的物理设计。基于以上数据库逻辑设计，考虑到程序设计的简单性及通用性，本物质管理信息系统采用的MicrosoftSQLServer2000数据库，并在其下创办了一个数据库和4个数据表。建立看法数据库模型依照前面的看法和逻辑模型设计，我们在PowerDesigner12中建立ConceptualDataModel_1，如下图：.专业.专注图3.4.1看法数据可模型3.4.2将看法模型变换成物理模型看法模型建好后，在PowerDesigner12的Tools选项中选择GeneratenewPhysicalDataModel，将看法模型变换成物理模型，以以下图：.专业.专注图3.4.2物理数据库模型3.4.3生成数据库代码建好物理模型后，在Database选择GenerateDatabase，生成数据库代码，以下是建立数据库及其表格的代码（1)建数据库usemastergoifexists(select*fromdbo.sysdatabaseswherename='MMS')dropdatabaseMMSGOcreatedatabaseMMSgouseMMSGo（2）建表ifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[material]')andOBJECTPROPERTY(id,N'IsUserTable')=1).专业.专注droptable[dbo].[material]GOifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[msave]')andOBJECTPROPERTY(id,N'IsUserTable')=1)droptable[dbo].[msave]GOifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[msurplus]')andOBJECTPROPERTY(id,N'IsUserTable')=1)droptable[dbo].[msurplus]GOifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[muse]')andOBJECTPROPERTY(id,N'IsUserTable')=1)droptable[dbo].[muse]GOCREATETABLE[dbo].[material]([wzid][char](8)COLLATEChinese_PRC_CI_ASNOTNULL,[wzname][char](20)COLLATEChinese_PRC_CI_ASNOTNULL,[wzspec][char](20)COLLATEChinese_PRC_CI_ASNOTNULL,[wzkind][char](10)COLLATEChinese_PRC_CI_ASNULL,[wzunit][char](10)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]GOCREATETABLE[dbo].[msave]([rkno][char](14)COLLATEChinese_PRC_CI_ASNOTNULL,[rkid][char](8)COLLATEChinese_PRC_CI_ASNOTNULL,[rkname][char](20)COLLATEChinese_PRC_CI_ASNULL,[rkspec][char](20)COLLATEChinese_PRC_CI_ASNULL,[rkkind][char](10)COLLATEChinese_PRC_CI_ASNULL,[rkunit][char](10)COLLATEChinese_PRC_CI_ASNULL,[rkaccount][numeric](5,0)NOTNULL,[rkprice][numeric](8,2)NOTNULL,[rkvalue][numeric](10,2)NOTNULL,.专业.专注[rkdate][datetime]NOTNULL,[rkdeal_person][char](10)COLLATEChinese_PRC_CI_ASNOTNULL,[rksave_person][char](10)COLLATEChinese_PRC_CI_ASNOTNULL,[rkbase][char](10)COLLATEChinese_PRC_CI_ASNULL,[rkmemo][text]COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]GOCREATETABLE[dbo].[msurplus]([yeid][char](8)COLLATEChinese_PRC_CI_ASNOTNULL,[yename][char](20)COLLATEChinese_PRC_CI_ASNOTNULL,[yespec][char](20)COLLATEChinese_PRC_CI_ASNULL,[yekind][char](10)COLLATEChinese_PRC_CI_ASNULL,[yeunit][char](2)COLLATEChinese_PRC_CI_ASNULL,[yeaccount][numeric](5,0)NOTNULL,[yevalue][numeric](10,2)NOTNULL,[yebase][char](10)COLLATEChinese_PRC_CI_ASNOTNULL,[yememo][text]COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]GOCREATETABLE[dbo].[muse]([lyno][char](14)COLLATEChinese_PRC_CI_ASNOTNULL,[lyid][char](8)COLLATEChinese_PRC_CI_ASNOTNULL,[lyname][char](20)COLLATEChinese_PRC_CI_ASNULL,[lyspec][char](20)COLLATEChinese_PRC_CI_ASNULL,[lykind][char](10)COLLATEChinese_PRC_CI_ASNULL,[lyunit][char](2)COLLATEChinese_PRC_CI_ASNULL,[lyaccount][numeric](5,0)NOTNULL,[lyprice][numeric](8,2)NULL,[lyvalue][numeric](10,2)NULL,[lydate][datetime]NOTNULL,[lyuse_person][char](10)COLLATEChinese_PRC_CI_ASNOTNULL,[lydeal_person][char](10)COLLATEChinese_PRC_CI_ASNOTNULL,.专业.专注[lybase][char](10)COLLATEChinese_PRC_CI_ASNULL,[lymemo][text]COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]GO生成数据库打开MicrosoftSQLServer的盘问解析器，输入以上代码，于是获得了我们需要的数据库MMS（物质管理系统）。第四章软件功能设计4.1、系统功能解析系统开发的整体设计任务就是实现物质信息的系统化，规范化和自动化。系统功能解析是在系统开发整体任务的基础进步行的，本系统中需要的的主要功能有：增加用户；删除用户；更正用户密码；阅读物质信息；增加物质信息；删除物质信息物质节余信息盘问；对上述各项功能进行集中、分块，依照结构化程序设计的要求，获得如图4.1所示的系统功能模块图。.专业.专注登陆模块物质基本信息管理物质物质入库信息管理管理系统物质余额信息管理

阅读物质表增加物质基本信息删除物质基本信息更正物质基本信息阅读物质入库表增加物质入库信息删除物质基本信息更正物质基本信息阅读物质余额表增加物质余额信息删除物质约信息更正物质余额信息.专业.专注物质领用信息管理

阅读物质领用表增加物质领用信息帮助

删除物质领用信息更正物质基本信息图4.1系统功能模块图系统功能模块设计本系统的运行环境为4.2.1登录程序执行后点击进入系统按钮将弹出系统的登录界面，以以下图所示：用数据库中储藏的用户信息登录系统，如图4.2.1所示图4.2.1登录界面若用户输入的用户信息错误，会弹出警告，登录3次失败后系统自动退出.专业.专注4.2.2主界面登录成功后进入系统的主界面，如图：经过菜单栏，用户能够参加数据的相关操作，如插入、更正、删除和统计等。图4.2.2主菜单4.2.3阅读物质信息经过各模块中的阅读物质信息，能够对物质的各种信息进行阅读，其中包括按表和按行阅读两种方式。如图4.2.32和4.2.33所示时对物质基本信息进行的两种阅读方式。图4.2.31主菜单上的阅读选项.专业.专注图按表格阅读物质表图4.2.33按行阅读物质表其他的阅读操作与上述的操作近似，这里不再赘述。4.2.4增加物质信息每个关于物质信息是我模块都能够进行增加信息的操作，如图4.2.4是增加物质基本信息4.2.41主菜单上的增加选项.专业.专注图4.2.42增加界面图4.2.43增加信息图4.2.44增加成功提示其他的增加操作与上述的操作近似，这里不再赘述。4.2.5删除物质信息.专业.专注点击系统中的删除按钮，可对物质的各种信息进行删除，如对物质基本信息进行删除操作：（1）按物质编号删除点击删除菜单的子菜单，选择按物质编号删除，弹出删除删除信息的界面如图，在其中输入或选择物质的编号，选择确定，将弹出警告提示，如图4.2.54所示。选择确定，系统给出删除成功的提示，如图4.2.55所示，若是选择取消，则弹出操作被撤掉的提示，如图4.2.56所示4.2.51主界面的删除选项图删除界面图4.2.53删除物质图删除警告图4.2.55删除成功图删除被撤掉.专业.专注（2）按物质名称删除图删除界面图删除物质按物质名称删除与按物质编号删除近似，这里不再赘述。其他的物质的各种信息删除也与上面说讲的近似，这里就不再多说了4.2.6更正物质信息若是想要更正物质的各种信息，点击各个模块中的更正选项，将弹出当前的各种物质信息，如图4.2.61是物质基本信息的更正选项，图4.2.62所示是对物质基本信息所进行的更正操作：图主界面的更正选项.专业.专注图4.2.62更正物质信息更正完后，点击“确定”,于是更正就成功了。点击“取消”，则操作被撤掉，点击退出，则返回主界面。其他的物质信息的更正操作也与上面说讲的近似，这里就不再多说了4.2.7余额统计经过主界面的余额统计选项，可对各种物质的余额进行统计图4.2.71主界面的余额统计选项图统计物质余额图统计余额.专业.专注4.2.8系统帮助用户点击菜单栏上的"关于"，能够盘问到系统的简介和使用说明图4.2.8关于系统第五章设计心得回顾该系统从选题，到调研、需求解析、设计、编码实现、测试等，这系列连接的过程，感想颇多，收获也好多。大体的总结几点，以下：1．设计开发一个软件，第一要认识所涉及到行业的现状，必然要想方法进行行业调研，从不相同路子获得该行业的专业知识。合理安排系统设计开发时间，进行实质开发会发现需求解析与系统设计占主要的时间，若是前面的工作做好了，编码实现占用的时间很短。因此我们要借助软件工程的思想——对软件开发过程进行控制。在开发一个系统时，先期的解析准备工作特其他重要。关于系统的需求要明确，这样才能做到有的放矢。特别是关于系统中数据的储藏和重要算法的设计，设计的不好会出现大量的冗余，不但浪费储藏空间，还影响盘问效率。3.在设计的初期，对一个功能模块的设计，要想出两种或两种以上方案，这样能够进行比较，从而获得更佳的设计方案，设计开发过程中必然要吸取经验教训，防备返工。特别是一些重要算法或功能。在对详尽实现功能模块进行编程时，要养成优异的加说明的习惯，这样的话不但能理清思路，而且能够为今后的调试程序带来很大的方便。由于自己即自己所在的小组是初次开发系统，在知识、经验方面都存在着不.专业.专注足。其他，在整个开发的过程中，时间也比较急促。因此，该系统还有好多不尽如人意的地方，比方联机文档比较少，用户界面不够雅观，出错办理不够，系统保护功能不全，关于数据的一致性的问题也没有完满解决等多方面问题，这些都有待工作中进一步改进。谨请老师提出难得的建议。参照文件［１］王珊，萨师煊.数据库系统概论［Ｍ］.第四版.北京：高等教育初版社，2006［２］易钢，刘少华，刘艳松.新编VisualBasic程序设计教程［Ｍ］.长沙国防科技大学初版社，2009［３］陈文军，陈晓铭.VisualBasic.NET数据库编程［Ｍ］.北京：清华大学初版社，2005［４］袁福庆.VisualBasic程序设计标准教程［Ｍ］.上海：上海科学普及初版社，2007.专业.专注附录工程模块设计代码'Mycon用于数据库连接'MyRS用于保存记录集'MyRS1用于保存记录集'MyRS2用于保存记录集登录界面设计代码DimiAsInteger'变量i用于累计连接的错误次数PrivateSubCommand1_Click()'确定IfTrim(Text1.Text)=""Then'若是用户名为空，则给出提示MsgBox"请输入用户名",vbExclamation,"注意"'将焦点定位在用户名文本框中ElseOnErrorGoToErrorHandler'出错则转向ErrorHandler处执行.专业.专注="Driver={SQLServer};Server=PC-201006022034;Database=MMS"'按ConnectionString的设置打开指定的连接UnloadMe'关闭当前窗口'显示系统的主菜单窗口Form3EndIfExitSubErrorHandler:'错误办理程序入口i=i+1'连接错误，变量i累加1Ifi<=2Then'若是连接错误次数不高出2两次MsgBox"连接失败，请重试用户名或密码",vbExclamation,"注意"Else'若是连接错误次数高出2两次MsgBox"连接失败次数过多，你不能够使用本系统",vbExclamation,"注意"End'结束系统的运行EndIfEndSubPrivateSubCommand2_Click()'退出按钮UnloadMe'回到主封面EndSubPrivateSubImage1_Click()EndSubPrivateSubForm_Load()EndSubPrivateSubText1_GotFocus()'用户名框获得焦点时选中Text1中的文本Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSubPrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13Then'若是在用户名框中输入了回车键,则'将焦点切换到密码框EndIfEndSubPrivateSubText2_GotFocus()'密码框获得焦点时'选中Text2中的文本Text2.SelStart=0.专业.专注Text2.SelLength=Len(Text2.Text)EndSubPrivateSubText2_KeyUp(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13Then'在密码框输入完密码并按下了回车键IfTrim(Text1.Text)=""Then'若是用户名为空，则给出提示MsgBox"请输入用户名",vbExclamation,"注意"'将焦点定位在用户名文本框中ElseOnErrorGoToErrorHandler'出错则转向ErrorHandler处执行="Driver={SQLServer};Server=PC-201006022034;Database=MMS"UnloadMe'显示系统的主菜单窗口Form3EndIfExitSubErrorHandler:'错误办理程序入口i=i+1'连接错误，变量i累加1Ifi<=2ThenMsgBox"连接失败，请重试用户名或密码",vbExclamation,"注意"ElseMsgBox"连接失败次数过多，你不能够使用本系统",vbExclamation,"注意"EndEndIfEndIfEndSub主界面设计部分代码PrivateSubabout_Click()frmAbout.Show1EndSubPrivateSubcx111_Click()IfMyRs.State=adStateOpenThenEndIf"material",Mycon,adOpenStatic,adLockOptimistic,adCmdTableDirect'打开物质基本信息表Form7.Caption="按表格阅读物质表"Form7.Show1'用Form7实现对物质基本信息表按表格阅读.专业.专注EndSubPrivateSubcx112_Click()'按行阅读物质表IfMyRs.State=adStateOpenThenEndIf"material",Mycon,adOpenStatic,adLockOptimistic,adCmdTableDirectForm4.Caption="按行阅读物质表"Form4.Show1'用Form4实现对物质基本信息表按行阅读EndSubPrivateSubsc11_Click()DimstrSqlAsString'strSql用于保存盘问字符串Form18.DataCombo1.Enabled=True'设置显示物质编号的组合框有效Form18.Label1.Enabled=True'设置显示物质编号的文字提示有效Form18.DataCombo2.Enabled=False'设置显示物质名称的组合框有效Form18.Label2.Enabled=False'设置显示物质名称的文字提示无效strSql="SELECTDISTINCTwzidFROMmaterial"IfMyRs1.State=adStateOpenThen'若是记录集MyRS1处于打开状态'关闭记录集MyRS1EndIfMyRs1.OpenstrSql,Mycon,adOpenStatic,adLockReadOnly'按盘问字符串strSql指定的盘问产生记录集SetForm18.DataCombo1.RowSource=MyRs1'设置Form16的显示物资编号的组合框的数据源为MyRS1Form18.DataCombo1.ListField="wzid"'设置Form16的显示物质编号的组合框与记录集MyRS1的学号字段绑定Form18.DataCombo1.Text=""Form18.DataCombo2.Text=""Form18.Show1EndSubPrivateSubsc12_Click()DimstrSqlAsString'strSql用于保存盘问字符串Form18.DataCombo1.Enabled=False'设置显示物质编号的组合框有效Form18.Label1.Enabled=False'设置显示物质编号的文字提示有效Form18.DataCombo2.Enabled=True'设置显示物质名称的组合框有效Form18.Label2.Enabled=True'设置显示物质名称的文字提示无效strSql="SELECTDISTINCTwznameFROMmaterial"'产生盘问字符串，用于从物质表中选择物质名称。IfMyRs1.State=adStateOpenThen'若是记录集MyRS1处于打开状态'关闭记录集MyRS1EndIfMyRs1.OpenstrSql,Mycon,adOpenStatic,adLockReadOnly'按盘问字符串strSql指定的盘问产生记录集SetForm18.DataCombo2.RowSource=MyRs1'设置Form16的显示物资名称的组合框的数据源为MyRS1.专业.专注Form18.DataCombo2.ListField="wzname"'设置Form16的显示物质名称的组合框与记录集MyRS1的物质名称字段绑定Form18.DataCombo1.Text=""Form18.DataCombo2.Text=""Form18.Show1EndSubPrivateSubtc_Click()IfMyRs.State=adStateOpenThenEndIfIfMyRs1.State=adStateOpenThenEndIfIfMyRs2.State=adStateOpenThenEndIfSetMyRs=NothingSetMyRs1=NothingSetMyRs2=NothingSetMycon=NothingUnloadMeEndSubPrivateSubsg2_Click()EndSubPrivateSubtij1_Click()'增加物质基本信息Form9.Show1EndSubPrivateSubxg1_Click()IfMyRs.State=adStateOpenThen'若是记录集MyRS处于打开状态'关闭记录集MyRSEndIfMyRs.Open"material",Mycon,adOpenKeyset,adLockBatchOptimistic,adCmdTableForm12.Show1EndSub增加物质基本信息代码PrivateSubCommand1_Click()DimstrInsertAsStringstrInsert="INSERTINTOmaterialVALUES('"&Text1.Text&"','"&.专业.专注Text2.Text&"','"&Text5.Text&"','"&Text3.Text&"','"&Text4.Text&"')"OnErrorGoToerrhandle'若是出错则转向errhandler处执行'开始事务Mycon.Execute(strInsert)'执行增加'提交事务MsgBox"增加成功"'显示增加操作完成的提示信息Text1.Text="":Text2.Text="":Text5.Text="":Text3.Text="":Text4.Text='清空在界面上录入的信息ExitSuberrhandle:'错误办理程序入口，当增加操作出现错