设备管理信息系统

《设备管理信息系统》由会员分享，可在线阅读，更多相关《设备管理信息系统（33页珍藏版）》请在装配图网上搜索。

1、 本科毕业论文（设计）论文题目：设备管理信息系统姓名：学号：班级：01班年级：2005级专业：计算机科学与技术系部：信息工程系指导教师：完成时间：2009年5月作者声明本毕业论文（设计）是在导师的指导下由本人独立撰写完成的，没有剽窃、抄袭、造假等违反道德、学术规范和其他侵权行为。对本论文（设计）的研究做出重要贡献的个人和集体，均已在文中以明确方式标明。因本毕业论文（设计）引起的法律结果完全由本人承担。毕业论文（设计）成果归工商学院所有。特此声明。作者专业：计算机科学与技术作者学号：作者签名： 200 年 月 日设备管理信息系统Equipment Management Information S

2、ystem 2009年5月 摘要设备管理信息系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。 使用 MICROSOFT公司的 VISUAL BASIC开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成满意的可行系统。 整个系统从符合简便、界面友好、灵活、实用、安全的要求出发，完成设备管理信息的全过

3、程，包括每一物品，例如办公设备、家具、计算机及其他有价值的设备分配一个唯一的物品编码，并根据此编码在计算机中建立设备信息库，对设备的新增、领用、折旧等进行管理，使管理人员可对设备的流向进行跟踪，随时掌握设备的现状，减少设备丢失现象，解决查找、盘点困难等问题，提高管理人员的工作效率。因此，开发这样一套管理软件成为很有必要的事情。 企业开发设备管理信息系统的基本任务，就是要通过将信息技术和管理技术结合，利用计算机辅助设备管理人员的工作，提高工作效率，达到促进设备管理现代化，为提高企业生产技术水平和产品质量、降低消耗、确保安全生产、增加经济效益等服务的目的。 本管理系统是为适应于设备管理信息而开发的

4、软件。从设备使用的角度管理设备，协助学校建立一套完善的数据管理模型，提供全面数据的编辑、查询、系统管理等等功能，达到对设备科学管理的目的。关键词：设备管理；信息系统；设备信息AbstractEquipment Management Information System is a typical management information system (MIS), including the development of the main background of the establishment and maintenance of database and application d

5、evelopment front-end aspects. For the former requirement to establish data consistency and integrity, and data security of a good library. For applications which require full-featured and easy to use and so on. Microsoft companies using VISUAL BASIC development tools, provided use of its object-orie

6、nted development tools, in particular, the data window can be convenient and simple manipulation of the intelligent object databases, the first in a short period of time to establish a prototype system, and then of the initial prototype system needs iterative, and constantly revised and improved, un

7、til the formation of a viable system satisfaction. From the whole system in line with the simple, user-friendly, flexible, practical and safety requirements, the complete equipment of the whole process of management information, including each item, such as office equipment, furniture, computers and

8、 other equipment, valuable items assigned a unique coding, and in accordance with this code in the computer to create a device information database, the new equipment, the recipients, depreciation, such as management, so managers can track the flow of equipment, the status of equipment at any time t

9、o reduce the loss of equipment, solution to find, difficult issues such as inventory, improve management efficiency. Therefore, the development of management software has become such a necessary thing.Companies to develop equipment management information systems basic task is to pass the information

10、 technology and management technology, the use of computer-aided facilities management staff to increase work efficiency and to promote the modernization of facilities management, to increase the level of production technology and product quality, reduce consumption, to ensure safety in production,

11、enhance economic efficiency and other services.The management system is adapted to the development of device management information software. From the perspective of equipment used in the management of equipment, to assist schools to establish a data management model, provide a comprehensive data ed

12、iting, query, the system management functions, the equipment to achieve the purpose of scientific management.Key words: Equipment management; information management; equipment information 目 录引 论1一、课题背景及现状1（一）课题背景1（二）课题现状2二、系统开发平台介绍2（一）Visual Basic介绍3（二）Access 2003 介绍4三、 需求分析5（一）需求背景 5 （二）用户及功能需求5四、系

13、统概要设计6（一） 设备管理信息系统功能结构图6（二） 设备管理信息系统数据库设计7五、设备管理信息系统的详细设计与实现9（一）系统功能概述8（二）系统构架设计9（三）系统登陆界面的设计9（四）主窗体的设计11结 语23主要参考文献25 后 记26引 论随着企业设备水平的日益提高，规模的不断扩大，各种设备、系统和设施正朝着大型化、连续化、复杂化、精密化和柔性化方向发展，并力求满足特殊环境下的苛刻要求，这为企业设备管理与维修提出了许多问题与挑战。如由于设备突发故障，或因更换工装和模具等造成停机损失，由此打乱了生产计划，不能按期交货、造成机会损失；设备空闲或速度下降，导致设备性能损失；因设备精度降

14、低，生产出不合格品；设备严重磨损、腐蚀，使维修量和费用提高；设备本身设计、制造的缺陷，或因维修、操作者的差错而造成事故和公害。这些问题都会给企业本身或社会带来严重的损失。这种损失可能会让企业每天付出巨大代价，远远超过故障设备的价值。为满足现代化工业生产的无故障、无缺陷、无伤亡、无公害的要求，各工业发达国家先后提出了设备管理的新理论。设备管理信息系统（PMIS）就是以系统思想的方法，利用现代信息通讯技术和设备管理理论的最新发展成果，并结合国家有关设备管理的法律、法规，对企业设备管理活动中的信息进行收集、提取、加工、输出，从而形成支持组织决策的信息系统。对于性能和速度的要求本系统前台采用了Visu

15、al Basic作为开发工具，后台的数据库则用了Microsoft Access。为了提高速度采用了ADO技术链接数据库。对于本系统的管理，系统设置了权限。分数据管理员、普通用户、系统管理员。在验证期身份是，主要通过ADO 空间中记录对象结合if语句来判断身份。本系统有安装便捷，占用内存少等特点，此外该系统在功能上还有很大的扩展性，各个用户可以根据自身需求，进一步开发完善。一、课题背景及现状（一）课题背景企业以前的有关设备管理的工作都是由人工来完成的。随着企业的发展，企业设备处的设备管理信息工作量大大加重。随着计算机应用的发展，很多企业急切希望能够将大部分繁琐的工作交由计算机的处理，已减轻人工

16、的压力并提高工作效率。而计算机的普及更加快了设备管理信息系统的产生。设备管理信息系统（PMIS）实现了设备管理的自动化，为企业实现优化管理提供了有效的工具，使设备管理工作规范化，减少了随意性，提高了设备资源的利用率和工作效率，使作业计划的准确性和科学性得以保障，有助于企业经营目标的实现。作为整个企业管理信息系统的一个子系统，设备管理信息系统具有良好的数据共享性，能够和其它管理系统进行联接，实现信息共享，提高管理的高效性和准确性。原有设备管理信息系统数据共享差的问题更加突出，而新需求的提出也越来越多，越来越频繁。这就要求系统在可扩展性和标准化的要求更高。而原有的系统由于其与生俱来的缺点而无法在适

17、应现有的需求了。因此，使用现在的新技术，开发出适应新的需求的新系统的任务刻不容缓。通过此说明书，可以明确系统中各个模块的功能，能够更好的将用户的需求更好的体现在程序中来，从而使程序在功能方面更加全面，这样就可以更好满足用户的需求。该说明书主要是针对程序开发者的，这样可以更好的与用户进行沟通。（二）课题现状21 世纪以信息技术为特征的制造业革命正在全球范围内展开，信息技术正以前所未有的速度快速地渗透到制造业的各个领域中，使制造业的产品、研发方式、生产模式和精英管理的理念都发生了深刻地变化。中小企业信息化对整个制造业的发展乃至国民经济的发展有着举足轻重的作用。管理信息系统从 20 世纪 50 年代

18、中期计算机用于管理领域以来，经历了从简单到复杂，从单机到网络，从功能单一到功能集成、从传统到现代的演化。根据 MIS 发展的时序和特点，可将 MIS 的发展历程大致分为电子数据处理系统（ EDPS ）、管理信息系统（ MIS ）、决策支持系统（ DSS ）三个阶段。20 世纪 50 年代中期，计算机作为强有力的数据处理工具与手段，开始在中小企业管理中应用。 50 多年来，中小企业应用管理信息系统经历了从简单、局部应用到高级、全面解决管理问题的发展过程。任何一个中小企业 MIS 都蕴含着管理体制和管理模式，由于系统中信息的处理和输出方式都与管理方法、管理体制密切相关，因此，任何一个 MIS 都是

19、其具体管理思想的缩影。二、系统开发平台介绍随着计算机技术的不断发展，计算机应用于各大领域，并给人们的生活带来了极大的便利，在固定管理系统亦是如此。以往设备员由于缺乏适当的软件而给其工作带来了很多不便。本论文所介绍的便是一个设备管理信息系统，以方便在设备安排和设备管理信息上的工作任务。设备管理是重点工作，利用先进的技术手段和指导思想提高对企业及时有效的管理、考查，对提高企业竞争力有着广泛深远的意义。该系统包括：设备管理、设备查询、用户管理、系统管理。设备管理系统的功能，能够很好的服务于企业设备的数字化管理，可以让管理人员很轻松地了解到当前每件设备的当前情况。譬如设备当前在哪个部门之下、什么时候借

20、出去的、由谁借出去的等信息，而且可以很方便的查询设备的信息。（一）Visual Basic介绍1991年，微软公司推出了Visual Basic 1.0版。这在当时引起了很大的轰动。这个连接编程语言和用户界面的进步被称为Tripod（有些时候叫做Ruby），最初的设计是由阿兰库珀（Alan Cooper）完成的。许多专家把VB的出现当做是软件开发史上的一个具有划时代意义的事件。其实，以我们现在的目光来看，VB1.0的功能实在是太弱了；（不过最近VB6.0, VB.NET的功能相当大）。但在当时，它是第一个“可视”的编程软件。这使得程序员欣喜之极，都尝试在VB的平台上进行软件创作。微软也不失时机

21、地在四年内接连推出VB2.0，VB3.0，4.0三个版本。并且从VB3开始，微软将ACCESS的数据库驱动集成到了VB中，这使得VB的数据库编程能力大大提高。从VB4开始，VB也引入了面向对象的程序设计思想。VB功能强大，学习简单。而且，VB还引入了“控件”的概念，使得大量已经编好的VB程序可以被我们直接拿来使用。VB1.0的DOS版本VB1.0于1991年发布。这个连接编程语言和用户界面的进步被称为Tripod（有些时候叫做Ruby），最初的设计是由阿兰库珀（Alan Cooper）完成的 2002年Visual Basic .NET 2002 (v7.0)问世，2003年Visual Ba

22、sic .NET 2003 (v7.1)问世，2005年11月7日Visual Basic 2005 (v8.0)问世，同时间推出Visual Basic 2005的免费简化版本Visual Basic 2005 Express Edition给Visual Basic初学者及学生使用。 VB 2005的“显著”优点是，可以直接编写出XP风格的按钮，以及其他的控件。但是其编写的小程序占用近10MB的内存。 通过几年的发展，它已成为一种专业化的开发语言和环境。用户可用Visual Basic快速创建Windows程序，现在还可以编写企业水平的客户端/服务器程序及强大的数据库应用程序。 VB会吸引

23、更多的赞誉和批评，也会继续为广大的用户和程序员使用。它非常适合用来开发拥有友好界面的程序（比如针对终端的数据），但是不适合开发其它程序（比如联合计算程序）。一个典型的VB进程VB的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组建的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。窗体

24、控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮）。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。 VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗

25、口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。 VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。 VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组建的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。 VB使得大量的外界控件有了自己的生存空间。大量的第三方控件针对VB提供。VB也提供了建立、使用和重用这些控件的方

26、法，但是由于语言问题，从一个应用程序创建另外一个并不简单。（二）ACCESS 2003介绍ACCESS2003 office自带的数据库Access 是Office2000里面的一个组件。是用来制作简单的数据库。还有的意思就是访问、还有接入的意思。如Access list 访问列表 Access point 接入点在办公软件Office套件中，最为广大用户熟悉的是Word和Excel，因为它们功能强大且方便易用，更因为它们不仅可用于办公，还可用于个人写作和家庭记帐理财等。同为Office套件中一部分的Access，虽然有着同样强大的功能，但使用的人却相对少些，不像Word和Excel那样广泛。

27、事实上，真正用过Access的用户，对其强大功能和灵活应用均称赞有加。 Access 数据库管理系统是Microsoft Office 套件的重要组成部分，适用于小型商务活动，用以存贮和管理商务活动所需要的数据。Access不仅是一个数据库，而且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单），查询，报表和应用程序等。 数据库是有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图象、声音等。 Microsoft Access是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录

28、，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。图1是一个“产品”表的例子。“产品”表由10个记录组成，一个记录占一行，每一个记录由产品ID、产品名称、库存量、订货量、单价和折扣率6个字段组成。“产品ID”是字段名，其下面的1，2等是字段的值。表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。表(Table) 表是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。查询(Q

29、uery)查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。窗体(Form) 窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。报表(Report) 报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。宏(Macro) 宏相当于DOS中的批处理，用来自动执行一系列操作。Access列出了一些常用的操作供用户选择，使用起来十分方便。 模块(Module) 模块的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。模块使用Visual Basic编程。三、需求分析（一）需求背景在设

30、备管理系统中，需要从大量的设备信息中，提取相关信息，以反映设备的当前的情况。传统的手工操作方式，易发生数据丢失，统计错误，劳动强度高，且速度慢。使用计算机可以高速，快捷地完成以上工作。在计算机联网后，数据在网上传递，可以实现数据共享，避免重复劳动，规范设备管理行为，从而提高了管理效率和水平。（二）用户及功能需求1设备用户的主要功能和权限设备管理：可查看设备的编号、名称、型号、购买日期、购买价格、折旧价格等。设备查询：可查询设备的价格、注销日期等基本信息。用户管理：可以查询和修改用户的基本信息。系统管理：可以进行密码的修改、数据备份、数据整理、数据清理和退出系统。2设备管理员的主要功能和权限基本

31、信息 ：可查询设备的基本信息。用户管理：可以新增和删除设备的基本信息。级别管理：可以进行用户级别所有的相关信息。四、系统概要设计（一）设备管理信息系统功能结构图分析设备管理信息系统，其大致的模式主要有：设备管理、用户管理、系统管理等功能模块，其总体功能如图1所示。同时，结合设备管理信息化软件，对设备管理信息系统的应用作进一步的阐述。设备管理系统设备管理用户管理部门管理设备编号用户级别用户名设备类型设备名称部门部门编号类型编号系统管理密码类型名称图1 设备管理系统功能结构图根据系统分析的结果，按照结构化的系统设计方法，设备管理系统需要实现的具体功能模块主要可以分为设备管理、用户管理、系统管理等三

32、个模块。设备管理系统的数据流程图如图2所示。图2 设备管理系统数据流程图（二）设备管理信息系统数据库设计数据库设计是整个程序设计的最关键部分，数据库的设计是否合理，将对数据库的大小、代码的优化起到至关重要的作用，因此在设计程序前必需对数据库进行设计，而在设计数据库前必需对所要完成的功能进行认真的研究分析，下面介绍我们的数据库设计:在本系统的设计中总共设计了5个表，其中有关于用户信息管理的，还有部门信息的，设备台帐的，设备借入借出的和设备类型的表。其相应情况如下图3至图7：图3用户表图4部门表图5设备借入借出表图6 设备类型表图7 设备台帐表 五、设备管理信息系统的详细设计与实现（一）系统功能概

33、述该系统的主要功能是为设备管理员对设备流动管理而开发，主要是对日常设备情况进行添加、删除、借入借出、设备报废和注销的功能。根据系统的开发目标、原则和项目需求。对数据库、操作系统平台以及服务器等关键部分进行了认真讨论和详尽对比分析，并做出以下选择：Microsoft公司的Windows XP作为操作系统平台， Microsoft ACCESS 2003标准版作为后端数据库服务器软件：以Windows作为前端工作站的主要操作系统；VB 6.0作为前台工作站应用程序开发工具。（二）系统架构设计设备管理系统的架构分为窗体，模块和类模块三个部分。在窗体的部分有以下几个窗体，他们的作用分别是： “frmD

34、evice.frm”是设备窗口，可以对设备信息进行添加，删除的操作；“frmGetDate.frm”是设置日期窗体，对日期进行设置；“frmLend.frm” 是设备借入借出，管理员可以在此修改设备的借入借出状态；“frmLogin.frm”是用户的登陆窗口，启动系统时就会出现这个窗口； “frmmain.frm”是系统主界面，用户可以选择要执行的任务；“frmUser.frm” 是用户管理窗口，对用户进行添加和删除；系统架构说明见图8所示：图8 系统架构图（三）系统登陆界面的设计登陆界面在VB 6.0中，在新建窗体后，然后加上相应的控件按钮。当输入用户名和密码时，点击“确定”按钮，此时Cmd

35、OK事件被激活，它将执行相应的事件。图9 登陆界面其后台代码为：Dim strPwd As String Dim rsPwd As ADODB.Recordset Dim strLogin As String strLogin = Trim(txtUserName.Text) strPwd = Trim(txtPassword.Text) If Len(strLogin) = 0 Then MsgBox 用户名不能为空,请输入用户名 txtUserName.SetFocus Exit Sub End If If Len(strPwd) = 0 Then MsgBox 密码不能为空,请输入正确的

36、密码 txtPassword.SetFocus Exit Sub End If Set rsPwd = gConn.Execute(SELECT pwd FROM tblUser WHERE login= & Replace(strLogin, , ) & ) If rsPwd.EOF Then MsgBox 用户名不正确,请重新输入! ElseIf strPwd = rsPwd(pwd).value Then 将代码放在这里传递 成功到 calling 函数 设置全局变量时最容易的 LoginSucceeded = True Me.Hide Else MsgBox 无效的密码，请重试!, ,

37、 登录 txtPassword.SetFocus SendKeys Home+End End If rsPwd.Close Set rsPwd = NothingEnd Sub（四）主窗体的设计主窗体界面是显示系统主要操作功能的面板，在系统主窗体中，可以显示设备管理、设备查询、用户管理和系统管理信息，还可以通过点击这四组按钮来查看设备的信息。设备管理信息系统的主界面如图10所示。图10 设备管理信息系统的主界面1.系统主窗体的功能成功登录后，进入的系统的主窗体，在主窗体中有四组按钮，第一组是设备管理选择按钮，通过点击相应的按钮可以在主窗体中显示不同设备的表单，这些表单分别是设备信息表，这组按钮

38、和Access数据库中各表相联系。第二组按钮是对设备的查询操作，通过设备名、型号、价格、购置日期和注销日期对设备进行查询。第三组按钮是用户管理，对用户的权限进行设置。第四组按钮是系统管理按钮，分为用户操作和系统管理员操作，用户操作执行密码的修改和退出系统的功能，系统管理员操作执行数据备份、数据整理和数据清理的功能。用户成功进入系统主窗体运行结果见图11所示：图11 系统主窗体的运行结果2.系统主窗体的主要代码设计其后台代码为：Private Sub tabMain_Click(PreviousTab As Integer) Dim strSQL As String Select Case ta

39、bMain.Tab Case 0 strSQL = SELECT a.*,b.department,c.TypeName FROM (tblDevice AS A INNER JOIN tblDepartment AS B ON a.DeptNO=b.DeptNO) INNER JOIN tblTypeInfo C ON a.TypeNO=c.TypeNO ORDER BY A.IID DESC Call fillDeviceGrid(grdDevice, strSQL) Case 3 Call fillUserGrid End Select End SubPrivate Sub fillDe

40、viceGrid(grid As MSFlexGrid, Optional strSQL As String) Dim rs As ADODB.Recordset Dim strRowData As String Dim rowindex As Integer If Len(strSQL) = 0 Then strSQL = SELECT a.*,b.department,c.TypeName FROM (tblDevice AS A INNER JOIN tblDepartment AS B ON a.DeptNO=b.DeptNO) INNER JOIN tblTypeInfo C ON

41、a.TypeNO=c.TypeNO ORDER BY A.IID DESC End If rowindex = 1With grid If .Tag = Then Set rs = gConn.Execute(strSQL) .Rows = 1 .Cols = 13 .Row = 0 .Col = 0 .Text = 序号 .Col = 1 .Text = ID .ColWidth(1) = 0 .Col = 2 .Text = 设备编号 .Col = 3 .Text = 设备名称 .Col = 4 .Text = 设备型号 .Col = 5 .Text = 设备分类 .Col = 6 .Te

42、xt = 所属部门 .Col = 7 .Text = 购买价格 .Col = 8 .Text = 折旧成本 .Col = 9 .Text = 购买日期 .Col = 10 .Text = 状态 .Col = 11 .Text = 报废日期 .Col = 12 .Text = 注销日期 Do Until rs.EOF strRowData = rowindex & vbTab strRowData = strRowData & rs(IID).value & vbTab strRowData = strRowData & rs(DeviceNO).value & vbTab strRowData

43、 = strRowData & rs(DeviceName).value & vbTab strRowData = strRowData & rs(DeviceModel).value & vbTab strRowData = strRowData & rs(TypeName).value & vbTab strRowData = strRowData & rs(Department).value & vbTab strRowData = strRowData & rs(ProductPrice).value & vbTab strRowData = strRowData & rs(Produ

44、ctcost).value & vbTab strRowData = strRowData & FormatDateTime(rs(PurchaseDate).value, vbLongDate) & vbTab If rs(Status).value = 0 Then strRowData = strRowData & 在库 & vbTab Else strRowData = strRowData & 借出 & vbTab End If strRowData = strRowData & rs(RejectDate).value & vbTab strRowData = strRowData

45、 & rs(DisCardDate).value & vbTab .AddItem strRowData rs.MoveNext rowindex = rowindex + 1 Loop rs.Close Set rs = Nothing .Tag = 1 End IfEnd WithEnd Sub3.系统管理窗体的功能把系统管理表作为主窗体的默认表，所示主窗体的运行结果也是设备管理表的运行结果。在系统管理表中可以对密码进行修改，对数据进行整理。（1）用户操作是对用户的密码进行修改。系统管理密码修改窗体运行结果见图12所示：图12 系统密码修改其后台代码为：Dim oldPass As Str

46、ing Dim newPass1 As StringDim newPass2 As StringoldPass = InputBox(请输入旧密码:, 密码修改) If Len(oldPass) 0 Then If oldPass gUser.Password Then MsgBox 输入密码不正确! Exit Sub End If newPass1 = InputBox(请输入新密码:, 密码修改) If Len(newPass1) = 0 Then MsgBox 密码修改不成功! Exit Sub Else newPass2 = InputBox(请再次输入新密码确认:, 密码修改) If

47、 Len(newPass2) = 0 Then MsgBox 密码修改不成功! Exit Sub ElseIf newPass1 = newPass2 Then If gUser.resetPassword(newPass1) = False Then MsgBox 数据操作错误,密码修改不成功! Else MsgBox 密码成功修改!请保存好你的密码! End If Exit Sub Else MsgBox 两次输入的新密码不一样,修改失败! Exit Sub End If End If Else MsgBox 密码修改不成功! Exit SubEnd If（2）系统管理员操作是对数据执行备

48、份、整理和清理操作。界面如图13至图15所示：图13 数据备份图14 数据整理图15 数据清理4.设备管理窗体的功能对设备的信息进行添加、删除、借入借出、设备报废和设备注销。设备管理的窗体的界面如下图16所示： 图16 设备管理界面其后台代码为：Dim strSQL As String Select Case tabMain.Tab Case 0 strSQL = SELECT a.*,b.department,c.TypeName FROM (tblDevice AS A INNER JOIN tblDepartment AS B ON a.DeptNO=b.DeptNO) INNER JO

49、IN tblTypeInfo C ON a.TypeNO=c.TypeNO ORDER BY A.IID DESC Call fillDeviceGrid(grdDevice, strSQL) Case 3 Call fillUserGridEnd Select（1）添加设备信息的界面如图17所示：图17 添加设备界面（2）删除设备信息的界面如图18所示：图18 删除设备界面删除设备其后台代码为：Dim iid As String With grdDevice If .Row = 0 Then MsgBox 请选择要删除的设备! Else If MsgBox(你是否真的要删除当前选择的设备吗?

50、删除后将不能恢复!, vbOKCancel) = vbOK Then .Col = 1 iid = .Text Dim device As New classDevice device.deleteData iid grdDevice.Tag = Call fillDeviceGrid(grdDevice) End If End IfEnd With（3）借入借出设备信息的界面如图19所示：图19 借出借入界面借入借出设备其后台代码为：Private Sub cmdLend_Click() Dim iid As String With grdDevice If .Row = 0 Then Ms

51、gBox 请选择要操作的设备! Else .Col = 1 iid = .Text Dim frm As New frmLend Dim result As Boolean result = frm.loadLendData(iid) If result = False Then Unload frm Exit Sub End If frm.Show vbModal If frm.isUpdate = True Then grdDevice.Tag = fillDeviceGrid grdDevice End If Unload frm Set frm = Nothing End If End

52、 WithEnd Sub5.设备查询窗体的功能设备查询窗体的界面如图20所示：图20 设备查询界面（1）开始查询其后台代码为：Dim DeptNo As String Dim DeviceName As String Dim DeviceModel As String Dim TypeNo As String Dim Pricefrom As String Dim Priceto As String Dim PurchaseDatefrom As String Dim PurchaseDateto As String Dim RejectDatefrom As String Dim Rejec

53、tDateto As String Dim strSQL As String DeviceName = Replace(Trim(txtQDeviceName.Text), , ) DeviceModel = Replace(Trim(txtQModel.Text), , ) Pricefrom = Trim(txtQP1.Text) Priceto = Trim(txtQP2.Text) PurchaseDatefrom = Trim(txtDate(0).Text) PurchaseDateto = Trim(txtDate(1).Text) RejectDatefrom = Trim(t

54、xtDate(2).Text) RejectDateto = Trim(txtDate(3).Text) If Len(Pricefrom) 0 Then If Not IsNumeric(Pricefrom) Then MsgBox 购买价格输入不正确，请重新输入。 txtQP1.SetFocus Exit Sub Else If Len(strSQL) 0 Then strSQL = strSQL & AND ProductPrice= & Pricefrom Else strSQL = ProductPrice= & Pricefrom End If End If End If（2）按钮cmdAll的代码如下：grdQuery.Tag = fillDeviceGrid grdQuery6.用户管理窗体的功能用户管理窗体的界面如图21所示：图21用户管理界面（1）新增用户的界面如图22所示：图22 新增用户界面（2）删除用户界面如图23所示：图23 删除用户界面删除用户其后台代码为：Dim uid As String With grdUser If .Row = 0 Then MsgBox 请选择要删除的用户! Else If MsgBox(你是否真的要删除当前选择的用户吗?删除后将不能恢复