procedure TForm1.Button1Click(Sender: TObject);

var

  FCommIntf: IFDPhysCommand;  //FireDAC.Phys.Intf

  FTab: TFDDatSTable;         //FireDAC.DatS

begin

  FTab := TFDDatSTable.Create;

  FDConnection1.ConnectionIntf.CreateCommand(FCommIntf);

  FCommIntf.CommandText := 'select * from zfxx';

  //FCommIntf.Prepare('select * from tjzfdb.dbo.zfxx');

  FCommIntf.Define(FTab);

  //FCommIntf.Open;

  FCommIntf.Fetch(FTab);

  Caption := FTab.Rows.Count.ToString();

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  oCommIntf: IFDPhysCommand;

  oSchAdapt: IFDDAptSchemaAdapter;

  oAdapt: IFDDAptTableAdapter;  //FireDAC.DApt.Intf                             U

begin

  {

    uses

      FireDAC.Stan.Factory, FireDAC.DApt;

  }

  //FDCreateInterface(IFDDAptSchemaAdapter, oSchAdapt);

  //oAdapt := oSchAdapt.TableAdapters.Add;

  //上面的2步可以用下面一行代码代替

  FDCreateInterface(IFDDAptTableAdapter, oAdapt);

  FDConnection1.ConnectionIntf.CreateCommand(oCommIntf);

  if oAdapt.SelectCommand=nil then

    oAdapt.SelectCommand := oCommIntf;

  oCommIntf.CommandText := 'select * from zfxx';

  oAdapt.Define;

  oAdapt.Fetch(True);

  Caption := oAdapt.DatSTable.Rows.Count.ToString();

end;