【精品毕设】基于JavaEE的教师考核管理系统（包含源码和论文）

微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。

Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。

微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。

DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。

ADO是Mcrosoft提出的第三种数据库访问对象，是Microsoft数据库访问技术的一个主要发展方向，ADO将OLE DB封装在一个数据对象中，使得VB程序中以方便地实现对数据库的访问。

具体的与数据库的关系如下：

VB数据库应用程序一般由用户界面、数据库引擎和数据仓库三大部分组成。

1．用户界面: 用户界面是指应用程序与用户进行交互的界面，包括用于交互的所有界面元素和代码。它可以显示数据并提供查看或更新数据的所有对象，比如数据作业窗体，添加、删除记录或执行查询的VB代码等，这些对象隐含着用来请求数据库服务的属性、事件和方法。

2．数据库引擎:所谓数据库引擎，是一种管理数据怎样被存储和检索的软件系统，是应用程序与物理数据库之间的桥梁。它把应用程序的请求翻译成对各种类型数据库的物理操作,并向应用程序返回结果。

3．数据仓库:数据仓库是包含数据库表的一个或多个文件，是存放数据的地方。对于本地的VB数据库来说，就是.mdb格式文件；对于不同的数据库，它可能具备其它格式。

VB访问数据库通常有三种途径:

1.使用数据控件和数据绑定控件访问数据库；

2.通过VB提供的数据访问变量编程访问；

3.通过ODBC接口访问ODBC API函数。

VB程序的数据访问通过数据访问接口来实现。

在 VB 中，主要的数据访问接口有三种：数据存取对象(Data Access Object；DAO)、远程数据对象(Remote Data Object；RDO)、ActiveX数据对象(ActiveX Data Objects；ADO)。

VB通过数据库引擎可以访问的数据库分如下三类:内部数据库、外部数据库和 ODBC数据库。

第三章系统设计

3．1概要设计

1、概要设计阶段的主要任务

①系统分析员审查软件计划、软件需求分析提供的文档，提出最佳推荐方案，用系统流程图，组成系统物理元素清单，成本效益分析，系统的进度计划，供指导教师审定，审定后进入设计。

②确定模块结构，划分功能模块，将软件功能需求分配给所划分的最小单元模块。确定模块间的联系，确定数据结构、文件结构、数据库模式，确定测试方法与策略。

③ 编写概要设计说明书，用户手册，测试计划，选用相关的软件工具来描述软件结构，结构图是经常使用的软件描述工具。选择分解功能与划分模块的设计原则，例如模块划分独立性原则，信息隐蔽原则等。

2、概要设计的过程

概要设计要先进行系统设计，复审系统计划与需求分析，确定系统具体的实施方案；然后进行结构设计，确定软件结构。

3、概要设计的原则

①将软件划分成若干独立成分的依据。

②如何表示不同的成分内的功能细节和数据结构。

③如何统一衡量软件设计的技术质量。

4、系统功能分析

根据学校的教务人员提供的教师考核管理的信息，开发的管理系统的达到的功能如下：

1、教师基本信息管理

2、教师任课情况管理

3、教师发表论文情况管理

4、教师科研经费管理

5、系统维护

6、退出系统

根据以上分析，该系统考虑将整个系统分解成如图3-1模块结构图:

图3-1模块结构图

并且在系统的开发过程中，我尽量注意模块的高内聚、低耦合，使得系统的整体性能提高，并且也有利于投入使用后的系统维护。

3．2详细设计

1、详细设计的任务

详细设计就是要在概要设计的结果的基础上，考虑“怎样实现”这个软件系统，直到对系统中的每个模块给出足够详细的过程性描述。主要任务如下：①为每个模块确定采用的算法，选择某种适当的工具表达算法的过程，写出模块的详细过程性描述；②确定每一模块使用的数据结构；③确定模块接口的细节，包括对系统外部的接口和用户界面，对系统内部其它模块的接口，以及模块输入数据、输出数据及局部数据的全部细节。④要为每一个模块设计出一组测试用例，以便在编码阶段对模块代码（即程序）进行预定的测试，模块的测试用例是软件测试计划的重要组成部分，通常应包括输入数据，期望输出等内容。

2、详细设计的方法

程序流程图、N-S图、PAD图、IPO图

本系统在开发过程中所采用的详细设计方法为IPO图：

第四章数据库设计

4．1数据库Access简介

Access中文版是Microsoft Office 2000套装软件的数据库管理系统软件，是目前比较流行的小型桌面数据库管理系统，它适用于小型企业、学校、个人等用户，可以通过多种方式实现对数据收集、分类、筛选处理，提供用户查询或打印报表。

Access具有良好的界面，采用了与Windows和Microsoft Office系列软件完全一致的风格，用户可以通过菜单和对话框操作，不用编写任何命令便能有效地实现各种功能的操作，完成数据管理任务。Microsoft Office的一个集成化的程序设计语言是VBA(Visual Basic for Applications)，使用VBA可以创建非常实用的数据库应用系统。

Access可以作为个人计算机终端和大型主机系统之间的桥梁。通过如SQL、ODBC等特定技术，方便地存储、检索和处理服务器平台上的关键信息，提供了灵活、可靠、安全的客户/服务器解决方案。

Access可以接受多种格式的数据，从而方便了用户在不同系统之间进行数据转换。

随着Internet网络应用的发展，Access还增加了使用信息发布Web 向导和用HTML格式导出对象的功能。

数据库的概念

数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。

新建一个数据库

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

1．标识需要的数据；

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

3．标识主关键字字段；

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

5．规范数据；

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

7．创建物理表。

修改已建的数据库

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

实现数据库之间的联系

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

4．2数据库需求分析

根据调查有关单位的教师考核管理的实际情况，分析得到如下的数据库结构。

以科研经费管理的表为例，其余的表的信息参见目录下的“教师考核.mdb”数据库。

教师考核收支表：

收入/支出项目表：

用户管理表：

4．3表的详细结构说明

教师考核收支表的详细信息：

支出项目表的详细结构为：

用户管理表的详细结构为：

4．4测试用例

教师考核收支表的测试用例：

收入项目表的测试用例：

支出项目表的测试用例：

第五章系统的实现

5．1系统登录模块的实现

1．流程图

件。

3．实现过程：

第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图：

第二步，选择窗体或控件进行属性设置，如图为窗体的属性设置界面:

第三步双击相应的控件，在控件的相应过程中编写代码：

如此窗体上“进入”与“退出”按钮的代码如下：

Private Sub Command1_Click()

SQL = "select * from 用户管理 where user ='" & Trim(Text1.Text) & "'"

Data1.RecordSource = SQL

Data1.Refresh

If Data1.Recordset.EOF Then

MsgBox "没有此用户！", , "提示"

Data1.RecordSource = "用户管理"

Data1.Refresh

Else

If Trim(Text2.Text) = Trim(Text3.Text) Then

Form4.Show

Form1.Hide

Else

MsgBox "密码错误！", , "提示"

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

此程序段中，“IF”语句的作用是判断用户输入的用户名与密码和数据库的是否相同，如果相同，则执行Form1.hide（隐藏当前的窗体）和Form4.show（调出系统主界面），如果用户名或密码输入错误，则提示：

使用户重新输入用户名或密码。

Unload me语句的作用是下载窗体。

此窗体上另外还有Data1、Text3二个控件在程序运行时是看不到的，它们的作用是使VB与Access数据库相连，然后判断用户输入的用户名与密码是否与数据库中的一致，如果一致，则允许用户进入系统。此三个控件的创建方法如下：

首先，将Data、Text控件拖放到窗体上，其次，设置它们的属性：

数据库的名称

（1）Data1控件的属性设置如下：

Data1.DatabaseName = App.Path & "\教师考核.mdb"

此属性的作用是保证Data控件与数据库相连。

运行时是否隐藏

Visible属性是使此控件运行时在窗体上不显示。

（2）Text3控件的属性设置如下：

此数据控件绑定到何字段

此数据控件绑定到何数据库

Visible属性的设置同Data1控件。

5．2主界面的实现

主界面是用菜单形式表现的，如图：

菜单的制作过程如下：

首先通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置，如下图：

设置快捷键

调节菜单的级别

此过程中要注意各菜单的名称唯一，还要注意菜单的级别，另外此设计过程中我们还可以给菜单加快捷键。

最后设置如下的代码（只要单击菜单即可设置各菜单代码），部分代码如下：

Private Sub exit_Click()

End

End Sub

Private Sub SRWF_Click()

form2.Show

End Sub

Private Sub ZCWF_Click()

Form3.Show

End Sub

Private Sub szwf_Click()

Form5.Show

End Sub

Private Sub szcx_Click()

Form6.Show

End Sub

Private Sub YFGL_Click()

Form9.Show

End Sub

主要是通过Show方法调用相应的窗体。

5．3教师信息管理模块的实现

5．3．1教师信息维护模块的实现

1、流程图：

2、运行界面：

3、实现过程：

第一步将所需的控件放到表单的相应位置；方法：首先在“表单控件”工具栏先选中所需的控件图件，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到表单上,如上图：

包括的控件主要有：标签、文本框、命令按钮、组合框等。

第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。

第三步双击相应的控件，在控件的相应过程中编写程序。

数据库的连接方法同5.1，主要代码如下：

Private Sub Combo1_Click()

Text1(1).Text = Combo1.Text

End Sub

Private Sub Command1_Click()

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = True

Command5.Enabled = True

Combo1.Visible = True

DataCombo1.Visible = True

DataCombo2.Visible = True

增加记录

DataCombo3.Visible = True

Data1.Recordset.AddNew

Text1(1).Text = Combo1.Text

For i = 0 To 5

Text1(i).Enabled = True

Text1(0).SetFocus

End Sub

Private Sub Command2_Click()

If MsgBox("确认删除当前记录吗？", vbYesNo, "确认窗口") = vbYes Then

Command4.Enabled = False

Command5.Enabled = False

删除记录

Data1.Recordset.Delete

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then

Data1.Recordset.MoveLast

End If

End Sub

Private Sub Command3_Click()

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = True

Command5.Enabled = True

Combo1.Visible = True

DataCombo1.Visible = True

DataCombo2.Visible = True

修改记录

DataCombo3.Visible = True

Data1.Recordset.Edit

For i = 0 To 5

Text1(i).Enabled = True

Text1(0).SetFocus

End Sub

Private Sub Command4_Click()

Combo1.Visible = False

DataCombo1.Visible = False

更新记录

DataCombo2.Visible = False

DataCombo3.Visible = False

Data1.Recordset.Update

Data1.Recordset.MoveLast

For i = 0 To 5

Text1(i).Enabled = False

Command1.Enabled = True

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = False

Command5.Enabled = False

End Sub

Private Sub Command5_Click()

Combo1.Visible = False

DataCombo1.Visible = False

取消更新

DataCombo2.Visible = False

DataCombo3.Visible = False

Data1.Recordset.CancelUpdate

Command1.Enabled = True

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = False

Command5.Enabled = False

End Sub

Private Sub Command6_Click()

Unload Me

End Sub

Private Sub DataCombo1_Click(Area As Integer)

Text1(3).Text = DataCombo1.Text

End Sub

Private Sub DataCombo2_Click(Area As Integer)

Text1(4).Text = DataCombo2.Text

End Sub

Private Sub DataCombo3_Click(Area As Integer)

Text1(5).Text = DataCombo3.Text

End Sub

Private Sub Form_Load()

Combo1.AddItem "男"

Combo1.AddItem "女"

Data1.DatabaseName = App.Path & "\教师考核.mdb"

实现与数据库的连接

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\教师考核.mdb;Persist Security Info=False"

Adodc1.RecordSource = "专业"

Adodc1.Refresh

实现与数据库中的表的连接

Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\教师考核.mdb;Persist Security Info=False"

Adodc2.RecordSource = "系别"

Adodc2.Refresh

Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\教师考核.mdb;Persist Security Info=False"

Adodc3.RecordSource = "任教班级"

Adodc3.Refresh

End Sub

5．3．2教师信息查询模块的实现

1、流程图：

2、运行界面：

3、实现过程：

包括的控件主要有：标签、文本框、单选命令、表格等。

第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。

第三步双击相应的控件，在控件的相应过程中编写程序。

“查询”的主要代码如下：

Private Sub Command1_Click()

If Option1.Value Then

SQL = "select * from 教师基本情况 where 教师编号= '" & Trim(Text1.Text) & "' "

Data1.RecordSource = SQL

Data1.Refresh

If Data1.Recordset.EOF Then

MsgBox "没有此编号的教师情况！", , "提示"

Data1.RecordSource = "select * from 教师基本情况"

Data1.Refresh

End If

If Option2.Value Then

SQL = "select * from 教师基本情况 where 教师姓名 = '" & Trim(Text1.Text) & "' "

Data1.RecordSource = SQL

Data1.Refresh

If Data1.Recordset.EOF Then

MsgBox "没有该教师的情况！", , "提示"

Data1.RecordSource = "select * from 教师基本情况"

Data1.Refresh

End If

If Option3.Value Then

SQL = "select * from 教师基本情况 where 系别 = '" & Trim(Text1.Text) & "' "

Data1.RecordSource = SQL

Data1.Refresh

If Data1.Recordset.EOF Then

MsgBox "没有该系别的教师情况！", , "提示"

Data1.RecordSource = "select * from 教师基本情况"

Data1.Refresh

End If

End Sub

5．4教师任课管理模块的实现

5．4．1教师任课信息维护模块的实现

1、流程图：

2、运行界面：

3、实现过程：

包括的控件主要有：标签、文本框、命令按钮、DATA等。

第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。

第三步双击相应的控件，在控件的相应过程中编写程序。

代码同5.3。

5．4．2教师任课信息查询模块的实现

1、流程图：

2、运行界面：

3、实现过程：

包括的控件主要有：命令按钮、文本框、单选按钮、表格等。

第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。

第三步双击相应的控件，在控件的相应过程中编写程序。

代码如下：

Private Sub Command1_Click()

Label2.Caption = ""

Label1.Visible = True

If Option1.Value Then

SQL = "select * from 教师基本情况 where 教师编号= '" & Trim(Text1.Text) & "' "

Data1.RecordSource = SQL

Data1.Refresh

If Data1.Recordset.EOF Then

MsgBox "没有此编号的教师情况！", , "提示"

Data1.RecordSource = "select * from 教师基本情况"

Data1.Refresh

Label1.Visible = False

Else

bh = Trim(Text2.Text)

End If

If Option2.Value Then

SQL = "select * from 教师基本情况 where 教师姓名 = '" & Trim(Text1.Text) & "' "

Data1.RecordSource = SQL

Data1.Refresh

If Data1.Recordset.EOF Then

MsgBox "没有该教师的情况！", , "提示"

Data1.RecordSource = "select * from 教师基本情况"

Data1.Refresh

Label1.Visible = False

Else

bh = Trim(Text2.Text)

End If

SQL = "select * from 任课情况 where 教师编号= '" & bh & "' "

Data2.RecordSource = SQL

Data2.Refresh

If Data2.Recordset.EOF Then

MsgBox "没有此教师任课情况！", , "提示"

Data2.RecordSource = "select * from 任课情况"

Data2.Refresh

Label1.Visible = False

Else

c = Data2.Recordset.RecordCount

Data2.Recordset.MoveFirst

For n = 1 To c

a = a + Data2.Recordset("总课时数")

Data2.Recordset.MoveNext

Label2.Caption = a

End If

End Sub

5．5论文信息管理模块的实现

5．5．1论文信息维护模块的实现

1、流程图：

2、运行界面：

3．实现过程：

包括的控件主要有：标签、文本框、命令按钮、组合框等。

第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。

第三步双击相应的控件，在控件的相应过程中编写程序。

5．5．2论文信息查询模块的实现

1、流程图：

2、运行界面：

3．实现过程：

包括的控件主要有：标签、文本框、命令按钮、组合框等。

第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。

第三步双击相应的控件，在控件的相应过程中编写程序。

代码详见程序。

5．6科研经费管理模块的实现

5．6．1科研经费的收支与维护模块的实现

1、流程图：

2、运行界面：

1．实现过程：

第二步，选择窗体或控件进行属性设置，如图为日期文本框控件的属性设置界面:

数据源

对应的字段

其它属性和控件的设置方法类似。

第三步双击相应的控件，在控件的相应过程中编写代码：

的代码为：

Private Sub Command1_Click()

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = True

Command5.Enabled = True

Adodc1.Recordset.MoveLast

Adodc1.Recordset.AddNew

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

Text5.Enabled = True

DataCombo1.Enabled = True

Text1.SetFocus

End Sub

Private Sub Command2_Click()

If MsgBox("确认删除当前记录吗？"， vbYesNo， "确认窗口") = vbYes Then

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = True

Command5.Enabled = False

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

If Ado

5．6．2科研经费收支查询模块的实现

1．流程图：

3．实现过程：

包括的控件主要有：单选按钮、文本框、命令按钮、表格等。

第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。

第三步双击相应的控件，在控件的相应过程中编写程序。

下面把此界面的主要代码作一介绍：

按钮的代码如下：

Private Sub Command1_Click()

Dim strQuery As String

Command1.Enabled = False

Command2.Enabled = True

Command3.Enabled = True

d1 = Trim(Text1.Text)

d2 = Trim(Text2.Text)

Adodc1.CommandType = adCmdText

If Option1.Value = True Then

strQuery = "select * from 经费收支 where len(经费收入) and 日期>='" & d1 & "' And 日期<= '" & d2 & "'"

End If

If Option2.Value = True Then

strQuery = "select * from 经费收支 where len(经费支出) and 日期>='" & d1 & "' And 日期<= '" & d2 & "'"

End If

If Option1.Value = False And Option2.Value = False And Option3.Value = False Then

strQuery = "select * from 经费收支 where 日期>='" & d1 & "' And 日期<= '" & d2 & "'"

End If

If Option3.Value Then

strQuery = "select * from 经费收支 where 经手人='" & Trim(Text3.Text) & "'"

End If

Adodc1.RecordSource = strQuery

Adodc1.Refresh

If Adodc1.Recordset.RecordCount = 0 Then

MsgBox "不存在此记录!"

End If

End Sub

“继续”按钮的代码如下：

Private Sub Command2_Click()

Command1.Enabled = True

Command2.Enabled = False

Command3.Enabled = True

End Sub

此过程主要是借助于SQL（结构化查询语言）语句来进行查询，并通过Option按钮组判断用户选择的查询方式。然后通过Adodc1.RecordSource = strQuery来进行数据源更新。如果找不到要找数据，则提示退出。

表格用来存放查询的结果。表格的主要属性为：

表格的标题

数据源

“教师考核余额”的代码为：

Private Sub Command4_Click()

c = Adodc1.Recordset.RecordCount

Adodc1.Recordset.MoveFirst

For n = 1 To c

If Len(Adodc1.Recordset("经费收入")) Then

a = a + Adodc1.Recordset("金额")

Else

b = b + Adodc1.Recordset("金额")

End If

Adodc1.Recordset.MoveNext

MsgBox "收入为：" & a & " 支出为：" & b & Chr(13) + "教师考核余额为：" & Str(a - b), , "系统统计"

End Sub

统计满足条件的收入数、支出数、教师考核余额数，结果界面为：

5．7辅助功能模块的实现

下面主要以科研经费的收入项目和支出项目为例来进行介绍。

1．流程图：

2．运行界面：

3．实现过程：

包括的控件主要有：标签、文本框、命令按钮、DATA等。

第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。

第三步双击相应的控件，在控件的相应过程中编写程序。

现将控件的相应代码说明如下：

收入项目的

代码分别如下：

Private Sub Command1_Click()

If Command1.Caption = "新增" Then

Command1.Caption = "确定"

Data1.Recordset.AddNew

Text2.SetFocus

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Else

Command1.Caption = "新增"

Data1.Recordset.Update

Data1.Recordset.MoveLast

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

End If

End Sub

Private Sub Command2_Click()

Data1.Recordset.Delete

Data1.Recordset.MovePrevious

End Sub

Private Sub Command3_Click()

Data1.Recordset.Edit

Data1.Recordset.Update

End Sub

Private Sub Command4_Click()

Unload Me

Form4.Show

End Sub

支出项目的

代码同上。

5．8密码管理模块的实现

界面如下图：

数据库的连接方法同上。

界面的设计如下：

包括的控件主要有：标签、文本框、命令按钮、DATA等。

第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。

第三步双击相应的控件，在控件的相应过程中编写程序。

主要代码如下：

Private Sub Command1_Click()

If Trim(Text1.Text) = Trim(Text4.Text) Then

If Trim(Text2.Text) = Trim(Text3.Text) Then

Text4.Text = Text3.Text

Data1.UpdateRecord

MsgBox "密码修改成功！"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Else

MsgBox ("新密码与确认密码不符！")

Text2.Text = ""

Text3.Text = ""

Text2.SetFocus

End If

Else

MsgBox "原密码错误！"

Text1.Text = ""

Text1.SetFocus

End If

End Sub

Private Sub Command2_Click()

Form9.Hide

End Sub

5．9打印管理模块的实现

以教师基本信息打印为例。

运行界面：

实现过程：

第一步，创建DataEnvironment1，并新建一个连接Connection1。

第二步，再在Connection1下建立命令Command1，设置其属性如下：

连接的表

连接对象

第三步，建立DataReport1，设置如下界面：

第六章系统使用说明

6．1使用说明

1、运行于Windows 98以上操作系统。

2、数据库的默认路径：app.path\教师考核.mdb

3、系统默认用户名、密码：admin

6．2运行环境

1、运行环境：Windows 98以上操作系统。

2、JET数据引擎、ADO数据引擎。

参考文献

1.《数据库系统原理与应用》闪四清清华大学出版社 1999年

2.《Visual Basic 6.0程序设计》刘世峰中央广播电大出版社 2003年

3.《Visual Basic程序设计》陈明中央广播电大出版社 2001年

4.《软件工程》杨文龙电子工业出版社 2001年

5.《管理信息系统》薛华成清华大学出版社 1996年

技术分享官

关注

15
点赞
踩
14

收藏

觉得还不错? 一键收藏
0
评论
【精品毕设】基于JavaEE的教师考核管理系统（包含源码和论文）

这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。教师考核管理系统是每一个高等学校管理教师的不可缺少的一个管理信息系统，它的内容对于高等学校的管理者来说是至关重要的，所以教师考核管理系统应该能够为每一个高等学校的管理者提供充足的信息和快捷的查询手段，大大的方便高等学校的管理者。此窗体上另外还有Data1、Text3二个控件在程序运行时是看不到的，它们的作用是使VB与Access数据库相连，然后判断用户输入的用户名与密码是否与数据库中的一致，如果一致，则允许用户进入系统。
复制链接

扫一扫