如何实现不显式使用TDataSetProvider或TProvider控件？

Question

如何通过数据集控件的Provider属性来间接地指定IProvider接口，不显式的使用
TDataSetProvider或TProvider控件？（我用socket连接）

Answer 1

给段代码你:
var AadoBase:TAdoBase;
   Fr: Tdataset;
 aprovider: TDataSetProvider;
begin
 AadoBase:=TadoBase.Create;
 Fr := AadoBase.Base_Getdatas(sSql);
 aprovider := TDataSetProvider.Create(nil);
 aprovider.Dataset := Fr;
 datas := aprovider.Data;
 if fr = nil then
  result := -1
 else
  result := 1;
 aprovider.Free;
 AadoBase.Free;
end;
你要取的是数据集吧，这个就可以了！

Answer 2

为什么我看到书上有table1.Provider.ApplyUpdates(CustVar,0,ErrCount);语句
但我却没发现table有Provider属性？调试时也出错。
我用delphi7

Answer 3

自己在程序中创建组件，xyqxj(蓝泥)把大概的意思都讲了，我也没什么好讲的