用Excel 实现职工信息库的高效维护

☆ 仲 勇

（海安县立发中学，江苏海安 226611）

在许多单位的各类数据管理中经常会用到Access 数据库，而操作者最熟悉的却是Excel 程序，如果能将Excel程序作为操作的平台，而用Access 作为后台数据库来存储和维护数据那就非常方便了。那如何解决两个应用程序间的接口的问题呢？接下来笔者就给大家介绍最常见的一种方法，即利用ADO 实现对Access 数据库的操作。

小贴士：ADO 是ActiveX Data Objects 的缩写，又称为OLE 自动化接口，是微软通用的数据库访问技术。利用ADO 可 以 访 问 包 括Access、SQLServer、Oracle 等 多 种类型的数据库。

在Excel 中使用ADO 前必须要设置ADO 控件的引用。引用的方法是：在Excel VBA 窗口中，单击“编辑”菜单中的“引用”命令，打开“引用－VBAProject”对话框，选中“可使用的引用” 列表框中的“Microsoft Active Data Objects 2．8 Library”、“Microsoft Active Data Objects Recordset 2．8 Library”、“Microsoft Jet and Replication Object 2．6 Library” 和“Microsoft Date and Time Picker Control 6．0 (SP4)”（测试Office 的版本为2003，如图1），单击“确定”按钮即可。

图1

假设某单位的职工信息库为Access 数据库，文件名为“信息库．mdb”，库中有一张名为“工资表”的表，将Excel 工作簿与该MDB 库文件保存在同一路径下。

一、设计应用程序界面

首先，在VBA 编辑器中插入一个用户窗体，利用窗体控件设计（如图2 所示）的用户界面。在窗体的“信息录入或显示” 区域中放置的是用来显示数据库中各个字段内容所对应的控件；下方放置的是对数据库进行维护的功能按钮（CommandButton1－CommandButton4），右侧放置的用来浏览数据的功能按钮（CommandButton6－CommandButton9）。

图2

二、编写事件代码

（1）首先，对用户窗体进行初始化，代码如下：

（2）编写用于实现数据库维护的“添加”、“删除”、“查询”、“更新”的代码：

（3）调用“显示信息”的子程序，用于用户窗体中记录的显示。

（4）分别编写实现“首字录”、“下一条”、“上一条”、“最末条”等用来浏览数据库记录的按钮代码：

（5）应用程序窗体关闭时要求确认的代码：

另外，还要在工作表中添加一个命令按钮，在按钮的Click 事件中编写调用用户窗体的代码“UserForm1．Show”，这样，单击该按钮后就可以看到（如图2 所示）操作界面了。

至此，职工信息管理系统的设计就完成了，限于篇幅，我们就不对各个功能按钮的调试进行逐一的介绍了，读者朋友可下载本案例的示例程序自行调试。