用VB开发中职学校国家助学金管理软件

林桂明

（湛江财贸学校，广东 湛江 524094）

用VB开发中职学校国家助学金管理软件

林桂明

（湛江财贸学校，广东 湛江 524094）

基于实际应用的需求，通过VB6.0开发平台，利用ADO对象访问ACCESS数据库技术，开发中职学校国家助学金管理软件。该软件具有三大功能模块：一是导入导出excel表格数据模块；二是数据维护与查询模块；三是统计模块。该软件可在Windows操作平台下独立运行。软件界面友好，操作方便，运行可靠稳定。

VB6.0；ADO对象；ACCESS数据库；excel数据；国家助学金

一 应用需求的提出

笔者就职于一所国家级重点普通中专学校，学校规模较大，在校生人数较多，达7200多人。符合国家助学金资助条件的学生比例也较大，06-09年受助学生总人数分别为949、1303、2370、3155，呈上升趋势。08年以前都是用excel表格来管理受助学生的信息和助学金的发放，虽然excel表格管理比以往纸质资料管理有了很大的进步，但是由于受助学生人数较多且逐年增加，而且每学期都要发放几次助学金，造成助学金发放的统计和查询的难度大大增加；另外，学生丢失银行卡或退学等情况发生时，都要不断地修改数据，而相关的excel表格较多时，经常是改了这个忘了改另一个，管理起来很不方便；因此，在实际应用中，excel表格在数据安全、数据查询、智能分析、数据维护等方面显得功能不足，许多繁琐的工作在不断地重复，造成大量人力、物力的浪费。为了提高国家助学金发放和管理工作的效率，笔者利用VB平台和ACCESS数据库管理系统开发了一套适合中职学校国家助学金管理的软件，也作为VB数据库程序设计教学的完整案例。下面介绍该管理软件的设计思路、代码实现及运行界面。

二 软件的总体设计

学生国家助学金申请成功后，接着就是助学金的发放工作了，大概每学期都有两次助学金发放，发放工作过程是：打印学生签领表，学生签领后将表交回来，根据学生签领的情况（有些学生银行卡丢失了或有的学生请假了等等）修改数据，进行发放处理，然后导出发放表excel电子文档和打印纸质发放表送给财务室，财务室根据发放表到银行发放助学金，最后等银行发放无误后进行发放汇总。根据发放流程，设计出该软件的功能模块图如下。

图1.国家助学金管理软件功能模块

三 数据库的设计及链接

（一）数据库设计

目前，发开数据库应用软件使用的数据库管理系统有很多，如Oracle、SQL Server、Sybase、Access等等，由于Access适合开发小型数据库应用软件，数据库功能比较齐全，是Office办公软件包的一个组成部份，大多数电脑都安装有Office软件，这样软件发布时不用额外安装其他的数据库管理软件，因此该软件采用Access数据库既可以满足数据量的要求，又有运行平台普及的优势。首先设计该软件的数据库“助学金.mdb”，根据该软件数据需要，数据库包含4个基本数据表，分别是：年级、班级、汇总表、发放表，其中汇总表和发放表根据年级的增加而生成新的表，如增加2009年级，就通过复制“汇总表”和“发放表”分别生成“2009级汇总表”和“2009级发放表”，这样每一年级的汇总表和发放表数据分开存放，方便管理数据。

（二）数据库的链接

VB提供了多种链接Access数据库的方法，该软件利用面向对象的ADO技术实现对数据库的访问。ADO(ActiveX Data Object)是ActiveX数据对象，是Microsoft公司开发数据库应用程序面向对象的新接口。

首先在工程中引用“Microsoft ActiveX DataObjects 2．1 Library”。然后在窗体的通用声明部分分别定义一个

Connection对象和RecordSet对象：

Dim cnn As ADODB.Connection

Dim rs As ADODB.Recordset

接着在窗体的Form_Load()事件中新建一个Connection对象的实例并将它赋给conn数据源，新建一个Recordset对象的实例并使用Recordset对象的Open方法打开数据库助学

金.mdb的年级表，此时"select * from 班级"查询结果便是记录集rs的数据源，要访问不同的数据表，只需更改查询字符串"select * from 班级"即可。

Private Sub Form_Load()

Set cnn = New ADODB.Connection Set rs = New ADODB.Recordset cnn.ConnectionString =

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &

App.Path & "助学金.mdb;Persist Security Info=False"

cnn.CursorLocation = adUseClient

cnn.Open

rs.Open "select * from 班级", cnn, adOpenDynamic, adLockPessimistic

End Sub

四 软件的主要功能模块的实现及界面设计

（一）通过代码将excel数据导入助学金数据库及将数据导出到excel文件

由于学生信息数据“汇总表”是每班的班主任整理好并录入到excel电子文档发来的，如果还要将学生信息一个个录入到软件中就重复工作，费时费力，所以将excel数据表一次导入到数据库中的数据表“汇总表“是很好的处理方法。由于要链接excel表，必须先在工程中引用excel对象库(采用Microsoft Excel 11．0 Object Library)。然后编写connection对象字符串为 "Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=" & xname & ";extended properties=excel 8.0;persist security info=false"，Recordset对象字符串为 "select * from [excel 8.0;database=" & xname & "].[sheet1$]"。最后使用SQL的insert into语句将excel数据一条条地插入数据表中。

另外，要将“汇总表”和“发放表”保存成excel文件方便以后数据共享和分析，所以要导出数据到excel文件。由于“汇总表”表头较复杂，所以不直接用VB代码编写表头，而是将“汇总表”的excel表头保存为模板（excel文件），这样每次导出汇总表时，先复制表头模板，然后再一条条记录地写到表头下面，省去不少代码。而“发放表”的表头较简单，就直接用VB代码编写。

（二）数据维护与查询

为了实现修改数据和删除数据，必须先选择记录，但MSHFlexGrid控件没有自含的CheckBox复选框选项，为了界面友好操作，在第一列的所有单元中显示没有选中的复选框小图片，当用户用鼠标单击该单元时，就在该单元格中显示“√”，表示选中状态来模拟CheckBox复选框，具体代码实现如下：

该软件数据查询部分采用SQL(结构化查询语言)中的select语句编写查询代码，支持多条件组合查询，支持模糊查询，查询速度快且准。

flexdata '调用过程，在MSFlexGrid控件中显示rs记录集数据。

Label2.Caption = "人数：" & rs.RecordCount & "人" Label2.Visible = True

End Sub

（三）数据统计

根据统计条件查询出记录集rs，并将数据显示在MSHFlexGrid中，最后调用过程Sumdata()将总人数和每次发放的总金额统计出来显示在MSHFlexGrid表格下面。由于发放次数是不确定的，动态增加的，一般一个学期最多发放两次，总共有4个学期，所以一个学生在两年内大概有8次左右的助学金发放，做统计时，必须将每一次的发放总人数和总金额都统计出来，所以用两个数组b(10)和a(10)根据发放次数分别存放每次的发放总人数和总金额。界面和代码如下：

五 结束语

该软件很好地利用了原有的excel表格数据，实现了与excel表格数据的双向便捷交换，同时提供了较强的数据维护、查询与统计功能；而且可在Windows操作平台下独立运行，软件界面友好，操作方便，运行可靠稳定。实践证明，比用excel处理国家助学金数据方便快捷，数据查询统计又准又快，大大提高了工作效率。在教学方面，该软件也为中职学校VB数据库程序设计教学提供了一个完整案例。

[1]高春艳,李艳,谷伟东.数据库开发关键技术与实例应用[M].北京:人民邮电出版社,2004:115-122.

[2]陈虹颐,何春.VB6.0中利用ADO对象实现数据库编程[J].甘肃科技,2007,(4).

[3]艾宁,周欢怀.用Visual Basic 6.0语言开发气体溶解度计算软件[J].浙江化工,2004,(3):24-26.

（责任编校：燕廉奚）

G718.3

A

1673-2219（2010）08-0068-04

2010－03－20

林桂明（1971－），女，广东湛江遂溪人，湛江财贸学校讲师，从事研究方向为计算机教学。