Fórum ClientDataSet extendido #477365

Var
  qAUTO    : TSQLQuery;
  Dsp_Auto : TDataSetProvider;
  Cds_Auto : TClientDataSet;
begin
  {Rotina para liberação de pedidos que são comodatos,troca}
    qAUTO               := TSQLQuery.Create(Self);
    qAUTO.SQLConnection := DmBase.SESSAO;

    Dsp_Auto            := TDataSetProvider(Self);
    Dsp_Auto.DataSet    := qAUTO;

    Cds_Auto            := TClientDataSet.Create(Self);
    Cds_Auto.ProviderName := 'Dsp_Auto';
end;
  

FADOQuery := TADOQuery.Create(Self);
FADOQuery.Connection:= FADOConnection;

FDatasetProvider := TDatasetProvider.Create(Self);
FDatasetProvider.Dataset := FADOQuery;

FClientDataSet := TClientDataSet.Create(Self);
FClientDataSet.SetProvider(FDatasetProvider); // aqui 'seta' corretamente o provider

unit ClientDataSetEx;

interface

uses
  Classes, DBClient, ZConnection, WideStrings, ZDataset, Provider, SysUtils,
  Designintf, DesignEditors, DesignMenus, Variants, Dialogs, DB;

type
  TClientDataSetEx = class(TClientDataSet)
  private
    fSQL: TWideStrings;
    fConnection: TZConnection; 
    fQuery: TZQuery;
    fDataSetProvider: TDataSetProvider;
    function GetSQL: TWideStrings;
    function GetActive: Boolean;
    procedure SetSQL(const Value: TWideStrings);
    procedure SetConnection(const Value: TZConnection);
    procedure SetActive(const Value: Boolean);
  protected
    procedure QueryChanged(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Active: Boolean read GetActive write SetActive;
    property Connection: TZConnection read fConnection write SetConnection;
    property SQL: TWideStrings read GetSQL write SetSQL;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Extras', [TClientDataSetEx]);
end;

{ TClientDataSetEx }

constructor TClientDataSetEx.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FSQL := TWideStringList.Create;
  TWideStringList(FSQL).OnChange := QueryChanged;

  fQuery:= TZQuery.Create(Self);
  fDataSetProvider:= TDataSetProvider.Create(Self);
  fDataSetProvider.DataSet:= fQuery;

  Self.SetProvider(fDataSetProvider); // aqui 'seta' corretamente o provider
end;

function TClientDataSetEx.GetActive: Boolean;
begin
  Result:= inherited Active;
end;

function TClientDataSetEx.GetSQL: TWideStrings;
begin
  Result := FSQL;
end;

procedure TClientDataSetEx.QueryChanged(Sender: TObject);
begin
  fQuery.SQL.Text:= Self.fSQL.Text;

  if not (csLoading in ComponentState) then
    Close;
end;

procedure TClientDataSetEx.SetActive(const Value: Boolean);
begin                   
  Self.SetProvider(fDataSetProvider);
  inherited Active:= Value;
end;

procedure TClientDataSetEx.SetConnection(const Value: TZConnection);
begin
  fConnection := Value;
  fQuery.Connection:= fConnection;
end;

procedure TClientDataSetEx.SetSQL(const Value: TWideStrings);
begin
  fSQL.Assign(Value);
end;

end.