莊嚴(yán)

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

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

1.概述

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

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

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

3.問(wèn)題識(shí)別

（1）功能需求

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

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

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

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

（2）性能需求

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

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

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

（4）用戶界面需求

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

4.自動(dòng)填充功能的實(shí)現(xiàn)

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

Adodc1.Recordset.Fields（″學(xué)號(hào)″） = Left（m， 9）

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

Adodc1.Recordset.Fields（″成績(jī)″） = Left（s， 2）

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

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

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

Adodc1.Recordset.Fields（″學(xué)時(shí)″） = 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

參考文獻(xiàn)：

[1]劉炳文.Visual Basic 程序設(shè)計(jì)教程[M].清華大學(xué)出版社，2012：1-2.

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

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