excel图表制作：制作具有数据导航功能的用户窗体 _知识经验

本文述如何连接用户窗体与ADO记录集，最终创建一个与Access窗体相似的用户窗体，可以导航至前一条记录、下一条记录、第一条记录、最后一条记录，等等。
设计用户窗体
在VBE中，插入一个用户窗体，在其中添加文本框、按钮、标签等控件，如下图1所示。

文章插图
图1
这个用户窗体中的控件及相应的名称如下：

用户窗体名称：ufEmployee
用户窗体标题：员工记录
在用户窗体中，从上至下，从左至右，创建下面的控件：
员工ID文本框名称：tbxEEID
Tag：Field0
姓氏文本框名称：tbxLastName
Tag：Field1
名字文本框名称：tbxFirstName
Tag：Field2
出生日期文本框名称：tbxBirthDate
Tag：Field3
雇用日期文本框名称：tbxHireDate
Tag：Field4
命令按钮名称：cmdFirst
Caption： <<
Tag：ButtonFirst
命令按钮名称：cmdPrev
Caption： <
Tag：ButtonPrev
命令按钮名称：cmdNext
Caption： >
Tag：ButtonNext
命令按钮名称：cmdLast
Caption：
Tag：ButtonLast

编写代码
下面，编写代码来管理这个用户窗体，即处理数据和用户窗体中的控件。
这个用户窗体需要6个事件：Initialize（当用户窗体打开时）、QueryClose（当用户窗体关闭时），以及每个命令按钮的单击事件。
需要使用事件代码将记录集的当前记录显示在文本框中、以及阻止用户错误操作，例如当处于第一条记录时单击命令按钮cmdPrev（<）。
在用户窗体模块中，声明两个模块级的变量：

Dim mADOCon As ADODB.Connection
Dim mADORs As ADODB.Recordset

使用模块级变量的原因是：当用户窗体开启时，Connection和Recordset对象在作用域内。
下面的过程使用记录集中当前记录的数据填充文本框。

Private Sub FillTextBoxes()
Dim cTxtBx As Control
Dim lFldNo As Long
For Each cTxtBx In Me.Controls
If cTxtBx.Tag Like “Field*”Then
lFldNo = Mid(cTxtBx.Tag, 6)
cTxtBx.Text = mADORs.Fields(lFldNo)
End If
Next cTxtBx
End Sub

记得前面在设计用户窗体时给文本框设置的Tag属性吗？接下来看看我们为什么设置这个属性。
上面的程序代码遍历用户窗体中所有的控件，如果控件具有像Field0、Field1、Field2等形式的标签（tag），就从记录集中获取与标签相同名称字段的数据来填充相应的文本框。当打开用户窗体或者单击任一按钮时，需要改变文本框来响应事件。因此，Initialize事件和四个按钮中任一按钮的单击事件都将调用上面的程序。在调用上面的程序之前，这些事件将首先设置当前记录。
上述程序代码的一个好处是，你可以添加和删除文本框，而无须修改代码。前提是只要正确填写了Tag属性，就会正确填充文本框。然而，不会检查来确保字段实际存在。例如，如果设置一个Tag为Field10，但记录集仅有9个字段，那就会弄混淆。在示例代码中，为了简单起见，我们不会创建这样明确的错误检查代码。
下面的程序代码控制命令按钮（CommandButtons）。假如已经到达第一条记录，我们不想提供给用户到达第一条记录或者前一条记录的按钮选项，因为已经是第一条记录，没有更前一条记录了。同样地，当前记录是最后一条记录时，禁用最后一条记录和下一条记录按钮。每次触发一个事件时，都要确保按钮响应当前的状态。