Delphi ActiveX Form的使用---传递Clientdataset的数据

1： 实现输入数据的传入 ：如图tlb位置的编辑所示，编辑出入接口

 

procedure TActiveFormX.In_Data(var In_Data: OleVariant);
begin
  
   Cds1.Data := In_Data;
  // Self.btn1.Click ;
end;

2： 实现和数据传入接口对接

procedure TForm1.Button1Click(Sender: TObject);
var
  Cds2: OleVariant;
  Cds3: OleVariant;
  k:integer;
  aList:TStringList;
begin
  ClientDataSet1.Active:=True;
  Cds2:= ClientDataSet1.Data ;
  ClientDataSet1.Active :=True;
  actvfrmx1.In_Data(Cds2);
  //------
   aList:=TStringList.Create;
   for   k:=0   to   ClientDataSet1.Fields.count-1   do
   aList.add(ClientDataSet1.Fields[k].DisplayLabel );
   Cds3:= aList.Text ;
   actvfrmx1.In_Cds_Caption(Cds3);

end;
---

该功能实现字段数据传递和字段名称的显示