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

校资设备管理系统的设计与实现

摘要

校资设备管理系统可以实现对设备仪器的数字化管理，利用这个系统，管理员可以

轻松得进行设备信息的记录与管理，而不用象以往那样利用手工方式对信息进行笔录。

传统的记录方式即费时又费力，而且很难保证记录的准确，也不方便对信息的管理与查

找。为了方便学校的管理工作，提高效率，我根据要求开发了这个校资设备管理系统。

该系统包括欢迎界面，登陆，主界面三大模块。其中主界面实现了对设备信息的查

询、添加、删除、修改等操作。

本次毕业设计的开发工具采用了Microsoft公司的VisualBasic6.0,利用其提供的各

种面向对象的开发工具，尤其是数据窗口这一方便而简洁操纵数据库的智能化对象，首先

在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直

到形成用户满意的可行系统。

关键词：校资设备，管理系统，数据库，VisualBasic6.0

TheDesignandImplementationofSchoolEquipmentManagement

System

Author:GaoYang

Tutor:ChaoXuepeng

Abstract

Themanagementsystemofschoolcapitalequipmentcouldrealizethedigitized

managementoftheequipmentinstrumentbyusingthissystemthemanagercouldrecordand

managetheequipmentinformationbyeasyratherthanrecordtheinformationbyhandas

before.Thetraditionalrecordwayisallaystimewastingandhardtomakesuretherecord

accurate,it'salsonotconvenienttomanageandsearchtheinformation.Inordertofacilitate

thesupervisoryworkofschoolandenhancestheefficient,Idevelopthemanagementsystem

ofschoolcapitalequipmentbyaccordingtotherequest.

Thissystemincludethreebigmodules:welcomecontactsurface,debarkation,main

contactsurface,andthehostcontactsurfacehasrealizedtoequipmentoperationsandsoon

informationinquiry,increase,deletion,revision.

ThisgraduationprojectdevelopmentkithasusedMicrosoftCorporation'sVisualBasic

6.0,usingeachkindofobject-orienteddevelopmentkitwhichitprovides,thedatawindow

thiscaninparticularconvenientandthesuccinctoperationdatabaseintellectualizedobject,

firstinashorttimeestablishesthesystemapplicationprototype,then,carriesonthedemand

iterationtotheinitialprototypesystem,revisesandtheimprovementunceasingly,untilforms

usersatisfactionthefeasiblesystem.

Keywords：SchoolEquipment,ManagementSystem,Database,VisualFoxPro6.0

目录

1绪论................................................................1

1.1数据库基本知识......................................................1

1.2开发工具...........................................................2

2系统需求分析............................................................6

2.1功能需求............................................................6

2.2性能需求............................................................6

3系统概要设计............................................................8

3.1系统模块............................................................8

3.2建立数据库.........................................................9

3.3数据库的实现.......................................................10

4系统设计与实现.........................................................12

4.1前台界面设计.......................................................12

4.1.1欢迎界面设计.................................................12

4.1.2登录界面设计.................................................12

4.1.3主界面设计...................................................13

4.1.4数据编辑界面设计.............................................13

4.1.5数据查询界面设计.............................................15

4.1.6更改密码界面与关于设计........................................15

4.2前台界面和数据库的连接.............................................16

结论.................................................................17

致谢.................................................................18

参考文献.................................................................19

附录.................................................................20

黄河科技学院毕业设计说明书第1页

1绪论

设备管理信息对每个企业单位都是十分重要的工作，设备管理信息的好，可以使

设备发挥最大效益，杜绝各种不良设备，反之则会造成生产资料利用率低下，甚至造

成设备流失。随着我国教育的不断发展，学校资产设备越来越多，校资设备的管理也

日趋复杂起来。过去传统的手工操作，不仅浪费人力物力，而且经常发生失误。

随着信息技术和计算机技术的飞速发展，学校迫切需要建立一个设备管理信息系

统，利用计算机建立信息库，进行无纸化管理，实现信息管理的规范化、科学化，以

减轻管理员的负担及提高效率。信息技术的飞速发展为信息管理系统的实现提供了技

术支持，使其成为可能，管理员可以在办公室的计算机上对设备信息进行查询，添加，

修改，删除等操作。

随着数据库技术的进步发展，创建一个这样的设备管理信息系统将势在必行。

1.1数据库基本知识

在系统的介绍数据库的基本概念之前,这里首先介绍一些数据库最常用的术语和

基本概念。数据库管理系统和数据库系统是与数据库技术密切相关的四个基本概念。

数据是数据库中存储的基本对象。数据的种类很多，文字、图形、图像、声音、

学生的档案记录、货物的运输情况等，这些都是数据。

数据库是数据存放的仓库。所谓数据库是指长期存储在计算内的、有组织的、可

共享的数据集合。数据库中的数据按一定的数据模型组织、描述和存储，具有较小的

冗余度、较高的数据独立性和易扩张性，并可为各种用户共享。

数据的处理是指对各种数据进行收集、存储、加工和传播的一系列活动的总和。

数据管理则是指对数据进行分类、组织、编码、存储、检索和维护，它是数据处理的

中心问题。

数据库系统向用户提供高级的接口。在文件系统中，用户要访问数据，必须了解文

件的存储格式、记录的结构等。而在数据库系统中，这一切都不需要了。数据库系统为

黄河科技学院毕业设计说明书第2页

用户处理了这些具体的细节，向用户提供非过程化的数据库语言(SQL语言)，用户只

要提出需要什么数据，而不必关心如何获得这些数据。对数据的管理完全由数据库管理

系统(DBMS:DatabaseManagementSystem)来实现。

查询的处理和优化。查询通常指用户向数据库系统提交的一些对数据操作的请求。

由于数据库系统向用户提供了非过程化的数据操纵语言，因此对于用户的查询请求就

由DBMS来完成，查询的优化处理就成了DBMS的重要任务。

并发控制。前面曾经提到，文件系统一般不支持并发操作，这样大大的限制了系

统资源的有效利用。在数据库系统中，情况就不一样了。现代的数据库系统都有很强

的并发操作机制，多个用户可以同时访问数据库，甚至可以同时访问同一个表中的不

同记录，这样极大的提高了计算机系统资源的使用效率，数据的完整性约束。凡是数据都

要遵守一定的约束，最简单的一个例子就是数据类型，例如定义成整型的数据就不能

是浮点数。由于数据库中的数据是持久的和共享的，因此对于使用这些数据的单位来

说，数据的正确行显得非常重要。在关系数据库系统中，比较重要的完整性约束有实

体完整性、域完整性、参照完整性和用户自定义的完整性等。

1.2开发工具

作为数据库系统的开发，VisualBasic是一个非常理想的选择。数据库是管理信息

系统(MIS)中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重

要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，

在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言

VisualBasic语言，该开发工具具有很多长处：

VisualBasic是种可视化的、面对对象和利用事件驱动方式的结构化高级程序设

计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，

可以与Windows的专业开发工具SDK(SDK是SoftwareDevelopmentKit的缩写，

中文意思是“软件开发工具包相媲美，而且程序开发人员不必具有C/C++编程基础。

在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使

用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换

(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速

黄河科技学院毕业设计说明书第3页

地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。

VisualBasic有以下特点：

1、可视化编程。用传统程序设计语言设计程序时，都是通过编写程序代码来设计

用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。

如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操

作可能要反复多次，大大影响了软件开发效率。VisualBasic提供了可视化设计工具，

把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序

代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”,

即图形对象，并设置这些图形对象的属性。VisualBasic自动产生界面设计代码，程序

设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。

2、面向对象的程序设计。4.0版以后的VisualBasic支持面向对象的程序设计，

但它与一般的面向对象的程序设计语言(C++)不完全相同。在一般的面向对象程序设计

语言中，对象由程序代码和数据组成，是抽象的概念；而VisualBasic则是应用面向

对象的程序设计方法(OOP),把程序和数据封装起来作为一个对象，并为每个对象赋

予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对

象的程序代码，而是用工具画在界面上，VisualBasic自动生成对象的程序代码并封装

起来。每个对象以图形方式显示在界面上，都是可视的。

3、结构化程序设计语言。VisualBasic是在BASIC语言的基础上发展起来的，具

有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual

Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功

能强大且使用灵活的调试器和编译器。

VisualBasic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成

计算机可以识别的机器指令，并判断每个语句的语法错误。在设计VisualBasic程序

的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件

(.EXE),脱离VisualBasic环境，直接在Windows环境下运行。

4、事件驱动编程机制。VisualBasic通过事件来执行对象的操作。一个对象可能

会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象,

黄河科技学院毕业设计说明书第4页

当用户单击该按钮时，将产生一个“单击”(CLICK)事件，而在产生该事件时将执行一

段程序，用来实现指定的操作。

5、访问数据库。VisualBasic具有强大的数据库管理功能，利用数据控件和数据

库管理窗口，可以直接建立或处理MicrosoftAccess格式的数据库，并提供了强大的数

据存储和检索功能。同时,VisualBasic还能直接编辑和访问其他外部数据库，如dBase,

FoxPro,Paradox等，这些数据库格式都可以用VisualBasic编辑和处理。

VisualBasic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接

的方式使用并操作后台大型网络数据库，如SQLServer,Oracle等。在应用程序中，

可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单

的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编

程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有

效地实现客户/服务器(client/server)方案。

6、动态数据交换(DDE)。利用动态数据交换(DynamicDataExchange)技术，可以

把•种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程

序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual

Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序

建立动态数据交换，在不同的应用程序之间进行通信。

7、对象的链接与嵌入(OLE)。对象的链接与嵌入(OLE)将每个应用程序都看作是

一个对象(object),将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从

而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技

术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看

作是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以

方便地建立复合式文档(compounddocument),这种文档由来自多个不同应用程序的对

象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完

全相同的操作。

8、动态链接库(DLL)。VisualBasic是一种高级程序设计语言，不具备低级语言一

样调的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将

黄河科技学院毕业设计说明书第5页

C/C++或汇编语言编写的程序加入到VisualBasic应用程序中，可以像调用内部函数用

其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)

函数，实现SDK所具有的功能。

黄河科技学院毕业设计说明书第6页

2系统需求分析

2.1功能需求

目前很多学校对设备管理的信息主要是采用书面文字记录为主、电脑EXECL表

格统计为辅的方法，随着工作的发展，这种管理的局限性日益突出出来。主要表现在

记录、检索和统计时十分不便。随着信息技术和学校自动化管理的匕速发展，教育机

构迫切需要一个设备管理信息系统，使管理员可以对设备的信息进行无纸化、科学性

的管理，避免传统方法的繁琐，达到良好的管理效果。所以我本次设计了这个管理信

息系统，本系统主要实现了以下一些基本功能：

对设备信息的增加、折旧、维修、盘存、清理等。该系统通过采集设备日常工作

中所产生的各种原始数据，根据设备管理的要求，对数据进行分类、统计、汇总、分

析，建立程序化、制度化、规范化的设备计算机软件管理系统，包括了设备的一般特

性、设备状态数据和设备能力数据，及时准确地报出各种报表，为设备管理信息提供

了一个现代化的管理手段，这一手段可以强化和规范对设备的管理。便于计划、财务、

审计等管理部门的介入，形成严格的监督、约束机制。

该系统集信息采集、分类、汇总、分析、查询、统计等各种处理为一体，各种操

作既可以通过菜单进行，又可以通过系统的管理树导航进行。信息分类全面，树形管

理方便，操作快捷简单，性能强大高效。全中文操作界面，无需计算机专业知识，使

用易懂、易会。别具一格的查询统计为您提供了更多的方便！系统支持用户任意修改

设计，也可让我们帮您完成。

整个系统的操作都是在计算机上进行，实现了无纸化、自动化，大大减少了人力、

物力资源的消耗，使得教学更加科学化、规范化，所以我相信这个系统可以在学校后

勤管理系统中得到发展应用。

2.2性能需求

黄河科技学院毕业设计说明书第7页

由于整个系统操作是在计算机上进行的，所以我们对系统的运行环境还有一些要

求：

1、硬件环境：

处理器：InterPentium166Mx或者更高

硬盘空间：1GB

内存：32MB

显卡：SVGA显示适配器

2、软件环境：

操作系统：Windows98/ME/2000/XP

数据库：MicrosoftAccess2000

黄河科技学院毕业设计说明书第8页

3系统概要设计

3.1系统模块

本系统所要实现的功能是对所有设备进行添加，查询，修改，删除操作，对用户

密码进行修改，对每条设备信息进行打印，如下图3」所示。

%

按

料

信

钮

息

*“

查

打

退

询

印

出

般

按

编.

使

设

号

用

备

查

人

名

询

查

查

询

询

图3.1系统模块流程图

黄河科技学院毕业设计说明书第9页

3.2建立数据库

在整个系统中，数据库的建立是着重点。数据库是一种存储数据并对数据进行操作

的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算

机的数据库可以分为两类：非关系数据库(flat-file)和关系数据库(relational)。关系数

据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。

本系统中使用到的记录设备信息数据库表如表3.1所示。

表3.1设备信息数据库表

字段名类型宽度小数位数索引

编号数值型100

资产名称字符型10

制造商字符型10

使用人字符型10

管理员字符型10

国别字符型10

购买日期数值型15

单价数值型10

数量数值型10

使用单位字符型10

已用年限数值型10

联系电话数值型20

资产来源字符型10

报废日期数值型15

放置地点字符型10

资产号数值型100

黄河科技学院毕业设计说明书第10页

用户（密码）数据库表如表3.2所示。

表3.2密码数据库表

字段名类型宽度索引

ID数值型10

用户名字符10

输入True

查询True

密码数值型10

3.3数据库的实现

创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。

创建一个数据库结构的过程被认为是数据模型设计。

（1）标识需要的数据；

（2）收集被标识的字段到表中；

（3）标识主关键字字段；

（4）绘制一个简单的数据图表；

（5）规范数据；

（6）标识指定字段的信息；

（7）创建物理表。

根据上述的创建过程，依据表3.1和表3.2建立数据库如图3.1所示。

图3.1设备信息数据库

黄河科技学院毕业设计说明书第11页

数据库的修改分为：添加、编译、删除记录。这些均由前台的VB创建的程序来完

成。实现数据库之间的联系首先要了解数据库之间的关系是什么。

图3.2用户（密码）数据库

数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚

拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键

字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。

这种连接是指一个表被连接到它自己的•个字段，或在不同的纪录中由重复数据的组合

字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中

使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。

黄河科技学院毕业设计说明书第12页

4系统设计与实现

4.1前台界面设计

4.1.1欢迎界面设计

系统使用欢迎界面是为了丰富系统的美感，界面中“欢迎使用校资设备管理信息系

统”是滚动出现。如图4.1所示。

欢迎使用校资设备管理信息系统

进入系筑

______-__________________

图4」欢迎界面表单

4.1.2登录界面设计

点击进入系统，系统进入登录界面，如图4.2所示。

图4.2登录界面

黄河科技学院毕业设计说明书第13页

登录界面的设计主要是实现不同用户的登录，在初次使用本系统的时候，系统会

自动提醒用户设置超级用户，以便对系统的管理。

4.1.3主界面设计

登录完成后进去主界面，主界面包括数据编辑、数据查询、更改密码、关于、退出。

如图4.3所示。

图4.3主界面

主界面的设计以大图为背景，在界面的左上方分别用任务栏和快捷图标的形式,

突出系统的功能，使用户使用起来更加方便。

4.1.4数据编辑界面设计

其中数据编译包括输入新记录、删除、修改记录、打印功能如图4.4所示。

图4.4数据编辑界血

黄河科技学院毕业设计说明书第]4页

点击出入新记录，进入输入状态。对于设备的编号，设备名称，设备型号，制造

商，国别，购买日期，单价，数量，使用单位，使用人，管理员，放置地点，已使用

年限，设备来源，报年限，联系电话等记录进行录入，删除，修改，打印操作。如图

4.5所示。

图4.5数据输入界面

点击信息栏中任何一条信息，然后点击删除或修改按钮可简单快捷的完成删除修

改的任务。打印需要连接打印机，如果没有打印机，系统将显示无打印机的提示框,

连有打印机，将会出现设置表，如图4.6所示。

DntaillcportISB®

I[S[«»|.oo»j

F

■Iz~si____xJr

径各管理信4,余也打印救表

・号设•名称使用人购买日期,价K量便用单位联*电话的胃心皆产采d

oot潘华周方张潘玉2004-9-9500010断大巢力0496T656452打字更够

或HMP川

图4.6打印表

黄河科技学院毕业设计说明书第15页

4.1.5数据查询界面设计

数据查询界面分为按编号查询、按设备名称查询、按使用人查询，实现当且仅当

知晓某个设备详细信息，从而查询出这个设备在系统数据库中的详细信息。系统拥有

便捷条目查询，通过上下按钮可以翻查设备的具体信息。如图4.7所示。

图4.7数据查询界血

4.1.6更改密码界面与关于设计

更改密码是超级用户的独有权限，用户需用超级用户的密码登录才能更改原有的

密码，如图4.8所示。

图4.8密码修改界面

黄河科技学院毕业设计说明书第*页

关于系统是对系统一个概要的诠释，如图4.9所示。

谩餐系线

校资设备管理信息系统

I史计人2高P用

本程序运行于：Windowx98\2OOO\XP

图4.9关于界面

通过这个界面介绍了设计人、版本号及运行环境。

4.2前台界面和数据库的连接

下面介绍两种连接数据库的方法：一种是在adodcl的属性里设置数据库文件的

路径，这种方法的优点是简单易操作,缺点是当源文件换了地方后要重新设置数据库的

路径，否则连接不上数据库。一种是用代码设置数据库的路径，这种方法的优点就是只

要源文件和数据库在同一文件夹下，无论移动到哪里都能连接上。

如果没有建立好数据库的话，先建立一个数据库，然后建立一个表，比如我们建的表

名为message,只要把里面的字段名称和数据类型都按自己的需要设置好.最后保存就

可以了.打开MicrosoftVisualBasic6.0，在需要调用数据库的窗体上加入一个adodc控件,

默认名称为:Adodcl.默认的情况下工具栏里是没有这个控件的，可以打开工程一部件

(快捷键CTRL+T),去掉只显示选定项的勾，然后勾上MicrosoftADOData

Control(OLEDB)然后确定,工具栏就会多了一个adodc的控件。

本系统用到的连接方法是：设置adodcl的属以连接数据库.在adodcl控件上右键

—Adodc属性—使用连接字符串一生成—MicrosoftJet4.0OLEDBProvider-下一步―选

择或输入数据库名称一找到要连接的数据库后，确定.然后记录源设置属性.如果要把

内容提交到数据库一般使用adCmdTable.表选择要连接的表。设置完毕后就可以了。

这个系统制作完成后，进行了几次测试，基本能够顺利运行成功，但在界面美化

上有所不足，以后会将再加以修改。

黄河科技学院毕业设计说明书第17页

结论

毕业设计工作即将结束，这几个月里的学习工作使我受益非浅。在制作这个毕业

设计题目我一共查阅参考书籍约12本，并从导师和同学那里学到了很多关于数据库和

VB的知识。在翻阅查看了书上面所列举的例子并结合自己的课题要求，完成了本系

统的设计后，我得到了预期的结果，也达到了我设计的系统所要求的效果。

本系统基本实现了对设备管理信息的数字化管理，使管理员能够在计算机上对设

备信息进行综合管理，将新信息添加到信息库中，对信息库中已有的信息进行修改、

删除，从而实现了对设备信息的管理。

对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间

较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够

美观，出错处理不够等多方面问题。这些都有待进一步改善。

黄河科技学院毕业设计说明书第18页

致谢

学校提供的资源在我设计的过程中发挥了很大的作用，它为我的设计提供了大量的

资源，学校资源的配置，为我提供了参阅资料的场所。学校为没有电脑的同学配备了上

机设计的环境，为学生完成毕业设计提供了足够的时间，使学生可以在设计的过程中一

点点地提高自己，感激学校的精心安排。

本次毕业设计及论文是在晁学鹏老师的指导下完成的，晁老师认真负责的工作态

度，严谨的治学精神和深厚的理论水平都使我受益匪浅。他无论在理论上还是在实践中，

都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的

帮助，在此感谢晁老师对我耐心的辅导。

另外跟我同组的同学也给了我很多的支持，特别是白晓静、张慧芬、王亚东同学

给我提供了许多专业上的技术支持，对我毕业设计的完成工作有很大的帮助。这里一

并表示感谢。

感谢黄科大信息工程学院的领导和教师们四年来对我的培养和支持，是他们为我

提供了良好的学习环境和机会。

最后敬请各位专家、老师和同学对论文和今后的研究工作提出宝贵的指导意见和

建议。

黄河科技学院毕业设计说明书第19页

参考文献

[1]陆汉权，冯晓霞.VisualBasic程序设计教程[M].浙江：浙江大学出版社，2006.2.

[2]沈大林.Access数据库管理与开发案例教程[M].北京：中国铁道出版社，2007.8.

[3]刘晓林.软件设计方法[M].西安：西安电子工业出版社，2002.

[4]刘军，付文博.数据库应用系统开发技术[M].北京：机械工业出版社，2003.3.

[5]王珊，萨师炮.数据库系统概论[M].北京：高等教育出版社，2006.12.

[6]BobReselman.VisualBasic6.0UserGuide[M].USA:IBMCorporation,1996.9.

[7]CraigEddy.Access200024Hours[M].England:Educationpress,1990.

[8]周之英.现代软件工程理论[D].上海：科学出版社，2007.

[9]王红.VisualBasic6.0高级应用与开发指南[M].北京:人民邮电出版社,2001.4.

[10]翁迪恩.VisualBasic数据库开发指南[M].西安：电子科技大学出版社，2000.2.

[11]周佩德.数据库原理及应用[M].北京：电子工业出版社，2005.7.

[12]刘炳文，数据库之Access篇[A].北京:高等教育出版社，1999.9.

黄河科技学院毕业设计说明书第20页

附录

登陆界面中的确定代码如下：

PrivateSubCommandl_Click()

IfTrim(Textl.Text)=Trim(Text3.Text)AndTrim(Text2.Text)=Trim(Text4.Text)

Then

MDIForml.Show

UnloadMe

Else

ForX=1To1

IfA1.Recordset.EOF=TrueThen

MsgBox“您输入的用户名和密码有误,请重新输入！:16,“出错：”

Textl.Text=',M

Text2.Text

Al.Recordset.AbsolutePosition=1

Else

IfTrim(Text1.Text)=Trim(Text3.Text)AndTrim(Text2.Text)=

Trim(Text4.Text)Then

MDIForml.Show

MDIForml.PrintCommand1.Tag

MDIForml.Tag=Textl.Text

UnloadMe

Else

X=X-1

A1.Recordset.MoveNext

EndIf

黄河科技学院毕业设计说明书第21页

EndIf

NextX

EndIf

EndSub

如果是初次使用本系统，系统还会提示用户设置超级用户，代码如下：

PrivateSubForm_Load()

IfA1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueThen

MsgBox”您是第一次使用本程序，请设置超级用户！”,32,“设置：”

Form2.Show

UnloadMe

EndIf

EndSub

编辑数据界面中输入新记录的代码如下：

PrivateSubCommandl_Click()

IfCommand1.Caption="输入新记录"Thenr=1

IfA1.Recordset.BOF=TrueAndA1.Recordset.EOF=TrueThen

Else

Al.Recordset.MoveFirst

EndIf

ForX=1To1

IfA1.Recordset.EOF=TrueThen

Al.Tag=Y

ExitFor

Else

Al.Recordset.MoveNext

EndIf

X=X-1

黄河科技学院毕业设计说明书第22页

r=r+1

NextX

A1.Recordset.AddNew

Command1.Caption="输入完毕”

Commands.Enabled=False

Commands.Enabled=False

Form3.Height=8220

Form3.Top=300

Fl.Visible=True

Else

Ift3(0).Text='H,Then

MsgBox”资产名称不能为空！"，16,"出错："

t3(0).Text="123"

A1.Recordset.Delete

Command1.Caption="输入新记录”

Commands.Enabled=True

Commands.Enabled=True

Form3.Height=5728

Form3.Left=600

Form3.Top=1500

Fl.Visible=False

Else

ForX=11To13

IfLen(Trim(t3(X).Text))>200Then

MsgBox"字符不能超过200个！“，16,“出错：”

ExitSub

EndIf

黄河科技学院毕业设计说明书第23页

NextX

Al.Recordset.MovePrevious

A1.Recordset.MoveNext

Command1.Caption="输入新记录”

Commands.Enabled=True

Commands.Enabled=True

Form3.Height=5728

Fl.Visible=False

Form3.Left=600

Form3.Top=1500

EndIf

EndIf

EndSub

编辑数据界面中删除记录的代码如下：

PrivateSubCommand5_Click()

IfA1.Recordset.EOF=TrueOrA1.Recordset.BOF=TrueThen

MsgBox”您的数据库中没有记录可以删除！“，16,“出错：”

Else

A1.Recordset.Delete

Y=1

Al.Recordset.MoveFirst

ForX=1To1

IfA1.Recordset.EOF=TrueThen

IfA1.Recordset.BOF=TrueThen

Else

Al.Recordset.MoveFirst

EndIf

黄河科技学院毕业设计说明书第24页

ExitFor

Else

Label3.Caption=Y

Al.Recordset.MoveNext

Y=Y+1

X=X-1

EndIf

NextX

EndIf

EndSub

编辑数据界面中修改记录的代码如下：

PrivateSubCommand3_Click()

IfA1.Recordset.EOF=TrueAndAl.Recordset.BOF=TrueThen

MsgBox”您的数据库中没有记录！，16,咄错：”

Else

IfCommands.Caption="修改记录"Then

Command3.Caption="修改完毕”

Command1.Enabled=False

Commands.Enabled=False

Form3.Height=8220

Form3.Top=300

Fl.Visible=True

FLCaption="修改记录：”

Else

Ift3(0).Text=,n,Then

MsgBox”资产名称不能为空!”，16,咄错：”

Else

黄河科技学院毕业设计说明书第25页

ForX=11To13

IfLen(Trim(t3(X).Text))>200Then

MsgBox"字符不能超过200个!",16,"出错:"

ExitSub

EndIf

NextX

Commands.Caption="修改记录"

Command1.Enabled=True

Commands.Enabled=True

Form3.Height=5728

Form3.Left=600

Form3.Top=1500

Fl.Visible=False

Fl.Caption="数据输入:"

EndIf

EndIf

EndIf

EndSub

编辑数据界面中的打印代码：

PrivateSubCommand2_Click()

OnErrorGoTotxl

Command1.Visible=False

Command2.Visible=False

Command3.Visible=False

Form4.Height=L1(3).Y1+200

Form4.PrintForm

Command1.Vi