管理信息系统论文

下面是小编为大家整理的管理信息系统论文

第四章 Visual basic下的控件所实现的功能

4．1实现菜单选项
4．2 实现工具栏
4．3 帮助
第五章系统总体规划
5．1 系统功能
5．2 流程图
第六章系统具体实现
6.1 用户界面的实现

6.2 数据库的实现
第七章结束语

第八章主要参考文献

第九章程序源代码、各功能模块的程序流程图

--------------前言--------------

设备管理信息系统是一个企事业单位不可缺少的部分,它的内容对于企事业单位的决策者和管理者来说都至关重要,所以设备管理信息系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理设备的信息，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。本论文主要介绍的是设备管理信息系统的整个设计过程。

随着计算机技术的不断发展，计算机应用于各大领域，并给人们的生活带来了极大的便利，在固定管理系统亦是如此。以往设备员由于缺乏适当的软件而给其工作带来了很多不便。本论文所介绍的便是一个设备管理信息系统，以方便在设备安排和设备管理信息上的工作任务。

该系统适用于普通设备的管理，在使用上力求操作容易，界面美观，另外，本系统具有较高的扩展性和可维护性，可能在以后需要的时候进行软件升级。

整个系统的开发过程严格遵循软件工程的要求，做到模块化分析、模块化设计和代码编写的模块化。

作为计算机应用的一部分,使用计算机对设备信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高设备管理信息的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。

--------------摘要--------------

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

整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成设备管理信息的全过程，包括每一物品，例如办公设备、家具、计算机及其他有价值的设备分配一个唯一的物品编码，并根据此编码在计算机中建立设备信息库，对设备的新增、领用、折旧等进行管理，使管理人员可对设备的流向进行跟踪，随时掌握设备的现状及公司雇员领用设备情况，减少设备丢失现象，解决查找、盘点困难等问题，提高管理人员的工作效率。因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套设备管理信息系统为例,谈谈其开发过程和所涉及到的问题及解决方法。

企业要想不断提高设备的使用效率，并且在预期的时间内收回所投资金和实现预期的投资收益，就要加强设备管理信息。设备管理信息的主要内容有：

• 设备日常管理
• 设备使用效率管理
• 设备投资规模变动的边际收入与边际成本分析
• 设备折旧管理

论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。

关键字：Visual Basic6.0，控件、窗体、数据库，设备管理信息

第一章.系统需求分析

1.1现行业务系统描述

设备管理信息对每个企业单位都是十分重要的工作，设备管理信息的好，可以使设备发挥最大效益，杜绝各种不良设备，反之则会造成生产资料利用率低下，甚至造成设备流失。

本管理系统是为适应于的设备管理信息而开发的软件。从设备使用的角度管理设备，协助学校建立一套完善的数据管理模型，提供全面数据的编辑、查询、系统管理等等功能，达到对设备科学管理的目的。

企业以前的有关设备管理的工作都是由人工来完成的。随着企业的发展，企业设备处的设备管理信息工作量大大加重。随着计算机应用的发展，很多企业急切希望能够将大部分繁琐的工作交由计算机的处理，已减轻人工的压力并提高工作效率。而计算机的普及更加快了设备管理信息系统的产生。

上一代的设备管理信息系统主要采用Foxbase或FoxPro,系统开发环境也是数据库内置的开发工具。其特点是单机单用户方式，开发简单，能充分利用数据库的特性。其缺点是开发出的系统依赖性强，运行必须依托数据库环境；
不容易升级与扩展；
无法实现数据的共享与并行操作；
代码重用性差。

原有设备管理信息系统数据共享差的问题更加突出，而新需求的提出也越来越多，越来越频繁。这就要求系统在可扩展性和标准化的要求更高。而原有的系统由于其与生俱来的缺点而无法在适应现有的需求了。

因此，使用现在的新技术，开发出适应新的需求的新系统的任务刻不容缓。

1.2组织结构

和设备管理信息系统由直接关系的主要是后勤管理处：

是设备系统管理的主要部门，　承担设备管理信息的集中管理。

1．3业务流程分析

设备管理信息系统是一个面向设备人员，为其提供服务的综合信息管理系统。设备管理信息人员通过本系统完成相关的日常工作，这些工作也是平常较为繁重的工作。

由设备人员在数据编辑中完成对运行设备系统所需的基本数据的维护。包括这些信息的增加、修改、删除等，变动都将在这进行操作。系统开始投入使用时，设备管理信息人员应先根据目前企业和单位的实际情况，建立相关设备的信息，当设备情况发生变动后，设备人员要及时完成对库中的信息进行维护。因为企业的设备数量会不断增多，因此特别设立了一个数据查询模块，可以进行相关设备的快速查询。

1.4现行系统存在的主要问题分析

现行系统的主要问题归纳起来主要有，

1. 单机单用户系统，随着网络的发展，原有的单机单用户系统已远远不能满足需要。同时，原有的数据库也不支持多用户的网络运行环境。

2．系统独立性差，原有系统一般都是使用数据库提供的开发工具编写的程序，因此收数据库的制约比较大，编写出来的程序性能也不好。特别是无法支持如Access, MS SQL Server等新的数据库。

3．模块性差，由于不是一个完整的编程语言，故无法做到代码的模块化，给功能的扩展带来了巨大的不便。

1.5提出可能的解决方案

鉴于目前企业对设备管理信息系统的需求与实际情况，新系统方案的重点放在系统的可扩展性上，为了实现这一设计，新系统应具备以下几方面的要求：

1．新系统采用Visual Basic 6.0开发成功，充分利用该开发程序的优势，提高了工作效率。

2．新系统从设计到实现都应遵循模块化，是用一致的接口进行信息的传递与模块调用。模块的划分应尽量符合实际业务的划分，以保证以后新模块的加入尽可能少的影响现有功能模块的运行。

3、新系统所具有的特性：

＊通用性：用户可根据本校的需求灵活设置设备类别及其数据库结构，可满足不同层次，不同性质，不同业务工作的需求。

＊标准化：提供了丰富完善的设备管理信息内容，为各级设备部门之间的数据共享及数据交换奠定了良好的基础。

＊先进性：采用面向对象技术开发，适应计算机网络技术发展趋势，运行在windows环境下，界面友好操作方便。

＊实用性：具有操作简便、功能适中等特点，运行速度快。

1.6可行性分析与决策

对于新系统设计的几个关键技术的可行性分析如下，

1．新系统目前使用VB6.0自带的数据库来作为数据库，这是一个支持多用户的新型数据库，适用于中小规模的数据量需求。企业网的建设也为新系统服务器/客户端的结构提供了硬件的支持。

2．现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：

Microsoft公司的Visual Basic，Microsoft公司的Visual C，

Borland公司的Delphi ，Powersoft公司的PowerBulider

在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；
有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；
相反，如果只强调程语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。

作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：

Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。

总的来说，Visual Basic具有以下特点：

可视化编程：

用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。

面向对象的程序设计

4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C++)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；
而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。

结构化程序设计语言

Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。

Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。

事件驱动编程机制

Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。

在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。

访问数据库

Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。

Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。

动态数据交换(DDE)

利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。

对象的链接与嵌入(OLE)

对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。

动态链接库(DLL)

Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C++或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。

综上所述，新系统的设计与开发在技术上和硬件设备上的条件都是满足的，新系统的开发是可行的。

第二章　系统设计

------系统方案设定

企业在充分认识到设备管理信息的重要性下，即使在管理系统的支持下，设备标签的制定、填写或打印、粘贴、设备状态的跟踪，盘点等工作的性质和工作量并没有得到良好的改变和改进。设备管理信息还是手工和计算机管理相结合。
设备投资是社会维持简单再生产和扩大再生产的主要手段，适度的投资规模和合理的投资结构对于实现国家经济发展战略具有重大意义。及时、准确、完整地获得全社会投资规模、结构和效益以及前景预测的有关信息，是国家建立宏观调控机制、制定产业政策、提高决策水平、实现全社会总供给与总需求的积极平衡和社会资源合理分配的重要条件。
　　目前企业对设备投资的管理主要是采用书面文字记录为主、电脑 EXECL 表格统计为辅的方法，随着工作的发展，这种管理的局限性日益突出出来。主要表现在记录、检索和统计时十分不便。
　　为全面加强对设备投资的宏观管理和指导，企业建立设备管理信息信息系统，对企业宏观经济进行快速检索和统计是必需的。
　　本系统是一个由多项数据组成的相互紧密关联的开放性系统，既有项目数据、又有文档数据。建设这一系统应当系统地规划设备投资管理体系，健全设备投资管理数据标准，如行业分类标准、分类总投资标准、项目文档分类标准，以及建设性质划分、项目编号标准

――――――系统实现功能

《设备管理信息系统》是一套对设备档案、增加、折旧、维修、盘存、清理、转让等进行全面管理的系统。
该系统通过采集设备日常工作中所产生的各种原始数据，根据设备管理的要求，对数据进行分类、统计、汇总、分析，建立程序化、制度化、规范化的设备计算机软件管理系统，包括了设备的一般特性、设备状态数据和设备能力数据，及时准确地报出各种报表，为设备管理信息提供了一个现代化的管理手段，这一手段可以强化和规范对设备的管理。便于计划、财务、审计等管理部门的介入，形成严格的监督、约束机制。
该系统集信息采集、分类、汇总、分析、查询、统计等各种处理为一体，各种操作既可以通过菜单进行，又可以通过系统的管理树导航进行。信息分类全面，树形管理方便，操作快捷简单，性能强大高效。全中文操作界面，无需计算机专业知识，使用易懂、易会。别具一格的查询统计为您提供了更多的方便！系统支持用户任意修改设计，也可让我们帮您完成。

设备管理信息

第三章.Visual basic下的控件所实现的功能

Windows下的Visual Basic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。

_ 新建一个数据库

创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。

1．标识需要的数据；

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

3．标识主关键字字段；

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

5．规范数据；

6．标识指定字段的信息；

7．创建物理表。

_ 修改已建的数据库

数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。

_ 实现数据库之间的联系

数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。

第五章.系统总体规划

_ 系统功能

1．可以进行文本操作；

2．添加一个数据库项目；

3．删除一个数据库项目；

4．修改一个数据库项目；

5．查询信息

6 系统维护

6.1系统数据转出

6.2系统数据转入

6.3修改系统密码

6.4数据初始化

7帮助

8 退出

第六章系统具体实现

主界面实现：

功能：对所有设备进行添加，查询，修改，删除操作，对用户密码进行修改，对每条设备信息进行打印。

数据编缉界面实现功能：

word/media/image5.gif
对于设备的编号，设备名称，设备型号，制造商，国别，购买日期，单价，数量，使用单位，使用人，管理员，放置地点，已使用年限，设备来源，报年限，联系电话等记录进行录入，删除，修改，打印操作！

数据查询界面与功能简介

word/media/image6.gif

实现对在所有的设备记录中查找某一个设备的说细信息，也可在查询完一个后点击

下一个按钮对下一条记录进行查询。

第七章．结束语

经过一个多月的设计和开发，设备管理信息系统基本开发完毕。其功能基本符合用户需求，能够实现固设备的基本信息的录入、更新、删除、打印等基本功能，从而实现设备的管理。对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。

致谢

在本次毕业设计中，我从指导老师身上学到了很多东西。老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。

另外，在系统开发过程中助手同学也给于我很大的帮助，帮助解决了不少的难点，使得系统能及时开发完成，还有同组的同学同样给与我不少帮助，这里一并表示感谢。

第八章．主要参考文献

中文版Microsoft Office 97 自学通

作者：Ned Snell

出版社：机械工业出版社

[3] Visual Basic 6.0 中文版控件大全

作者：Microsoft

出版社；
电子工业出版社

[4] 中文Access 2000 24学时教程

作者：Craig Eddy ，Timothy Buchanan

出版社：机械工业出版社

九．程序源代码、各功能模块的程序流程图

――――登录界面源代码：

word/media/image7.gif

Private Sub Command1_Click()

If Trim(Text1.Text) = Trim(Text3.Text) And Trim(Text2.Text) = Trim(Text4.Text) Then

Form2.Show

Unload Me

Else

For X = 1 To 1

If A1.Recordset.EOF = True Then

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

Text1.Text = ""

Text2.Text = ""

A1.Recordset.AbsolutePosition = 1

Else

If Trim(Text1.Text) = Trim(Text3.Text) And Trim(Text2.Text) = Trim(Text4.Text) Then

MDIForm1.Show

MDIForm1.Print Command1.Tag

MDIForm1.Tag = Text1.Text

Unload Me

Else

X = X - 1

A1.Recordset.MoveNext

End If

Next X

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then

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

Form2.Show

Unload Me

End If

End Sub

――――系统主界面代码：

Private Sub gycx_Click()

frmAbout.Show

End Sub

Private Sub sjbj_Click()

Form3.Show

End Sub

Private Sub sjcx_Click()

Form5.Show

End Sub

Private Sub sjdy_Click()

Form4.Show

End Sub

Private Sub tc_Click()

Unload Me

End Sub

Private Sub Toolbar1_ButtonClick

Select Case Button.Index

Case 1

Form3.Show

Case 2

Form5.Show

Case 3

Form2.Show

Case 4

Form4.Show

Case 5

frmAbout.Show

Case 6

Unload Me

End Select

End Sub

――――设备信息代码

word/media/image8.gif

Private Sub Command1_Click()

If Command1.Tag = "True" Then

If Command1.Caption = "输入新记录" Then

r = 1

If A1.Recordset.BOF = True And A1.Recordset.EOF = True Then

Else

A1.Recordset.MoveFirst

End If

For X = 1 To 1

If A1.Recordset.EOF = True Then

A1.Tag = Y

Exit For

Else

A1.Recordset.MoveNext

End If

X = X - 1

r = r + 1

Next X

A1.Recordset.AddNew

Label3.Caption = r

Command1.Caption = "输入完毕"

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Form3.Height = 8220

Form3.Top = 300

F1.Visible = True

Else

If t3(0).Text = "" Then

MsgBox "设备不能为空！", 16, "出错："

t3(0).Text = "123"

A1.Recordset.Delete

Command1.Caption = "输入新记录"

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

Form3.Height = 5728

Form3.Left = 600

Form3.Top = 1500

F1.Visible = False

Else

For X = 11 To 13

If Len(Trim(t3(X).Text)) > 200 Then

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

Exit Sub

End If

Next X

A1.Recordset.MovePrevious

A1.Recordset.MoveNext

Command1.Caption = "输入新记录"

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

Form3.Height = 5728

F1.Visible = False

Form3.Left = 600

Form3.Top = 1500

End If

Else

MsgBox "您没有这个权限！", 16, "出错："

End If

End Sub

Private Sub Command10_Click()

For X = 0 To 6

If A1.Recordset.EOF = True Then

MsgBox "您已经位于最后一条记录", 32, "提示："

A1.Recordset.MovePrevious

Exit Sub

Else

A1.Recordset.MoveNext

End If

Next X

End Sub

Private Sub Command11_Click()

Form10.Show

Unload Me

End Sub

Private Sub Command2_Click()

If Command2.Tag = "True" Then

If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then

MsgBox "您的数据库中没有记录！", 16, "出错："

Else

If Command2.Caption = "查询" Then

Command8.Caption = "显示信息"

Form3.Top = 700

Form3.Height = 5670

Command2.Caption = "结束查询"

F3.Visible = True

Command1.Enabled = False

Command4.Enabled = False

Command3.Enabled = False

Else

A1.Recordset.MoveFirst

Command2.Caption = "查询"

Command8.Caption = "打印"

Form3.Top = 1500

Form3.Height = 5728

Form3.Left = 600

Command1.Enabled = True

Command4.Enabled = True

Command3.Enabled = True

F3.Visible = False

End If

Else

MsgBox "您没有这个权限！", 16, "出错："

End If

End Sub

Private Sub Command3_Click()

If Command1.Tag = "True" Then

If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then

MsgBox "您的数据库中没有记录！", 16, "出错："

Else

If Command3.Caption = "修改记录" Then

Command3.Caption = "修改完毕"

Command2.Enabled = False

Command1.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Form3.Height = 8220

Form3.Top = 300

F1.Visible = True

F1.Caption = "修改记录："

Else

If t3(0).Text = "" Then

MsgBox "设备不能为空！", 16, "出错："

Else

For X = 11 To 13

If Len(Trim(t3(X).Text)) > 200 Then

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

Exit Sub

End If

Next X

Command3.Caption = "修改记录"

Command2.Enabled = True

Command1.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

Form3.Height = 5728

Form3.Left = 600

Form3.Top = 1500

F1.Visible = False

F1.Caption = "数据输入："

End If

Else

MsgBox "您没有这个权限！", 16, "出错："

End If

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Command5_Click()

If Command1.Tag = "True" Then

If A1.Recordset.EOF = True Or A1.Recordset.BOF = True Then

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

Else

A1.Recordset.Delete

Y = 1

A1.Recordset.MoveFirst

For X = 1 To 1

If A1.Recordset.EOF = True Then

If A1.Recordset.BOF = True Then

Else

A1.Recordset.MoveFirst

End If

Exit For

Else

Label3.Caption = Y

A1.Recordset.MoveNext

Y = Y + 1

X = X - 1

End If

Next X

End If

Else

MsgBox "您没有这个权限！", 16, "出错："

End If

End Sub

Private Sub Command6_Click()

For X = 0 To 7

If t17(X).Text = "" Then

Else

Command6.Tag = t17(X).Text

Command7.Tag = X

A1.Recordset.MoveFirst

Call cx

Exit Sub

End If

Next X

MsgBox "您没有输入要查询的值！", 16, "出错："

End Sub

Sub cx()

For X = 1 To 1

If Trim = Trim(t3(Val).Text) Then

Exit Sub

Else

If A1.Recordset.EOF = True Then

Else

A1.Recordset.MoveNext

End If

If A1.Recordset.EOF = True Then

MsgBox "没有找你到要查询的记录！", 32, "提示："

Exit Sub

Else

X = X - 1

End If

Next X

End Sub

Private Sub Command7_Click()

For X = 0 To 7

If t17(X).Text = "" Then

Else

Command6.Tag = t17(X).Text

Command7.Tag = X

If A1.Recordset.EOF = True Then

Else

A1.Recordset.MoveNext

End If

Call cx

Exit Sub

End If

Next X

MsgBox "您没有输入要查询的值！", 16, "出错："

End Sub

Private Sub Command8_Click()

Form4.Show

End Sub

Private Sub Command9_Click()

For X = 0 To 6

If A1.Recordset.BOF = True Then

MsgBox "您已经位于第一条记录", 32, "提示："

A1.Recordset.MoveNext

Exit Sub

Else

A1.Recordset.MovePrevious

End If

Next X

End Sub

Private Sub F3_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Form_Unload(Cancel As Integer)

If Command4.Enabled = True Then

Cancel = 0

Else

MsgBox "请编辑完这条记录再退出！", 64, "提示："

Cancel = 1

End If

End Sub

―――－设备查询源代码：

Private Sub Command2_Click()

If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then

MsgBox "您的数据库中没有记录！", 16, "出错："

Else

If Command2.Caption = "查询" Then

Command8.Caption = "显示信息"

Form3.Top = 700

Form3.Height = 5670

Command2.Caption = "结束查询"

F3.Visible = True

Command4.Enabled = False

Else

A1.Recordset.MoveFirst

Command2.Caption = "查询"

Command8.Caption = "打印"

Form3.Top = 1500

Form3.Height = 5728

Form3.Left = 600

Command4.Enabled = True

F3.Visible = False

End If

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Sub cx()

For X = 1 To 1

If Trim = Trim(t3(Val).Text) Then

Exit Sub

Else

If A1.Recordset.EOF = True Then

Else

A1.Recordset.MoveNext

End If

If A1.Recordset.EOF = True Then

MsgBox "没有找你到要查询的记录！", 32, "提示："

Exit Sub

Else

X = X - 1

End If

Next X

End Sub

Private Sub Command6_Click()

For X = 0 To 7

If t17(X).Text = "" Then

Else

Command6.Tag = t17(X).Text

Command7.Tag = X

A1.Recordset.MoveFirst

Call cx

Exit Sub

End If

Next X

MsgBox "您没有输入要查询的值！", 16, "出错："

End Sub

Private Sub Command8_Click()

Form4.Show

End Sub

Private Sub Command9_Click()

For X = 0 To 6

If A1.Recordset.BOF = True Then

MsgBox "您已经位于第一条记录", 32, "提示："

A1.Recordset.MoveNext

Exit Sub

Else

A1.Recordset.MovePrevious

End If

Next X

End Sub

Private Sub D1_Click()

End Sub

Private Sub Form_Unload(Cancel As Integer)

If Command4.Enabled = True Then

Cancel = 0

Else

MsgBox "请编辑完这条记录再退出！", 64, "提示："

Cancel = 1

End If

End Sub

【篇二】管理信息系统论文

管理信息系统结课论文

院系：

专业：

班级：

姓名：

学号：

管理信息系统开发方法浅析以及发展趋势

摘要：随着现代信息技术的飞速发展，人类社会正在从工业时代阔步迈向信息时代，人们越来越重视信息技术对传统行业的改造以及对信息资源的开发和利用。管理信息系统是为了适应现代化管理的需要，在管理科学、信息科学和计算机科学等学科的基础上形成的一门科学，它研究管理信息系统中信息处理和决策的整个过程，并探讨计算机的实现方法。MIS是社会系统，也是开放的复杂巨系统。MIS开发要用计算机系统及其网络技术为主要工具来改进与完成管理业务，绝不能也不能单纯用计算机技术观点去对整个MIS开发，而忽视管理业务的分析与再造。作为一个热门的应用领域，MIS开发方法学是一个非常活跃的研究领域。从MIS发展的阶段来看，影响MIS发展的一个方面是信息技术本身的发展，另一方面则是由于信息技术与管理融合带来的需求。今后，MIS仍然会在这两个方面的推动下发展。

一、MIS的开发原则

为了使开发工作顺利进行，是开发出来的系统易于改变、安全可靠、高效先进，MIS开发一般应该遵循以下几条原则。

1.适应性原则

适应性是系统开发必须遵循的最基本原则。主要包括两个方面：一是系统要适应各种管理需求，不仅满足使用者现在提出的要求，而且将来环境变化而带来新的要求时也要便于修改系统而使系统与之适应；
二是要主动适应信息技术环境，采用现代管理科学的原理与方法，再造业务流程。

2.经济性和实用性原则

经济性和实用性原则是指也就是在完成系统目标的基础上，力争用最少的钱办最多的事，保护投资。保护投资的思想也是系统开发的一个重要原则，系统开发一方面要考虑安全、可靠、先进，同时，还要考虑系统的经济实用性。投资保护不仅仅是体现在设备产品方面要具有较好性能价格比，还体现在对人、对知识和资源的保护方面。因此，系统设计开发应全面考虑系统的经济效益和社会效益，要力求达到经济利益好，社会利益高，资金投入少，实用价值高。

3.安全性和可靠性原则

在设备方面，安全性和可靠性原则要求进行系统设计时应采用高可靠的产品和技术，充分考虑计算机设备的应变能力、容错能力和纠错能力，确保系统运行稳定、安全可靠。

另外，可从网络安全、数据安全等多角度来考虑系统的安全可靠性，网络安全的措施包括安装防火墙、防病毒软件、入侵检测系统等，而数据安全的措施则包括数据备份、数据加密等。

4.规范化原则

企业MIS的开发是复杂的信息系统工程，应该按照信息系统工程的理论、方法和规范去组织。无论用哪一种开发方法，都必须注重开发工具、文档资料、项目管理的规范化实现共享与重用。

5.递进原则

企业MIS是一个复杂的软件系统。MIS的建立不可能一开始就十分完善和先进，总是要经历一个逐步完善，逐步发展的过程。贪大求全，企图一步到位，违反了其发展的客观规律，是系统研制周期过于漫长，影响了信心，增大了风险。只能先做一个总体规划，然后分步实施，递进发展。

二、MIS的开发方法

1.结构化系统开发方法

也称为SSA&D方法(Structured System Analysis and Design)或SADT(Structured Analysis and Design Technology)，是自顶向下结构化方法、工程化系统开发方法和生命周期方法结合的产物，是至今为止所有开发方法中应用最广泛、最成熟的系统开发技术。

1）基本思想

采用结构化思想、系统工程的观点和工程化的方法，按照用户至上的原则，先将整个系统作为一个大模块，自顶向下，以模块化结构设计技术进行模块分解；
然后，再自下而上按照系统的结构将各个模块进行组合，最终实现系统的开发。

2）开发过程

结构化系统开发方法的过程是将整个信息系统开发过程按照生命周期划分为系统规划、系统分析、系统设计、系统实施和系统运行与维护5个相对独立的开发阶段。

（1）系统规划

系统规划是信息系统生命周期的第一个阶段，是管理信息系统的概念形成时期，这一阶段的主要目标是制定出管理信息系统的长远发展方案，决定管理信息系统在整个生命周期中的发展方向、规模和发展过程。

（2）系统分析

系统分析以系统规划中提出的系统目标为出发点，首先经过初步的系统调查，对开发新系统的可行性进行论证，将可行性论证的结果以可行性分析报告的形式呈交给有关领导审核、批准。如果领导认为可行性分析报告中的论证是正确的，有必要开发新系统，则进入系统详细调查和系统化分析，提出新系统逻辑方案。

（3）系统设计

系统设计是在新系统逻辑方案的基础上进行系统物理模型的设计，解决系统“怎么做”的问题。其主要内容包括系统总体结构设计、代码设计、数据库设计、输入/输出设计、模块结构与功能设计。

（4）系统实施

系统实施阶段的主要内容包括程序设计和人员培训，以及数据准备，然后投入试运行。

（5）系统运行与维护

系统运行与维护阶段是进行系统的日常运行管理、维护工作，在出现不可调和的大问题时，进一步提出开发新系统的请求，老系统生命周期结束，新系统诞生，构成系统的一个生命周期。

2.原型法

原型法是通过计算机软件技术发展到一定阶段的产物。与结构化系统开发方法不同，原型法不注重对信息系统全面、系统的详细调查与分析，而是根据系统开发人员对用户需求的理解，先快速的实现一个原型系统，然后通过反复修改来实现信息系统。原型法适合于处理过程明确、简单的小型系统。

1)开发过程

1.确定系统的基本要求和功能；

2.构造初始原型；

3.运行、评价、修改原型；

4.确定最终信息系统。

三、面向对象方法

面向对象方法是由面向对象程序设计方法OOP(Object Oriented Programming)发展而来。它以类、对象、继承、消息传递等概念描述客观事物及其联系，与传统的面向数据的思想完全不同，为管理信息系统开发提供了全新的思维。

1)开发过程

1.系统调查和需求分析；

2.问题分析和求解；

3.整理问题；

4.程序实现。

四、计算机辅助软件工程方法

计算机辅助软件工程方法，是指用来支持MIS开发的各种计算机辅助软件和工具组成的大型综合软件开发环境，随着各种工具和软件技术的产生、发展、完善和不断集成，逐步由单纯的辅助开发工具环境转换为一种相对独立的方法。

1)CASE方法具有下列特点

1.解决了从客观对象到软件系统的映射问题，支持系统开发的全过程；

2.提高了软件质量和软件重要性；

3.提高了软件开发速度；

4.简化了软件开发的管理和维护；

5.自动生成开发过程中的各种软件文档。

五、

六、24、目前，我国的航天技术在世界上占有相当重要的位置。“长征四号”运载火箭的顺利发射，载人飞船“神舟”五号和“神舟”六号和“神舟”七号也已经发射成功，“嫦娥”一号探月卫星又发射成功。MIS的发展趋势

融合是MIS发展的高级形式，他与数据仓库、数据挖掘相联系。随着商业与生产经营活动的复杂化和敏捷化，对数据分析和信息处理提出了更高的要求。目前，通过专门的商务智能软件来实现。

第四单元环境和我们四、总结

只有结构化系统开发方法是真正能够较全面支持整个系统开发过程的方法。其他方法各有特点，但是都通常只能作为结构化系统开发方法在局部环节上的补充，暂时还不能替代其在系统开发过程中的主导地位。进入21世纪，信息技术和网络应用的普及程度越来越高，MIS的理论也因此而不断完善。从MIS的发展阶段来看，影响MIS发展的一个方面是信息技术本身的发展，另一方面是由于信息技术与管理融合带来的需求。今后，MIS仍然会在这两个方面的推动下发展。

参考文献：

《管理信息系统开发与管理》著者：张立厚、莫赞、张延林、陶霞。出版社：清华大学出版社。

《管理信息系统及其开发》著者：程学先、宋克振、阳亮、程传慧。出版社：清华大学出版社。

《管理信息系统》著者：张月玲卢潇。出版社：清华大学出版社。

《管理信息系统实用教程》著者：杨月江、修桂华。出版社：北京大学出版社。

《信息系统开发与管理》（第二版）著者：邝孔武、王晓敏。出版社：中国人民大学出版社。

答：可以，馒头中也含有淀粉，淀粉在咀嚼的过程中发生了变化，变得有甜味了。《管理信息系统》（第三版）著者：周山芙、赵苹、李骐。出版社：中国人民大学出版社。

《管理信息系统》著者：陈广宇。出版社：清华大学出版社。

《管理信息系统》著者：王彤宇。出版社：北进大学出版社。