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

一步一步学习使用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”，然后将下面的代码敲进去。

1. unit EmployeeAdaptee;
3. interface
5. type
6.   TEmployee = class(TObject)
7.   private
8.     FFirstName: String;         //员工姓
9.     FLastName: String;          //员工名
10.     FAge: Byte;                 //年龄
11.     FStartDate: TDate;          //入职日期
12.     FPosition: String;          //职位
13.     FManager: String;           //所属经理
14.   public
15.     ///
16.     /// 构造函数
17.     ///
18.     constructor Create(const AFirstName, ALastName: String; const AAge: Byte;
19.                        const AStartDate: TDate; const APosition, AManager: String); overload;
20.     property FirstName: String read FFirstName write FFirstName;
21.     property LastName: String read FLastName write FLastName;
22.     property Age: Byte read FAge write FAge;
23.     property StartDate: TDate read FStartDate write FStartDate;
24.     property Position: String read FPosition write FPosition;
25.     property Manager: String read FManager write FManager;
26.   end;
28. implementation
30. { TEmployee }
32. constructor TEmployee.Create(const AFirstName, ALastName: String; const AAge: Byte;
33.                              const AStartDate: TDate; const APosition, AManager: String);
34. begin
35.   inherited Create;
37.   FFirstName := AFirstName;
38.   FLastName := ALastName;
39.   FAge := AAge;
40.   FStartDate := AStartDate;
41.   FPosition := APosition;
42.   FManager := AManager;
43. end;
44. 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区添加一个集合变量。

1. type
2.   TFrmMain = class(TForm)
3.     AdapterBindSource1: TAdapterBindSource;
4.     DataGeneratorAdapter1: TDataGeneratorAdapter;
5.     BindNavigator1: TBindNavigator;
6.     Grid1: TGrid;
7.     BindingsList1: TBindingsList;
8.     LinkGridToDataSourceAdapterBindSource1: TLinkGridToDataSource;
9.   private
10.     { Private declarations }
11.     //定义一个集合类
12.     FMyEmployee: TObjectList<TEmployee>;
13.   public
14.     { Public declarations }
15.   end;

复制代码

FMyEmployee将会作为对象数据绑定到TGrid上。
接下来添加OnCreateAdapter事件处理代码：

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

复制代码

在OnCreateAdapter事件中，ABindSourceAdapter将被用来生成AdapterBindSource1所使用的真实的数据，示例使用TListBindSourceAdapter类创建了一个TObjectList泛型集合类的员工列表，当然也可以使用TObjectBindSourceAdapter指定单一员工对象。
7. 现在就完成了所有的工作，万事皆备，只欠一Run了，按下F9，或者是主菜单的“Run > Run”菜单项，可以看到，果然现在Grid显示了在OnCreateAdapter事件中创建的员工列表。

好了，非常漂亮。
虽然本系列已经写到第5课，但是离真实应用仍然还是有一定的距离，不要着急，只要跟着本系列一步一步的学，很快就能掌握到LiveBindings的精华。

来源：豆瓜网用户自行投稿发布，如果侵权，请联系站长删除