曲良東 黃春毅

摘要：本文設(shè)計款軟件協(xié)助處理綜合測評工作。該軟件操作簡單、不用維護(hù)，大大提高了學(xué)校的工作效率，減輕了班委、老師們的工作負(fù)擔(dān)。

關(guān)鍵詞：管理信息、綜合測評、VB

中圖分類號：G642.0 文獻(xiàn)標(biāo)志碼：A 文章編號：1674-9324（2016）45-0262-02

一、引言

隨著素質(zhì)教育的不斷深入，學(xué)生綜合素質(zhì)評價也成為了人才評價的一個標(biāo)準(zhǔn)，很多學(xué)校每年都要對學(xué)生進(jìn)行綜合測評，綜合測評的計算量很大，而且由每個學(xué)生自己填表，再交給班委進(jìn)行審核計算，打印，簽字，存檔，整個過程很繁瑣，往往花了很大的力氣還會出現(xiàn)一些問題，如統(tǒng)計失誤、人為計算失誤等。另外作為獎助學(xué)金評定的依據(jù)——學(xué)生綜合測評分是否能夠及時、準(zhǔn)確、公平的算出來關(guān)系十分重大，所以急需一個計算簡便，容易操作的軟件來代替人為的手工計算，提高計算效率、準(zhǔn)確度，使整個過程公開公平。該軟件操作簡單、不用維護(hù)，大大提高了學(xué)校的工作效率，減輕了班委、老師們的工作負(fù)擔(dān)。

二、需求分析

綜合測評軟件開發(fā)的目的是自動計算、快速審核、統(tǒng)計測評數(shù)據(jù)，減少人工干預(yù)，降低計算失誤，提高工作效率，將輔導(dǎo)員、班主任、班委從繁重的綜合測評及日常管理中解放出來，使學(xué)校的綜合測評工作系統(tǒng)化、規(guī)范化、自動化。通過調(diào)查，要求軟件需要有以下功能：（1） 要求有良好的人機(jī)界面，操作簡單。（2） 由于該軟件的使用對象學(xué)生和班級管理人員。（3） 數(shù)據(jù)計算自動完成，盡量減少人工干預(yù)。

三、可行性分析

由于本軟件的對象單一，都是在校學(xué)生，且每個數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉及的計算過程不是很復(fù)雜。因此，比較適合于采用excel表格管理。熟悉VB編程。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其他程序的功能，因此完全可以實現(xiàn)。

四、 軟件實現(xiàn)

（1） 統(tǒng)一命名功能主要代碼

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） 統(tǒng)計收文情況主要代碼

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） = "文件數(shù)"

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

五、 結(jié)論

在本軟件系統(tǒng)必然會存在一些缺陷和不足。但其功能全面、易于日后程序更新、界面友好、操作方便、效率高是本軟件系統(tǒng)的特點。在這次設(shè)計與開發(fā)中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會了軟件設(shè)計的思維方法，以及與同學(xué)們之間相互幫助的精神。

參考文獻(xiàn)：

[1]劉炳文.Visual Basic程序設(shè)計教程（第三版）[M].北京，清華大學(xué)出版社.2006（08）.

[2]張海藩.軟件工程導(dǎo)論（第5版）[M].北京，清華大學(xué)出版社.2008（02）.