// 取得 TClientDataSet
function Getcds(TQ : TSQLQuery):TClientDataSet ;
var
pdPrt : TDataSetProvider;
cdsPrt : TClientDataSet;
begin
pdPrt := TDataSetProvider.Create(nil);
cdsPrt := TClientDataSet.Create(nil);
pdPrt.options:=[poAutoRefresh,poPropogateChanges,poAllowCommandText];
pdPrt.DataSet := TQ;
cdsPrt.ProviderName := pdPrt.Name ;
cdsPrt.SetProvider(pdprt);
Result := cdsPrt;
end;
- Apr 29 Sun 2012 00:57
-
[delphi] 動態建立ClientDataSet


請先 登入 以發表留言。