delphi TClientDataSet[24]: 主从表(Master/Detail)

TClientDataSet[24]: 主从表(Master/Detail)

测试使用了官方的范例文件(主表: orders.xml; 从表: items.xml).

//先在窗体上添加: 

//ClientDataSet1、DataSource1、DBGrid1、ClientDataSet2、DataSource2、DBGrid2; 然后:

procedure TForm1.FormCreate(Sender: TObject);

begin

  { 关联数据集 }

  DBGrid1.DataSource := DataSource1;

  DataSource1.DataSet := ClientDataSet1;

  DBGrid2.DataSource := DataSource2;

  DataSource2.DataSet := ClientDataSet2;

  { 载入范例文件 }

  ChDir(GetEnvironmentVariable('COMMONPROGRAMFILES') + '\CodeGear Shared\Data\');

  ClientDataSet1.LoadFromFile('orders.xml');

  ClientDataSet2.LoadFromFile('items.xml');

  { 设定主从表 }

  ClientDataSet2.MasterSource := DataSource1;

  ClientDataSet2.MasterFields := 'OrderNo'; { 多个字段时用分号隔开 }

end;

如果在设计时完成, 也主要是设置 MasterSource、MasterFields 两个属性, 下面是设计时的一个截图: