Abstraccion en BD

[gustavosv]

Hola amigos, tengo la siguiente inquietud y busco alguna orientación para encontrar el mejor camino, pretendo generar una capa de abstracción entre mis clases de tablas de la BD y las instrucciones de actualización de las tablas, me explico, por un lado tengo mi clase TProducto, TCliente que contienen los campos de la respectiva tabla, y pretendo tener en otra clase TCRUDs con las funciones/procedimientos para realizar las actualizaciones CRUD (create, update, delete) de cualquier tabla, p.ej.

Código Delphi [-]
TProducto = class(TConexionClass)
protected
  FpdtId: string;
  FpdtDescripcion: string;
.
..
...
function TProducto.Nuevo: Boolean;
begin
  TCRUDs.Insertar(Self);
end;

y en la clase TCRUDs 

function TCRUDs.Insertar(ObjetoBD: TObject): Boolean;
var
  Query: TADOCommand;
begin
  //  Cómo leo las propiedades del objeto ObjetoBD y sus valores ...?
 
  Query.CommandText := 'INSERT INTO Tabla (..propiedades del ObjetoBD..) VALUES (..valores de las propiedades del ObjetoBD..)
  Query.Execute; 
end;

La pregunta es, cómo puedo implementar p.ej. el método Insertar de TCRUDs de manera tal que lea las propiedades del objeto que se envió como parámetro (ObjetoBD) y sus valores ...?

De antemano, gracias !

[[Delphius]]

Lee e investiga sobre persistencia. Existen en el mercado variados frameworks de persistencia. Algunos más complejos que otros, algunos caros... otros baratos, e incluso hasta Open Source.

Si tienes las posibilidad de acceder al libro UML y Patrones de Caig Larman, en los últimos capítulos le dedica un espacio a presentar justo esto. Básicamente, existe un conversor o wraper que asume justamente la tarea de "traducir" un objeto del dominio (que será persistente) a un registro de una tabla. Y a su vez, también lee de la tabla y regresa el objeto del dominio.

Por tanto, por cada objeto del dominio persistente (aquel que posee una representación en la base de datos, y por tanto se almacenará) se diseña una clase conversor apropiada (existe una clase conversor abstracta, obviamente, de la cual se hereda). Luego existe una fachada de persistencia que se encarga de crear y administrar los conversores; vendría a ser, salvando algunas diferencias, la clase TCRUD que defines.
Por lo general, algunos frameworks se apoyan en el uso del patrón proxy para hacer la asociación TClaseDominio <-> TConversorClaseDominio.

Esto es en líneas generales. Recomiendo la lectura de dicho libro te puede ayudar a aclarar ideas.

Saludos,

[gustavosv]

Amigo Delphius, gracias por tu respuesta, ya encontré el libro, se bien interesante, voy a leerlo y si encuentro el camino lo estaré comentando en el foro. Gracias !

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

Busca artículos referentes a Frameworks de Persistencia de Joanna Carter; Hay algunos bastante buenos. Además de los comentados por Delphius.

También tiene varios sobre las diferentes posibilidades para "mapear" los objetos sobre tablas de la Base de Datos.

Es un tema del que ya hemos hablado otras veces en los foros, así que buscando he llegado a este mensaje. Revisa esa documentación.

Aquí tienes los diferentes mapeos a los que hacía referencia antes. Revisa ese hilo.

[gustavosv]

Hola Neftalí, ya revisé algunos y son bastante interesantes. Gracias por las referencias !

[mamcx]

Un ORM comercial que ha tenido buenos comentarios:

http://www.tmssoftware.com/site/aurelius.asp

Una forma diferente de ver el problema lo hacen en DataAbstract:

http://www.remobjects.com/da/