一步一步学习使用LiveBindings（5）使用TAdapterBindSource实现对象绑定

在本系列的第1课介绍过TBindSourceDB绑定到TFDMemTableo数据库组件，也介绍了使用TPrototypeBindSource提供样本数据源。接下来看一个新的BindSource组件TAdapterBindSource,如其名所暗示，它是一个桥接器绑定控件，主要用来将自定义的对象与数据源进行绑定。

TAdapterBindSource有一个Adapter属性，它可以接收一个继承自TBindSourceAdapter的组件。Delphi提供了TDataGeneratorAdapter组件，它可以完成类似TPrototypeBindSource组件所完成的工作：定义字段列表，关联数据生成器。

好了，有深度的话不多说了，开始练习吧，打开Delphi 12.3。

1. 单击主菜单中的 File > New > Multi-Device Application - Delphi > Blank Application ,创建一个新的多设备应用程序。

建议立即单击工具栏上的Save All按钮，将单元文件保存为uMainForm.pas，将项目保存为LiveBinding_BindToObject.dproj。

你的项目结构应该像这样：

2. 从工具面板，拖如下的控件到主窗体。

TAdapterBindSource —— 通过它来完成控件绑定操作。
TDataGeneratorAdapter —— 通过它来产生设计时的测试数据。
TBindNavigator —— 将为示例数据提供导航功能。
TGrid —— 将显示某些信息。

简单布局一下之后，界面显示效果如下图所示。

3. 创建一个新的Delphi单元，构建将要被绑定的数据对象。可以在Project Manager右击项目名称，选择 Add > New > Unit 菜单项，新建一个单元文件，将该单元另存为“EmployeeAdaptee.pas”，然后将下面的代码敲进去。

unit EmployeeAdaptee; interface type TEmployee = class(TObject) private FFirstName: String; //员工姓 FLastName: String; //员工名 FAge: Byte; //年龄 FStartDate: TDate; //入职日期 FPosition: String; //职位 FManager: String; //所属经理 public /// <code> /// 构造函数 /// </code> constructor Create(const AFirstName, ALastName: String; const AAge: Byte; const AStartDate: TDate; const APosition, AManager: String); overload; property FirstName: String read FFirstName write FFirstName; property LastName: String read FLastName write FLastName; property Age: Byte read FAge write FAge; property StartDate: TDate read FStartDate write FStartDate; property Position: String read FPosition write FPosition; property Manager: String read FManager write FManager; end; implementation { TEmployee } constructor TEmployee.Create(const AFirstName, ALastName: String; const AAge: Byte; const AStartDate: TDate; const APosition, AManager: String); begin inherited Create; FFirstName := AFirstName; FLastName := ALastName; FAge := AAge; FStartDate := AStartDate; FPosition := APosition; FManager := AManager; end; end.

4. 回到主窗体，按F12切换到代码视图，再按下Alt+F11快捷键，在弹出的窗口中选中EmployeeAdaptee.pas，指定将该单元添加到Interface区中。

如果现在切换到LiveBindings Designer设计器，在AdapterBindSource1项中是看不到有任何字段的，为了添加设计时的支持，接下来将AdapterBindSource1的Adapter指向DataGeneratorAdapter1。

5. 选中AdapterBindSource1，指定其Adapter属性为DataGeneratorAdapter1。

6. 右键单击DataGeneratorAdapter1，从弹出的菜单中选择“Fields Editor”菜单项，在弹出的对话框中，单击“Add”按钮，在弹出的对话框中可以看到有很多包含FieldData生成器的字段，也有很多是Generator为(none)类型的不包含生成器的字段。在名称文本框中会自动生成Field开头的字段，依次添加如下图所示的字段：

7. 现在，如果进入到LiveBindings Designer设计器，可以看到AdapterBindSource1实体中包含了多个字段，这个时候可以通过拖拉的方式来设置绑定。

由于在添加字段时，指定了具体的字段数据生成器，因此在绑定后，就可以在Grid上看到测试数据。

8. 接下来需要通过一个事件，来将雇员信息添加到数据绑定中去，请选中AdapterBindSource1组件，然后在属性编辑器中，切换到Events选项卡，双击OnCreateAdapter事件，Delphi将生成骨架代码，然后将如下的代码添加进来。

首先，在Interface的Uses区中添加如下的引用，在第4步已经添加了EmployeeAdaptee,接下来需要添加泛型集合类的引用。

接下来需要在private区添加一个集合变量。

type TFrmMain = class(TForm) AdapterBindSource1: TAdapterBindSource; DataGeneratorAdapter1: TDataGeneratorAdapter; BindNavigator1: TBindNavigator; Grid1: TGrid; BindingsList1: TBindingsList; LinkGridToDataSourceAdapterBindSource1: TLinkGridToDataSource; private { Private declarations } //定义一个集合类 FMyEmployee: TObjectList<TEmployee>; public { Public declarations } end;

FMyEmployee将会作为对象数据绑定到TGrid上。

接下来添加OnCreateAdapter事件处理代码：

procedure TFrmMain.AdapterBindSource1CreateAdapter(Sender: TObject; var ABindSourceAdapter: TBindSourceAdapter); begin //创建员工集合 FMyEmployee := TObjectList<TEmployee>.Create(True); //创建单个员工并添加到集合 FMyEmployee.Add(TEmployee.Create('Gomez', 'Addams', 40,Now-365*10,'Software Engineer','Alex')); FMyEmployee.Add(TEmployee.Create('Morticia', 'Addams', 38,Now-365*10,'Software Engineer','Alex')); FMyEmployee.Add(TEmployee.Create('Pugsley', 'Addams', 8,Now-365*10,'Software Engineer','Alex')); FMyEmployee.Add(TEmployee.Create('Wednesday', 'Addams', 12,Now-365*10,'Software Engineer','Alex')); // 可以使用TObjectBindSourceAdapter指定单个对象， // 示例使用TListBindSourceAdapter指定集合对象。 ABindSourceAdapter := TListBindSourceAdapter<TEmployee>.Create(Self, FMyEmployee, True); end;

在OnCreateAdapter事件中，ABindSourceAdapter将被用来生成AdapterBindSource1所使用的真实的数据，示例使用TListBindSourceAdapter类创建了一个TObjectList泛型集合类的员工列表，当然也可以使用TObjectBindSourceAdapter指定单一员工对象。