Fórum Arquitetura Multi-Camadas #228544

CoClass - RDM
Interface - IRDM
  ReadOnly property - SQLConnection
  ReadOnly property - RDMRelatorio
Interface - IBaseRDM
  ReadOnly property - SQLConnection
  WriteOnly property - SQLConnection
  ReadOnly property - RDM
  WriteOnly property - RDM
CoClass - RDMRelatorio
Interface IRDMRelatorio (herdando de IBaseRDM - Parent Interface)

function TRDM.Get_SQLConnection: Integer;
begin
  // o Integer serve para serializar o componente
  Result := Integer(SQLConnection1);
end;

function TRDM.Get_RDMRelatorio: IRDMRelatorio;
begin
  Result := RDMRelatorioFactory.CreateCOMObject(nil) as IRDMRelatorio;
  Result.RDM := Self;
  Result.SQLConnection := Integer(SQLConnection1);
end;

function TRDMRelatorio.Get_RDM: IRDM;
begin
  Result := FRDM;
end;

procedure TRDMRelatorio.Set_RDM(const Value: IRDM);
begin
  FRDM := Value;
end;

function TRDMRelatorio.Get_SQLConnection: Integer;
begin
  Result := Integer(FRDM.SQLConnection);
end;

procedure TRDMRelatorio.Set_SQLConnection(Value: Integer);
var
  x: integer;
begin
  for x:=0 to ComponentCount -1 do
    if Components[x] is TCustomSQLDataSet then
      TSQLDataSet(Components[x]).SQLConnection := TSQLConnection(Value);
end;