随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253


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



posted on 2010-02-06 22:48  万一  阅读(...)  评论(...编辑  收藏