校资设备管理系统的说明书

校资设备管理系统的设计与实现摘要校资设备管理系统可以实现对设备仪器的数字化管理,利用这个系统,管理员可以轻松得进行设备信息的记录与管理,而不用象以往那样利用手工方式对信息进行笔录。传统的记录方式即费时又费カ,而且很难保证记录的准确,也不方便对信息的管理与査找。为了方便学校的管理工作,提高效率,我根据要求开发了这个校资设备管理系统。该系统包括欢迎界面,登陆,主界面三大模块。其中主界面实现了对设备信息的查询、添加、删除、修改等操作。本次毕业设计的开发工具采用了Microsoft公司的VisualBasic6.0,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。关键词:校资设备,管理系统,数据库,VisualBasic6.0TheDesignandImplementationofSchoolEquipmentManagementSystemAuthor:GaoYangTutor:ChaoXuepengAbstractThemanagementsystemofschoolcapitalequipmentcouldrealizethedigitizedmanagementoftheequipmentinstrumentbyusingthissystemthemanagercouldrecordandmanagetheequipmentinformationbyeasyratherthanrecordtheinformationbyhandasbefore.Thetraditionalrecordwayisallaystimewastingandhardtomakesuretherecordaccurate,it'salsonotconvenienttomanageandsearchtheinformation.Inordertofacilitatethesupervisoryworkofschoolandenhancestheefficient,Idevelopthemanagementsystemofschoolcapitalequipmentbyaccordingtotherequest.Thissystemincludethreebigmodules:welcomecontactsurface,debarkation,maincontactsurface,andthehostcontactsurfacehasrealizedtoequipmentoperationsandsooninformationinquiry,increase,deletion,revision.ThisgraduationprojectdevelopmentkithasusedMicrosoftCorporation'sVisualBasic6.0,usingeachkindofobject-orienteddevelopmentkitwhichitprovides,thedatawindowthiscaninparticularconvenientandthesuccinctoperationdatabaseintellectualizedobject,firstinashorttimeestablishesthesystemapplicationprototype,then,carriesonthedemanditerationtotheinitialprototypesystem,revisesandtheimprovementunceasingly,untilformsusersatisfactionthefeasiblesystem.Keywords：SchoolEquipment,ManagementSystem,Database,VisualFoxPro6.0TOC\o"1-5"\h\z!绪论 1数据库基本知识 1开发工具 2\o"CurrentDocument"2系统需求分析 6功能需求 6性能需求 6\o"CurrentDocument"3系统概要设计 8系统模块 8建立数据库 9数据库的实现 10\o"CurrentDocument"4系统设计与实现 12前台界面设计 12欢迎界面设计 12登录界面设计 12主界面设计 13数据编辑界面设计 13数据查询界面设计 15更改密码界面与关于设计 15前台界面和数据库的连接 16\o"CurrentDocument"结 论 17\o"CurrentDocument"致 谢 18\o"CurrentDocument"参考文献 19\o"CurrentDocument"附 录 201绪论设备管理信息对每个企业单位都是十分重要的工作,设备管理信息的好,可以使设备发挥最大效益，杜绝各种不良设备,反之则会造成生产资料利用率低下,甚至造成设备流失。随着我国教育的不断发展,学校资产设备越来越多,校资设备的管理也日趋复杂起来。过去传统的手工操作，不仅浪费人力物力，而且经常发生失误。随着信息技术和计算机技术的飞速发展,学校迫切需要建立一个设备管理信息系统,利用计算机建立信息库，进行无纸化管理,实现信息管理的规范化、科学化，以减轻管理员的负担及提高效率。信息技术的飞速发展为信息管理系统的实现提供了技术支持，使其成为可能,管理员可以在办公室的计算机上对设备信息进行查询,添加,修改,删除等操作。随着数据库技术的进步发展,创建一个这样的设备管理信息系统将势在必行。数据库基本知识在系统的介绍数据库的基本概念之前,这里首先介绍ー些数据库最常用的术语和基本概念。数据库管理系统和数据库系统是与数据库技术密切相关的四个基本概念。数据是数据库中存储的基本对象。数据的种类很多,文字、图形、图像、声音、学生的档案记录、货物的运输情况等,这些都是数据。数据库是数据存放的仓库。所谓数据库是指长期存储在计算内的、有组织的、可共享的数据集合。数据库中的数据按一定的数据模型组织、描述和存储,具有较小的冗余度、较高的数据独立性和易扩张性,并可为各种用户共享。数据的处理是指对各种数据进行收集、存储、加工和传播的ー系列活动的总和。数据管理则是指对数据进行分类、组织、编码、存储、检索和维护,它是数据处理的中心问题。数据库系统向用户提供高级的接口。在文件系统中,用户要访问数据,必须了解文件的存储格式、记录的结构等。而在数据库系统中，这一切都不需要了。数据库系统为用户处理了这些具体的细节,向用户提供非过程化的数据库语言(SQL语言),用户只要提出需要什么数据,而不必关心如何获得这些数据。对数据的管理完全由数据库管理系统(DBMS:DatabaseManagementSystem)来实现。查询的处理和优化。查询通常指用户向数据库系统提交的ー些对数据操作的请求。由于数据库系统向用户提供了非过程化的数据操纵语言,因此对于用户的查询请求就由DBMS来完成,査询的优化处理就成了DBMS的重要任务。并发控制。前面曾经提到,文件系统一般不支持并发操作,这样大大的限制了系统资源的有效利用。在数据库系统中,情况就不一样了。现代的数据库系统都有很强的并发操作机制,多个用户可以同时访问数据库,甚至可以同时访问同一个表中的不同记录,这样极大的提高了计算机系统资源的使用效率,数据的完整性约束。凡是数据都要遵守一定的约束,最简单的•个例子就是数据类型,例如定义成整型的数据就不能是浮点数。由于数据库中的数据是持久的和共享的,因此对于使用这些数据的单位来说,数据的正确行显得非常重要。在关系数据库系统中,比较重要的完整性约束有实体完整性、域完整性、参照完整性和用户自定义的完整性等。开发工具作为数据库系统的开发,VisualBasic是一个非常理想的选择。数据库是管理信息系统(MIS)中的重要支持技术,在MIS开发过程中,如何选择数据库管理是ー个重要的问题,目前,数据库产品较多,每种产品都具有各自的特点和适用范围,因此,在选择数据库时,应考虑数据库应用的特点及适用范围,本系统选用的数据库语言VisualBasic语言,该开发工具具有很多长处:VisualBasic是ー种可视化的、面对对象和利用事件驱动方式的结构化高级程序设计,可用于开发Windows环境下的种类应用程序。它简单易学、效率高,且功能强大,可以与Windows的专业开发工具SDK(SDK是SoftwareDevelopmentKit的缩写,中文意思是“软件开发工具包’‘。)相媲美，而且程序开发人员不必具有C/C++编程基础。在VisualBasic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的应用程序接口(API)函数,以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术,可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。VisualBasic有以下特点:1、可视化编程。用传统程序设计语言设计程序时,都是通过编写程序代码来设计用户界面,在设计过程中看不到界面的实际显示效果,必须编译后运行程序才能观察。如果对界面的效果不满意,还要回到程序中修改。有时候,这种编程一编译一修改的操作可能要反复多次，大大影响了软件开发效率。VisualBasic提供了可视化设计工具,把Windows界面设计的复杂性“封装”起来,开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局,用系统提供的工具,在屏幕上画出各种“部件”,即图形对象,并设置这些图形对象的属性。VisualBasic自动产生界面设计代码,程序设计人员只需要编写实现程序功能的那部分代码,从而可以大大提高程序设计的效率。2、面向对象的程序设计。4.0版以后的VisualBasic支持面向对象的程序设计,但它与一般的面向对象的程序设计语言(C++)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成,是抽象的概念;而VisualBasic则是应用面向对象的程序设计方法(OOP),把程序和数据封装起来作为ー个对象,并为每个对象赋予应有的属性,使对象成为实在的东西。在设计对象时,不必编写建立和描述每个对象的程序代码,而是用工具画在界面上,VisualBasic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。3、结构化程序设计语言。VisualBasic是在BASIC语言的基础上发展起来的,具有高级程序设计语言的语句结构,接近于自然语言和人类的逻辑思维方式。VisualBasic语句简单易懂,其编辑器支持彩色代码，可自动进行语法错误检查,同时具有功能强大且使用灵活的调试器和编译器。VisualBasic是解释型语言,在输入代码的同时,解释系统将高级语言分解翻译成计算机可以识别的机器指令,并判断每个语句的语法错误。在设计VisualBasic程序的过程中,随时可以运行程序,而在整个程序设计好之后,可以编译生成可执行文件(.EXE),脱离VisualBasic环境，直接在Windows环境下运行。4、事件驱动编程机制。VisualBasic通过事件来执行对象的操作。・个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如,命令按钮是一个对象,当用户单击该按钮时,将产生一个“单击”(CLICK)事件,而在产生该事件时将执行一段程序,用来实现指定的操作。5、访问数据库。VisualBasic具有强大的数据库管理功能，利用数据控件和数据库管理窗ロ,可以直接建立或处理MicrosoftAccess格式的数据库,并提供了强大的数据存储和检索功能。同时,VisualBasic还能直接编辑和访问其他外部数据库，如dBase,FoxPro,Paradox等，这些数据库格式都可以用VisualBasic编辑和处理。VisualBasic提供开放式数据连接,即ODBC功能,可通过直接访问或建立连接的方式使用并操作后台大型网络数据库,如SQLServer,Oracle等。在应用程序中,可以使用结构化查询语言SQL数据标准,直接访问服务器上的数据库,并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术,为单机上运行的数据库提供了SQL网络接口,以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。6、动态数据交换(DDE)。利用动态数据交换(DynamicDataExchange)技术，可以把・种应用程序中的数据动态地链接到另ー种应用程序中,使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时,可以自动更新链接的数据。VisualBasic提供了动态数据交换的编程技术,可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。7、对象的链接与嵌入(OLE)。对象的链接与嵌入(OLE)将每个应用程序都看作是,个对象(object),将不同的对象链接(link)起来,再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略,它把多个应用程序合为一体,将每个应用程序看作是ー个对象进行链接和嵌入,是--种应用程序一体化的技术。利用OLE技术,可以方便地建立复合式文档(compounddocument),这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系,并可执行与原来应用程序完全相同的操作。8、动态链接库(DLL)。VisualBasic是ー种高级程序设计语言,不具备低级语言ー•样调的功能,对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C++或汇编语言编写的程序加入到VisualBasic应用程序中,可以像调用内部函数用其他语言编写的函数。此外,通过动态链接库,还可以调用Windows应用程序接口(API)函数,实现SDK所具有的功能。2系统需求分析功能需求目前很多学校对设备管理的信息主要是采用书面文字记录为主、电脑EXECL表格统计为辅的方法,随着工作的发展,这种管理的局限性日益突出出来。主要表现在记录、检索和统计时十分不便。随着信息技术和学校自动化管理的飞速发展,教育机构迫切需要一个设备管理信息系统,使管理员可以对设备的信息进行无纸化、科学性的管理,避免传统方法的繁琐,达到良好的管理效果。所以我本次设计了这个管理信息系统,本系统主要实现了以下ー些基本功能:对设备信息的增加、折旧、维修、盘存、清理等。该系统通过采集设备日常工作中所产生的各种原始数据,根据设备管理的要求,对数据进行分类、统计、汇总、分析,建立程序化、制度化、规范化的设备计算机软件管理系统,包括了设备的一般特性、设备状态数据和设备能力数据,及时准确地报出各种报表,为设备管理信息提供了一个现代化的管理手段,这ー手段可以强化和规范对设备的管理。便于计划、财务、审计等管理部门的介入，形成严格的监督、约束机制。该系统集信息采集、分类、汇总、分析、查询、统计等各种处理为一体，各种操作既可以通过菜单进行，又可以通过系统的管理树导航进行。信息分类全面,树形管理方便,操作快捷简单,性能强大高效。全中文操作界面,无需计算机专业知识，使用易懂、易会。别具一格的查询统计为您提供了更多的方便!系统支持用户任意修改设计,也可让我们帮您完成。整个系统的操作都是在计算机上进行，实现了无纸化、自动化,大大减少了人力、物力资源的消耗,使得教学更加科学化、规范化,所以我相信这个系统可以在学校后勤管理系统中得到发展应用。性能需求_~由于整个系统操作是在计算机上进行的,所以我们对系统的运行环境还有・些要求:1、硬件环境:处理器:InterPentium166MX或者更高硬盘空间:1GB内存：32MB显卡:SVGA显示适配器2、软件环境：操作系统:Windows98/ME/2000/XP数据库:MicrosoftAccess20003系统概要设计系统模块本系统所要实现的功能是对所有设备进行添加,查询,修改,删除操作,对用户密码进行修改,对每条设备信息进行打印,如下图3.1所示。输入新记录上一条駐料信息查询编号查询下一条第一条最后一输入新记录上一条駐料信息查询编号查询下一条第一条最后一条按设备名查询ー使用人查询建立数据库在整个系统中,数据库的建立是着重点。数据库是ー种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息,简而言之,数据库就是信息的集合。计算机的数据库可以分为两类:非关系数据库(flat-file)和关系数据库(relational)。关系数据库中包含了多个数据表的信息,数据库含有各个不同部分的术语,象记录、域等。本系统中使用到的记录设备信息数据库表如表3.1所示。表3.1设备信息数据库表字段名类型宽度小数位数索引编号数值型100资产名称字符型10制造商字符型10使用人字符型10管理员字符型10国别字符型10购买日期数值型15单价数值型10数量数值型10使用单位字符型10已用年限数值型10联系电话数值型20资产来源字符型10报废日期数值型15放置地点字符型10资产号数值型100用户（密码）数据库表如表3.2所示。表3.2密码数据库表字段名类型宽度索引ID数值型10用户名字符10输入True查询True密码数值型10数据库的实现创建任何ー个数据库的第一步是仔细的规划数据库,设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。（1）标识需要的数据;（2）收集被标识的字段到表中;（3）标识主关键字字段;（4）绘制ー个简单的数据图表；（5）规范数据；（6）标识指定字段的信息；（7）创建物理表。根据上述的创建过程,依据表3.1和表3.2建立数据库如图3.1所示。图3.1设备信息数据库数据库的修改分为:添加、编译、删除记录。这些均由前台的VB创建的程序来完成。实现数据库之间的联系首先要了解数据库之间的关系是什么。图3.2用户（密码）数据库数据库之间的关系指明两个库之间共享一个共同的关键字值。ー个连接是指ー种虚拟的表,这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的,关键字段用于在相互连接的不同表中查找匹配的记录。•个更高级的连接形式称为自连接。这种连接是指・个表被连接到它自己的一个字段,或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字:主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。4系统设计与实现前台界面设计欢迎界面设计系统使用欢迎界面是为了丰富系统的美感,界面中“欢迎使用校资设备管理信息系统’’是滚动出现。如图4.1所示。欢迎使用校资设备管理信息系统筵入系统图4.1欢迎界面表单登录界面设计点击进入系统,系统进入登录界面,如图4.2所示。

登录界面的设计主要是实现不同用户的登录,在初次使用本系统的时候,系统会自动提醒用户设置超级用户,以便对系统的管理。主界面设计登录完成后进去主界面,主界面包括数据编辑、数据查询、更改密码、关于、退出。如图4.3所示。图4.3主界面主界面的设计以大图为背景,在界面的左上方分别用任务栏和快捷图标的形式,突出系统的功能,使用户使用起来更加方便。数据编辑界面设计其中数据编译包括输入新记录、删除、修改记录、打印功能如图4.4所示。

点击出入新记录,进入输入状态。对于设备的编号,设备名称,设备型号,制造商,国别,购买日期，单价,数量,使用单位,使用人,管理员,放置地点,已使用年限,设备来源,报年限，联系电话等记录进行录入,删除,修改,打印操作。如图4.5所示。图4.5图4.5数据输入界面点击信息栏中任何・条信息,然后点击删除或修改按钮可简单快捷的完成删除修改的任务。打印需要连接打印机,如果没有打印机,系统将显示无打印机的提示框,连有打印机,将会出现设置表,如图4.6所示。ヽDataReportI［周¢)"丽ヨ

501•GヽDataReportI［周¢)"丽ヨ

501•G设・名葬 便関人001港华瓦方 藥澹王页つE！・し购买日叫・仰2004-9-fl 5000 10使用单仅 険メ・儀断0力 0496-965W52打字集親各管幘信巨糸鱼打ヤ#14数据查询界面设计数据查询界面分为按编号查询、按设备名称查询、按使用人查询,实现当且仅当知晓某个设备详细信息,从而査询出这个设备在系统数据库中的详细信息。系统拥有便捷条目查询,通过上下按钮可以翻査设备的具体信息。如图4.7所示。图4.7数据查询界面更改密码界面与关于设计更改密码是超级用户的独有权限,用户需用超级用户的密码登录才能更改原有的密码,如图4.8所示。图4.8密码修改界面关于系统是对系统ー个概要的诠释,如图4.9所示。设务博.系. »)校资设备笹理信息系统计人?あP«版本号:VB2110本程序运行于:Vandows96\2000\XP图4.9关于界面通过这个界面介绍了设计人、版本号及运行环境。前台界面和数据库的连接下面介绍两种连接数据库的方法:•种是在adodc!的属性里设置数据库文件的路径,这种方法的优点是简单易操作,缺点是当源文件换了地方后要重新设置数据库的路径,否则连接不上数据库。ー种是用代码设置数据库的路径,这种方法的优点就是只要源文件和数据库在同一文件夹下,无论移动到哪里都能连接上。如果没有建立好数据库的话,先建立一个数据库,然后建立一个表,比如我们建的表名为message,只要把里面的字段名称和数据类型都按自己的需要设置好.最后保存就可以了.打开MicrosoftVisualBasic6.0,在需要调用数据库的窗体上加入ー个adodc控件,默认名称为:Adodcl.默认的情况下工具栏里是没有这个控件的,可以打开工程一一部件(快捷键CTRL+T),去掉只显示选定项的勾,然后勾上MicrosoftADODataControl(OLEDB),然后确定,工具栏就会多了一个adodc的控件。本系统用到的连接方法是:设置adodcl的属以连接数据库.在adodcl控件上右键-Adodc属性ー-使用连接字符串一生成一MicrosoftJet4.0OLEDBProvider一下ー步ー选择或输入数据库名称ー找到要连接的数据库后,确定.然后记录源设置属性.如果要把内容提交到数据库一般使用adCmdTable.表选择要连接的表。设置完毕后就可以了。这个系统制作完成后,进行了几次测试,基本能够顺利运行成功,但在界面美化上有所不足,以后会将再加以修改。结论毕业设计工作即将结束,这几个月里的学习工作使我受益非浅。在制作这个毕业设计题目我ー共查阅参考书籍约12本,并从导师和同学那里学到了很多关于数据库和VB的知识。在翻阅査看了书上面所列举的例子并结合自己的课题要求,完成了本系统的设计后,我得到了预期的结果,也达到了我设计的系统所要求的效果。本系统基本实现了对设备管理信息的数字化管理,使管理员能够在计算机上对设备信息进行综合管理,将新信息添加到信息库中,对信息库中已有的信息进行修改、删除,从而实现了对设备信息的管理。对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短,所以该系统还有许多不尽如人意的地方,比如联机文档比较少,用户界面不够美观,出错处理不够等多方面问题。这些都有待进一•步改善。致谢学校提供的资源在我设计的过程中发挥了很大的作用,它为我的设计提供了大量的资源,学校资源的配置,为我提供了参阅资料的场所。学校为没有电脑的同学配备了上机设计的环境，为学生完成毕业设计提供了足够的时间,使学生可以在设计的过程中一点点地提高自己,感激学校的精心安排。本次毕业设计及论文是在晁学鹏老师的指导下完成的，晁老师认真负责的工作态度,严谨的治学精神和深厚的理论水平都使我受益匪浅。他无论在理论上还是在实践中,都给与我很大的帮助,使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助,在此感谢晁老师对我耐心的辅导。另外跟我同组的同学也给了我很多的支持,特别是白晓静、张慧芬、王亚东同学给我提供了许多专业上的技术支持,对我毕业设计的完成工作有很大的帮助。这里一•并表示感谢。感谢黄科大信息工程学院的领导和教师们四年来对我的培养和支持,是他们为我提供了良好的学习环境和机会。最后敬请各位专家、老师和同学对论文和今后的研究工作提出宝贵的指导意见和建议。参考文献[1I陆汉权,冯晓霞.VisualBasic程序设计教程[M].浙江:浙江大学出版社,2006.2.[2]沈大林.Access数据库管理与开发案例教程[M].北京:中国铁道出版社,2007.8.[3]刘晓林.软件设计方法[M].西安：西安电子工业出版社,2002.[4I刘军,付文博.数据库应用系统开发技术[M].北京：机械工业出版社，2003.3.[51王珊，萨师帽.数据库系统概论[M].北京：高等教育出版社,2006.12.[61BobReselman.VisualBasic6.0UserGuide[M],USA:IBMCorporation,1996.9.[71CraigEddy.Access200024Hours[M],England:Educationpress,1990.[81周之英.现代软件工程理论[D1.上海：科学出版社,2007.[91王红.VisualBasic6.0高级应用与开发指南[M].北京：人民邮电出版社,2001.4.[101翁迪恩.VisualBasic数据库开发指南[Ml.西安：电子科技大学出版社,2000.2.[111周佩德.数据库原理及应用[M].北京：电子工业出版社,2005.7.[121刘炳文,数据库之Access篇[A1.北京：高等教育出版社,1999.9.附录登陆界面中的确定代码如下:PrivateSubCommandl_Click()IfTrim(Textl.Text)=Trim(Text3.Text)AndTrim(Text2.Text)=Trim(Text4.Text)ThenMDIForml.ShowUnloadMeElseForX=1To1IfA1.Recordset.EOF=TrueThenMsgBox”您输入的用户名和密码有误,请重新输入!“，16,”出错:"TextLText="”Text2.Text二"”A1.Recordset.AbsolutePosition=1ElseIfTrim(Textl.Text)二Trim(Text3.Text)AndTrim(Text2.Text)二Trim(Text4.Text)ThenMDIForml.ShowMDIForm1.PrintCommandl.TagMDIForm1.Tag二Textl.TextUnloadMeElseX二X-1A1.Recordset.MoveNextEndIfNextXEndIfEndSub如果是初次使用本系统,系统还会提示用户设置超级用户,代码如下:PrivateSubForm_Load()IfAl.Recordset.EOF=TrueAndAl.Recordset.BOF=TrueThenMsgBox"您是第一次使用本程序,请设置超级用户!",32,"设置:"Form2.ShowUnloadMeEndIfEndSub编辑数据界面中输入新记录的代码如下:PrivateSubCommandl_Click()IfCommand1.Caption二”输入新记录"Thenr=1IfAl.Recordset.BOF=TrueAndAl.Recordset.EOF=TrueThenElseA1.Recordset.MoveFirstEndIfForX=1To1IfA1.Recordset.EOF=TrueThenAl.Tag=YExitForElseA1.Recordset.MoveNextEndIfX=X-1

NextXA1.Recordset.AddNewCommand1.Caption="输入完毕"Commands.Enabled=FalseCommands.Enabled=FalseForm3.Height=8220Form3.Top=300Fl.Visible=TrueElseIft3(0).Text=,,nThenMsgBox"资产名称不能为空!",16,"出错:t3(0).Text="123"A1.Recordset.DeleteCommand1.Caption="输入新记录"Command3.Enabled=TrueCommands.Enabled=TrueForm3.Height=5728Form3.Left=600Form3.Top=1500Fl.Visible=FalseElseForX=11To13出错:"出错:"MsgBox"字符不能超过200个!",16,ExitSubEndIfNextXAl.Recordset.MovePreviousA1.Recordset.MoveNextCommand1.Caption="输入新记录”Commands.Enabled=TrueCommands.Enabled=TrueForm3.Height=5728Fl.Visible=FalseForm3.Left=600Form3.Top=1500EndIfEndIfEndSub编辑数据界面中删除记录的代码如下:PrivateSubCommand5_Click()IfAl.Recordset.EOF=TrueOrAl.Recordset.BOF=TrueThenMsgBox”您的数据库中没有记录可以删除!”，16,“出错:"ElseA1.Recordset.DeleteY=1Al.Recordset.MoveFirstForX=1To1IfAl.Recordset.EOF=TrueThenIfAl.Recordset.EOF=TrueThenElseA1.Recordset.MoveFirstEndIfExitForElseLabel3.Caption=YA1.Recordset.MoveNextY=Y+1X=X-1EndIfNextXEndIfEndSub编辑数据界面中修改记录的代码如下:PrivateSubCommand3_Click()IfA1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueThenMsgBox”您的数据库中没有记录!*16,咄错:“ElseIfCommands.Caption="修改记录"ThenCommand3.Caption二"修改完毕”Command1.Enabled=FalseCommands.Enabled=FalseForm3.Height=8220Form3.Top=300Fl.Visible=TrueFI.Caption=”修改记录:”ElseIft3(0).Text=””ThenMsgBox"资产名称不能为空!"，16,"出错:"ElseForX=11To13IfLen(Trim(t3(X).Text))>200ThenMsgBox"字符不能超过200个!"，16,"出错:"ExitSubEndIfNextXCommand3.Caption="修改记录"Command1.Enabled=TrueCommands.Enabled=TrueForm3.Height=5728Form3.Left=600Form3.Top=1500Fl.Visible=FalseFl.C叩tion="数据输入:"EndIfEndIfEndIfEndSub编辑数据界面中的打印代码:PrivateSubCommand2_Click()OnErrorGoTotxlCommand1.Visible=FalseCommand2.Visible=FalseCommands.Visible=FalseForm4.Height=LI⑶.Y1+200Form4.PrintFormCommand1.Visible=TrueCommand2.Visible=TrueForm4.Height=Command1.Top+500Form4.Top=(9000-Form4.Height)/2MsgBox"打印完毕!",64,"提示:"ExitSubtxl:MsgBox”您的机子没有安装打印机!”，16,“出错:"Command1.Visible=TrueCommand2.Visible=TrueForm4.Height=Command1.Top+500Form4.Top=(9000-Form4.Height)/2EndSub数据查询界面中按编号查询的代码如下:PrivateSubCommand9_Click()IfText11.Text=nnThenMsgBox”您没有输入要查询的条件!”，16,”出错:"Textll.SetFocusEndIfAdodcl.Recordset.MoveFirstDoWhileAdodc1.Recordset.EOF<>TrueIfAdodcl.Recordset.Fields(”编号").Value=Textl1.TextThenTextl.Text=Adodcl.Recordset.Fie