论文部分内容阅读
随着我国中小学办学条件的不断改善，学校中的教育技术装备不断充实，教育技术装备管理信息化工作提上各级教育行政部门和教育技术装备部门的议程。近年来出现的这方面的管理软件，推动了这方面工作的发展，但它们作为市场运作的产物，过于强调技术的超前和自成一体，致使软件的开放性、操作简便性和性价比，往往不能适应实际需要。本文提出并实现的中小学教育技术装备管理系统，以Visual Basic 6.0为编程平台，用户界面采用Microsoft Office Web Components组件，数据库采用Microsoft Access和ADO数据库技术，报表打印采用Active Report控件，实现所见即所得的打印效果。系统数据对外交换有Excel格式、HTML格式和文本格式3种选择。由于采用当前我国微机广泛采用的微软公司产品和技术编程，程序用户界面友好，数据对外交换接口适应性强，使用操作简便，维护简易，与当前微机的流行工具软件高度兼容，充分适应中小学特别是农村中小学的现实需要。
1 系统功能模块
系统由信息管理子系统、维护子系统和帮助子系统构成。信息子系统包括数据录入、数据查询、数据修改、数据对外交换、报表打印等功能。维护子系统包括用户管理和数据维护等功能。系统的功能模块结构如图1所示。
系统的主界面由包含左右2个窗格的主窗口构成。主窗口还包含窗口标题、菜单、工具条和状态条。主窗口中的左窗格为Treeview树型目录控件，该窗格中的树型目录标示各学科名称。右窗格为Microsoft Office Web Components组件的Spreadsheet电子表格控件,该窗格用于数据的录入、查询、修改。主窗口底部的状态条，显示数据窗格中的数据统计分析信息。
2.2 数据库设计数据库是管理系统的核心。本系统选择Microsoft Access作为管理系统的后台数据库。数据库各数据表名称与系统主界面的树型目录窗格的目录名称相连接。数据表包含装备的编号、名称、规格型号、单位、单价、数量和价值金额等信息。系统的数据流程如图3所示。
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 ;"
1 系统功能模块
系统由信息管理子系统、维护子系统和帮助子系统构成。信息子系统包括数据录入、数据查询、数据修改、数据对外交换、报表打印等功能。维护子系统包括用户管理和数据维护等功能。系统的功能模块结构如图1所示。
系统的主界面由包含左右2个窗格的主窗口构成。主窗口还包含窗口标题、菜单、工具条和状态条。主窗口中的左窗格为Treeview树型目录控件，该窗格中的树型目录标示各学科名称。右窗格为Microsoft Office Web Components组件的Spreadsheet电子表格控件,该窗格用于数据的录入、查询、修改。主窗口底部的状态条，显示数据窗格中的数据统计分析信息。
2.2 数据库设计数据库是管理系统的核心。本系统选择Microsoft Access作为管理系统的后台数据库。数据库各数据表名称与系统主界面的树型目录窗格的目录名称相连接。数据表包含装备的编号、名称、规格型号、单位、单价、数量和价值金额等信息。系统的数据流程如图3所示。
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 ;"