Duda - Desarrollo OOP en capas

[agustinbus]

Buenas compañeros! como están? Abro este hilo debido a que quiero cambiar la forma de trabajar y hacerlo de una manera mas correcta.
Estuve buscando mucho y vi varios post en el foro y en otros lados pero ninguno me aclaró mucho.

Actualmente realizo mis trabajos de forma orientada a eventos y muy desordenada, y me gustaría comenzar a desarrollar aplicando la arquitectura en 3 capas, me refiero a Datos, Negocio y Presentación para poder separar la lógica del GUI. Ademas quiero comenzar a desarrollar librerias de clases, para utilizar en futuras aplicaciones, por ejemplo TClientes, TProveedores, TFacturas, TArticulos, etc.

Tengo varias dudas al respecto y se las menciono a continuación:

1- Es conveniente crear un Unit para cada clase, es decir crear un Unit para TClientes uno para TProveedores, etc.. y referenciarlos segun mi necesidad? o uno solo con todas las clases?

2- Para un alta por ejemplo de un cliente, quien seria el responsable de hacer el insert en la BBDD? La capa de datos? la de Negocio? El Unit TCliente con un metodo propio de la clase?

3- Cual es el rol de la capa de Negocio?


Tenia pensada otra forma de trabajar pero no se si esta bien, esta forma seria:

- Crear Units para cada clase por ejemplo TCliente
- Cada clase tendra sus datos privados (nombre, apellido, fecha nacimiento,etc...)
- Cada clase tendra sus propios metodos get y set para acceder a los datos privados.
- Cada clase tendra sus propios metodos para mantener la base de datos(es decir altas bajas modificaciones). Me refiero a crear un metodo insertar que guardara los datos en la base de datos por lo tanto cuando quiera guardar los datos del cliente hare:

Código Delphi [-]
cliente.Insertar(nombre,apellido,...);

y la definicion del metodo seria mas o menos asi:

Código Delphi [-]
cliente.Insertar(nombre,apellido,...);
begin
  QClientes.Close;
  QClientes.SQL.Clear; 
  QClientes.SQL.Add('INSERT INTO Clientes (NOMBRE, APELLIDO,...) values (:nom, :ape...)');
  QClientes.ParamByName('nom').Value := nombre;
  QClientes.ParamByName('ape').Value := apellido;
  QClientes.ExecSQL;
end;

Es correcto el razonamiento anterior? Un problema que encuentro es al momento de reutilizar la clase TCliente tendre que utilizar el mismo nombre para el TZQuery es decir QClientes.

Perdon por tantas preguntas, pero es un tema que no tengo muy claro.
Espero puedan ayudarme y desde ya muchas gracias a todos!!!