ADO FireDac相当于

Question

我找到了一些关于devexpress网格模式的排序算法的例子。但这个例子用ADO写的。但我正在与炒作合作。

你能否告诉我，Firedac中的CommandText和InitSQL相当于什么？我正在谷歌上搜索，但我不能＆＃39;找到。谢谢，我也分享了所有代码：

var    
 i, ID: Integer;    
 Several: Boolean;    
 SQLOrderSt: string;    
...

   with TADODataset(<View>.DataController.DataSource.DataSet) do    
   begin    
     ID := FieldByName('CustNo').AsInteger;    
     DisableControls;    
     try    
       Close;    
       SQLOrderSt := '';    
       Several := False;    
       for i := 0 to <View>.SortedItemCount - 1 do    
       begin    
         if Several then    
           SQLOrderSt := SQLOrderSt + ', ';    
         SQLOrderSt := SQLOrderSt + TcxGridDBColumn(<View>.SortedItems[I]).DataBinding.FieldName;    
         Several := True;    
         if <View>.SortedItems[i].SortOrder = soDescending then    
           SQLOrderSt := SQLOrderSt + ' DESC';    
       end;

       if SQLOrderSt <> '' then    
         SQLOrderSt := 'ORDER BY ' + SQLOrderSt;    
       CommandText := InitSQL + SQLOrderSt;    
       Open;    
       Locate('CustNo', ID, []);    
     finally    
       EnableControls;    
     end;    
   end;