學(xué)生成績錄入系統(tǒng)中自動填表功能的設(shè)計與實現(xiàn)

莊嚴(yán)

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

關(guān)鍵詞：學(xué)生成績管理 學(xué)生成績查詢 自動填表功能

1.概述

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

2.系統(tǒng)目標(biāo)

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

3.問題識別

（1）功能需求

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

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

查看功能：可以查看學(xué)生的成績情況。

輸出功能：可以生成相應(yīng)的Word文檔。

（2）性能需求

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

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

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

（4）用戶界面需求

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

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

在學(xué)生信息錄入、添加及刪除功能中，可以實現(xiàn)從Word文檔中錄入的功能。具體方法為：定義一個Word類型的application類型的對象，讓該對象與用戶選擇的具體Word文檔連接，在程序中操作Word文檔中的行或列，并對其中寫入信息實現(xiàn)限制、判別和檢查等功能。同時利用ADO數(shù)據(jù)控件可以把Word中輸入的數(shù)據(jù)或從用戶界面上輸入的數(shù)據(jù)加入到數(shù)據(jù)庫中，或反方向地操作，實現(xiàn)Word文檔和用用戶界面及數(shù)據(jù)庫的一致關(guān)聯(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（″學(xué)號″） = Left（m， 9）

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

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

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

Adodc1.Recordset.Fields（″學(xué)分″） = Text3.Text

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

Adodc1.Recordset.Fields（″學(xué)時″） = 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 程序設(shè)計教程[M].清華大學(xué)出版社，2012：1-2.

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

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