教师科研项目管理系统

教师科研项目管理系统

摘要

本设计按照管理信息系统的开发方法，通过系统分析、系统设计、系统实施等一系列开发过程。以洛阳理工学院工程管理系为应用背景，开发一个有实用价值的科研项目管理系统。实现对科研项目的计算机管理，以提高科研项目管理的水平，提供及时、准确的信息服务并减轻管理人员制作报表、统计分析的负担，从而摆脱该系部长期以来通过人工对科研项目进行管理的落后面貌。

该系统能对科研项目实现较全面的管理，提供数据录入、多条件查询、统计、报表输出等日常管理所必需的功能，并在系统的易使用性上作了较大的努力。

该系统采用Visual Basic 6.0作为系统的开发语言，运行的环境为WINDOWS XP操作系统，后台的数据库管理系统选用SQL Server 2000。

关键词：Visual Basic 6.0，SQL Server 2000，科研项目管理系统

Teacher Scientific Research Project Management System

ABSTRACT

According to the design of the management information system development method, through the system analysis, system design, system implementation, and a series of development process.the luoyang institute of scinence and technology engineering management department for background, developing a practical value of the scientific research project management system.the realization of scientific research project computer management, in order to improve the level of management of scientific research project, provide timely, accurate information service and reduce administrative personnel making statements, the burden of statistical analysis, so as to shake off the minors to long for scientific research project through artificial the backwardness of the management.

The system can realize more comprehensive scientific research project management, provide data entry, many conditions inquiry, statistics, reports and daily management of the output necessary function, and in the system to use sex as larger effort.

The system uses VISUAL BASIC 6.0 as a system development language, the running environment for WINDOWS XP operating system, backend database management systems use SQL Server 2000.

KEY WORDS: VISUAL BASIC，SQL Server 2000，Scientific Research Project Management

目录

前言 (1)

第1章绪论 (2)

1.1 管理信息系统的发展 (2)

第2章系统分析 (3)

2.1 系统的初步调查 (3)

2.2 系统的可行性分析 (4)

2.3 业务流程分析 (5)

第3章系统设计 (6)

3.1 系统功能设计 (6)

3.2 数据库设计 (7)

3.2.1 概念结构设计 (7)

3.2.2 逻辑结构设计 (9)

3.2.3 物理结构设计 (10)

3.2.4 数据库的安全性、完整性、并发控制和恢复 (12)

第4章系统编码与实施 (14)

4.1 开发平台的选择 (14)

4.2 开发工具的选择 (14)

4.3 部分程序清单 (15)

第5章系统的运行和维护 (19)

5.1 系统的维护 (19)

5.2 系统的改进与提高 (19)

结论 (20)

谢辞 (21)

参考文献 (22)

前言

洛阳理工学院工程管理系每年都承接科研项目，对这些项目进行统计所得到的信息在该系的管理中具有重要的意义；首先，它反映了工程管理系的学术水平和成就，是对该系进行各种评估的主要参考依据；第二，通过这些结果，可以看出工程管理系的发展趋势，从而为工程管理系的发展决策提供重要的辅助信息；第三，它是考察某位教师的工作成就的主要途径之一；最后，这些信息也是上级主管部门经常要求上报的信息。

显然，需要有一套行之有效的手段对工程管理系的科研项目进行管理。到目前为止，工程管理系的科研项目管理一直采用人工管理的方式，并无一套成文的管理规范，也没有相应的专职管理人员，当上级部门发文要求统计项目时在由有关人员查阅本系的各种相关文档，人工进行统计并制件报表。这种落后管理的弊端是显而易见的。

在现在这个计算机得到普遍应用的时代，很多过去依靠人工进行的都由计算机所取代。尤其在信息的存储、加工和维护上计算机能取得人所不能比拟的作用。计算机进行的主要方法是建立信息系统。对管理信息系统胡许多各解释，按照信息系统的创始人明尼苏达大学的Gordon B.Davis教授给出的定义，MIS是一个利用计算机硬件和软件，手工作业，分析、计划、控制和决策模型以及数据库的用户一体的机器系统。它能提供信息，支持企业或组织的运行、管理和决策功能。我国学者薛华成则将定义为：管理信息系统是一个以人为主导，利用计算机硬件、软件、网络通信设备以及其他办公设备，进行信息的收集、传输、加工、存储、更新和维护，以企业战略竞优、提高效率和效益为目的，支持企业高层决策、中层控制、基层运作的集成化的人机系统。尽管定义不同，但总的说来，管理信息系统终究要起到一个提高管理效率、减轻管理人员负担的作用。无论对于企业或其他组织，建立一个管理信息系统才干实现其先进管理所必须的。

有鉴于此，开发一个工程管理系的科研项目管理系统是很有必要的。它将有助于管理人员从繁琐的管理活动中解脱出来，使系统化、条理化、能迅速获得感兴趣的信息。

第1章绪论

1.1 管理信息系统的发展

在现代社会中管理的作用越来越显得重要和突出。一般来讲，管理通过计划、组织、指导与领导、控制等手段，为组织制定目标，应用组织的各种要素，以实现组织的目标。但是随着社会化大生产的不断扩大和社会对产品多样化的需求，人们越来越重视信息在生产经营及管理中的作用，并把它当做一种极其重要的资源，人们称之为“信息资源”，信息资源的处理已经成为当今世界上一项主要的社会活动。

本世纪以来，由于社会生产力的迅速发展和科学技术的突飞猛进，人们进行信息交流的深度和广度不断增加，管理所需要的信息量急剧增长，同时对信息的处理要求及时、准确，这导致了传统的信息处理方法和手段已不能适应现代管理的需要；电子计算机的诞生和在信息处理中的应用，标志着一个崭新时代——“信息时代”的开始，它使学校管理现代化成为可能。

一定意义上说，管理信息系统的产生和发展是建立在电子计算机基础之上的。硬件方面，自1946年第一台电子计算机诞生以来，计算机技术的发展可谓日新月异，从庞大的只能在实验室里供研究使用的计算机到如今能适应不同环境满足不同需求的各种各样的计算机；运算速度从每秒几千次到每秒几百亿次；处理器从焊有上百万个电子管的大的惊人的电子板到只有指甲大小的集成电路；现在计算机在硬件方面的发展已达到了每三个月更新换代一次的惊人速度。软件方面，也已从机器语言、汇编语言、高级语言发展到现如今的第四代语言——非结构化、面向对象、可视化的语言。

第2章系统分析

2.1 系统的初步调查

建立一个好的管理信息系统，必须要有一个好的管理基础。所谓好的管理基础，指的是合理的管理体制、完善的制度、科学的管理方法和准确的原始数据。

应该看到，我国发展管理信息系统的时间还不长，设计开发的实际经验也很不足。要使管理信息系统在工程管理系建立、使用，并从中获得巨大的效益，必须具备以下基本条件。

（1）领导重视、管理人员积极性高

管理信息系统的建立，需要各系部提供资源、经费、人力和时间，要涉及管理体制、规章制度的变化、调整和大量数据的编码、表格形式协调等工作，这些系部管理的全局性问题必须在各系部高层领导的重视和支持下才能获得解决。一般说来，系主任的决心是研制科研项目管理系统的成败关键。

管理人员的积极性也是不容忽视的条件。管理人员是管理信息系统的直接用户，它们的积极性和配合程度，关系到管理信息系统的使用效果和生命力。

（2）具备一定的资源条件

管理信息系统的资源主要包括计算机硬、软件设备，不间断电源（UPS）、空调等辅助设备和计算机房设施等。管理信息系统的费用可分为开发费用和运行费用，前者包括设备购置、人员工资、培训和开发过程中的一系列支出等，后者包括机器运行、维护和修理费，人员工资和水、电、纸张和软盘等日常开支。

要有足够的资金保证，才能顺利完成整个系统的开发工作。当然，资金的投入也可以在开发和运行过程中分阶段进行，在逐步取得阶段成果的基础上补充更多的资源。

（3）组织一个强有力的开发小组

管理信息系统的质量，在某种意义上直接取决于开发人员的水平和素质。开发小组的人数因系统规模大小而异，通常包括系统分析员、程序员、数据录入员和硬、软件维护人员。由于管理信息系统的开发通常是从逐个子系统分期分批进行的，同时，已开发完毕投入使用的系统仍需不断维护、改进和完善，因此这个开发小组应该在相当长的时期内存在。

在正式的立项之前必须进行可行性分析，而可行性分析主要是对科研项目管理进行充分的调查研究，细致了解科研项目管理的现状流程，以及存在的主要问题，在此基础上提出系统的逻辑模型。

详细的现状调查目的是为了完整地掌握现行手工系统的状况，发现问题和薄弱环节，收集资料，及信息流程，为新系统逻辑模型提供基础。它是建立新系统的前期工作，也是进行系统分析和设计的重要基础。因此要建立科研项目管理系统就必须对工程管理系现行的科研项目管理进行全面、细致而充分的调查研究。采用主要的方式是在老师中进行交流和对工程管理系过去产生的各种科研项目手工报表进行分析。主要进行管理了管理业务调查和数据流程调查，认为此系统可以立即开发。

2.2 系统的可行性分析

系统的可行性分析包括两个详细的部分：分析开发新的系统的必要性和可能性。必要性在前面系统初步调查中已经作了详细的分析，可行性主要包括经济可行性、技术可行性和管理可行性三个方面。

1. 经济可行性研究是对组织的经济现状和投资能力进行分析，对系统建设运行和维护费用进行估算，对系统建成后可能取得的社会和经济效益进行估计。

2. 技术可行性要考虑现有的技术条件是否能够顺利完成开发工作，软硬件配置是否满足开发的需求等。科研项目管理系统用的是Visual Basic 6.0开发语言，调试相对简单，当前的计算机硬件配置也完全能满足开发的需求，因此在技术上是绝对可行的。

3. 管理上的可行性。在该系部，从主管领导、管理人员到教师认识是一致的，而且该系有良好的管理基础。因而建立新系统在管理上是可行的。

2.3 业务流程分析

通过对工程管理系科研项目管理业务的实际调查分析，弄清了该系科研项目管理工作的业务流程和管理功能，系统的业务流程如图2-1所示：

图2-1 业务流程图

第3章系统设计

3.1 系统功能设计

新系统的功能设计是以原系统业务流程和数据流程为依据的。为此新系统的功能的划分为系统管理、数据管理、数据浏览、数据查询、统计报表、帮助信息六项，如图3-1所示。

图3-1 系统功能模块

用户通过身份验证进入系统后，可以完成：系统管理可以完成系统用户的添加、修改、删除以及用户密码的修改；数据管理模块可以完成教师和科研项目相关信息的登记；数据浏览包括教师信息和科研项目信息的浏览；数据查询包括教师信息、科研项目信息查询，教师可以分别通过教师编号、项目名称查询科研项目信息，并且支持项目名称的模糊查询，以帮助教师以最快的方式了解到所需求的科研项目信息，通过查询教师的科研项目信息，可以看出教师的科研情况；统计报表可提供教师信息、科研项目信息报表；帮助信息显示系统的开发版本和系统说明信息。

3.2 数据库设计

3.2.1 概念结构设计

将需求分析得到的用户需求抽象为信息机构，概念结构是各种数据模型的基础。本系统采用自顶向下的方法。

E-R图是概念结构设计的有力工具。利用E-R方法进行数据概念设计，可分为一步进行，首先设计局布E-R模式，然后把各局E-R模式，综合成一个全局模式，最后对全局E-R模式进行优化，得到最终模式，即概念模式。概念结构设计师整个数据库设计的关键步骤。

概念机构设计的第一步就是需求分析阶段收集到的数据进行分类、组织（聚集）、形成实体、实体的属性，标识实体的码，确定实体之间的联系类型（1:1，1:n，n:m）,设计E-R图。以下是总体E-R图和局部E-R图：

图3-2 总体E-R图

图3-3 系统用户信息实体的E-R图

图3-4 科研项目级别信息实体的E-R图

图3-5 部门信息实体的E-R图

图3-6 教师信息实体的E-R图

图3-7 科研项目信息实体的E-R图

3.2.2 逻辑结构设计

前面我们设计了局部和全局的E-R图，用数据库管理信息系统，必须将E-R图转换为DBMS产品所支持的数据模型相符合的逻辑结构。我们将E-R图可以转换成关系、网状和层次模型，本系统将转化为关系模型。

本系统设计到的实体教师和科研项目，之间的关系为一对多的关系。即一个科研项目只能属于一个教师，一个教师可以有多个科研项目，教师基本信息表可以设一个教师编号字段，用来唯一标识一个教师，则科研立

项信息表中也应设一个科研项目编号，用来唯一确定一个科研项目，教师编号和科研项目编号分别为两个关系模式中的主码。部门信息表用来记录教师所在教研室信息。项目级别表用来记录科研项目级别名称。本系统共五个表，最后是系统用户信息表，验证教师登录的身份，教师也需要有权限才可以进入此系统。下面是五个表的逻辑结构模型。

系统用户信息表（用户名，密码）；

部门信息表（教研室编号，教研室名称，备注）；

项目级别表（级别编号，级别名称）；

教师基本信息表（教师编号，姓名，性别，出生日期，职务职称，学历学位，电话号码，教研室编号）；

科研立项信息表（项目编号，项目名称，项目级别，审批单位，教师编号，经费，立项时间，目前状态）。

3.2.3 物理结构设计

数据库的物理结构设计，是希望设计优化的物理数据结构，使得在数据库上运行的各种事物相应时间段，存储空间利用率高。在本系统中可有很多高效的查询功能，为保证运行效率，将教师基本信息表中的教师编号和科研立项信息表的项目编号均设为主索引（不可重复），同时还可建立多个普通索引。教师基本信息表中的教研室编号参照于部门信息表的部门编号与之建立级联关系；科研立项信息表中的项目级别参照于项目级别表中的级别编号，与之建立级联关系；父表中字段的值改变时，子表中的字段值随之改变，就免了多表联系时，容易造成数据不一致的问题。同时在字段设置中还设置了字段的有效性，以减少差错率。

1. 系统用户信息表Users用来保存系统用户信息。表Users的结构如表3.1所示。

2. 部门信息表Departmen用来保存部门基本信息。表Department的结构如表

3.2所示。

表3-2 表Department的结构

3. 项目级别表XMJB用来保存项目级别的基本信息。表XMJB的结构如表3.3所示。

表3-3 表XMJB的结构

4. 教师基本信息表Teacher用来保存教师的基本信息。表Teacher的结构如表3.4所示。

表3-4 表Teacher的结构

5. 科研立项信息表Project用来保存科研立项的基本信息。表Project 的结构如表3.5所示。

表3-5 表Project的结构

3.2.4 数据库的安全性、完整性、并发控制和恢复

科研项目数据是工程管理系中非常重要的资料，因此保证数据库的安全可靠、正确有效是非常重要的问题。一般的数据库管理系统（DBMS）都有提供了一定的数据保护功能。数据库保护也称为数据控制，主要包括数据的安全性、完整性、并发控制和数据库的恢复等。

1．数据库的安全性

数据库的安全性是指保护数据库以防止不合法的使用所造成的数据泄露、更改或破坏。由于数据库系统中存放着大量的数据，且为许多用户所共享，因此安全性问题是必须首先要解决的。一般计算机系统中的安全措施是按照“用户标识和鉴别”、“DBMS存取控制”、“OS级安全控制”、“DB 密码存储”来一级一级设置的。

在现在流行的数据库系统中一般都提供以下两种控制：用户标识和鉴别、数据存取控制。

2．数据完整性

为了保证数据库数据的正确性和相容性，数据库管理系统（DBMS）都提供了一种机制来检查数据库中的数据，看它是否满足语义的规定条件，

DBMS称这种机制为“数据完整性检查”。一般的DBMS中是通过完整性约束和数据库触发器来实现这一机制的。

3．并发控制

在多用户数据库环境中，多个用户程序可并行存取数据库中的数据，为了以正确的方式调度该并发操作，避免造成“丢失修改”、“不能重读”、“读脏数据”等不一致的情况，DBMS引入了“并发控制”这一机制。

并发控制的主要方法是采用封锁机制，一般采用两种封锁机制：共享机制和排它机制来实现。

4．数据库备份与恢复

主要使用转储、日志等方法进行数据库的恢复。

第4章系统编码与实施

4.1 开发平台的选择

考虑到本系统的性能要求，和现有的条件，我们选择了WINDOWSXP 中文版作为开发、测试和运行的平台。因为WINDOWS操作系统是目前应用最广的操作系统，它以全新的图形界面，简单快捷的操作方式，支持多媒体功能等特点而成为软件发展的流行趋势，选用它作为开发平台，易于功能的扩展和软件升级。

4.2 开发工具的选择

针对目前世界上流行的大量软件和开发工具，经过认真分析其优缺点，结合科研项目管理系统的需要和目前的硬件环境，我们选用微软WINDOWS平台下的Visual Basic 6.0作为软件开发工具。Visual Basic具有以下特点：

1．可视化编程

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

2．面向对象的程序设计

4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面

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

3．结构化程序设计语言

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

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

4．事件驱动编程

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

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

4.3 部分程序清单

1. 系统登录程序代码窗体代码如下：（部分）

【登录】按钮的“Click”事件代码

Private Sub click1_Click()

' 判断文本框是否为空

If Text1.Text = "" Then

MsgBox "请输入用户编号！", vbOKOnly + vbInformation, "提示"

Text1.SetFocus

Exit Sub

End If

' 验证管理员身份

If Opt1.Value = True Then

Ado1.RecordSource = "select * from users where usersname='" + Trim(Text1.Text) + "'"

Ado1.Refresh

If Ado1.Recordset.RecordCount = 0 Then

MsgBox "无该用户，请重新输入！", vbOKOnly +

vbInformation, "提示"

Text1 = ""

Text2 = ""

Text1.SetFocus

2. 科研项目信息查询程序代码：（部分）

Private Sub Command1_Click()

Dim str As String

Dim st As String

st = Trim(Combo1.Text) & Trim(Combo2.Text) + "'" & Trim(Text2.Text) + "'"

str = "select * from project where " & st

Adodc1.RecordSource = str

https://www.360docs.net/doc/9c13757288.html,mandType = adCmdText

Adodc1.Refresh

End Sub

Private Sub Form_Load()

Combo1.AddItem "teano", 0

Combo1.AddItem "prono", 1

Combo1.AddItem "proname", 2

Combo1.AddItem "jb", 3

Combo1.AddItem "unit", 4

Combo1.AddItem "expense", 5

Combo1.AddItem "protime", 6

Combo1.AddItem "prostatus", 7

Combo2.AddItem "=", 0

Combo2.AddItem "like", 1

End Sub

Private Sub lblok_Click(Index As Integer)

Call outfind

End Sub

Sub outfind()

Dim st As String

'On Error Resume Next

'If Combo1.Text = "" Or Combo2.Text = "" Then

'MsgBox "请输入完整的查询条件", vbOKOnly + vbQuestion, "提示”

'Exit Sub

'End If

'If Combo1.ListIndex = 0 Then