Ver Mensaje Individual
  #4  
Antiguo 19-02-2014
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Yo creo que la idea es buena. Se pueden modificar algunas cosas, pero el camino es el correcto.
Algunas sugerencias...

(1) En la parte public de tu empleado has definido procedures para rellenar los diferentes "campos". Utiliza propiedades. Si además las colocas en la parte published te permitirá utilizar RTTI para trabajar con ellas. Lo cual te da mucha potencia y es muy útil para trabajar con POO, aunque tal vez eso puedas dejarlo para más adelante. Tal como te ha indicado ecfisa.

(2) Si deseas aprovechar tu clase TCliente en otros lugares, deberías crear una propiedad (o las que necesites) para asignar los componentes de Base de Datos (TDatabase, TDataSet,...). De esa forma si la utilizas en otra aplicación sólo deberás rellenar esas propiedades con los nuevos valores.
De esa forma "extraes" de la clase los elementos "concretos" que la unen a tu aplicación actual y la haces más universal.
Algo así como los parámetros de una función.

(3) Siguiendo con el punto anterior, si cada clase va a taner unas propiedades para la conexión a Base de Datos, lo lógico sería crear una clase "base" que posea los métodos, propiedades y código comunes a todas. De esta forma evitarás mucho código.

(4) Más adelante, si dominas la herencia y con un poco de RTTI, puedes hacer que métodos como el Save, Delete, Buscar,... de la diferentes clases puedan estar codificados casi por completo en la "clase base", de esa forma si tienes 10 clases no tienes que implementarlos en todas ellas.

Código Delphi [-]

  TBaseClass = class (TObject)
    ...    
  public
    property Connection:...
    Property Table:....
  end;

  TCliente = class(TBaseClass)
  private
    ...
  published
    ...
    procedure Save;
    procedure Delete;
    procedure Update;
    ...
  end;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita