格式化对象教程

下面的过程简单概述了对附加到 ADO Data 控件上的绑定控件使用格式化对象。该例使用 Visual Basic 附带的 Nwind.mdb 示例数据库。

请注意，尽管本例使用的是 ADO Data 控件，但是格式化对象可以与任何数据源一起使用。

要使用具有格式化对象的 ADO Data 控件，请按照以下步骤执行：

1. 为 Northwind 数据库创建一个OLEDB 数据源，并命名为 "Northwind"。

   如果还未创建数据源，请按照创建 Northwind OLEDB 数据源中的步骤执行。

2. 从“工程”菜单，设置对 Microsoft 数据格式化对象库（Microsoft Data Formatting Object Library）和 Microsoft 数据绑定集合（Microsoft Data Binding Collection）的引用。
   
   
3. 在“工程”菜单中单击“部件”选项，并且复选“ADO 数据控件”。
   
   
4. 把 ADO Data 控件和三个 TextBox 控件添加到一个窗体中。
   
   
5. 按照下表所示设置属性值。

   对象	属性	设置值
   ADO 控件	ConnectionString	northwind.mdl
   ADO 控件	RecordSource	select * from Employees
   Text1 控件	DataSource	ADODC1
   Text1 控件	DataField	LastName
   Text2 控件	DataSource	ADODC1
   Text2 控件	DataField	HireDate
   Text3 控件	DataSource	ADODC1
   Text3 控件	DataField	Extension

   
   
6. 把下面的声明添加到窗体中

   '绑定文本框到 ADO 控件
   Dim bc As New BindingCollection
   
   '向该对象的 Format 事件添加代码
   Dim WithEvents f1 as StdDataFormat
   Dim WithEvents f2 As StdDataFormat
   

   用 WithEvents 语句声明 f2 以显露对象的事件。第 9 步显示了当数据在数据库和绑定对象之间来回传递时使用 Format 事件操作数据的代码。

7. 把下面的代码添加到该窗体的 Load 事件。

   '连接BindingCollection 对象到数据源
   Set bc.DataSource = ADODC1
   
   '设置长日期格式字符串
   Set f1 = New StdDataFormat
   f1.Type = fmtCustom
   f1.Format = "long date"
   '使用BindingCollection 来绑定第二个文本框。
   bc.Add Text2, "text", "hiredate", f1
   
   '设置货币格式字符串
   Set f2 = New StdDataFormat
   f2.Type = fmtCustom
   f2.Format = "$0.00"
   '使用BindingCollection 来绑定第三个文本框。
   Set bc.DataSource = ADODC1.object
   bc.Add Text3, "text", "extension", f2
   

8. 把下面的代码添加到 f2 对象的 Format 事件。

   If DataValue.Value < 3000 Then
   Text3.ForeColor = vbRed
   Else
   Text3.ForeColor = vbBlack
   End If
   

9. 运行该工程并且试验该 ADO Data控件。