Llenar Clase con DataSet

[Jvilomar]

Saludos mis queridos amigos,

Tengo una duda. Quisiera saber, si es posible popular una clase dada, ejemplo :

Código Delphi [-]
 Type
  TClientes = Class
    Private
    fID: Int;
    fNombres: String;
    fApellidos: String;
    procedure SetApellidos(const Value: String);
    procedure SetCedula(const Value: String);
    procedure SetID(const Value: Int);
     Published
      Property Nombres : String Read fNombres Write SetNombres;
      Property Apellidos : String Read fApellidos Write SetApellidos;
      Property ID : Int Read fId Write SetID;
   elefono2;
End;
 
......

Bueno la idea es crear un metodo que me cargue los datos en mi clase atendiendo a una consulta, mi campo clave seria el ID. y de ser posible si se le hace una modificacion a cualquiera de los valores de las propiedades de mi clase poder hacer la actualizacion de igual manera.

Muchas Gracias.

[Neftali [Germán.Estévez]]

Dado que tienes las propiedades como published, puedes hacer un método del estilo:

Código Delphi [-]
  procedure ChargeValues(Cli:TBaseClase; DataSet:TDataSet);

NOTA: Como ves te he puesto el los parámetros TBaseClase en lugar de TCliente, ya que creo que para lo que estás haciendo es mejor que Todas tus clases de negocio hereden de una clase base donde poder implementar Métodos y propiedades comunes a todos

Volviendo al método. Por un lado puedes recorrer los campos (Fields) del Dataset utilizando métodos como GetFieldsList, GetFieldsNames,... Y para acceder a las propiedades de tu clase puedes utilizar RTTI (Acceder a las propiedades de un componente vía RTTI).
Entre unas y otras deberías poder cargar los datos en tu clase.

[Jvilomar]

Gracias Neftali,

Imaginate que mi clase Base es tClientes, este metodo entonces aceptaria como parametro una instancia de mi clase y me la devolveria con los valores obtenidos de la consulta? Perdona mi Ignoracia, pero es que nunca me habia detenido a trabajar con POO y siempre hacia todo crudo. Pero eh pensado en implementar una Clase Generica de Clientes la cual pueda utilizar en cualquier aplicacion que utilize clientes. Espero haberme explicado bien. es Decir imaginemos que mi clase la cargo por medio del ID como seria para llamar el metodo?

Código Delphi [-]
Procedure Consultar
Begin 
  
    Clientes : ClientesBase;
Var
    Clientes := ClientesBase.Create;
    Clientes.CargarDatos( .... )
End;

Seria algo asi no?

[Neftali [Germán.Estévez]]

Empezado por Jvilomar

Seria algo asi no?

Sí perfectamente podría ser así.
Simplemente, que yo ese método CargarDatos lo programaría en la clase Base, para que te sirva para todas las clases; Si lo haces utilizando RTTI, como te he explicado antes, te servirá tanto para TClientes, TProveedores, TMonedas o TCarritoDelHelado.

Si quieres prueba a implementarlo en TCliente (ahora te será más sencillo para comenzar), pero debes tener presente que la idea final es Abstraerlo a la Clase Base, para que no tengas que programarlo en todas.

[JoseAntonio]

Hola, yo anduve haciendo experimentos en ese aspecto durante mis ratos libres, aqui un ejemplo, espero que le sirva

Código Delphi [-]
procedure TPadre.loadFromDB(CodPadre: String);
var
  SQLStr: string;
  ADataSet: TDataSet;
begin
  sqlStr:= 'select * from padre where codpadre = ' + QuotedStr(CodPadre);
  TDMDBManager.GetSQLDataSet(SQLStr, ADataSet); // Clase que genera Datasets
  fCodPadre := ADataset.fieldByName('CODPADRE').AsString;
  fNombres := AdataSet.FieldbyName('NOMBRESPADRE').AsString;
  fSexo := ADataSet.FieldbyName('SEXO').AsInteger;
  fTipoDocumento := ADataSet.FieldByName('TIPODOCUMENTO').AsInteger;
  fEstadoCivil := ADataSet.FieldByName('ESTADOCIVIL').AsInteger;
  fFechaNac := ADataSet.FieldbyName('FECHANACIMIENTO').AsDateTime;
  fDescPadre := ADataSet.FieldByName('DESCPADRE').AsString;
  LoadChilds;   // para leer los hijos
end;

[Neftali [Germán.Estévez]]

Empezado por JoseAntonio

aqui un ejemplo, espero que le sirva

A algo así me refería yo, pero de forma genérica para que sirve para cualquier clase del Modelo.