创建能使您查看和更新数据识别类中数据的窗体

一旦您已经创建了一个能作为数据源的类，您就能轻易地创建应用程序，以使您能够查看和更新数据源中的记录。您可以使用 ActiveX Data Objects (ADO) 和 BindingsCollection 对象将数据源绑定到窗体的控件上，并添加命令按钮来漫游记录。

本主题说明如何创建窗体，以使您能查看并编辑您在前一个主题中创建的数据识别类的客户地址记录。

要创建能使您查看和更新数据识别类中数据的窗体，请按照以下步骤执行：

1. 向窗体添加文本框和 label 控件。
   
   
2. 添加代码以将文本框控件绑定到数据源上。
   
   
3. 添加命令按钮来漫游记录。

注意   本主题是帮助您创建一个与 tab 分隔的文本文件中的数据进行交互的简单数据库应用程序系列说明的一部分。与 ASCII 文本文件中的数据交互是第一部分。

向窗体添加文本框和 Label 控件

查看和更新数据识别类的数据的第一步是创建一个界面，以便与数据源的记录进行交互。创建界面最简单的方法是打开一个新的 Standard EXE 工程，然后向窗体添加 TextBox 和 Label 控件。

例如，您可以创建界面来查看 Customers.txt 文件中的客户地址信息。首先，向窗体添加一个“Customer ID:”标签，然后在标签旁边添加一个文本框，并将它的 Name 属性设置为txtCustomerID。对 CompanyName、Address、City、Region、PostalCode 和 Country 控件重复同样的过程。

添加代码以将文本框控件绑定到数据源上

使用数据识别类、ActiveX Data Objects (ADO) 和 BindingCollection 对象，您可以在加载页时将控件绑定到数据源上。然后您可以编辑数据，并添加代码来漫游记录。例如，您可以用一个数据识别类的实例和 BindingCollection 对象将窗体上的文本框控件绑定到 Customers.txt 文件的字段上。

首先，给您的工程添加一个对 BindingCollection 对象的类型库的引用。要添加引用，请在“工程”菜单上选择“引用...”，然后选择“引用...”对话框中的“Microsoft Data Binding Collection”。

然后在窗体的 Declarations 部分为数据识别类和 BindingCollection 对象声明变量：

Private objDataSource As CustomerDataSource
Private colBind As BindingCollection

要在窗体加载时将文本框控件绑定到 Customers.txt 文件的字段上，请在窗体的 Load 事件过程中添加代码。CustomerDataSource 类的实例从文本文件中将数据读到 ADO 记录集中，同时 BindingCollection 对象将文本框控件绑定到记录集的字段上：

Private Sub Form_Load()

   Set objDataSource = New CustomerDataSource
   Set colBind = New BindingCollection

   Set colBind.DataSource = objDataSource
   colBind.Add txtCustomerID, "Text", "CustomerID"
   colBind.Add txtCompanyName, "Text", "CompanyName"
   colBind.Add txtAddress, "Text", "Address"
   colBind.Add txtCity, "Text", "City"
   colBind.Add txtRegion, "Text", "Region"
   colBind.Add txtPostalCode, "Text", "PostalCode"
   colBind.Add txtCountry, "Text", "Country"

End Sub

添加命令按钮来漫游记录

通过将窗体上的控件绑定到数据识别类的公共记录集上，您能轻易地创建“下一步”和“向前”按钮来漫游记录。每个命令按钮仅需要一行代码。

例如，要给窗体创建“下一步”按钮来显示客户记录，请为窗体添加一个命令按钮，并将其 Caption 和 Name 属性更改为 Next，然后在命令按钮的 Next_Click 事件过程中添加如下一行：

objDataSource.rsCustomers.MoveNext

代码中使用了作为窗体控件数据源的 rsCustomers 记录集的 MoveNext 方法。它引用记录集作为表示 CustomerDataSource 类的实例的对象变量的属性。

相似地，通过添加命令按钮到窗体，并分别把它们的 Caption 和 Name 属性改为 Previous、First 和 Last，您可以创建“向前”、“第一”和“最后”按钮。然后给每个命令按钮的 Click 事件过程添加代码，调用 MovePrevious、MoveFirst 和 MoveLast 方法。

当您运行窗体时，Visual Basic 让您查看并更新 Customers.txt 文件中的记录，并让您漫游记录集。

步骤

本主题是帮助您使用数据识别类和 ADO 创建与 tab 分隔的文本文件中的数据进行交互的一个简单数据库应用程序系列说明的一部分。