Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-07-2021
Avatar de Dexter182
Dexter182 Dexter182 is offline
Miembro
 
Registrado: jul 2005
Ubicación: Argentina
Posts: 95
Poder: 19
Dexter182 Va por buen camino
Ayuda con refactorización

Hola a todos!


Gracias a los sabios consejos que me dieron en este post: https://www.clubdelphi.com/foros/showthread.php?t=94720 comencé con mucho éxito la migración y refactorización de mi humilde sistema.
He avanzado mucho y el código está quedando mucho más legible y ordenado que antes.
Sin embargo, en algunas ocasiones me está costando bastante separar las consultas SQL de los forms.
Por ejemplo, un código como este:



Código Delphi [-]
Modulo.ADOCommand.CommandText := 'DELETE FROM Productos WHERE Cod_Producto = :pCodigo';
Modulo.ADOCommand.Parameters.ParamByName('pCodigo').Value := Edit_Codigo.Text;
Modulo.ADOCommand.Execute


Fue sencillo de separar con un simple procedimiento:

Código Delphi [-]
Modulo.EliminarArticulo(Edit_Codigo.Text);


Ahora bien, cuando necesito volcar los datos recibidos de la consulta en el form no se muy bien como hacerlo.
Por ejemplo, un código como este ¿cómo lo refactorizarían?
Código Delphi [-]
Modulo.Consulta.Active := FALSE;
Modulo.Consulta.SQL.Clear;
Modulo.Consulta.SQL.Add('SELECT Productos.*, Proveedores.Denominacion, Secciones.Desc_Seccion, '+
                               'Categorias.Desc_Categoria, IVA.Valor AS Valor_IVA '+
                        'FROM Productos, Proveedores, Categorias, Secciones, IVA '+
                        'WHERE (Cod_Producto = :pCodigo) AND '+
                              '(Productos.Cod_Proveedor = Proveedores.Cod_Proveedor) AND '+
                              '(Productos.Cod_Categoria = Categorias.Cod_Categoria) AND '+
                              '(Categorias.Cod_Seccion = Secciones.Cod_Seccion) AND '+
                              '(Productos.Porcentaje_IVA = IVA.Codigo)');
Modulo.Consulta.Parameters.ParamByName('pCodigo').Value := Edit_Codigo.Text;
Modulo.Consulta.Active := TRUE;

//Carga los campos con los datos de la tabla
With Modulo.Consulta do
  begin
    Edit_Descripcion.Text      := FieldByName('Desc_Producto').AsString;
    Edit_PreUnitario.Text      := FieldByName('Precio').AsString;
    ComboBox_IVA.Text          := FieldByName('Valor_IVA').AsString;
    Edit_Ganancia.Text         := FieldByName('Porcentaje_Ganancia').AsString;
    SpinEdit_Stock.Text        := FieldByName('Cant_Existente').AsString;
    SpinEdit_StockMinimo.Text  := FieldByName('Cant_Minima').AsString;
    SpinEdit_CantRep.Text      := FieldByName('Cant_Reposicion').AsString;
    ComboBox_Seccion.Text      := FieldByName('Desc_Seccion').AsString;
    ComboBox_Categoria.Text    := FieldByName('Desc_Categoria').AsString;
    ComboBox_Proveedor.Text    := FieldByName('Denominacion').AsString;
    Edit_CodProveedor.Text     := FieldByName('Cod_Producto_Proveedor').AsString;
    SpinEdit_UniProveedor.Text := FieldByName('Unidad_Proveedor').AsString;
    Edit_CodBarras.Text        := FieldByName('Cod_Barras').AsString;
  end;


Saludos!

Última edición por ecfisa fecha: 28-07-2021 a las 06:50:09. Razón: Quitar emoticones del código
Responder Con Cita
  #2  
Antiguo 28-07-2021
Avatar de mamcx
mamcx mamcx is offline
Moderador
 
Registrado: sep 2004
Ubicación: Medellín - Colombia
Posts: 3.911
Poder: 25
mamcx Tiene un aura espectacularmamcx Tiene un aura espectacularmamcx Tiene un aura espectacular
Una manera simple es crear un Record basico para pasar los datos:

Código Delphi [-]
type
  TProduct = Record
    CodBarras : string;
...
  end;

  TCustomer = Record
    CodCustomer : string;
...
  end;

  TInvoice = Record
...
  end;

Eso queda muy bonito si en un solo archivo tienes todos tus "datos" declarados. De alli, puedes hacer una clase/interface para pasar/leer los datos:

http://www.delphibasics.co.uk/Articl...Name=Interface
Código Delphi [-]
type
   IDb = Interface(IInterface)
     function to_sql(con:TCon..., of:T) : TClientDataSet;
     function from_sql(con:TCon..., sql:String) : T;
   end;
__________________
El malabarista.
Responder Con Cita
  #3  
Antiguo 28-07-2021
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.233
Poder: 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
Otra opción es "separar" la parte visual de la parte de "los datos".
Igual que de entrada, has eliminado el Edit_Codigo.Text de donde tenías la consulta y lo has convertido en un parámetro, puedes hacer lo mismo con el Dataset.

Código Delphi [-]
Modulo.EliminarArticulo(Edit_Codigo.Text);

De forma que esta llamada quedaría así:

Código Delphi [-]
Modulo.EliminarArticulo(Edit_Codigo.Text, ADataset);

Y luego podrías tener u procedimiento (en la parte voisual) que cogiera los valores del Dataset y los asignara a los campos visuales:

Código Delphi [-]
Modulo.EliminarArticulo(Edit_Codigo.Text, ADataset); 
AsignarVvaloresRetorna(ADataset);

Y el procedimiento quedaría así (en la parte visual):
Código Delphi [-]
procedure AsignarValoresRetorna(ADataset:TDataset);
begin
  //Carga los campos con los datos de la tabla
  With ADataset do
  begin
    Edit_Descripcion.Text      := FieldByName('Desc_Producto').AsString;
    Edit_PreUnitario.Text      := FieldByName('Precio').AsString;
    ComboBox_IVA.Text          := FieldByName('Valor_IVA').AsString;
    Edit_Ganancia.Text         := FieldByName('Porcentaje_Ganancia').AsString;
    SpinEdit_Stock.Text        := FieldByName('Cant_Existente').AsString;
    SpinEdit_StockMinimo.Text  := FieldByName('Cant_Minima').AsString;
    SpinEdit_CantRep.Text      := FieldByName('Cant_Reposicion').AsString;
    ComboBox_Seccion.Text      := FieldByName('Desc_Seccion').AsString;
    ComboBox_Categoria.Text    := FieldByName('Desc_Categoria').AsString;
    ComboBox_Proveedor.Text    := FieldByName('Denominacion').AsString;
    Edit_CodProveedor.Text     := FieldByName('Cod_Producto_Proveedor').AsString;
    SpinEdit_UniProveedor.Text := FieldByName('Unidad_Proveedor').AsString;
    Edit_CodBarras.Text        := FieldByName('Cod_Barras').AsString;
  end;  
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
  #4  
Antiguo 28-07-2021
Avatar de Dexter182
Dexter182 Dexter182 is offline
Miembro
 
Registrado: jul 2005
Ubicación: Argentina
Posts: 95
Poder: 19
Dexter182 Va por buen camino
¡Muchas gracias a ambos!


Había pensado en un record, pero pasándolo como parámetro.
Mis conocimientos son un poco más rudimentarios, jaja.


Me gustan ambas opciones.
La de Germán es la más fácil de implementar con mis conocimientos actuales, pero lo de la interface me despertó curiosidad.
Voy a leer un poco y veo por cual me decido.

¡Muchas gracias de nuevo a ambos por la ayuda!
Responder Con Cita
  #5  
Antiguo 28-07-2021
Avatar de Dexter182
Dexter182 Dexter182 is offline
Miembro
 
Registrado: jul 2005
Ubicación: Argentina
Posts: 95
Poder: 19
Dexter182 Va por buen camino
No se si es correcto, pero lo implementé de la siguiente manera:


Código Delphi [-]
procedure TForm_Articulo.AsignarValores;

var
  Consulta: TDataSet;
begin
  Consulta := Modulo.DatosArticulo(eCodigo.Text);

  //Carga los campos con los datos de la tabla
  With Consulta do
    begin
      eDescripcion.Text  := FieldByName('Desc_Producto').AsString;
      ePreUnitario.Text  := FieldByName('Precio').AsString;
      cbIVA.Text         := FieldByName('Valor_IVA').AsString;
      eGanancia.Text     := FieldByName('Porcentaje_Ganancia').AsString;
      eStock.Text        := FieldByName('Cant_Existente').AsString;
      eStockMinimo.Text  := FieldByName('Cant_Minima').AsString;
      eCantRep.Text      := FieldByName('Cant_Reposicion').AsString;
      cbSeccion.Text     := FieldByName('Desc_Seccion').AsString;
      cbCategoria.Text   := FieldByName('Desc_Categoria').AsString;
      cbProveedor.Text   := FieldByName('Denominacion').AsString;
      eCodProveedor.Text := FieldByName('Cod_Producto_Proveedor').AsString;
      eUniProveedor.Text := FieldByName('Unidad_Proveedor').AsString;
      eCodBarras.Text    := FieldByName('Cod_Barras').AsString;
    end;
end;


Leí sobre las interfaces y está muy bueno, pero necesito leer más para entender bien como usarlas.
Saludos!
Responder Con Cita
  #6  
Antiguo 29-07-2021
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.233
Poder: 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
Mejor si el Dataset lo pasas como parámetro.
De esa forma el procedimiento de asignar valores no tiene que hacer referencia al módulo (queda independiente) y se podría llamar con otro dataset que estiviera en "Modulo2" (por decir algo).
Aunque ahora no lo vayas a utilizar ayuda a crear piezas (procedimientos) independientes (cajas negras) y te acostumbras a trabajar así.

Te evitas esta línea:

Código Delphi [-]
Consulta := Modulo.DatosArticulo(eCodigo.Text);

Los Interfaces son potentes y también ayudan a crear piezas "estancas". Para que te hagas una idea una Interfaz es como un contrato. Creas un contrato y todos aquellos elementos que lo usen deben cumplir ese contrato (esas normas).
Pero si es cierto que no es algo "inicial".
__________________
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
  #7  
Antiguo 29-07-2021
Avatar de Dexter182
Dexter182 Dexter182 is offline
Miembro
 
Registrado: jul 2005
Ubicación: Argentina
Posts: 95
Poder: 19
Dexter182 Va por buen camino
¡Gracias Germán, como siempre!

Cita:
Empezado por Neftali [Germán.Estévez] Ver Mensaje
Aunque ahora no lo vayas a utilizar ayuda a crear piezas (procedimientos) independientes (cajas negras) y te acostumbras a trabajar así.
Más claro imposible.
La idea es mejorar mi manera de programar, así que gracias por la explicación.
Saludos!!!!
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda BD Access? Ayuda al modificar!! DarkArias Conexión con bases de datos 4 25-08-2013 00:47:41
Instalar Ayuda (.HLP) en la Ayuda de Delphi? MasterXP Varios 6 12-04-2006 07:57:49
Ayuda para crear ayuda... Gabriel2 Varios 2 10-06-2005 01:15:18
ayuda con strtofloat, ayuda punto flotante TURING Varios 5 30-04-2004 09:03:59
Ayuda Con Instalacion De Archivos De Ayuda Legolas Varios 1 01-12-2003 15:48:03


La franja horaria es GMT +2. Ahora son las 15:19:52.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi