毕业论文-计算机等现代化设备管理系统.doc

毕业设计(论文)题 目：计算机等设备管理 学生姓名： XXX 学 号： 200805280110 班 级： XXXXX 指导教师： XX 完成日期： 2010.10.15 信息处理与控制工程系毕业设计任务书设计（论文）题 目计算机等设备管理选题时间2010.09.10完成时间2010.10.15论文（设计）字数21025关键词设备管理，程序设计，数据库设计（论文）题目的来源、理论和实际意义：随着经济的快速发展，需要更新哪些设备，需要淘汰哪些设备，公司对内部现代化等设备使用情况需要有详细的了解，提出了一定要求，随着计算机等设备不断更新、日益增多,为了方便公司管理层更快、更详细地了解这些设备的使用情况，所以要求我们计算机室对这些现代化设备进行有效的管理。而通过计算机来控制日常工作已经成为一种十分方便的方式。这种方式不但简单、高效,而且还为管理人员办公提供了极大的方便。目前，数据处理正在广泛的应用于办公自动化、企业管理、事务管理等，数据处理已经成为计算机应用的一个重要方面。作为计算机应用的一部分,使用计算机对信息进行管理，有着手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高管理的效率，也是企业科学化、正规化管理不可缺少的条件。设计（论文）的主要内容：本次课题的任务是设计一个计算机等现代化设备管理系统，主要实现计算机等现代化设备的查询、修改、删除和打印等功能。该系统是在实际调研的基础上，针对一般设备的实际情况来进行系统开发，因此它具有较强的实用性。该系统是典型的信息管理系统。它的出现将人们从繁琐复杂的手工管理工作中解放出来，是公司现代化设备管理员管理工作的有效工具。学生签字： XXX 指导教师签字： 系负责人签字： 2010年10月15日成绩评定及评语指导教师评语：成绩：指导教师签字: 年 月 日答辩答辩意见：答辩组签名： 年 月 日 摘 要随着公司规模的日益扩大，计算机、打印机、绘图仪、复印机等设备的不断增加，我们公司现有各种现代化设备近千台，有关现代化设施的各种信息也不断增长，这些现代化管理工作日益繁重起来。面对庞大的信息量，就需要相应的管理业务系统来提高这些管理设备工作的效率，为领导提供有效的设备使用信息，更好地为企业发展服务。而“计算机等现代化设备管理系统”正是这样的系统。本文主要介绍了“计算机等现代化设备管理系统”的分析、设计和实现过程。本系统主要包括对计算机等设备信息录入、查询、修改、删除等操作，按各种设备的配置、规格型号、数量、价格、存放地点等进行管理。该系统的开发主要包括后台数据库的建立及维护和前台应用程序的设计。该系统的运行环境在Windows XP下，开发采用Microsoft公司的VB6.0作为前端开发平台，用Microsoft公司的SQL Server2000数据库作为后台数据库。该系统具有良好的稳定性、可靠性、良好的用户界面和简单快捷的操作方式，可以满足实用系统的要求。关键词：设备管理，程序设计，数据库目 录摘 要1第一章 前言11.1题目背景11.2 项目内容21.3 项目的特点及意义2第二章 需求分析32.1 方案论证32.2 总体设计思想32.2.1 计算机等设备信息管理42.2.2 数据项和数据结构42.3 开发环境及开发工具简介42.4 系统的运行环境42.5 经济技术基础分析5第三章 数据库的设计63.1数据项条目63.2数据库的逻辑结构设计73.2.1 用户表的定义73.2.2 设备信息表83.3 数据采集8第四章 详细设计94.1 创建功用模块94.1.1 添加模块代码94.1.2 查询模块代码104.1.3打印模块代码104.2 详细子模块设计114.2.1登陆程序设计114.2.2主程序界面设计11第5章系统测试与结论13结束语14谢 辞15参考文献16附:各模块详细源代码17第一章 前言1.1题目背景早期的计算机主要用于科学计算，20世纪50年代后期到60年代，计算机的硬件和软件得到飞速发展，计算机不再只用于科学计算这种单一任务，而且还可以做一些非数值数据的处理。此外，这时也有了大容量的磁盘等存储设备，并且已经有了专门的数据库管理软件。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。计算机的应用已渗透到社会的各个行业，正在改变着传统的工作方式，推动着社会的发展。自从管理信息系统这一新兴的管理方法引入我国，在我国企业管理中已有20多年时间。而且，管理信息系统已经广泛应用于各行各业。虽然，我国的计算机管理信息系统建设在20世纪80年代就已经开始起步，但发展极不平衡，也就是说大部分企业目前仍处于低水平开发和应用阶段。随着经济体制的改革和市场经济的发展，企业的运行机制有了很大变化。企业的生产更多地依赖于市场的竞争，信息从而成为企业的重要资源，信息系统的建设已成为企业走向现代化的重要标志，信息系统对于企业的运作以及在市场中的竞争具有重要作用。在当前形势下，信息化是企业发展的必由之路。本次课题的任务是设计一个计算机等现代化设备管理系统，主要实现计算机等现代化设备的查询、修改、删除和打印等功能。随着经济的快速发展，需要更新哪些设备，需要淘汰哪些设备，公司对内部现代化等设备使用情况需要有详细的了解，提出了一定要求，随着计算机等设备不断更新、日益增多,为了方便公司管理层更快、更详细地了解这些设备的使用情况，所以要求我们计算机室对这些现代化设备进行有效的管理。而通过计算机来控制日常工作已经成为一种十分方便的方式。这种方式不但简单、高效,而且还为管理人员办公提供了极大的方便。目前，数据处理正在广泛的应用于办公自动化、企业管理、事务管理等，数据处理已经成为计算机应用的一个重要方面。作为计算机应用的一部分,使用计算机对信息进行管理，有着手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高管理的效率，也是企业科学化、正规化管理不可缺少的条件。1.2 项目内容本系统主要包括三大功能。即设备信息管理、设备查询管理和设备打印管理。在这三大功能中主要实现设备查询和设备信息的添加、修改、删除。录入记录是实现了大批量数据用文件直接输入，它还包括各种数据以及查询结果的报表。由于时常都有不同设备的录入、删除、修改等工作，该项目还做了备份功能以免数据丢失。查询功能可以按照设备的不同型号规格、配置、使用部门等进行查找。1.3 项目的特点及意义该系统是在实际调研的基础上，针对一般设备的实际情况来进行系统开发，因此它具有较强的实用性。该系统是典型的信息管理系统。它的特点如下：先进的管理思想现代化设备信息数据集中管理，最大程度上实现高效管理。先进的技术促进现代化设备管理工作的科学化、信息化、高效化。模块化的软件结构各模块都可以单独运行。提供良好的人机交互界面，操作简单快捷。该系统实现了对现代化设备信息的管理和维护，处理信息量大、方便快捷、查找方便、可靠性高。它的出现将人们从繁琐复杂的手工管理工作中解放出来，是公司现代化设备管理员管理工作的有效工具。兰州石化职业技术学院毕业论文第二章 需求分析2.1 方案论证随着计算机的普及，科技的飞速发展，人们对信息管理工作的要求越来越高，该系统作为实际应用中的管理信息系统，有着十分广泛的应用。它能够提供支持企业或组织的运行、管理和决策功能。该系统针对公司计算机等现代化设备管理的实际情况，在对现代化设备管理工作调研的基础上进行系统设计和开发。它的系统功能要求如下：添加记录功能对计算机等设备的名称、配置、购置日期、数量、价格、存放地点等信息进行记录的添加。修改记录功能对计算机等设备的名称、配置、购置日期、数量、价格、存放地点等信息进行记录的修改。删除记录功能对计算机等设备的名称、配置、购置日期、数量、价格、存放地点等信息进行记录的删除。查询功能对计算机等设备按照不同要求进行查询。保存功能将新录入的对计算机等设备信息存入到数据库。界面要求界面友好，操作简单，方便用户使用。数据库要求数据库设计合理，符合设备管理信息的实际情况。2.2 总体设计思想本系统软件相当于一个设备查询管理工具，此系统软件是利用向数据库上传计算机等设备信息，便于用户查看，并对各个设备使用情况进行管理等功能。针对这一特点，我进行了详细的调研，并参考了相关文献，对此做了合理的需求分析，并在此基础上制定了合理的方案。2.2.1 计算机等设备信息管理管理员具有对计算机等设备信息的数据库管理的权力，包括添加、修改和删除设备信息等。用户还可以查询设备信息。这里我采用了两种方式：一种是输入部分信息的模糊查询；另一种是输入全部信息的精确查询。提供了各设备基本情况修改功能，具有对每台设备进行修改的权力，这样便于管理员对每台设备性能使用情况的了解。针对计算机等现代化设备管理系统的需求，通过对各个设备管理流程的内容和数据流程分析2.2.2 数据项和数据结构1.添加计算机等设备信息，包括的数据项有：名称、规格型号、配置、供应商、购置日期、数量、单价、存放地点等信息。2.查询各设备的信息，包括的数据项有：按名称、购置日期、存放地点，而且还可以通过只输入某一项进行模糊查询。3.若需要还可将某些信息输出到纸面打印等等。以上是关于该程序的设计思路，有些详细的部分会在以后阐述2.3 开发环境及开发工具简介为了实现这个题目，我选择了微软公司的Windows XP版操作系统，是为服务器平台专门设计的，它包含有很好的性能。页面编辑环境我选择了VB6.0作为辅助页面的设计和Microsoft SQL Server2000数据库系统。这几种软件可以紧密的结合成一个整体，可以成为开发管理应用程序的最佳选择。2.4 系统的运行环境基本的计算机和操作系统的配置如下：586以上的CPU不小于128M内存最低15G的硬盘空间CD-Rom驱动器VGA显示器Windows XP professional或更高版本2.5 经济技术基础分析随着计算机等现代化设备数量的不断扩大，现代化设备管理工作也越来越繁重，面对着如此大的工作量，单单依靠管理人员手工管理显然有些繁琐，这就需要一个计算机等设备管理系统来提高管理工作的效率。管理是一个控制过程，它以较低的成本得到及时准确的信息，做到较好的控制。它将手工作业自动化，提高效率，节省人力。采用本软件，可以大大减少工作人员的工作量，缩短工作时间，增加企业的经济效益。第 11 页 共 37 页第三章数据库的设计第三章 数据库的设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。数据库技术是计算机科学中的一门综合技术，涉及到数据结构、算法、操作系统、程序设计语言、数理逻辑等学科。数据库技术是信息社会的重要基础技术之一，是计算机科学领域中发展最为迅速的分支。任何管理系统都离不开数据库系统的支持，而且数据库独立于程序而存在，具有较好的安全性。本系统的数据库采用的是Microsoft SQLServer2000。Microsoft SQL Server2000是一个后台数据库管理系统。SQL Server2000的核心是用来处理数据库命令的SQL Server引擎，它在Windows操作系统下运行，只对数据库连接和SQL命令进行处理。企业管理器、查询分析器，每一种可以访问的SQL Server图形用户界面都会与SQL Server建立连接，并要求SQL Server处理它们所发送的SQL语句。它不仅仅拥有非常强大而稳定的引擎，它还提供了一系列用于管理数据库服务器的工具，以及用于转换和移动数据，实现数据仓库和数据分析的附加软件。此外，在客户端和服务器端它都提供了用于管理数据库连接的服务。SQL Server是一个非常完善的数据库系统，它的易用性、可管理性方面功能非常突出，比其他客户/服务器数据库系统使用起来更为简单、方便。SQL Server2000数据库系统具有可靠的安全性与可伸缩性，以及开发的灵活性。它的安装使用相对于Access来说要复杂得多，是目前中小型数据库中使用最为广泛的数据库。综上所述，我选用了Microsoft SQL Server2000数据库。3.1数据项条目用户基本信息：是添加新设备的最基本信息。包括的数据项有：用户名，密码等。设备详细信息：包括会员的编号，名称，规格型号，生产厂家，购置日期，配置，数量，金额、存放地点等。3.2数据库的逻辑结构设计数据库设计并不是简单地生成几个数据库文件的事情，无论从理论上还是从实践上讲，都是一个非常复杂的过程。在充分考虑用户需求的基础上，按照规范化设计理论，对此计算机等现代化设备管理系统进行了细致的分析和优化。本次设计我遵循了以下几个特点：程序设计的便利性系统性能的完备性数据分布的合理性全局数据的一致性数据关联的完整性在此基础上建立了如下结构的数据库。3.2.1 用户表的定义表3-1：用户表字段名称中文名称数据类型长度非空主键UserName用户名文本20YYUserPwd密码文本40Y注：本表的主要作用是用于装载本系统所有用户的基本信息，以便系统注册和权限检查时能获得正确的信息。表3-2：信息表字段名称数据类型长度非空主键索引序号文本50YY无重复名称文本50Y有重复规格型号文本50生产厂家文本50有重复购置日期日期/时间30计量单位文本30配置文本50有重复数量长整型50单价数字10金额数字30存放地点文本30有重复3.2.2 设备信息表注：这张表中存储了各个现代化设备的基本信息，用于系统用户对计算机等现代化设备信息的各种操作。通过这张表我们可以了解各个设备的基本情况，如设备的配置、供应商、购置价格、哪个部门使用等内容，可以供管理员查询，修改，添加，删除。3.3 数据采集主要是从手工录入的多个Excel表中内容导入数据库。第四章 详细设计第四章 详细设计4.1 创建功用模块由于该系统中各个功能模块都频繁的使用数据库中的各种数据，因此需要一个公共的数据操作函数，用以执行各种数据库语句，将这个公用函数放在公用模块中，这样整个工程项目中的任何地方都可以调用公用模块中的函数、变量，这样可以大大提高代码的效率。4.1.1 添加模块代码（详细代码附后）。图4-1：添加模块代码4.1.2 查询模块代码（详细代码附后）。图4-2：查询模块代码4.1.3打印模块代码（详细代码附后）。图4-3：打印模块代码4.2 详细子模块设计4.2.1登陆程序设计图4-4：登陆界面登陆框设计时，主要是检查用户名与密码是否匹配。首先定义数据连接Dim conn As ADODB.Connection，Dim urs As ADODB.Recordset。如果txtUser = Then系统提示MsgBox 请输入用户名, vbInformation, 提示.，将光标跳到用户名上txtUser.SetFocus，然后Trim(txtPwd.Text) = 输入密码，同样给出提示MsgBox 请输入密码, vbInformation, 提示.。如果MyUser.In_DB(NameKey) = Ture，继续判断是否MyUser.UserPwd = PasswordKey，都符合则进入主窗体Load FrmMain。 否则Else/如果输入的密码不正确，则重新输入，循环判断3次。4.2.2主程序界面设计图4-5：主程序界面主窗体在登陆后出现，主要采用VB自带控件设计而成，利用菜单编辑器添加主要按钮，从而操作进入各个子窗体界面。程序中利用TOOLBAR和ListView设计按键，使程序变得更为方便快捷，所需操作一目了然。向ListView中填入图标，首先定义标题栏及列表项目Dim clmX As ColumnHeaderDim itmX As ListItem然后设置ListView1的显示标题和图标Set itmX = ListView1.ListItems.Add(, , 系统管理)itmX.Icon = 1利用Select语句进行调出窗体操作，首先清空ListView2.ListItems.Clear，然后写Select Case Item.Text进行控制，调出事件Case 系统管理，设置相对的按钮操作Set itmX = ListView2.ListItems.Add)等。第5章系统测试与结论表5-1：测试表项目名称控制方法输入预期结果实际结果比对结论操作员登陆自动用户名/密码进入系统进入系统测试成功基本信息录入在主界面选择添加按钮进入确认窗口确认后录入 基础数据，可随意添加、删除，确认后保存进入确认窗口确认后录入 基础数据，可随意添加、删除，确认后保存完全可以达到测试成功查询信息在主界面点击查询按钮进入查询界面，按各个输入条件进行查询，可查询到按每个条件达到的查询结果进入确认窗口，随意选取查询条件，确认后都可以查到要查的记录测试成功打印模块在主界面点击点打印模块当前窗口下边表格列出相关需打印信息，点确认后，输出到打印机 进入确认窗口后，每项都可选取，按打印键后开始打印测试成功用户登录界面运行程序自动进入用户名，密码确认密码提示操作完成登录系统主界面提示操作完成登录系统主界面测试成功测试结论：上表中测试基本包括了本程序所有的基本操作和管理操作，测试比较完整，所有程序运行结果都符合设计要求，程序符合实际工作运行需要。结束语首先是工作成果方面，软件设计的全部功能均已经实现。但代码效率有待提高。其次工作效率方面，由于采用了Visual Basic6.0作为软件开发工具，所以开发效率比较高，再由于采用了高效率的开发模型从而进一步提高了工作效率。在这个工作中选择项目，需求分析，快速设计，建立原形，用户评价原形，修改原形，产生产品等这些过程中遇到过不少的困难。但最终都被一一克服，这个过程就是一个发现问题、分析问题、解决问题、吸取经验的一个过程。它贯穿于整个论文设计中。当然，由于我自身程序设计水平有限，整个系统还不够完善，存在一些问题。例如：界面不够美观，系统运行不够安全，数据有一定的冗余。可能会出现一些不可预知的错误等等，这些都需要进一步完善。 在这次程序设计过程中，除上面提到的，还有以下几点的体会：1.从整个设计过程中，通过对问题的分析、查资料，然后对系统的分析、设计以及对软件的开发环境的熟悉，以至到编码、测试、调试、到最终的完成，我清楚了软件设计的整个过程，对于这些不再陌生，培养了自己严谨的逻辑思维。2.因为该程序设计是具有针对性，用来解决实际问题，所以在这一过程中，不仅仅是学到了专业知识，而且了解了很多管理方面的知识。提高了自身解决问题的能力。3.在这一过程中，也增强了自身的动手能力，对于电脑的操作比以前熟练了很多。4.在调试的过程中曾遇到很多问题，经过这一阶段，我学会了许多解决问题的方法。另外，我深刻地认识到：无论做什么，只要认真去做，一步一步踏踏实实的去做，一定会做得很好。谢 辞当我以学子的身份踏入大学校门的那天起，便已注定我将在这里度过人生中最美丽的青春年华。提笔写下“谢辞”，我才惊觉自己即将真正离开，人生亦从此展开新的画卷。尽管不舍，却更珍惜，因为我的生命中有那么多可爱的人值得感激。他们使我的大学生活充满了色彩，无论收获、遗憾，对我来说都是一笔宝贵的财富。三年的大学生活不知不觉中就要结束了，在这段难忘的生活中，有我许多美好的回忆。在这份大学的最后一页里，首先感谢党、感谢学院给我们提供这个能自我展示的平台，感谢我们的指导教师文晖老师，您从一开始的论文方向的选定，到最后的整篇文论的完成，都非常耐心的对我进行指导。给我提供了大量数据资料和建议，告诉我应该注意的细节问题，细心的给我指出错误，修改论文。谢谢我们班主任老师，从大一到大二是你的悉心教导、孜孜不倦我们才能顺利的完成学业。我要感谢在我二年的学习中无私传授我知识的各位老师，是你们将自己宝贵的财富无私地奉献给了我们，让我们能在学业上有所成绩；是你们让我倍感教师职业的伟大，交给我们知识，又不忘教育我们如何做人！在此，我还要感谢寝室的兄弟们在我完成论文的过程中给予我的帮助和鼓励，也是他们陪我度过这三年的生活。参考文献1.沈炜，杨世锡.Visual Basic编程从基础到实践.电子工业出版社,20062.杨文龙.软件工程.电子工业出版社,2006年12月3.李建中，王珊.数据库系统原理.电子工业出版社,20064.刘韬，骆娟.Visual Basic数据库通用模块及典型系统开发.人民邮电出版社,2005.刘韬，骆娟，何旭洪.Visual Basic 6.0数据库系统开发实例导航.人民邮电出版社,200819兰州石化职业技术学院毕业论文附:各模块详细源代码基础信息模块Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub display()Text1.Text = convertnull(Adodc1.Recordset.Fields(名称).value)Text2.Text = convertnull(Adodc1.Recordset.Fields(规格型号).value)Text3.Text = convertnull(Adodc1.Recordset.Fields(生产厂家).value)Text4.Text = convertnull(Adodc1.Recordset.Fields(购置日期).value)Text5.Text = convertnull(Adodc1.Recordset.Fields(配置).value)Text6.Text = convertnull(Adodc1.Recordset.Fields(数量).value)Text7.Text = convertnull(Adodc1.Recordset.Fields(单价).value)Text8.Text = convertnull(Adodc1.Recordset.Fields(金额).value)Text9.Text = convertnull(Adodc1.Recordset.Fields(存放地点).value)End SubPrivate Function convertnull(value As Variant) As VariantIf IsNull(value) = True Thenconvertnull = Elseconvertnull = valueEnd IfEnd FunctionPrivate Sub AddCmd_Click()On Error Resume NextAdodc1.Recordset.MoveLastAdodc1.Recordset.AddNewText10.SetFocusEnd SubPrivate Sub cancelcmd_Click()Adodc1.Recordset.CancelUpdateAddCmd.Enabled = Falsedelcmd.Enabled = Falsecancelcmd.Enabled = TrueupdateCmd.Enabled = TrueCall displayEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub findcmd_Click()Form2.ShowEnd SubPrivate Sub fircmd_Click()Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF = False ThenAdodc1.Recordset.MovePreviousEnd IfCall displayEnd SubPrivate Sub Command6_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF = False ThenAdodc1.Recordset.MoveNextEnd IfCall displayEnd SubPrivate Sub delcmd_Click()Dim res As Integerres = MsgBox(确实要删除此记录吗?)Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF = True ThenAdodc1.Recordset.MoveLastEnd IfCall displayEnd SubPrivate Sub endcmd_Click()Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command7_Click()DataGrid2.AllowDelete = TrueDataGrid2.AllowUpdate = TrueEnd SubPrivate Sub Command8_Click()如果cancelerror 为 true,则转向错误处理On Error GoTo errhandler设置过滤器CommonDialog1.Filter = all files(*.*)|*.*|text_files(*.txt)|*.txt|batch files(*.bat)|*.bat指定缺省过滤器CommonDialog1.FilterIndex = 1决定打开文件的方式If Check1.value = False ThenCommonDialog1.Flags = 0 以只读方式打开ElseCommonDialog1.Flags = 1End If显示打开对话框CommonDialog1.ShowOpen在这里填写调用打开文件的过程openfile (commondialog1.filename)退出该过程Exit Sub错误处理语句errhandler:用户按取消按钮Exit SubEnd SubPrivate Sub savecmd_Click()On Error Resume NextAdodc1.Recordset.UpdateAdodc1.Recordset.UpdateBatchEnd SubPrivate Sub updateCmd_Click()Adodc1.Fields(序号) = Trim(Text1.Text)Adodc1.Fields(名称) = Trim(Text2.Text)Adodc1.Fields(规格型号) = Trim(Text3.Text)Adodc1.Fields(生产厂家) = Trim(Text4.Text)Adodc1.Fields(购买日期) = Trim(Text5.Text)Adodc1.Fields(计量单位) = Trim(Text6.Text)Adodc1.Fields(配置) = Trim(Text7.Text)Adodc1.Fields(数量) = Trim(Text8.Text)Adodc1.Fields(单价) = Trim(Text9.Text)Adodc1.Fields(金额) = Trim(Text10.Text)Adodc1.Fields(存放地点) = Trim(Text11.Text)Adodc1.Fields(备注) = Trim(Text12.Text)Adodc1.Recordset.UpdateAddCmd.Enabled = Falsedelcmd.Enabled = Falsecancelcmd.Enabled = TrueupdateCmd.Enabled = TrueEnd Sub查询模块Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()Dim j As StringDim k As Stringj = Combo1.TextAdodc2.CommandType = 1Adodc2.RecordSource = select * From jsj2 WHERE (购置日期= & j & )Adodc2.Refreshk = Combo3.TextAdodc2.CommandType = 1Adodc2.RecordSource = select * From jsj2 WHERE (存放地点= & j & )Adodc2.RefreshEnd SubPrivate Sub Command3_Click()Dim s As StringSelect Case sCase s = Combo2.TextAdodc2.CommandType = 1Adodc2.RecordSource = select * From jsj2 WHERE (名称 = & s & )Adodc2.RefreshCase s = Combo1.TextAdodc2.CommandType = 1Adodc2.RecordSource = select * From jsj2 WHERE (购置日期 = & s & )Adodc2.RefreshCase s = Combo3.TextAdodc2.CommandType = 1Adodc2.RecordSource = select * From jsj2 WHERE (存放地点 = & s & )Adodc2.RefreshendcaseEnd SubPrivate Sub Command4_Click()Form3.ShowEnd SubPrivate Sub Form_Load()Dim j As IntegerDim i As IntegerDim k As IntegerFor i = 1 To 11Select Case iCase 1Combo2.AddItem (计算机)Case 2Combo2.AddItem (打印机)Case 3Combo2.AddItem (服务器)Case 4Combo2.AddItem (绘图仪)Case 5Combo2.AddItem (HUB)Case 6Combo2.AddItem (主机)Case 7Combo2.AddItem (终端)Case 8Combo2.AddItem (工作站)Case 9Combo2.AddItem (UPS)Case 10Combo2.AddItem (收发器)Case 11Combo2.AddItem (传真机)End SelectNext iFor j = 1998 To 2008Combo1.AddItem Str(j)Next jFor k = 1 To 11Select Case kCase 1Combo3.AddItem (信息化五楼)Case 2Combo3.AddItem (信息化六楼)Case 3Combo3.AddItem (设计处)Case 4Combo3.AddItem (工艺处)Case 5Combo3.AddItem (档案处)Case 6Combo3.AddItem (销售处)Case 7Combo3.AddItem (财务处)Case 8Combo3.AddItem (大中型)Case 9Combo3.AddItem (生产处)Case 10Combo3.AddItem (供应处)Case 11Combo3.AddItem (大型)End SelectNext kEnd Sub3.打印模块Private Sub Check1_Click()If Text1.Text = ThenText1.Text = mc as 名称ElseText1.Text = Text1.Text & , & mc as 名称End IfEnd SubPrivate Sub Check10_Click()If Text1.Text = ThenText1.Text = mcgg as规格型号ElseText1.Text = Text1.Text & , & “mcgg as规格型号End IfEnd SubPrivate Sub Check11_Click()If Text1.Text = ThenText1.Text = sccj as生产厂家ElseText1.Text = Text1.Text & , & sccj as 生产厂家End IfEnd SubPrivate Sub Check12_Click()If Text1.Text = ThenText1.Text = gzrq as 购置日期 ElseText1.Text = Text1.Text & , & gzrq as 购置日期 End IfEnd SubPrivate Sub Check13_Click()If Text1.Text = ThenText1.Text = pz as 配置ElseText1.Text = Text1.Text & , & pz as 配置End IfEnd SubPrivate Sub Check14_Click()If Text1.Text = ThenText1.Text = sl as 数量ElseText1.Text = Text1.Text & , & sl as 数量End IfEnd SubPrivate Sub Check15_Click()If Text1.Text = ThenText1.Text = dj as 单价ElseText1.Text = Text1.Text & , & dj as 单价End IfEnd SubPrivate Sub Check16_Click()If Text1.Text = ThenText1.Text = je as 金额ElseText1.Text = Text1.Text & , & je as 金额End IfEnd SubPrivate Sub Check17_Click()If Text1.Text = ThenText1.Text = cfdd as 存放地点ElseText1.Text = Text1.Text & , & cfdd as 存放地点End IfEnd SubAdodc1.ConnectionString = constrAdodc1.CommandType = adCmdTextAdodc1.RecordSource = sqlstrSet DataGrid1.DataSource = Adodc1Adodc1.RefreshDataGrid1.ReBindEnd IfEnd IfEnd SubPrivate Sub Command2_Click()定义Excel对象Dim objExcel As Excel.Application 定义Excel对象Dim objWorkBook As Excel.Workbook 定义工作薄Dim objSheet As Excel.Worksheet 定义工作表Dim objRange As Excel.Range 定义用户使用工作表的范围Dim i As Integer, j As IntegerDim iCol As Integer, iRow As IntegerDim iChr As Integer 用来取得工作表中最后一个列的字符名，比如第H列Dim strChr As StringOn Error GoTo errIf Not (Adodc1.Recordset.EOF And Adodc1.Recordset.BOF) ThenAdodc1.Recordset.MoveLastAdodc1.Recordset.MoveFirst用来设置Excel的行数和列数iRow = Adodc1.Recordset.RecordCount + 1iCol = Adodc1.Recordset.Fields.CountEnd IfSet objExcel = New Excel.Application添加新的工作薄，和新的工作表Set objWorkBook = objExcel.Workbooks.AddSet objSheet = objWorkBook.Worksheets.Add取得最末列的字母iChr = Asc(A) + iCol - 1strChr = Chr(iChr) & 2For j = 1 To iColWith Adodc1.Recordset.Fields(j - 1)If .Type = adChar Then如果是字符型的字段，比较字段名的长度与字段定义长度哪个长，取长的设置为列宽度If LenB(StrConv(.Name, vbFromUnicode) .DefinedSize Then然后将