15 replies to this topic

[Rolphy Reyes]

Saludos.

No se si sea el titulo adecuado para lo que quiero mostrar.  La idea surge a partir de que siempre tenemos que escribir una y otra vez los Caption de cada formulario al momento de su creación, a menos que pongamos en uso uno ya creado, esa practica tiende a generar muchos errores de escritura y a su vez muy tediosa.

Para evitarnos un poco el tener que escribir y a su vez poder reutilizar, OOP se basa en eso ¿cierto?, he hecho lo siguiente:

delphi

unit UTitulos;
 
interface
 
type
  TTipoPantalla = ( tpMantenimiento = 1,
                    tpConsulta,
                    tpReporte,
                    tpProceso,
                    tpBusqueda
                  );
  TOperacion = ( opAgregar = 1,
                 opModificar,
                 opBuscar,
                 opConsultar
               );
 
 
function GetTitulo(const ATag : Integer) : String;
function GetTipoPantalla(const ATipo : TTipoPantalla) : String;
function GetOperacion(const AOperacion : TOperacion) : String;
 
implementation
 
var
  StrTitulos : Array[1000..11000] of string;
  StrTipos : Array[TTipoPantalla] of string;
  StrOperacion : Array[TOperacion] of string;
 
//Titulos de la pantalla
function GetTitulo(const ATag : Integer) : String;
begin
  if (ATag < 1000) or (ATag > 11000) then
    Result := '<No titulo>'
  Else
    Result := StrTitulos[ATag];
end;
 
//Tipos de pantalla (titulos)
function GetTipoPantalla(const ATipo : TTipoPantalla) : String;
begin
  Result := StrTipos[ATipo];
end;
 
//Operacion de la pantalla (titulo)
function GetOperacion(const AOperacion : TOperacion) : String;
begin
  Result := StrOperacion[AOperacion];
end;
 
initialization
 
  //Tipos de pantalla
  StrTipos[tpMantenimiento] := 'Mantenimiento de %s';
  StrTipos[tpConsulta] := 'Consulta de %s';
  StrTipos[tpReporte] := 'Reporte de %s';
  StrTipos[tpProceso] := 'Proceso de %s';
  StrTipos[tpBusqueda] := 'Busqueda de %s';
 
  //Operacion de pantalla
  StrOperacion[opAgregar] := 'Agregando %s';
  StrOperacion[opModificar] := 'Modificando %s';
  StrOperacion[opBuscar] := 'Buscando %s';
  StrOperacion[opConsultar] := 'Consultando %s';
 
  //Mantenimientos
  StrTitulos[1000] := 'Clientes';
  StrTitulos[1001] := 'Garantes';
  StrTitulos[1002] := 'Cobradores';
  StrTitulos[1003] := 'Suplidores';
  StrTitulos[1004] := 'Carpetas';
  StrTitulos[1005] := 'Tipos de Prestamo';
  StrTitulos[1006] := 'Tipos de Cuota';
  StrTitulos[1007] := 'Clases de Prestamo';
end.

Teniendo estas funciones a mano, ya es facil armar el titulo. Utilizando la herencia visual nuestras pantallas de mantenimientos ya es un pan comido, por ejemplo:

Declarariamos un metodo virtual en el formulario base.

delphi

public
  procedure SetTitulo; virtual;
 
uses uTitulo;
 
implementation
 
procedure TFormaBase.SetTitulo;
begin
  Caption := Format(GetTipoPantalla(tpMantenimiento), [GetTitulo(Self.Tag)]);
end;

Con ese codigo ya sus mantenimientos obtendrían sus titulos y así solo tenemos que darle mantenimiento a esta unidad, permitiendonos la reutilizacion.

P.D.: Se puede mejorar pero en esencia esa es la idea y me funciona adecuadamente. 

[enecumene]

Excelente función amigo, me será útil. .

Saludos.

[Rolphy Reyes]

Creo que esto debio de ir al foro de Trucos y Consejos, de ser así favor de moverlo.

Gracias!

[egostar]

Creo que esto debio de ir al foro de Trucos y Consejos, de ser así favor de moverlo.

Gracias!

Y porque no lo haces tu mismo, creo que ya puedes mover hilos

Salud OS

[Rolphy Reyes]

Creo que esto debio de ir al foro de Trucos y Consejos, de ser así favor de moverlo.

Gracias!

Y porque no lo haces tu mismo, creo que ya puedes mover hilos

Salud OS

Me costara averiguar como puedo hacer esa parte, pero cool de todas formas

[Delphius]

Hola Rolphy, me gusta el ejemplo.
Creo que a más de uno nos vendría en falta algo así.

Si deseas moverlo puedes hacerlo. Abajo de la página (del hilo) hay un menú. Entre las opciones está mover tema.

Saludos,

[Rolphy Reyes]

Hola Rolphy, me gusta el ejemplo.
Creo que a más de uno nos vendría en falta algo así.

Si deseas moverlo puedes hacerlo. Abajo de la página (del hilo) hay un menú. Entre las opciones está mover tema.

Saludos,

Gracias Delpius, me alegra que te haya gustado... 

[Héctor Randolph]

Esas son las ventajas de ser moderador, puedes mover tus propios hilos después de haberlos colocado en el foro equivocado.

Viva la automoderación.

Saludos

[Kipow]

Yo tengo guardadas dentro de mi base de seguridad un listado completo de las opciones (formularios) del sistema. con otro sin numero de opciones mas, esto para poder asignar privilegios y demas. Ahi mismo armo algo similar a lo que haces aca.

Pero me parece muy bueno el truco.

[Delphius]

Una posible mejora, pero que lo hace más complejo, es independizar el nombre de las opciones del vector, algo como lo que comenta Kipow: los nombre se leen de forma eterna. Y, en este caso, el vector debería ser dinámico.

Se puede concebir incluso la forma de que dinámicamente una ventana, menú, opciones, ect cambien los nombres según algunas opciones, condición, etc.

De hecho, para sistemas medianamente grandes es normal encontrarse con una especie de Engine que se encarga de estás funcionalidades. Lo normal es tener una clase que administra todo y tal vez un grupo de clases auxiliares que la asisten. De este modo el Engine actuaría de Fachada ocultando todo el proceso y se deja al cliente (form, botón, etc) que se comunique con éste para consultar el nombre.

Saludos,

[Rolphy Reyes]

Una posible mejora, pero que lo hace más complejo, es independizar el nombre de las opciones del vector, algo como lo que comenta Kipow: los nombre se leen de forma eterna. Y, en este caso, el vector debería ser dinámico.

Se puede concebir incluso la forma de que dinámicamente una ventana, menú, opciones, ect cambien los nombres según algunas opciones, condición, etc.

De hecho, para sistemas medianamente grandes es normal encontrarse con una especie de Engine que se encarga de estás funcionalidades. Lo normal es tener una clase que administra todo y tal vez un grupo de clases auxiliares que la asisten. De este modo el Engine actuaría de Fachada ocultando todo el proceso y se deja al cliente (form, botón, etc) que se comunique con éste para consultar el nombre.

Saludos,

Podrías poner un ejemplo de como funcionaria con esa mejora, sin almacenar los datos en la BD.

En cuanto a almacenar esos datos en la BD, a mi parecer es cargar más la aplicación, porque si tiene que dar un "viaje" para averiguar cual es su titulo y luego otro para saber si tiene permiso (o viceversa) y demás validaciones o cualquier otra cosa estamos poniendo mucho trafico.

Lo de guardar los nombres y Class References de los formularios me parece bien, pero no los titulos.

[Delphius]

Podrías poner un ejemplo de como funcionaria con esa mejora, sin almacenar los datos en la BD.

En cuanto a almacenar esos datos en la BD, a mi parecer es cargar más la aplicación, porque si tiene que dar un "viaje" para averiguar cual es su titulo y luego otro para saber si tiene permiso (o viceversa) y demás validaciones o cualquier otra cosa estamos poniendo mucho trafico.

Lo de guardar los nombres y Class References de los formularios me parece bien, pero no los titulos.

No creo que me resulte concebir un ejemplo. Dame un tiempo y lo hago.

Por eso mismo que añade complejidad, y sólo es útil cuando tenemos en frente un sistema medianamente grande, y donde las ventanas y sus controles son cambiantes, o muy ampliamente reutilizadas.
El añadir un "engine" tiene sus contras (bastante evidentes). Pero en esos entornos tan cambiantes es una solución que mantiene un nivel de Acoplamiento adecuado a efectos de mantener una buena Cohesión: se descontamina y se independiza las formas y controles de los "efectos cambiantes" sin perder la cohesión o propósito por el cual son concebidos. La relación entre la complejidad (en tamaño de clases) y el Acoplamiento/Cohesión en éste entorno es preferible.

Saludos,

[Kipow]

Yo aprovecho el hecho de que para el sistema de privilegios es necesario almacenar esa info en una BD. para poder armar los captions de los formularios. no es cosa del otro mundo y no estamos hablando de mas de 1000 registros que se cargan al inicio de la aplicacion. cosa que con las maquinas actuales no es problema.

[Ayla]

Me ha gustado 


Muchas Gracias.

[Delphius]

¿Puede esperar el ejemplo?
NO he podido darme el tiempo y espacio necesario para pensar en uno

Saludos,

[Rolphy Reyes]

¿Puede esperar el ejemplo?
NO he podido darme el tiempo y espacio necesario para pensar en uno

Saludos,

Claro mi estimado Watson!!!