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

最新推荐文章于 2017-08-04 13:01:04 发布

weixin_33949359

最新推荐文章于 2017-08-04 13:01:04 发布

阅读量184

点赞数

原文链接：https://my.oschina.net/hermer/blog/319904

版权

为什么80%的码农都做不了架构师？>>>

测试使用了官方的范例文件(主表: 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 两个属性, 下面是设计时的一个截图: