测试 MyData 部件

在前面的主题中，我们创建了一个 ActiveX DLL，它包含两个类：MyOSPObject 和 MyDataSource。在这个主题中，我们将使用 MyDataComponent 对象作为我们以前主题中创建的窗体的一个数据源。

注意 该主题是帮助您创建示例数据源部件系列主题的一部分。创建数据源是第一部分。

要测试 MyData 控件，请按照以下步骤执行：

1. 在“工程资源管理器”中选择“Project 1 (DataSourceTest.vbp)”。
   
   
2. 从“工程”菜单中选择“引用...”打开“引用...”对话框。添加对 MyDataComponent 的一个引用。
   
   
3. 添加对 Microsoft Data Adapter Library 的一个引用。Data Adapter 对象是作为 OLE DB 和 OSP 之间的一个中间层。
   
   
4. 在“工程资源管理器”中双击 Form1 打开它的设计器。
   
   
5. 在“工具箱”中选择“DataGrid”，再添加一个 DataGrid 到 Form1。您不需要设置 DataGrid2 的任何属性。
   
   
6. 双击 Form1 打开它的代码窗口。在“对象窗口”框中，选择（“通用”）。在“过程”框中，选择（“Declarations”），定位到代码模块顶部。添加下面的代码：

   Option Explicit
   Dim da As New DataAdapter
   Dim ds As New MyDataSource
   

7. 在“对象窗口”框中，选择“添加窗体”。在“过程”框中，选择 Load事件。添加下面的代码到 Form_Load 事件过程，以便初始化 MyDataComponent 对象并将它指定给控件：

   Private Sub Form_Load()
   '设置 Data Adapter 的 Object 属性为
   'MyDataSource 对象
   Set da.Object = ds
   
   '设置 DataMember 属性
   DataGrid2.DataMember = App.Path & "\Customer.txt"
   '设置 DataSource 为 DataAdapter
   Set DataGrid2.DataSource = da
   End Sub
   

   注意 上面的代码假定 Customer.txt 文件和您的应用程序位于同一目录中。如果 Customer.txt 文件在不同的目录中，请相应地更改路径。Customer.txt 文件的一个副本包括在 AXData 示例应用程序中。

8. 从“运行”菜单选择“启动”运行此工程。

   注意，第二个 DataGrid 和第一个包含相同的数据。和第一个一样，您可以在第二个网格中编辑数据，所做的更改将会被保存。这两个网格的最大差别在于第一个 DataGrid 是绑定到一个数据库，而第二个不是，它通过 OLE DB Simple Provider 接口绑定到一个文本文件。

上面所示就是作为数据源的示例。当然，您可以很容易地对它扩充。例如，您可以添加方法到 MyOSPObject 类，以便在记录中漫游，或者添加方法来验证一个指定字段的内容或格式化一个指定字段。您完全可以按照希望的来做。

步骤

该主题是帮助您创建示例 ActiveX 数据源系列的一部分。