动态创建TDataSetField问题

Question

两个表A和B，A表字段为：ID，NAME，B表字段为为：AID,ID,SEX,用TDataSetField方式实现数据编辑，要求TDataSetField是动态创建的。

Answer 1

procedure TForm2.Button1Click(Sender: TObject);
var
  a : TStringField;
  i : integer;
begin
  a := TStringField.Create(adoquery1);
  a.FieldName := 'AID';
  a.FieldKind := fkData;
  a.Size := 10;
  ADOQuery1.Fields.Add(a);  //下面是測試語名。
  for i  := 0 to adoquery1.Fields.Count - 1 do
    ShowMessage(ADOQuery1.Fields[i].FieldName)
end;

Answer 2

var
  str:TDataSetField;
begin
  str := TDataSetField.Create(nil);
  str.FieldName := 'aa';
  str.FieldKind := fkData;
  str.Size := 10;
  ADOQuery1.Fields.Add(str);
  ShowMessage(IntToStr(ADOQuery1.FieldCount));
end;

Answer 3

没有说清楚，A是主表B是从表，不只是创建 TDataSetField，并且主从表都要能录入数据。创建的不复杂，就是录入数据老有问题