学生综合测评助手软件设计与开发

曲良东 黄春毅

摘要：本文设计款软件协助处理综合测评工作。该软件操作简单、不用维护，大大提高了学校的工作效率，减轻了班委、老师们的工作负担。

关键词：管理信息、综合测评、VB

中图分类号：G642.0 文献标志码：A 文章编号：1674-9324（2016）45-0262-02

一、引言

随着素质教育的不断深入，学生综合素质评价也成为了人才评价的一个标准，很多学校每年都要对学生进行综合测评，综合测评的计算量很大，而且由每个学生自己填表，再交给班委进行审核计算，打印，签字，存档，整个过程很繁琐，往往花了很大的力气还会出现一些问题，如统计失误、人为计算失误等。另外作为奖助学金评定的依据——学生综合测评分是否能够及时、准确、公平的算出来关系十分重大，所以急需一个计算简便，容易操作的软件来代替人为的手工计算，提高计算效率、准确度，使整个过程公开公平。该软件操作简单、不用维护，大大提高了学校的工作效率，减轻了班委、老师们的工作负担。

二、需求分析

综合测评软件开发的目的是自动计算、快速审核、统计测评数据，减少人工干预，降低计算失误，提高工作效率，将辅导员、班主任、班委从繁重的综合测评及日常管理中解放出来，使学校的综合测评工作系统化、规范化、自动化。通过调查，要求软件需要有以下功能：（1） 要求有良好的人机界面，操作简单。（2） 由于该软件的使用对象学生和班级管理人员。（3） 数据计算自动完成，尽量减少人工干预。

三、可行性分析

由于本软件的对象单一，都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用excel表格管理。熟悉VB编程。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其他程序的功能，因此完全可以实现。

四、 软件实现

（1） 统一命名功能主要代码

d = Dir（App.Path & "＼*.xls"）

Dim EXLAPP As Excel.Application

Dim xlBook As Excel.Workbook

Dim EXLSHEET As Excel.Worksheet

Set EXLAPP = CreateObject（"excel.application"）

EXLAPP.Visible = False

Dim FileNa As String

Set xlBook = EXLAPP.Workbooks.Open（App.Path & "＼" & d）

Set EXLSHEET = xlBook.Sheets（1）

EXLSHEET.Activate

If EXLSHEET.Cells（1， 19） = "ZongHecePingBiao" Then '有效表

FileNa = KillSpace（EXLSHEET.Cells（2， 6））

EXLAPP.DisplayAlerts = False

EXLAPP.ActiveWorkbook.Close SaveChanges：=True

Name App.Path & "＼" & d As App.Path & "＼" & FileNa & "综合测评表" & num & ".xls"

End If

（2） 统计收文情况主要代码

d = Dir（App.Path & "＼*.xls"）

Call EXLAPP.Workbooks.Add

Set EXLSHEET1 = EXLAPP.ActiveSheet

EXLSHEET1.Cells（1， 1） = "综合测评表收回情况表"

EXLSHEET1.Cells（2， 1） = "序号"

EXLSHEET1.Cells（2， 2） = "姓名"

EXLSHEET1.Cells（2， 3） = "收回情况"

EXLSHEET1.Cells（2， 4） = "文件数"

Open "C：＼evaluation_file＼names.txt" For Input As #1

ReDim Preserve StrZ（I） As String

ReDim Preserve beizhu（I）

k = 0

While Not EOF（1）

Line Input #1， str1

k = k + 1

EXLSHEET1.Cells（k + 2， 1） = k

str1 = KillSpace（str1）

EXLSHEET1.Cells（k + 2， 2） = str1

EXLSHEET1.Cells（k + 2， 3） = "未收回"

StrZ（k） = str1

beizhu（k） = 0

Wend

Close #1

（3） 审核功能主要代码

On Error Resume Next

If （Option1.Value = True） And （Option2.Value = False） And （Option3.Value = False） Then

EXLSHEET.Cells（33， 19） = 1

EXLSHEET.Cells（1， 7） = Trim（Combo1.Text）

EXLSHEET.Cells（32， 4） = Trim（Text2.Text）

EXLSHEET.Cells（2， 3） = Trim（Text3.Text）

EXLAPP.DisplayAlerts = False

EXLAPP.ActiveWorkbook.Close SaveChanges：=True

FileCopy App.Path & "＼" & d2， App.Path & "＼已通过＼" & d2

Kill App.Path & "＼" & d2

ElseIf （Option1.Value = False） And （Option2.Value = True） And （Option3.Value = False） Then

EXLSHEET.Cells（33， 19） = 2

EXLSHEET.Cells（1， 7） = Trim（Combo1.Text）

EXLSHEET.Cells（32， 4） = Trim（Text2.Text）

EXLSHEET.Cells（2， 3） = Trim（Text3.Text）

EXLAPP.DisplayAlerts = False

EXLAPP.ActiveWorkbook.Close SaveChanges：=True

FileCopy App.Path & "＼" & d2， App.Path & "＼未通过＼" & d2

Kill App.Path & "＼" & d2

ElseIf （Option1.Value = False） And （Option2.Value = False） And （Option3.Value = True） Then

EXLSHEET.Cells（33， 19） = 0

EXLSHEET.Cells（1， 7） = Trim（Combo1.Text）

EXLSHEET.Cells（32， 4） = Trim（Text2.Text）

EXLSHEET.Cells（2， 3） = Trim（Text3.Text）

EXLSHEET.Cells（32， 13） = ""

EXLAPP.DisplayAlerts = False

EXLAPP.ActiveWorkbook.Close SaveChanges：=True

ElseIf （Option1.Value = False） And （Option2.Value = False） And （Option3.Value = False） Then

SetWindowPos Me.hWnd， -2， 0， 0， 0， 0， 3

MsgBox "" & vbCrLf & "您没有点选意见！ " & vbCrLf， vbExclamation， "警告"

SetWindowPos Me.hWnd， -1， 0， 0， 0， 0， 3

Exit Sub

End If

五、 结论

在本软件系统必然会存在一些缺陷和不足。但其功能全面、易于日后程序更新、界面友好、操作方便、效率高是本软件系统的特点。在这次设计与开发中的最大收获并不是掌握这几门开发工具的应用，而是学会了软件设计的思维方法，以及与同学们之间相互帮助的精神。

参考文献：

[1]刘炳文.Visual Basic程序设计教程（第三版）[M].北京，清华大学出版社.2006（08）.

[2]张海藩.软件工程导论（第5版）[M].北京，清华大学出版社.2008（02）.