procedure TForm.Create(Sender: TObject);

var

    Field1, Field2, Field3, Field4: TField

 

begin

      { +++++ ClientDataSet2 +++++ }

      { авто добавляемое поле порядкового номера }

      Field1 := TAutoIncField.Create(nil);

      Field1.FieldName := 'id';

      Field1.Visible := True;

      Field1.FieldKind := fkData;

      Field1.DataSet := ClientDataSet2;

      ClientDataSet2.Fields.Add(Field1);

 

      { текстовое поле с данными }

      Field2 := TStringField.Create(nil);

      Field2.FieldName := 'name';

      Field2.Visible := True;

      Field2.FieldKind := fkData;

      Field2.Size := 5;

      Field2.DataSet := ClientDataSet2;

      ClientDataSet2.Fields.Add(Field2);

      { ----- ClientDataSet2 ----- }

 

      { +++++ ClientDataSet1 +++++ }

      { номер выбранного значения из  ClientDataSet2 }

      Field3 := TIntegerField.Create(nil);

      Field3.FieldName := 'id_izmer';

      Field3.Visible := True;

      Field3.FieldKind := fkData;

      Field3.DataSet := ClientDataSet1;

      ClientDataSet1.Fields.Add(Field3);

 

      { текстовое поле с данными из  ClientDataSet2 }

      Field4 := TStringField.Create(nil);

      Field4.FieldName := 'izmer';

      Field4.Visible := True;

      Field4.FieldKind := fkLookup;

      Field4.Size := 5;

      Field4.DataSet := ClientDataSet1;

      { заполнение данных для LookUp }

      Field4.KeyFields := 'id_izmer';

      Field4.LookupKeyFields := 'id';

      Field4.LookupResultField := 'name';

      Field4.LookupDataSet := ClientDataSet2;

      ClientDataSet1.Fields.Add(Field4);

      { ----- ClientDataSet1 ----- }

 

      ClientDataSet2.CreateDataSet;

      ClientDataSet2.Active := True;

      ClientDataSet1.CreateDataSet;

      ClientDataSet1.Active := True;

end;