Existe alguna tecnica para no repetir codigo?

[pablopessoa]

Hola a todos!, hace rato que no escribia...
Les explico mi problema para que se entienda lo que quiero hacer, si se puede...

Tengo dos bases de datos. Las dos son iguales en estructura, solo qeu guardan datos distintos (una guarda datos personales y las otras los datos de las sucursales)
Por ende tengo dos datamodulos, donde se repiten las querys.
Ahora supongamos que tengo un formulario donde se hacen busquedas. Hoy en dia tengo un codigo de la siguiente forma:

Código Delphi [-]
if esBaseMia then {se busca en la base de mis datos}
   begin
       with datamodule1 do
       begin
           unaQuery.Parameters.ParamByName('parametro1').Value:=unValor;
           unaQuery.Parameters.ParamByName('parametro2').Value:=unValor;
           unaQuery.Parameters.ParamByName('parametro3').Value:=unValor;
       end
   end
else {se busca en la base de las sucursales}
        with datamodule2 do
        begin 
           unaQuery.Parameters.ParamByName('parametro1').Value:=unValor;
           unaQuery.Parameters.ParamByName('parametro2').Value:=unValor;
           unaQuery.Parameters.ParamByName('parametro3').Value:=unValor;
        end;
end;

Como veran se repite el mismo codigo, solo que como depende de con que datamodule tenga que trabajar, estoy obligado a repetir el mismo codigo dos veces.
yo probe hacer algo del tipo :

Código Delphi [-]
 case TipoBase of
      tPropias: with DataModule1 do
      tGeneral: with DataModule2 do
    end;
    begin
     ----------- {codigo que se repite}

pero obviamente esto no sirve, directamente no compila.

Espero que se entienda cual es mi problema y si alguno sabe como solucionar esto para no tener qeu repetir siempre el mismo codigo para un datamodule y para el otro lo agradeceria mucho.
Saludos a todos!!!

[[Caral]]

Hola
creo un procedimiento:

Código Delphi [-]
Procedure Datos:
begin
 unaQuery.Parameters.ParamByName('parametro1').Value:=unValor;
 unaQuery.Parameters.ParamByName('parametro2').Value:=unValor;
 unaQuery.Parameters.ParamByName('parametro3').Value:=unValor;
end;

Luego lo llamo:

Código Delphi [-]
if esBaseMia then {se busca en la base de mis datos}
   begin
       with datamodule1 do
       begin
       Datos;   
       end
   end
else {se busca en la base de las sucursales}
        with datamodule2 do
        begin 
           Datos;
        end;
end;

No se, digo.....
Saludos

[BrunoBsso]

Empezado por Caral

Hola
creo un procedimiento:

...

Luego lo llamo:

...


No se, digo.....
Saludos

Y tu procedimiento no conoce al Query, entonces te da error en diseño.
No se, digo....

[[Caral]]

Hola
Osea te brincas el:

Código Delphi [-]
  with datamoduleX do

Ya que los query se llaman EXACTAMENTE IGUAL en ambos datamodule.
Lo único que varia es con que datamodule trabaja y para eso esta el código anterior.
Que dices al respecto?
Saludos

[BrunoBsso]

Empezado por Caral

Hola

....

Que dices al respecto?
Saludos

Digo que tu procedimiento no tenia la cláusula with.
No se, digo.....

[[Caral]]

Hola
No veo ni entiendo la razón por la que no funcione.
Declaraste el procedimiento en su lista?.
De todos modos no me hagas mucho caso, de estas cosas no se.
BrunoBsso se ve que tiene la respuesta adecuada, ya casi la suelta.
Saludos

[pablopessoa]

Probe de la forma que me decis, pero no funciona.
unaQuery esta declarada tanto en el datamodule1 como en el datamodule2;
si yo creo un procedimiento Datos de la forma que mencionas me sale un error al compilar del tipo "identificador no declarado", es decir, no encuentra "unaQuery".
Por las dudas aclaro que en el uses del form de busqueda estan agregados los dos datamodules.

Edit : Pido disculpas por no haber agradecido el interes en darme una respuesta, sin importar cual fuese el resultado. Para ser sincero, estoy tan metido en resolver esto que se me paso.
Espero que cuente el "mas vale tarde que nunca" y te doy mil gracias por responderme.
Saludos!

[BrunoBsso]

Empezado por pablopessoa

Probe de la forma que me decis, pero no funciona.
unaQuery esta declarada tanto en el datamodule1 como en el datamodule2;
si yo creo un procedimiento Datos de la forma que mencionas me sale un error al compilar del tipo "identificador no declarado", es decir, no encuentra "unaQuery".
Por las dudas aclaro que en el uses del form de busqueda estan agregados los dos datamodules.

Véase que yo tenía razón, habría que explicarlo mejor antes de ser sobervios con "No se, digo....".

Bueno, pablopessoa, lo que tendrías que hacer es ese procedimiento, pero agregarle un argumento. Explico:

Código Delphi [-]
//Suponiendo que tu Query es de tipo TADOQuery y los parámetros son de tipo Integer
procedure CargarDatos(var Q:TADOQuery; Valor1,Valor2,Valor3:Integer);
begin
  with Q do begin
    Parameters.ParamByName('parametro1').Value:=Valor1;
    Parameters.ParamByName('parametro1').Value:=Valor2;
    Parameters.ParamByName('parametro1').Value:=Valor3;
  end;
end;

Y desde el otro procedimiento:

Código Delphi [-]
if esBaseMia then
  CargarDatos(datamodule1.unaQuery,unValor1,unValor2,unValor3)
else
  CargarDatos(datamodule2.unaQuery,unValor1,unValor2,unValor3);

Saludos!!!!

Empezado por Caral

Hola
No veo ni entiendo la razón por la que no funcione.
Declaraste el procedimiento en su lista?.
De todos modos no me hagas mucho caso, de estas cosas no se.
BrunoBsso se ve que tiene la respuesta adecuada, ya casi la suelta.
Saludos

No se si la adecuada, pero sí una explicativa

[pablopessoa]

Les agradezco mucho a los dos por la ayuda.
Mas alla de la "sutiles replicas" que hayan tenido, la solucion recomendada por
BrunoBsso compila bien, y de seguro funcione ( ya se me caen los ojos asi que la voy a completar mañana y la pruebo :S).
Lo cual no desmerece la ayuda prestada por Caral.
Si me permiten una sugerencia para el futuro, ni la soberbia ( no todos manejamos el mismo nivel de programacion) ni los botines afilados ( sobre todo para un usuario relativamente nuevo como nosotros) cooperan al buen desempeño de la comunidad en el foro.
Es de saber que al momento de inscribirse en un foro, te encuentres con gente a un mismo nivel, a un nivel medio y a un nivel principiante (sin importar la cantidad de post que hayan hecho). La clave es tener paciencia, ayudar si se puede y se tiene ganas y por sobre todo, tratar de mantener cierta "camaraderia" entre nosotros.
Nuevamente gracias a los dos, saludos y BrunoBsso te comento que soy de La Plata, asi que casi que somos vecinos jajaajaj.

[BrunoBsso]

Empezado por pablopessoa

Les agradezco mucho a los dos por la ayuda.
Mas alla de la "sutiles replicas" que hayan tenido, la solucion recomendada por
BrunoBsso compila bien, y de seguro funcione ( ya se me caen los ojos asi que la voy a completar mañana y la pruebo :S).
Lo cual no desmerece la ayuda prestada por Caral.
Si me permiten una sugerencia para el futuro, ni la soberbia ( no todos manejamos el mismo nivel de programacion) ni los botines afilados ( sobre todo para un usuario relativamente nuevo como nosotros) cooperan al buen desempeño de la comunidad en el foro.
Es de saber que al momento de inscribirse en un foro, te encuentres con gente a un mismo nivel, a un nivel medio y a un nivel principiante (sin importar la cantidad de post que hayan hecho). La clave es tener paciencia, ayudar si se puede y se tiene ganas y por sobre todo, tratar de mantener cierta "camaraderia" entre nosotros.
Nuevamente gracias a los dos, saludos y BrunoBsso te comento que soy de La Plata, asi que casi que somos vecinos jajaajaj.

Yo reacciono así ante la soberbia siempre. No me creo el gran programador del milenio, pero sé que no soy un novato total; ver gente con un rango más elevado que otros respondiendo con soberbia me desagrada totalmente (en foros y en la vida real). Cuando uno es soberbio, para mí no merece buen trato a menos que se retracte de eso.
A lo segundo que remarqué, considerando que sos de La Plata y que estás aprendiendo Delphi, no puedo evitar la idea de que estás estudiando en la UNLP justamente en la facu de Informática.
Ya sabés, cuando necesites ayuda en Delphi me avisas y yo intento solucionarte los problemas, pero no siempre voy a saber todo.
Si estás estudiando ahí, cuando tengas a Bertone no te hagas amigo suyo, después te usa para demostrar cosas y casi siempre quedas mal (no es experiencia propia por suerte).
Saludos!

[[Caral]]

Hola
Me alegra que obtuvieras la respuesta adecuada, ademas de ver tu educacion.
Como siempre he dicho, tal vez si me dedicara a la programación o por lo menos algo supiera, ayudaría mas, o trataría.
Con relación a la soberbia: Puede que lo sea algo, tal vez la edad ya me lo permita.
No se en Argentina que significa (No se, digo..).
Pero en castellano esta bien claro.
BrunoBsso: Siempre es un gusto ver código de los que saben, así tratare de seguir aprendiendo de este mi pasatiempo.
Saludos

[Casimiro Notevi]

El compañero Caral ha intentado ayudar. Cualquiera puede equivocarse en un momento dado o no dar una solución correcta, pero creo que nadie se molesta en dar una solución equivocada a propósito, siempre se hace de buena fé y con la mejor intención del mundo.
Debemos tener paciencia unos con otros, nadie es perfecto.

[BrunoBsso]

Empezado por Casimiro Notevi

El compañero Caral ha intentado ayudar. Cualquiera puede equivocarse en un momento dado o no dar una solución correcta, pero creo que nadie se molesta en dar una solución equivocada a propósito, siempre se hace de buena fé y con la mejor intención del mundo.
Debemos tener paciencia unos con otros, nadie es perfecto.

Nunca me interesó que la respuesta haya sido incorrecta.
Si no fuese por ese malintencionado "No se, digo...." yo hubiese contestado con toda amabilidad para explicar el error y mostrar la solución.
Sin embargo, la pedantería de ese "No se, digo...." me hizo saltar la térmica y a cosas así reacciono mal.
Así que repito: mi reacción no se debe a que alguien, en un intento de ayudar, lo haga mal; se debe a la soberbia, y mas cuando es infundada.

[[fjcg02]]

Empezado por pablopessoa

...

Tengo dos bases de datos. Las dos son iguales en estructura, solo qeu guardan datos distintos (una guarda datos personales y las otras los datos de las sucursales)
Por ende tengo dos datamodulos, donde se repiten las querys.
...

No acabo de entender esto.
Necesitas acceder a las dos bases de datos a la vez ? o es que unas veces ejecutas el programa contra una bbdd y otras veces contra la otra.
Si es éste el caso, no creo que lo estés haciendo bien, ya que con un sólo módulo de datos valdría, cambiando la base de datos a la que se accede al comenzar el programa e incluyendo un procedimiento de cambio de base de datos en el propio programa. Y Caral podría aportar muchísimo en cuanto a ficheros .INI y familia. ( y lo contento que se pondría, ya tan mayor ) .

Por favor, confirmanos este dato.

No sé, digo...

Saludos

[[Al González]]

Antes de que este hilo sea cerrado, quisiera expresar mi parecer.

Empecemos por la definición de soberbio (así es como se escribe):

Que tiene soberbia o se deja llevar de ella.

Y la de soberbia:

1. Altivez y apetito desordenado de ser preferido a otros.

2. Satisfacción y envanecimiento por la contemplación de las propias prendas con menosprecio de los demás.

Si alguno de los participantes de este hilo ha actuado con soberbia aquí, es definitivamente el compañero BrunoBsso.

Razones:

1. Su primer mensaje inicia con un total menosprecio de la sugerencia dada por Carlos. Además de usar de entrada esa descalificadora mano roja, no muestra haberse detenido a analizar que la idea de Carlos no es del todo mala si ese procedimiento se tratara de un método en ambos módulos de datos (el valor para los parámetros dependería de que pablopessoa especificara el origen de la expresión unValor).

2. Aún cuando en su léxico, la expresión "No sé, digo" signifique una grosería, Bruno mismo hace mofa con ella en más de una ocasión. Es decir, se rebajó al nivel de trato que erróneamente percibía en Carlos.

3. Ante la aclaración de Carlos «declaraste el procedimiento en su lista?» (donde ciertamente no emplea la palabra método, pero que no es difícil de entenderlo así para alguien con el conocimiento que Bruno ha demostrado) presenta nula humildad. Muy por el contrario, inicia su siguiente mensaje con altivez, diciendo «Véase que yo tenía razón».

Además ya se aclaró que en Costa Rica la frase "No sé, digo" no es ninguna clase de injuria. Por tanto, me parece que Bruno haría bien en añadir un mensaje más, ofreciendo una disculpa a Carlos, siendo congruente con sus propias palabras:

Empezado por BrunoBsso

Cuando uno es soberbio, para mí no merece buen trato a menos que se retracte de eso.

Empezado por BrunoBsso

Acepto tus disculpas, bien por vos pedir disculpas cuando ofendés a alguien

Bruno, cabe mencionar que hasta ahora he visto con buenos ojos las aportaciones que haces en los tableros de mensajes, pues me parecen de gran calidad técnica. Y confío en que seguiré viéndolas de igual o mejor manera.

Un abrazo social.

Al González.

[BrunoBsso]

Creo que no hacía falta levantar el polvo dado que la discusión se terminó y se me dio a entender que fue un malentendido de léxicos.

[[AzidRain]]

Y bueno, nadie mencionó que posiblemente estamos ante un mal diseño de BD, ya que bien podrían convivir los datos tanto generales como "locales" en la misma base de datos y acceder a una u otra mediente "wheres". No veo pq nos vamos por otro rumbo....

[pablopessoa]

A ver gente.... ni por casualidad pretendia que se armara tanto lio por un simple post....
Para contestar algunas cosas...
Siempre digo ser novato... simplemente por que lo soy.

Primero que nada, se que no es la intencion de nadie dar una respuesta equivocada o guiar por mal camino a un forista intencionalmente, si asi fuera, estoy seguro que se arriesgaria la continuidad en este foro.

En cuanto a las dos bases de datos, la persona que me pidio el programa (de mas esta decir que con mi nivel no es un trabajo profesional sino un encargo de un amigo) expresamente me pidio que lo maneje de esa manera... dos bases de datos iguales... pero que en una esten los datos locales y en la otra los datos de las sucursales, la cual se usa para acualizar via ftp.

En un post de este tema, trate de calmar las aguas y nunca menosprecie ninguna de las respuestas, es mas agradeci cada aporte que se hizo.

Mi conocimiento de POO no es pobre, pero tampoco avanzada.

y por ultimo, acaso nunca le paso a alguien tener un problema con un codigo, cuando estas hace rato metido en lo mismo y no darte cuenta de que la solucion era algo obvio hasta qeu alguien vino y te lo dijo?

Si algun moderador ve esto y quiere cerrar el hilo, me parece barbaro y es mas, lo solicito. Me parece un derroche gastar tiempo en una discusion vacia y sin sentido cuando se podria emplearlo en aportar algo a algun otro forista que necesite ayuda.

Siempre agradezco mucho la ayuda que me brinda este foro, y reconozco que son muchas mas las veces qeu pregunto que las que respondo, espero algun dia revertir las cosas y ser mas de ayuda que de molestia.

Les doy las gracias a todos los aportes. Saludos!