设备管理信息系统毕业设计论文 终稿 33页

本科毕业论文（设计）论文题目：设备管理信息系统姓名：XX学号：XXXXXXX班级：XX班年级：XXX级专业：计算机科学与技术系部：XX指导教师：XXXXXXXX完成时间：XXXX年5月 武汉工业学院工商学院毕业论文（设计）专用稿纸作者声明本毕业论文（设计）是在导师的指导下由本人独立撰写完成的，没有剽窃、抄袭、造假等违反道德、学术规范和其他侵权行为。对本论文（设计）的研究做出重要贡献的个人和集体，均已在文中以明确方式标明。因本毕业论文（设计）引起的法律结果完全由本人承担。特此声明。作者专业：计算机科学与技术作者学号：XXXXXXX作者签名：200年月日 武汉工业学院工商学院毕业论文（设计）专用稿纸设备管理信息系统XXEquipmentManagementInformationSystemXXXXXXX年5月 武汉工业学院工商学院毕业论文（设计）专用稿纸摘　　要设备管理信息系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。使用MICROSOFT公司的VISUALBASIC开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成满意的可行系统。整个系统从符合简便、界面友好、灵活、实用、安全的要求出发，完成设备管理信息的全过程，包括每一物品，例如办公设备、家具、计算机及其他有价值的设备分配一个唯一的物品编码，并根据此编码在计算机中建立设备信息库，对设备的新增、领用、折旧等进行管理，使管理人员可对设备的流向进行跟踪，随时掌握设备的现状，减少设备丢失现象，解决查找、盘点困难等问题，提高管理人员的工作效率。因此，开发这样一套管理软件成为很有必要的事情。企业开发设备管理信息系统的基本任务，就是要通过将信息技术和管理技术结合，利用计算机辅助设备管理人员的工作，提高工作效率，达到促进设备管理现代化，为提高企业生产技术水平和产品质量、降低消耗、确保安全生产、增加经济效益等服务的目的。本管理系统是为适应于设备管理信息而开发的软件。从设备使用的角度管理设备，协助学校建立一套完善的数据管理模型，提供全面数据的编辑、查询、系统管理等等功能，达到对设备科学管理的目的。关键词：设备管理；信息系统；设备信息-1- 武汉工业学院工商学院毕业论文（设计）专用稿纸AbstractEquipmentManagementInformationSystemisatypicalmanagementinformationsystem(MIS),includingthedevelopmentofthemainbackgroundoftheestablishmentandmaintenanceofdatabaseandapplicationdevelopmentfront-endaspects.Fortheformerrequirementtoestablishdataconsistencyandintegrity,anddatasecurityofagoodlibrary.Forapplicationswhichrequirefull-featuredandeasytouseandsoon.MicrsoftcompaniesusingVISUALBASICdevelopmenttools,provideduseofitsobject-orienteddevelopmenttools,inparticular,thedatawindowcanbeconvenientandsimplemanipulationoftheintelligentobjectdatabases,thefirstinashortperiodoftimetoestablishaprototypesystem,andthenoftheinitialprototypesystemneedsiterative,andconstantlyrevisedandimproved,untiltheformationofaviablesystemsatisfaction.Fromthewholesysteminlinewiththesimple,user-friendly,flexible,practicalandsafetyrequirements,thecompleteequipmentofthewholeprocessofmanagementinformation,includingeachitem,suchasofficeequipment,furniture,computersandotherequipment,valuableitemsassignedauniquecoding,andinaccordancewiththiscodeinthecomputertocreateadeviceinformationdatabase,thenewequipment,therecipients,depreciation,suchasmanagement,somanagerscantracktheflowofequipment,thestatusofequipmentatanytimetoreducethelossofequipment,solutiontofind,difficultissuessuchasinventory,improvemanagementefficiency.Therefore,thedevelopmentofmanagementsoftwarehasbecomesuchanecessarything.Companiestodevelopequipmentmanagementinformationsystem"sbasictaskistopasstheinformationtechnologyandmanagementtechnology,theuseofcomputer-aidedfacilitiesmanagementstafftoincreaseworkefficiencyandtopromotethemodernizationoffacilitiesmanagement,toincreasethelevelofproductiontechnologyandproductquality,reduceconsumption,toensuresafetyinproduction,enhanceeconomicefficiencyandotherservices.Themanagementsystemisadaptedtothedevelopmentofdevicemanagementinformationsoftware.Fromtheperspectiveofequipmentusedinthemanagementofequipment,toassistschoolstoestablishadatamanagementmodel,provideacomprehensivedataediting,query,thesystemmanagementfunctions,theequipmenttoachievethepurposeofscientificmanagement.Keywords:Equipmentmanagement;informationmanagement;equipmentinformation-1- 武汉工业学院工商学院毕业论文（设计）专用稿纸目录引论………………………………………………………………………1一、课题背景及现状……………………………………………………………1（一）课题背景……………………………………………………………………1（二）课题现状……………………………………………………………………2二、系统开发平台介绍…………………………………………………………2（一）VisualBasic介绍…………………………………………………………………3（二）Access2003介绍…………………………………………………………………4三、需求分析……………………………………………………………………5（一）需求背景………………………………………………………………………5（二）用户及功能需求………………………………………………………………5四、系统概要设计………………………………………………………………6（一）设备管理信息系统功能结构图……………………………………………………6（二）设备管理信息系统数据库设计……………………………………………………7五、设备管理信息系统的详细设计与实现…………………………………8（一）系统功能概述………………………………………………………………………8（二）系统构架设计………………………………………………………………………9（三）系统登陆界面的设计………………………………………………………………9（四）主窗体的设计……………………………………………………………………11结语…………………………………………………………………………23主要参考文献…………………………………………………………………25后记…………………………………………………………………………26-1- 武汉工业学院工商学院毕业论文（设计）专用稿纸引论随着企业设备水平的日益提高，规模的不断扩大，各种设备、系统和设施正朝着大型化、连续化、复杂化、精密化和柔性化方向发展，并力求满足特殊环境下的苛刻要求，这为企业设备管理与维修提出了许多问题与挑战。如由于设备突发故障，或因更换工装和模具等造成停机损失，由此打乱了生产计划，不能按期交货、造成机会损失；设备空闲或速度下降，导致设备性能损失；因设备精度降低，生产出不合格品；设备严重磨损、腐蚀，使维修量和费用提高；设备本身设计、制造的缺陷，或因维修、操作者的差错而造成事故和公害。这些问题都会给企业本身或社会带来严重的损失。这种损失可能会让企业每天付出巨大代价，远远超过故障设备的价值。为满足现代化工业生产的无故障、无缺陷、无伤亡、无公害的要求，各工业发达国家先后提出了设备管理的新理论。设备管理信息系统（PMIS）就是以系统思想的方法，利用现代信息通讯技术和设备管理理论的最新发展成果，并结合国家有关设备管理的法律、法规，对企业设备管理活动中的信息进行收集、提取、加工、输出，从而形成支持组织决策的信息系统。对于性能和速度的要求本系统前台采用了VisualBasic作为开发工具，后台的数据库则用了MicrosoftAccess。为了提高速度采用了ADO技术链接数据库。对于本系统的管理，系统设置了权限。分数据管理员、普通用户、系统管理员。在验证期身份是，主要通过ADO空间中记录对象结合if语句来判断身份。本系统有安装便捷，占用内存少等特点，此外该系统在功能上还有很大的扩展性，各个用户可以根据自身需求，进一步开发完善。一、课题背景及现状（一）课题背景企业以前的有关设备管理的工作都是由人工来完成的。随着企业的发展，企业设备处的设备管理信息工作量大大加重。随着计算机应用的发展，很多企业急切希望能够将大部分繁琐的工作交由计算机的处理，已减轻人工的压力并提高工作效率。而计算机的普及更加快了设备管理信息系统的产生。设备管理信息系统（PMIS）实现了设备管理的自动化，为企业实现优化管理提供了有效的工具，使设备管理工作规范化，减少了随意性，提高了设备资源的利用率和工作效率，使作业计划的准确性和科学性得以保障，有助于企业经营目标的实现。作为整个企业管理信息系统的一个子系统，设备管理信息系统具有良好的数据共享性，能够和其它管理系统进行联接，实现信息共享，提高管理的高效性和准确性。27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸原有设备管理信息系统数据共享差的问题更加突出，而新需求的提出也越来越多，越来越频繁。这就要求系统在可扩展性和标准化的要求更高。而原有的系统由于其与生俱来的缺点而无法在适应现有的需求了。因此，使用现在的新技术，开发出适应新的需求的新系统的任务刻不容缓。通过此说明书，可以明确系统中各个模块的功能，能够更好的将用户的需求更好的体现在程序中来，从而使程序在功能方面更加全面，这样就可以更好满足用户的需求。该说明书主要是针对程序开发者的，这样可以更好的与用户进行沟通。（二）课题现状21世纪以信息技术为特征的制造业革命正在全球范围内展开，信息技术正以前所未有的速度快速地渗透到制造业的各个领域中，使制造业的产品、研发方式、生产模式和精英管理的理念都发生了深刻地变化。中小企业信息化对整个制造业的发展乃至国民经济的发展有着举足轻重的作用。管理信息系统从20世纪50年代中期计算机用于管理领域以来，经历了从简单到复杂，从单机到网络，从功能单一到功能集成、从传统到现代的演化。根据MIS发展的时序和特点，可将MIS的发展历程大致分为电子数据处理系统（EDPS）、管理信息系统（MIS）、决策支持系统（DSS）三个阶段。20世纪50年代中期，计算机作为强有力的数据处理工具与手段，开始在中小企业管理中应用。50多年来，中小企业应用管理信息系统经历了从简单、局部应用到高级、全面解决管理问题的发展过程。任何一个中小企业MIS都蕴含着管理体制和管理模式，由于系统中信息的处理和输出方式都与管理方法、管理体制密切相关，因此，任何一个MIS都是其具体管理思想的缩影。二、系统开发平台介绍随着计算机技术的不断发展，计算机应用于各大领域，并给人们的生活带来了极大的便利，在固定管理系统亦是如此。以往设备员由于缺乏适当的软件而给其工作带来了很多不便。本论文所介绍的便是一个设备管理信息系统，以方便在设备安排和设备管理信息上的工作任务。设备管理是重点工作，利用先进的技术手段和指导思想提高对企业及时有效的管理、考查，对提高企业竞争力有着广泛深远的意义。该系统包括：设备管理、设备查询、用户管理、系统管理。设备管理系统的功能，能够很好的服务于企业设备的数字化管理，可以让管理人员很轻松地了解到当前每件设备的当前情况。譬如设备当前在哪个部门之下、什么时候借出去的、由谁借出去的等信息，而且可以很方便的查询设备的信息。27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸（一）VisualBasic介绍1991年，微软公司推出了VisualBasic1.0版。这在当时引起了很大的轰动。这个连接编程语言和用户界面的进步被称为Tripod（有些时候叫做Ruby），最初的设计是由阿兰·库珀（AlanCooper）完成的。许多专家把VB的出现当做是软件开发史上的一个具有划时代意义的事件。其实，以我们现在的目光来看，VB1.0的功能实在是太弱了；（不过最近VB6.0,VB.NET的功能相当大）。但在当时，它是第一个“可视”的编程软件。这使得程序员欣喜之极，都尝试在VB的平台上进行软件创作。微软也不失时机地在四年内接连推出VB2.0，VB3.0，4.0三个版本。并且从VB3开始，微软将ACCESS的数据库驱动集成到了VB中，这使得VB的数据库编程能力大大提高。从VB4开始，VB也引入了面向对象的程序设计思想。VB功能强大，学习简单。而且，VB还引入了“控件”的概念，使得大量已经编好的VB程序可以被我们直接拿来使用。VB1.0的DOS版本VB1.0于1991年发布。这个连接编程语言和用户界面的进步被称为Tripod（有些时候叫做Ruby），最初的设计是由阿兰·库珀（AlanCooper）完成的2002年VisualBasic.NET2002(v7.0)问世，2003年VisualBasic.NET2003(v7.1)问世，2005年11月7日VisualBasic2005(v8.0)问世，同时间推出VisualBasic2005的免费简化版本VisualBasic2005ExpressEdition给VisualBasic初学者及学生使用。VB2005的“显著”优点是，可以直接编写出XP风格的按钮，以及其他的控件。但是其编写的小程序占用近10MB的内存。通过几年的发展，它已成为一种专业化的开发语言和环境。用户可用VisualBasic快速创建Windows程序，现在还可以编写企业水平的客户端/服务器程序及强大的数据库应用程序。　　VB会吸引更多的赞誉和批评，也会继续为广大的用户和程序员使用。它非常适合用来开发拥有友好界面的程序（比如针对终端的数据），但是不适合开发其它程序（比如联合计算程序）。一个典型的VB进程VB的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组建的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮）。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组建的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。VB使得大量的外界控件有了自己的生存空间。大量的第三方控件针对VB提供。VB也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。（二）ACCESS2003介绍ACCESS2003office自带的数据库Access是Office2000里面的一个组件。是用来制作简单的数据库。还有的意思就是访问、还有接入的意思。如Accesslist访问列表Accesspoint接入点在办公软件Office套件中，最为广大用户熟悉的是Word和Excel，因为它们功能强大且方便易用，更因为它们不仅可用于办公，还可用于个人写作和家庭记帐理财等。同为Office套件中一部分的Access，虽然有着同样强大的功能，但使用的人却相对少些，不像Word和Excel那样广泛。事实上，真正用过Access的用户，对其强大功能和灵活应用均称赞有加。Access数据库管理系统是MicrosoftOffice套件的重要组成部分，适用于小型商务活动，用以存贮和管理商务活动所需要的数据。Access不仅是一个数据库，而且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单），查询，报表和应用程序等。　　数据库是有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图象、声音等。MicrosoftAccess是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。图1是一个“产品”表的例子。“产品”表由10个记录组成，一个记录占一行，每一个记录由产品ID、产品名称、库存量、订货量、单价和折扣率6个字段组成。“产品ID”是字段名，其下面的1，2等是字段的值。表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。Access数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。表(Table)表是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。查询(Query)查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。窗体(Form)27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。报表(Report)报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。宏(Macro)宏相当于DOS中的批处理，用来自动执行一系列操作。Access列出了一些常用的操作供用户选择，使用起来十分方便。　　模块(Module)模块的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。模块使用VisualBasic编程。三、需求分析（一）需求背景在设备管理系统中，需要从大量的设备信息中，提取相关信息，以反映设备的当前的情况。传统的手工操作方式，易发生数据丢失，统计错误，劳动强度高，且速度慢。使用计算机可以高速，快捷地完成以上工作。在计算机联网后，数据在网上传递，可以实现数据共享，避免重复劳动，规范设备管理行为，从而提高了管理效率和水平。（二）用户及功能需求1．设备用户的主要功能和权限设备管理：可查看设备的编号、名称、型号、购买日期、购买价格、折旧价格等。设备查询：可查询设备的价格、注销日期等基本信息。用户管理：可以查询和修改用户的基本信息。系统管理：可以进行密码的修改、数据备份、数据整理、数据清理和退出系统。2．设备管理员的主要功能和权限基本信息：可查询设备的基本信息。用户管理：可以新增和删除设备的基本信息。级别管理：可以进行用户级别所有的相关信息。四、系统概要设计（一）设备管理信息系统功能结构图分析设备管理信息系统，其大致的模式主要有：设备管理、用户管理、系统管理等功能模块，其总体功能如图1所示。同时，结合设备管理信息化软件，对设备管理信息系统的应用作进一步的阐述。27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸设备管理系统设备管理用户管理部门管理设备编号用户级别用户名设备类型设备名称部门部门编号类型编号系统管理密码类型名称图1设备管理系统功能结构图根据系统分析的结果，按照结构化的系统设计方法，设备管理系统需要实现的具体功能模块主要可以分为设备管理、用户管理、系统管理等三个模块。设备管理系统的数据流程图如图2所示。27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸图2设备管理系统数据流程图（二）设备管理信息系统数据库设计数据库设计是整个程序设计的最关键部分，数据库的设计是否合理，将对数据库的大小、代码的优化起到至关重要的作用，因此在设计程序前必需对数据库进行设计，而在设计数据库前必需对所要完成的功能进行认真的研究分析，下面介绍我们的数据库设计:在本系统的设计中总共设计了5个表，其中有关于用户信息管理的，还有部门信息的，设备台帐的，设备借入借出的和设备类型的表。其相应情况如下图3至图7：图3　用户表27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸图4　部门表图5　设备借入借出表图6设备类型表图7设备台帐表五、设备管理信息系统的详细设计与实现（一）系统功能概述27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸该系统的主要功能是为设备管理员对设备流动管理而开发，主要是对日常设备情况进行添加、删除、借入借出、设备报废和注销的功能。根据系统的开发目标、原则和项目需求。对数据库、操作系统平台以及服务器等关键部分进行了认真讨论和详尽对比分析，并做出以下选择：Microsoft公司的WindowsXP作为操作系统平台，MicrosoftACCESS2003标准版作为后端数据库服务器软件：以Windows作为前端工作站的主要操作系统；VB6.0作为前台工作站应用程序开发工具。（二）系统架构设计设备管理系统的架构分为窗体，模块和类模块三个部分。在窗体的部分有以下几个窗体，他们的作用分别是：“frmDevice.frm”是设备窗口，可以对设备信息进行添加，删除的操作；“frmGetDate.frm”是设置日期窗体，对日期进行设置；“frmLend.frm”是设备借入借出，管理员可以在此修改设备的借入借出状态；“frmLogin.frm”是用户的登陆窗口，启动系统时就会出现这个窗口；“frmmain.frm”是系统主界面，用户可以选择要执行的任务；“frmUser.frm”是用户管理窗口，对用户进行添加和删除；系统架构说明见图8所示：图8系统架构图（三）系统登陆界面的设计登陆界面在VB6.0中，在新建窗体后，然后加上相应的控件按钮。当输入用户名和密码时，点击“确定”按钮，此时CmdOK事件被激活，它将执行相应的事件。27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸图9登陆界面其后台代码为：DimstrPwdAsStringDimrsPwdAsADODB.RecordsetDimstrLoginAsStringstrLogin=Trim(txtUserName.Text)strPwd=Trim(txtPassword.Text)IfLen(strLogin)=0ThenMsgBox"用户名不能为空,请输入用户名"txtUserName.SetFocusExitSubEndIfIfLen(strPwd)=0ThenMsgBox"密码不能为空,请输入正确的密码"txtPassword.SetFocusExitSubEndIfSetrsPwd=gConn.Execute("SELECTpwdFROMtblUserWHERElogin=""&Replace(strLogin,""","""")&""")IfrsPwd.EOFThenMsgBox"用户名不正确,请重新输入!"ElseIfstrPwd=rsPwd("pwd").valueThen"将代码放在这里传递"成功到calling函数"设置全局变量时最容易的LoginSucceeded=True27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸Me.HideElseMsgBox"无效的密码，请重试!",,"登录"txtPassword.SetFocusSendKeys"{Home}+{End}"EndIfrsPwd.CloseSetrsPwd=NothingEndSub（四）主窗体的设计主窗体界面是显示系统主要操作功能的面板，在系统主窗体中，可以显示设备管理、设备查询、用户管理和系统管理信息，还可以通过点击这四组按钮来查看设备的信息。设备管理信息系统的主界面如图10所示。图10设备管理信息系统的主界面1.系统主窗体的功能成功登录后，进入的系统的主窗体，在主窗体中有四组按钮，第一组是设备管理选择按钮，通过点击相应的按钮可以在主窗体中显示不同设备的表单，这些表单分别是设备27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸信息表，这组按钮和Access数据库中各表相联系。第二组按钮是对设备的查询操作，通过设备名、型号、价格、购置日期和注销日期对设备进行查询。第三组按钮是用户管理，对用户的权限进行设置。第四组按钮是系统管理按钮，分为用户操作和系统管理员操作，用户操作执行密码的修改和退出系统的功能，系统管理员操作执行数据备份、数据整理和数据清理的功能。用户成功进入系统主窗体运行结果见图11所示：图11系统主窗体的运行结果2.系统主窗体的主要代码设计其后台代码为：PrivateSubtabMain_Click(PreviousTabAsInteger)DimstrSQLAsStringSelectCasetabMain.TabCase0strSQL="SELECTa.*,b.department,c.TypeNameFROM(tblDeviceASAINNERJOINtblDepartmentASBONa.DeptNO=b.DeptNO)INNERJOINtblTypeInfoCONa.TypeNO=c.TypeNOORDERBYA.IIDDESC"CallfillDeviceGrid(grdDevice,strSQL)Case3CallfillUserGrid27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸EndSelectEndSubPrivateSubfillDeviceGrid(gridAsMSFlexGrid,OptionalstrSQLAsString)DimrsAsADODB.RecordsetDimstrRowDataAsStringDimrowindexAsIntegerIfLen(strSQL)=0ThenstrSQL="SELECTa.*,b.department,c.TypeNameFROM(tblDeviceASAINNERJOINtblDepartmentASBONa.DeptNO=b.DeptNO)INNERJOINtblTypeInfoCONa.TypeNO=c.TypeNOORDERBYA.IIDDESC"EndIfrowindex=1WithgridIf.Tag=""ThenSetrs=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.Text="所属部门"27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸.Col=7.Text="购买价格".Col=8.Text="折旧成本".Col=9.Text="购买日期".Col=10.Text="状态".Col=11.Text="报废日期".Col=12.Text="注销日期"DoUntilrs.EOFstrRowData=rowindex&vbTabstrRowData=strRowData&rs("IID").value&vbTabstrRowData=strRowData&rs("DeviceNO").value&vbTabstrRowData=strRowData&rs("DeviceName").value&vbTabstrRowData=strRowData&rs("DeviceModel").value&vbTabstrRowData=strRowData&rs("TypeName").value&vbTabstrRowData=strRowData&rs("Department").value&vbTabstrRowData=strRowData&rs("ProductPrice").value&vbTabstrRowData=strRowData&rs("Productcost").value&vbTabstrRowData=strRowData&FormatDateTime(rs("PurchaseDate").value,vbLongDate)&vbTabIfrs("Status").value=0ThenstrRowData=strRowData&"在库"&vbTabElsestrRowData=strRowData&"借出"&vbTabEndIfstrRowData=strRowData&rs("RejectDate").value&vbTabstrRowData=strRowData&rs("DisCardDate").value&vbTab.AddItemstrRowDatars.MoveNextrowindex=rowindex+1Loop27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸rs.CloseSetrs=Nothing.Tag=1EndIfEndWithEndSub3.系统管理窗体的功能把系统管理表作为主窗体的默认表，所示主窗体的运行结果也是设备管理表的运行结果。在系统管理表中可以对密码进行修改，对数据进行整理。（1）用户操作是对用户的密码进行修改。系统管理密码修改窗体运行结果见图12所示：图12系统密码修改其后台代码为：DimoldPassAsStringDimnewPass1AsStringDimnewPass2AsStringoldPass=InputBox("请输入旧密码:","密码修改")IfLen(oldPass)>0Then27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸IfoldPass<>gUser.PasswordThenMsgBox"输入密码不正确!"ExitSubEndIfnewPass1=InputBox("请输入新密码:","密码修改")IfLen(newPass1)=0ThenMsgBox"密码修改不成功!"ExitSubElsenewPass2=InputBox("请再次输入新密码确认:","密码修改")IfLen(newPass2)=0ThenMsgBox"密码修改不成功!"ExitSubElseIfnewPass1=newPass2ThenIfgUser.resetPassword(newPass1)=FalseThenMsgBox"数据操作错误,密码修改不成功!"ElseMsgBox"密码成功修改!请保存好你的密码!"EndIfExitSubElseMsgBox"两次输入的新密码不一样,修改失败!"ExitSubEndIfEndIfElseMsgBox"密码修改不成功!"ExitSubEndIf（2）系统管理员操作是对数据执行备份、整理和清理操作。界面如图13至图15所示：27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸图13数据备份图14数据整理图15数据清理4.设备管理窗体的功能对设备的信息进行添加、删除、借入借出、设备报废和设备注销。设备管理的窗体的界面如下图16所示：图16设备管理界面27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸其后台代码为：DimstrSQLAsStringSelectCasetabMain.TabCase0strSQL="SELECTa.*,b.department,c.TypeNameFROM(tblDeviceASAINNERJOINtblDepartmentASBONa.DeptNO=b.DeptNO)INNERJOINtblTypeInfoCONa.TypeNO=c.TypeNOORDERBYA.IIDDESC"CallfillDeviceGrid(grdDevice,strSQL)Case3CallfillUserGridEndSelect（1）添加设备信息的界面如图17：图17添加设备界面（2）删除设备信息的界面如图18：图18删除设备界面删除设备其后台代码为：DimiidAsStringWithgrdDeviceIf.Row=0ThenMsgBox"请选择要删除的设备!"27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸ElseIfMsgBox("你是否真的要删除当前选择的设备吗?删除后将不能恢复!",vbOKCancel)=vbOKThen.Col=1iid=.TextDimdeviceAsNewclassDevicedevice.deleteDataiidgrdDevice.Tag=""CallfillDeviceGrid(grdDevice)EndIfEndIfEndWith（3）借入借出设备信息的界面如图19：图19借出借入界面借入借出设备其后台代码为：PrivateSubcmdLend_Click()DimiidAsStringWithgrdDeviceIf.Row=0ThenMsgBox"请选择要操作的设备!"Else.Col=1iid=.Text27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸DimfrmAsNewfrmLendDimresultAsBooleanresult=frm.loadLendData(iid)Ifresult=FalseThenUnloadfrmExitSubEndIffrm.ShowvbModalIffrm.isUpdate=TrueThengrdDevice.Tag=""fillDeviceGridgrdDeviceEndIfUnloadfrmSetfrm=NothingEndIfEndWithEndSub5.设备查询窗体的功能设备查询窗体的界面如图20：图20设备查询界面27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸（1）开始查询其后台代码为：DimDeptNoAsStringDimDeviceNameAsStringDimDeviceModelAsStringDimTypeNoAsStringDimPricefromAsStringDimPricetoAsStringDimPurchaseDatefromAsStringDimPurchaseDatetoAsStringDimRejectDatefromAsStringDimRejectDatetoAsStringDimstrSQLAsStringDeviceName=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(txtDate(2).Text)RejectDateto=Trim(txtDate(3).Text)IfLen(Pricefrom)>0ThenIfNotIsNumeric(Pricefrom)ThenMsgBox"购买价格输入不正确，请重新输入。"txtQP1.SetFocusExitSubElseIfLen(strSQL)>0ThenstrSQL=strSQL&"ANDProductPrice>="&PricefromElsestrSQL="ProductPrice>="&PricefromEndIfEndIfEndIf（2）按钮cmdAll的代码如下：27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸grdQuery.Tag=""fillDeviceGridgrdQuery6.用户管理窗体的功能用户管理窗体的界面如图21所示：图21用户管理界面（1）新增用户的界面如图22：图22新增用户界面（2）删除用户界面如图23：27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸图23删除用户界面删除用户其后台代码为：DimuidAsStringWithgrdUserIf.Row=0ThenMsgBox"请选择要删除的用户!"ElseIfMsgBox("你是否真的要删除当前选择的用户吗?删除后将不能恢复!",vbOKCancel)=vbOKThen.Col=1uid=.TextDimuserAsNewClassUseruser.deleteDatauidgrdUser.Tag=""CallfillUserGridEndIfEndIfEndWith27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸结语本系统是一个面向小型企业，具有一定实用性的数据库信息管理系统。它主要完成对企业设备的一系列管理，包括设备的借出、借入、归还以及设备维护和报废信息管理。本系统采用当前流行的面向对象的开发工具Vb来完成整个系统的设计，在数据库的设计上利用了Access的实用性。本系统具有相当的实用功能。在查询方面，系统实现了查询功能，系统可以自动识别用户不同的输入。在设备借出、借入和归还三者之间建立了良好的链接关系，某一部分地修改均会自动引发系统对与其相关的部分进行连锁修改。在用户管理方面，系统较好地实现了用户添加和密码修改等各项功能。系统在设计过程中不可避免地遇到了各种各样的问题，由于本人的水平有限，有关VB许多细节问题都要靠时间积累慢慢去摸索，并没有完全地理解VB的强大功能，所以存在许多美中不足之处请谅解。该系统离实际使用也还有相当的距离，需要我进行不断地补充和完善。通过本次毕业设计我学到了不少新的东西，也发现了大量的问题，有些在设计过程中已经解决，有些还有待今后慢慢学习。只要学习就会有更多的问题，有更多的难点，但也会有更多的收获。27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸主要参考文献[1]成先海．数据库基础与应用——SQLServer2000．机械工业出版社．2006.1．[2]段爱玲，张德贤．管理信息系统．机械工业出版社．2005.8．[3]郭宁，杨一平．软件工程实用教程．人民邮电出版社．2006.3．[4]黄志超，李婷婷．VisualBasic.NET项目开发实践．中国铁道出版．2003.10．[5]李代平，章文，张信一．中文SQLServer2000数据库应用开发．冶金工业出版社．2002．[6]启明工作室．ＶisualBasic+Access数据库应用系统开发与实例．人民邮电出版社．2004．[7]求是科技．VisualBasic6.0程序设计与开发技术大全．人民邮电出版社．2004.9．[8]萨师煊，王珊.数据库系统概论（第三版）．高等教育出版社．2000.2.[9]吴瑞林，张义．VisualBasic.6.0实用教程．科学出版社．2003.12．[10]姚普选．数据库原理及运用（Access2000）．清华大学出版社．2003.9．[11]张龙志．VisualBasic6.0实用数据库编程．中国科学技术大学出版社．1999.7．[12]周四清，曹岳辉，李利明．软件技术基础教程．清华大学出版社．2005.9．[13]C.J.Date.数据库系统导论（第七版）.机械工业出版社.2005.8.[14]HansVanVllet．SoftwareEngineering—PrinciplesandPractice.SecondEdition．NewYork:JohnWiley&Sons,2000．[15]RonPatton．软件测试．机械工业出版社．2003.7．27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸27-- 武汉工业学院工商学院毕业论文（设计）专用稿纸后记经过半年的忙碌和工作，本次毕业设计已经接近尾声，作为一个本科生的毕业设计，由于经验的匮乏，难免有许多考虑不周全的地方，如果没有导师的督促指导，以及一起工作的同学们的支持，想要完成这个设计是在这里首先要感谢我的导师张樊老师。张樊老师平日里工作繁多，但在我做毕业设计的每个阶段，从外出实习到查阅资料，设计草案的确定和修改，中期检查，后期详细设计，装配草图等整个过程中都给予了我悉心的指导。除了张老师的专业水平外，他的治学严谨和科学研究的精神也是我永远学习的榜样，并将积极影响我今后的学习和工作。其次要感谢大学四年来所有的老师，为我们打下计算机专业知识的基础；同时还要感谢所有的同学们，正是因为有了你们的支持和鼓励,此次毕业设计才会顺利完成。最后感谢武汉工业学院工商学院这四年来对我的大力栽培，谢谢大家！27--