一步一步学习使用LiveBindings（6） 实现Master-Detail主从关系的绑定
主从式数据在应用程序的开发中是非常常见的，比如员工和电子邮件地址记录，一个员工可能对应到多个邮件地址，这就形成了一对多的关系。在VCL中，数据控件处理主从式绑定非常方便简洁，在这个示例中，学习如何使用LiveBindings的TProtoTypeBindSource控件来实现对象间的主从式的数据绑定。
主从式数据在应用程序的开发中是非常常见的，比如员工和电子邮件地址记录，一个员工可能对应到多个邮件地址，这就形成了一对多的关系。在VCL中，数据控件处理主从式绑定非常方便简洁，在这个示例中，学习如何使用LiveBindings的TProtoTypeBindSource控件来实现对象间的主从式的数据绑定。
注意：这个示例来自《Delphi Cookbook》中的Using master/details with LiveBindings,需要获取详细信息可以参考这本书.
现在请打开Delphi 12.3，按如下的步骤重新实现一个基于主从关系的面向对象的LiveBindings示例。
1. 单击主菜单中的 File > New > Multi-Device Application - Delphi > Blank Application ,创建一个新的多设备应用程序。
建议立即单击工具栏上的Save All按钮，将单元文件保存为uMainForm.pas，将项目保存为LiveBinding_MasterDetail.dproj。
你的项目结构应该像这样：
2. 在表单上放置两个 TGrid 组件，并将它们命名为 grdPeople 和 grdEmails 。将两个组件的 Options.AlternatingRowBackground 属性设置为 True。将 grdPeople 的 Options.RowSelection 设置为 True。在表单上放置两个 TPrototypeBindSource 组件，并将它们命名为 bsPeople 和 bsEmails 。
- 在表单上放置一个 TBindNavigator 组件，并将其 DataSource 属性连接到 bsPeople。
- 在表单上再放置另一个 TBindNavigator 组件，并将其 DataSource 属性连接到 bsEmails。然后，将其 VisibleButtons 属性中的所有元素设置为 False，仅将 nbInsert 和 nbDelete 设置为 True（这将允许您从人员中插入或删除任何电子邮件）。
- 在表单上放置三个 TEdit 组件，并将它们命名为 EditFirstName、EditLastName 和 EditAge。
整体的布局大概如下所示：
3. 接下来分别为bsPeople和bsEmails添加字段和指定数据生成器。双击bsPeople，将打开Fields Editor，添加如下所示的字段：
双击bsEmails,添加如下所示的字段：
4. 右击页面空白处，从弹出的菜单中选择“Bind Visually”进入LiveBindings Designer设计器，按如下步骤完成绑定操作。
虽然看起来LiveBindings是在将数据与UI进行链接，其实到目前为止，所做的工作是在UI与BindSource进行操作，至于BindSource是连接到底层的数据库表还是对象，虽然在本篇中已经说明是对象，但是对于UI控件来说，目前是不清楚底层数据到底是数据库还是对象类型的，也无需顾及。
进入设计器后，可以看到BindNavigator由于指定了DataSource属性，所以设计器已经自动添加了链接。
首先，将bsPeople中的每一个栏位拖动到grdPeople中，不使用*是因为想对每一个列进行调整。而使用*是不可以的。
注意：当将每一列拉到TGrid控件上后，TGrid会自动为每一列生成一个TLinkGridToDataSourceColumn，在设计器的Column Editor中可以编辑列宽，指定每一列的自定义显示格式等等。
最后将3个Edit控件也链接上。
可以看到，LiveBindings Designer对于TEdit和TGrid都给了以向数据绑定（链接线2边都有箭头）。即用户在UI上的更改也可以更新回底层数据存储。
现在运行程序，可以看到通过BindNavigator，可以对People进行移动，但是相应的Email并不会发生变化。不用担心，底层的数据操作会完成这个功能。
5. 现在新建一个实体类，用来存放底存数据和逻辑。如本文开头所述，这里引用了《Delphi Cookbook》中的示例代码，因此将包含示例中的实体类BusinessObjectsU.pas单元引入到了项目中，读者可以新建一个名为BusinessObjectsU.pas的单元，将下面的代码拷进去。
BusinessObjectsU.pas中包含了两个类，TPeople表示是单个个体人，它包含一个泛型的TEmail类型的属性集合Emails，表示一个人可以拥有多个电子邮件地址。
代码如下所示：
unit BusinessObjectsU;
interface
uses
System.Generics.Collections;
type
/// <summary>
/// Email实体类，仅简单的记录了邮件地址。
/// <summary>
TEmail = class
private
FAddress: String;
procedure SetAddress(const Value: String);
public
//包含重载的构造函数。
constructor Create; overload;
constructor Create(AEmail: String); overload;
property Address: String read FAddress write SetAddress;
end;
/// <summary>
/// 个人实体类，表示单个人，包含多个邮件地址
/// </summary>
TPerson = class
private
FLastName: String;
FAge: Integer;
FFirstName: String;
//定义一个泛型集合类型，用来包含多个TEmail类。
FEmails: TObjectList<TEmail>;
procedure SetLastName(const Value: String);
procedure SetAge(const Value: Integer);
procedure SetFirstName(const Value: String);
function GetEmailsCount: Integer;
public
//包含重载的构造函数，用来初始化属性值。
constructor Create; overload;
constructor Create(const FirstName, LastName: string; Age: Integer);
overload; virtual;
destructor Destroy; override;
property FirstName: String read FFirstName write SetFirstName;
property LastName: String read FLastName write SetLastName;
property Age: Integer read FAge write SetAge;
property EmailsCount: Integer read GetEmailsCount;
property Emails: TObjectList<TEmail> read FEmails;
end;
implementation
uses
System.SysUtils;
{ TPersona }
constructor TPerson.Create(const FirstName, LastName: string; Age: Integer);
begin
Create;
FFirstName := FirstName;
FLastName := LastName;
FAge := Age;
end;
// 由LiveBindings调用来插入一个新行。
constructor TPerson.Create;
begin
inherited Create;
FFirstName := '<name>';
//初始化邮件列表
FEmails := TObjectList<TEmail>.Create(true);
end;
destructor TPerson.Destroy;
begin
FEmails.Free;
inherited;
end;
function TPerson.GetEmailsCount: Integer;
begin
Result := FEmails.Count;
end;
procedure TPerson.SetLastName(const Value: String);
begin
FLastName := Value;
end;
procedure TPerson.SetAge(const Value: Integer);
begin
FAge := Value;
end;
procedure TPerson.SetFirstName(const Value: String);
begin
FFirstName := Value;
end;
{ TEmail }
constructor TEmail.Create(AEmail: String);
begin
inherited Create;
FAddress := AEmail;
end;
// 由LiveBindings调用来插入一个新行。
constructor TEmail.Create;
begin
Create('<email>');
end;
procedure TEmail.SetAddress(const Value: String);
begin
FAddress := Value;
end;
end.
两个实体类都包含了重载的构造函数，不带参数的构造函数将由LiveBindings调用来生成新的行，而带参数的构造函数将用来生成初始数据，这些数据可以是来自底层的数据库表，也可以是像示例这样，使用了一个随机数单元来生成数据数据。
6. 回到主窗体，开始对主窗体进行编码了。前面的步骤中在主窗体上放了2个TProtoTypeBindSource控件，这2个控件自带数据生成器，它就好像是TAdapterBindSource和TDataGeneratorAdapter的结合体。因此它也提供了OnCreateAdapter事件，通过处理这个事件，来将前面创建的实体数据集合桥接给UI控件。
类似于第5课的代码，首先需要在窗体类的private中添加泛型的集合类FPeople，第1步是添加对实体类单元的引用。
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Rtti,
FMX.Grid.Style, Data.Bind.Controls, FMX.Layouts, Fmx.Bind.Navigator,
FMX.Controls.Presentation, FMX.ScrollBox, FMX.Grid, Data.Bind.Components,
Data.Bind.ObjectScope, FMX.StdCtrls, FMX.Edit, Data.Bind.GenData,
Data.Bind.EngExt, Fmx.Bind.DBEngExt, Fmx.Bind.Grid, System.Bindings.Outputs,
Fmx.Bind.Editors, Data.Bind.Grid,
//添加对业务实体单元的引用
BusinessObjectsU,System.Generics.Collections;
由于要处理Master-Detail的关系，这里没有像第5课那样直接在OnCreateAdapter事件中创建ABindSourceAdapter的实例，因为要控制ABindSourceAdapter的实例，所以将2个TListBindSourceAdapter的实例定义在了private区。
private
//代表人员信息的泛型集合类
FPeople: TObjectList<TPerson>;
//用来存储人员信息的Adapter类。
bsPeopleAdapter: TListBindSourceAdapter<TPerson>;
//用来存储电子邮件地址的Adapter类。
bsEmailsAdapter: TListBindSourceAdapter<TEmail>;
接下来给bsPeople的OnCreateAdapter添加事件处理代码，主要用来实例化bsPeopleAdapter,然后给ABindSourceAdapter赋值，这个事件在TProtoTypeBindSource实例化后触发，先于FormCreate事件，代码如下所示：
procedure TfrmMain.bsPeopleCreateAdapter(Sender: TObject;
var ABindSourceAdapter: TBindSourceAdapter);
begin
//初始化bsPeopleAdapter类，在这里第2个参数为nil，表示并没有为其指定列表数据。
bsPeopleAdapter := TListBindSourceAdapter<TPerson>.Create(self, nil, False);
//将bsPeopleAdapter赋给ABindSourceAdapter;
ABindSourceAdapter := bsPeopleAdapter;
//关联AfterScroll事件，在People切换到下一行时触发
bsPeopleAdapter.AfterScroll := PeopleAfterScroll;
end;
在这里构建了一个不带List的TListBindSourceAdapter实例，然后赋给ABindSourceAdapter，并且有趣的是，还给TListBindSourceAdapter关联了一个AfterScroll事件，这个事件在VCL的TQuery之类的控件中很常见。
实际上，将它们视为数据集。
所有的适配器类都从TBindSourceAdapter上继承，TBindSourceAdapter实现了接口IBindSourceAdapter,查看TBindSourceAdapter上公开的方法和属性，会发现许多与 TDataset 相似或完全相同的方法，例如：
- 一个状态属性，类型为 TBindSourceAdapterState，其值有 seInactive、* seBrowse、seEdit 和 seInsert。
- ( BOF 和 EOF 属性，以及 Next、Prior、First 和 Last 方法。
- Edit、Insert、Append、Post 和 Cancel 方法。
- Insert、Open、Post、Scroll 等事件的前置和后置事件，等等……
实现Master-Detail的核心就是在PeopleAfterScroll过程中，当切换到下一个记录时，自动给bsEmail控件的ABindSourceAdapter指定List。
代码如下所示：
procedure TMainForm.PeopleAfterScroll(Adapter: TBindSourceAdapter);
begin
//得到当前选中的人员的Emails列表
bsEmailsAdapter.SetList(bsPeopleAdapter.List[bsPeopleAdapter.CurrentIndex]
.Emails, False);
//将bsEmails.Active设置为True，其实就是在将其内部的InternalAdapter的Active设置为True.
bsEmails.Active := True;
//上位到第1行记录。
bsEmails.First;
end;
在代码里边，调用bsEmailsAdapter的SetList为bsEmailsAdapter指定了列表值，因为类似于bsPeopleCreateAdapter，它也只是实例化了bsEmailsAdapter，并未给出列表。
然后bsEmails就好像是一个TDataSet开始工作了，指定Active激活，调用其First定位到第1条记录，其实是通过设置咱们在OnCreateAdapter中指定的Adapter来工作的，也就是说bsEmails有一个InternalAdapter的属性，它代表在运行时指定的真正的Adapter。
下面是bsEmailsCreateAdapter的代码：
procedure TMainForm.bsEmailsCreateAdapter(Sender: TObject;
var ABindSourceAdapter: TBindSourceAdapter);
begin
//初始化bsEmailsAdapter类，在这里第2个参数为nil，表示并没有为其指定列表数据。
bsEmailsAdapter := TListBindSourceAdapter<TEmail>.Create(self, nil, False);
//将实例赋给 ABindSourceAdapter
ABindSourceAdapter := bsEmailsAdapter;
end;
现在已经给bsEmails给了列表数据，但是bsPeople还没有指定List，这是在FormCreate事件中完成的，事件代码如下：
procedure TfrmMain.FormCreate(Sender: TObject);
begin
Randomize; //初始化随机因子
//创建List实例
FPeople := TObjectList<TPerson>.Create(True);
LoadData; //加载随机的人员信息
//为bsPeopleAdapter指定List
bsPeopleAdapter.SetList(FPeople, False);
//激活UI的显示。
bsPeople.Active := True;
end;
由于人员信息是随机生成的，因此第1行代码调用了Randomize初始化随机因子，或什么其他的叫法，就是确保随机数很随机。
然后构建了TObjectList的实例，LoadData是一个私有过程，用来生成随机的人员信息，请拉到本篇最后进行代码拷贝。
同样的给bsPeopleAdapter设置列表。
注意SetList的第2个参数AOwnersObject，指定是否接管这个对象的释放，在这里设置为False，表示自己释放，因此在FormDestroy事件中，要添加对FPeople的Free代码。
procedure TMainForm.FormDestroy(Sender: TObject);
begin
FPeople.Free; //手动释放FPeople对象
end;
LoadData过程会使用RandomUtilsU.pas单元中定义的随机生成函数，因此建议在Interface区的uses子句中添加RandomUtilsU。
//添加对业务实体单元的引用
uses
BusinessObjectsU,System.Generics.Collections,RandomUtilsU;
LoadData代码如下：
private
{ Private declarations }
//代表人员信息的泛型集合类
FPeople: TObjectList<TPerson>;
//用来存储人员信息的Adapter类。
bsPeopleAdapter: TListBindSourceAdapter<TPerson>;
//用来存储电子邮件地址的Adapter类。
bsEmailsAdapter: TListBindSourceAdapter<TEmail>;
procedure PeopleAfterScroll(Adapter: TBindSourceAdapter);
procedure LoadData;
var
frmMain: TfrmMain;
implementation
procedure TfrmMain.LoadData; //加载随机的人员信息
var
I: Integer;
P: TPerson;
X: Integer;
begin
for I := 1 to 100 do
begin
//创建随机生成的人员信息
P := TPerson.Create(GetRndFirstName, GetRndLastName, 10 + Random(50));
// 随机添加1-3个邮件地址
for X := 1 to 1 + Random(3) do
begin
P.Emails.Add(TEmail.Create(P.FirstName.ToLower + '.' + P.LastName.ToLower
+ '@' + GetRndCountry.Replace(' ', '').ToLower + '.com'));
end;
//添加到列表
FPeople.Add(P);
end;
end;
感觉到代码实在是有点长，请列位看官多多谅解。
7. 代码主体大致完工，现在可以预览一下是否如预期。
现在可以看到，效果如预期，果然Master-Detail效果出现了。
如果你单击“+”号，一个新的人员信息
最后来一点锦上添花，当用户单击电子邮件的导航栏的“+”号时，弹出一个输入框，允许用户输入电子邮件。
TBindNavigator有一个OnBeforeAction事件，通过实现这个事件来完成这个需求。
procedure TfrmMain.bnEmailBeforeAction(Sender: TObject;
Button: TBindNavigateBtn);
var
email: string;
begin
if Button = TNavigateButton.nbInsert then //如果用户单击插入按钮。
if InputQuery('Email', '输入新的邮件地址', email) then
begin
bsEmailsAdapter.List.Add(TEmail.Create(email));
bsEmails.Refresh; // 刷新邮件列表，用来实现UI同步。
bsPeople.Refresh; // 刷新人员列表，用来实现UI同步。
Abort; // 中断标准的行为
end;
end;
再看看效果：
好了，已经接近预期了，这里还有一些未完工的细节，限于本篇的篇幅，就不再介绍了。
最后附上RandomUtilsU.pas的代码：
unit RandomUtilsU;
interface
const
FirstNames: array [0 .. 9] of string = (
'Daniele',
'Debora',
'Mattia',
'Jack',
'James',
'William',
'Joseph',
'David',
'Charles',
'Thomas'
);
LastNames: array [0 .. 9] of string = (
'Smith',
'Johnson',
'Williams',
'Brown',
'Jones',
'Miller',
'Davis',
'Wilson',
'Martinez',
'Anderson'
);
Countries: array [0 .. 9] of string = (
'Italy',
'New York',
'Illinois',
'Arizona',
'Nevada',
'UK',
'France',
'Germany',
'Norway',
'California'
);
HouseTypes: array [0 .. 9] of string = (
'Dogtrot house',
'Deck House',
'American Foursquare',
'Mansion',
'Patio house',
'Villa',
'Georgian House',
'Georgian Colonial',
'Cape Dutch',
'Castle'
);
function GetRndFirstName: String;
function GetRndLastName: String;
function GetRndCountry: String;
function GetRndHouse: String;
implementation
function GetRndHouse: String;
begin
Result := 'Mr.' + GetRndLastName + '''s ' + HouseTypes[Random(10)] + ' (' + GetRndCountry + ')';
end;
function GetRndCountry: String;
begin
Result := Countries[Random(10)];
end;
function GetRndFirstName: String;
begin
Result := FirstNames[Random(10)];
end;
function GetRndLastName: String;
begin
Result := LastNames[Random(10)];
end;
end.
感谢《Delphi Cookbook》的作者Daniele Spinetti，Daniele Teti，Daniele Teti也是Delphi MVC Framework的开发者，多年前我曾与他有过一次Email来往，在我的博文中，有机会将会详细介绍这个框架。
一点点扩展的思考，对于这个案例可以应用于移动应用，比如在BeforeOpen事件中，从Server端获取JOSN数据,转换成实体对象，也可以在beforePost中将对象转换成JSON，然后发送到Server端进行存储。
下一章，将继续一些深入挖掘LiveBindings的应用，请保持关注哦。
浙公网安备 33010602011771号