一、全设计时操作:

先在窗体上放置控件:

---

DataSource1    : TDataSource;
ClientDataSet1 : TClientDataSet;
Label1         : TLabel;
Edit1          : TEdit;
Memo1          : TMemo;
ImageControl1  : TImageControl;
BindNavigator1 : TBindNavigator;{在连接过程中, 会自动添加下面部件}
BindingsList1               : TBindingsList;
BindScopeDB1                : TBindScopeDB;DBLinkLabel1SpeciesNo1      : TBindDBTextLink;
DBLinkEdit1Category1        : TBindDBEditLink;
DBLinkMemo1Notes1           : TBindDBMemoLink;
DBLinkImageControl1Graphic1 : TBindDBImageLink;

---

测试使用官方提供的测试数据 biolife.xml(或 biolife.cds), 其路径通常是: C:\Program Files\Common Files\CodeGear Shared\Data\biolife.xml

连接步骤:

---

1、置 DataSource1 的 DataSet 属性为 ClientDataSet1;2、置 ClientDataSet 的 FileName 属性为 'C:\Program Files\Common Files\CodeGear Shared\Data\biolife.xml';3、将四个控件分别关联到 biolife.xml 中的字段:Label1       -> 右键 -> Link To DB Field... -> 选择 Species No (数字)Edit1        -> 右键 -> Link To DB Field... -> 选择 CateGory   (string)Memo1        -> 右键 -> Link To DB Field... -> 选择 Notes      (Text)ImageControl -> 右键 -> Link To DB Field... -> 选择 Graphic    (Graphics)4、置 BindNavigator1 的 BindScope 属性为 BindScopeDB1;5、置 ClientDataSet1 的 Active 属性为 True.

---

二、运行时连接:

---

先在窗体上放置控件(其它在运行时完成):

---

DataSource1    : TDataSource;
ClientDataSet1 : TClientDataSet;
Label1         : TLabel;
Edit1          : TEdit;
Memo1          : TMemo;
ImageControl1  : TImageControl;
BindNavigator1 : TBindNavigator;
BindingsList1  : TBindingsList;
BindScopeDB1   : TBindScopeDB;

---

与设计时功能相同的代码:

---

procedure TForm1.FormCreate(Sender: TObject);
beginClientDataSet1.FileName := 'C:\Program Files\Common Files\CodeGear Shared\Data\biolife.xml';DataSource1.DataSet := ClientDataSet1;BindScopeDB1.DataSource := DataSource1;BindNavigator1.BindScope := BindScopeDB1;with TBindDBTextLink.Create(BindingsList1) dobeginControlComponent := Label1;DataSource := BindScopeDB1;FieldName := 'Species No';end;with TBindDBEditLink.Create(BindingsList1) dobeginControlComponent := Edit1;DataSource := BindScopeDB1;FieldName := 'Category';end;with TBindDBMemoLink.Create(BindingsList1) dobeginControlComponent := Memo1;DataSource := BindScopeDB1;FieldName := 'Notes';end;with TBindDBImageLink.Create(BindingsList1) dobeginControlComponent := ImageControl1;DataSource := BindScopeDB1;FieldName := 'Graphic';end;ClientDataSet1.Active := True;
end;

---

要绑定到 TStringGrid, 在设计时(在上面的基础上)只需: StringGrid1 -> Link to DB DataSource... -> BindScopeDB1

下面是运行时绑定到 TStringGrid 的代码:

---

uses Fmx.Bind.Editors, Data.Bind.DBLinks, Fmx.Bind.DBLinks;procedure TForm1.FormCreate(Sender: TObject);
beginClientDataSet1.FileName := 'C:\Program Files\Common Files\CodeGear Shared\Data\biolife.xml';DataSource1.DataSet := ClientDataSet1;BindScopeDB1.DataSource := DataSource1;BindNavigator1.BindScope := BindScopeDB1;ClientDataSet1.Active := True;with TBindDBGridLink.Create(BindingsList1) do //还可用 TBindGridLinkbeginGridControl := StringGrid1;DataSource := BindScopeDB1;Active := True;end;
end;

---