莊嚴

摘 要： 本文闡述應用Visual basic6.0、 ACCESS（數(shù)據(jù)庫）、 SQL（查詢語言）等技術開發(fā)學生成績管理系統(tǒng)的過程，包括用戶管理、信息錄入、查詢、添加及刪除等功能，主要在使用Word對象后，直接對Word文檔中的表格進行讀取及修改，使系統(tǒng)更方便地輸入輸出數(shù)據(jù)，操作更簡單容易。

關鍵詞：學生成績管理 學生成績查詢 自動填表功能

1.概述

新世紀以高科技為核心，知識經(jīng)濟將占主導地位，國家的綜合國力和國際競爭力將越來越取決于科學技術創(chuàng)新水平。教育作為知識創(chuàng)新、傳播和應用的基礎，培養(yǎng)和輸送人才的搖籃，已經(jīng)成為經(jīng)濟發(fā)展和社會進步的基礎。本系統(tǒng)在VB的基礎上與Word對象相結合，在傳統(tǒng)輸入輸出的基礎上加入直接從Word文檔讀取的功能，使系統(tǒng)不再單一化，更方便快捷地對學生成績進行管理。如果本系統(tǒng)被學校所采用，則將改變以前靠手工管理學生成績的狀況，塑造良好的辦學形象，提高工作效率。

2.系統(tǒng)目標

根據(jù)現(xiàn)有的軟硬件及科學的管理系統(tǒng)開發(fā)方案，建立學生成績管理系統(tǒng)，實現(xiàn)對學生成績管理的自動化。這要求系統(tǒng)操作直觀、方便、實用、安全，提供詳細的學生成績信息；能夠隨時查閱在籍學生的成績。因此，本系統(tǒng)應用VB設計主窗體，可以添加用戶，讀取、修改和查詢數(shù)據(jù)庫內(nèi)容，并在VB中應用Word對象與SQL 語句從系統(tǒng)中直接讀取Word文檔中的相應內(nèi)容，并存入由ACCESS創(chuàng)建的數(shù)據(jù)庫中，從而實現(xiàn)對學生成績的管理，利用本系統(tǒng)也可生成相應的Word文檔。

3.問題識別

（1）功能需求

輸入功能：可以輸入學生的成績信息；可以讀取Word文檔。

修改功能：可以修改學生的成績信息；可以修改Word文檔。

查看功能：可以查看學生的成績情況。

輸出功能：可以生成相應的Word文檔。

（2）性能需求

要求系統(tǒng)能夠具有快速而又強大的統(tǒng)計功能，并有較強的安全性。

（3）環(huán)境要求

用戶要在WINDOWS下完成所有操作。

（4）用戶界面需求

軟件與用戶界面的友好性使用戶方便、有效、愉快地使用本系統(tǒng)。

4.自動填充功能的實現(xiàn)

在學生信息錄入、添加及刪除功能中，可以實現(xiàn)從Word文檔中錄入的功能。具體方法為：定義一個Word類型的application類型的對象，讓該對象與用戶選擇的具體Word文檔連接，在程序中操作Word文檔中的行或列，并對其中寫入信息實現(xiàn)限制、判別和檢查等功能。同時利用ADO數(shù)據(jù)控件可以把Word中輸入的數(shù)據(jù)或從用戶界面上輸入的數(shù)據(jù)加入到數(shù)據(jù)庫中，或反方向地操作，實現(xiàn)Word文檔和用用戶界面及數(shù)據(jù)庫的一致關聯(lián)。給不同用戶留下不同接口，并保證數(shù)據(jù)的一致性，主要代碼如下：

Dim wdapp As New Word.Application

Dim wddoc As Document

Set wddoc = wdapp.Documents.Open（Form4.CD1.FileName）

m = wddoc.Tables（1）.Cell（i， 1）

n = wddoc.Tables（1）.Cell（i， 2）

s = wddoc.Tables（1）.Cell（i， 7）

x = wddoc.Tables（1）.Cell（i， 8）

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields（″班級″） = Left（m， 7）

Adodc1.Recordset.Fields（″學號″） = Left（m， 9）

Adodc1.Recordset.Fields（″姓名″） = Left（n， 9）

Adodc1.Recordset.Fields（″成績″） = Left（s， 2）

Adodc1.Recordset.Fields（″專業(yè)″） = Text1.Text

Adodc1.Recordset.Fields（″學分″） = Text3.Text

Adodc1.Recordset.Fields（″類別″） = Combo1.Text

Adodc1.Recordset.Fields（″學時″） = Text4.Text

Adodc1.Recordset.Fields（″備注″） = ″″

Adodc1.Recordset.Fields（″備注″） = x

Adodc1.Recordset.Update

Adodc1.RecordSource = ″select * from student ″

Adodc1.Refresh

′wddoc.Close

wdapp.Quit ′退出Word軟件′

Adodc1.Refresh

參考文獻：

[1]劉炳文.Visual Basic 程序設計教程[M].清華大學出版社，2012：1-2.

[2]張堯學，史美林.計算機操作系統(tǒng)教程[M].清華大學出版社，2000：124-127.

[3]錢雪忠.新編Visual Basic 程序設計實用教程[M].機械工業(yè)出版社，2004：289-291.