基于ＶＢ的中小學教育技術裝備管理系統的設計與實現

隨著我國中小學辦學條件的不斷改善，學校中的教育技術裝備不斷充實，教育技術裝備管理信息化工作提上各級教育行政部門和教育技術裝備部門的議程。近年來出現的這方面的管理軟件，推動了這方面工作的發展，但它們作為市場運作的產物，過于強調技術的超前和自成一體，致使軟件的開放性、操作簡便性和性價比，往往不能適應實際需要。本文提出并實現的中小學教育技術裝備管理系統，以Visual Basic 6.0為編程平臺，用戶界面采用Microsoft Office Web Components組件，數據庫采用Microsoft Access和ADO數據庫技術，報表打印采用Active Report控件，實現所見即所得的打印效果。系統數據對外交換有Excel格式、HTML格式和文本格式3種選擇。由于采用當前我國微機廣泛采用的微軟公司產品和技術編程，程序用戶界面友好，數據對外交換接口適應性強，使用操作簡便，維護簡易，與當前微機的流行工具軟件高度兼容，充分適應中小學特別是農村中小學的現實需要。

1 系統功能模塊

系統由信息管理子系統、維護子系統和幫助子系統構成。信息子系統包括數據錄入、數據查詢、數據修改、數據對外交換、報表打印等功能。維護子系統包括用戶管理和數據維護等功能。系統的功能模塊結構如圖1所示。

各模塊的功能分別是：系統管理模塊用于系統的用戶管理、權限設置以及數據備份和恢復；儀器管理模塊、藥品管理模塊、設備管理模塊、場館管理模塊和實驗教學管理模塊用于相關對象的信息錄入、查詢、修改和統計分析；數據交換和打印模塊用于數據的對外交換導入導出、報表的預覽及打印。

2 系統的實現

2.1 系統的主界面（圖2）

系統的主界面由包含左右2個窗格的主窗口構成。主窗口還包含窗口標題、菜單、工具條和狀態條。主窗口中的左窗格為Treeview樹型目錄控件，該窗格中的樹型目錄標示各學科名稱。右窗格為Microsoft Office Web Components組件的Spreadsheet電子表格控件，該窗格用于數據的錄入、查詢、修改。主窗口底部的狀態條，顯示數據窗格中的數據統計分析信息。

2.2 數據庫設計數據庫是管理系統的核心。本系統選擇Microsoft Access作為管理系統的后臺數據庫。數據庫各數據表名稱與系統主界面的樹型目錄窗格的目錄名稱相連接。數據表包含裝備的編號、名稱、規格型號、單位、單價、數量和價值金額等信息。系統的數據流程如圖3所示。

2.3 數據對外交換和報表打印模塊設計本系統預設的數據對外交換接口，能以Excel格式、HTML格式、文本格式等3種格式導人和導出數據，實現與其他微機上的工具軟件無縫連接。

系統的報表打印模塊采用Active Report控件實現所見即所得效果，在系統主界面數據窗格顯示的數據，以原表格的邏輯形式顯示打印預覽，并可設置打印參數（打印頁數、放大縮小等），然后打印。打印模塊的界面如圖4所示。

3 Visual Basic 6.0的關鍵代碼

數據庫與系統主界面數據窗格Spreadsheet控件連接的代碼大致如下：

Dim Con As ADODB.Connection

Dim Rs As ADODB.Recordset

Set Con = New ADODB.Connection

Con.ConnectionString = _

\"Provider=Microsoft.Jet.OLEDB.4.0 ;\" _

\"data source = \" App.Path \"\\db1.mdb\"

Con.Open

Set Rs = Con.Execute(\"select * from \" TableName \" Where\" FieldName \" = '\" FieldVaLue \"'\")

Dim i As Integer

Dim h As Integer

h = 1

Do

For i = 0 To Rs.Fields.Count – 1

frmName.Spreadsheet1.Cells(h， 1).Offset(1， i).Value = Rs.Fields(i).Value

Next i

Rs.MoveNext

h = h + 1

Loop

數據庫與系統主界面樹型目錄窗格ActiveReport控件連接的代碼大致如下：

Dim nodX As Node

Set nodX = TreeView1.Nodes.Add(， ， \"R\"， \"儀器管理\"， 9)

Set Con = New ADODB.Connection

Con.ConnectionString = _

\"Provider=Microsoft.Jet.OLEDB.4.0 ;\" _

\"data source = \" App.Path \"\\db1.mdb\"

Con.Open

For i = 2 To frmName.TreeView1.Nodes.Count

t = frmName.TreeView1.Nodes(i).Text TableNamers

Rs.Open (\"Select Distinct mingcheng From \" t \"\")

Rs.Close

Next

數據庫數據多文件格式導出代碼大致如下：

With CommonDialog1

.DialogTitle = \"另存為\"

.Filter = \"Microsoft Excel 工作簿 (*.xls)|*.xls|\"

.FileName = \"*.xls\"

.InitDir = \"C:\\\"

.ShowSave

End With

Set C = Spreadsheet1.Constants

Spreadsheet1.ActiveSheet.Export CommonDialog1.FileName， C.ssExportActionNone

報表打印所見即所得技術代碼大致如下：

rptSheBeiQingChe.Field1.Text = txtNod

rptSheBeiQingChe.Field2.DataValue = Spreadsheet1.Range(\"B2\").Text

4 結束語

本文提出并實現的中小學教育技術裝備管理系統，管理范圍包括中小學各學科的儀器、設備、藥品、場館以及實驗教學情況等，管理的內容涵蓋了計劃采購、保管使用和財產統計等裝備工作的全過程，可與學校的教學管理、資源管理和財務管理相匹配，能滿足學校內部管理和教育行政部門、教育技術裝備部門對中小學教育技術裝備信息監控、管理的需要。該系統在128 M內存，主頻1.6 G，操作系統Windows XP的環境上運行，情況良好。