//先在窗体上放置: DBGrid1、DataSource1、ClientDataSet1、ClientDataSet2; 其他全用代码实现:procedure TForm1.FormCreate(Sender: TObject);begin { 关联控件 } DBGrid1.DataSource := DataSource1; DataSource1.DataSet := ClientDataSet1; { 把 ClientDataSet2 定义为一个 School 列表, 同时添加测试数据 } with ClientDataSet2 do begin FieldDefs.Add('ID', ftInteger); FieldDefs.Add('Name', ftString, 20); CreateDataSet; AppendRecord([1, '哈佛大学']); AppendRecord([2, '斯坦福大学']); AppendRecord([3, '耶鲁大学']); AppendRecord([4, '加州理工学院']); AppendRecord([5, '加州大学']); AppendRecord([6, '剑桥大学']); AppendRecord([7, '麻省理工学院']); AppendRecord([8, '牛津大学']); AppendRecord([9, '哥伦比亚大学']); MergeChangeLog; SaveToFile('C:\Temp\School.xml', dfXMLUTF8); { 保存下, 也给后面的例子用 } end; { 下面是定义 ClientDataSet1; 先添加两个普通字段 } with TStringField.Create(Self) do begin FieldName := 'Student'; { 用于显示学生名称 } Size := 12; DataSet := ClientDataSet1; end; with TIntegerField.Create(Self) do begin FieldName := 'School_ID'; { 用于和 ClientDataSet2 的 ID 字段关联 } DataSet := ClientDataSet1; end; { 添加 Lookup 字段 } { 通过 School_ID 和 ClientDataSet2.ID 的关联, 从 ClientDataSet2 中查找 Name 字段的值 } with TStringField.Create(Self) do begin FieldName := 'School'; FieldKind := fkLookup; { 上两个字段会默认 FieldKind := fkData } DataSet := ClientDataSet1; KeyFields := 'School_ID'; LookupDataSet := ClientDataSet2; LookupKeyFields := 'ID'; LookupResultField := 'Name'; end; ClientDataSet1.CreateDataSet;end;
联系客服