diseño centralizado de datasets, aplicación BD grande, crear componentes dinámicos..

[pvizcay]

hola amigos del foro,

supongamos que tengamos una aplicación de base de datos (grande, firebird + mdo), con varios forms (que se crean dinámicamente, incluso duplicados) y que casi todos utilizan además varios datasets de "soporte" (para lookups, realizar tareas comunes, etc.).. lo que estoy intentando lograr es centralizar estos datasets lo más posible, cosa que si tengo q modificar algo lo tenga en un solo lugar.. además de tener un diseño más limpio..

entonces empezamos creando un DataModule y tirando los 20-25 datasets en el mismo, completando el sqltext, los fields, etc..

el primer punto es que si bien varios forms utilizan los mismo datasets, tienen que ser distintos en tiempo de ejecución (osea cada Form dinámico tiene que tener su propia copia del dataset), por lo tanto con crear un solo DataModule y linkear todos los forms dinámicos al mismo no estamos..

una posibilidad sería crear un DataModule para cada nuevo Form, lo cúal a mi entender sería un desperdicio de recursos (y ni hablar si abrimos todos los datasets..).. otra opción sería crear un DataModule por cada dataset.. ni hablar..

la solución a este problema sería crear un componente en tiempo de ejecución y luego asignarle las propiedades guardadas en el stream de datos del dataset en cuestión (almacenado en el DataModule "padre", que le setié las propiedades en tiempo de diseño)

lo que traté fue algo como:

Código Delphi [-]
var
  ds: TMdoDataset;
begin
  ds := TMdoDataset.Create(Self);
  ds.Assign(DataModulePadre.dsXXXXX); << error
end

pero me da un error y obviamente porque la clase persistent define el método Assign con una llamada a un método q lanza una excepción solamente (osea está el método para que se complete en las clases derivadas).. en pocas palabras si queres copiar, tenes que hacer el override manual..

la pregunta es.. ¿alguien sabe como se logra lo que busco? o ¿un diseño que cumpla con lo q plantea el problema?

pd: tb se podría crear una función que te cree un dataset seteando todas las propiedades por código y te lo devuelva y usarlo por cada form dinámico que lo necesite, pero la gracia es aprovechar los diseñadores visuales de delphi me parece a mi..

pd2: cuando hablo de datasets puede entender, llamada un TMdoStoredProcedure o cualquier otro componente de datos que quiera reutilizar..

desde ya gracias!

[Casimiro Notevi]

Hola, creo que nadie ha respondido todavía porque no se entiende bien cuál es el problema al que quieres dar solución, ¿podrías explicarlo de otra forma?, gracias.

[pvizcay]

hola casimiro, grax por tu rpta.

me voy a explicar de otra forma..

básicamente quiero crear componentes en tiempo de ejecución pero con los valores de las propiedades de otros componentes que setié en tiempo de diseño..

ejemplifico, tengo un DataModule (DM1) y un Dataset (DS1) dentro (que sería mi template o base de donde quiero "clonar").. ahora tengo un Form que se crea dinámicamente que tiene que tener y usar una copia de ese DataSet (pero no la misma instancia):

Código Delphi [-]
FormCreate
var
  DSDinamic: TMdoDataset;
begin
  DSDinamic := TMdoDataset.Create(Self);

  DSDinamic.Assign(DM1.DS1)
// ahora DSDinamic tendría q ser una copia de DM1.DS1 //
// uso DSDinamic.. //
end

ahora se entiende mejor?

saludos

[Casimiro Notevi]

Sí, sería una copia del otro. Y no olvides liberarlo al final: DSDinamic.Free

[pvizcay]

no se si no se entendió.. el código ese no funciona..

[Casimiro Notevi]

Pues asi no sabría qué decirte, ¿has probado con owner en lugar de self?:

DSDinamic := TMdoDataset.Create(owner);

[pvizcay]

si.. el problema no pasa por ahi, el método Assign es de la clase TPersistent pero la misma no define como se realiza la operación (y con razón, no puede saber como copiar clases que van a descender de ella), simplemente lanza una excepción que es de la q hablo en el primer post

en pocas palabras la clase dataset mdo no lo define, eso lo puse más como ejemplo...

yo lo que quiero es usar la información que esta en el .DFM para crear componentes de forma dinámica, sin tener que duplicar todo el módulo completo (y sin tener que asignar las propiedades a manopla) ahora se entiende mejor?

[Casimiro Notevi]

Entonces creo que lo que quieres es algo así:

procedure TForm1.bt1Click(Sender: TObject);
var
      Q2 : TIBDataSet;
begin
    try
        Q2 := TIBDataSet.Create(Owner);
        Q2 := Q1 ; // .Assign(Q1);
        ShowMessage(Q2.SelectSQL.Text);
    finally
        FreeAndNil(Q2);
    end;
end;

Pruébalo, te lo digo de memoria, no tengo un delphi aquí.



Edito: Ahora que lo pienso, esa solución no sirve, fallaría la segunda vez que lo asignaras porque al igualar Q2 a Q1, al hacer el FreeAndNil(Q2) también se lo estaría haciendo a Q1.
Mejor déjame que saque un poquito de tiempo mañana en el trabajo y lo miro.

[[maeyanes]]

Podrías hacer uso de la RTTI...

Checa este artículo, ahí viene un projecto que tiene un procedimiento llamado CopyObject

http://www.blong.com/Conferences/Bor...RTTI/CB140.htm


Saludos...

[axesys]

Yo tengo una forma base con una funcion que me crea los datamodulos

Código Delphi [-]
 
interface
type
  TDataModuleClass = class of TDataModule;
  TfrmBase = class(TForm)
  protected
    function CrearDataModulo(sNombre: string): TDataModule;
  end;

implementation
 
function TfrmBase.CrearDataModulo(sNombre: string): TDataModule;
begin
  sNombre:= StringReplace(sNombre, 'frm', 'dm', []);
  Result:= TDataModuleClass(GetClass(sNombre)).Create(Self)
end;

Luego en la forma que ocupa crear el datamodulo por ejemplo un catalogo base tengo

Código Delphi [-]
 
interface
type
  TfrmCatalogo = class (TfrmBase)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FCatalogo: TdmCatalogo;
  end;
 
implementation
 
procedure TfrmCatalogo.FormCreate(Sender: TObject);
begin
  inherited;
  FCatalogo:= CrearDataModulo(ClassName) as TdmCatalogo
end;
 
procedure TfrmCatalogo.FormDestroy(Sender: TObject);
begin
  inherited;
  FreeAndNil(FCatalogo)
end;

Ademas tengo un datamodulo base para los catalogos

Código Delphi [-]
 
type
  TdmCatalogo = class(TDataModule)
    dtsCatalogo: TIBDataSet;
    dsCatalogo: TDataSource;
  end;

Despues solo heredo un frmCatalogo y un dmCatalogo para cada catalogo que voy hacer y les pongo el mismo nombre por ejemplo frmCatalogoArticulos y dmCatalogoArticulos con eso ya se crean solos

Ademas pongo en initialization de cada uno que heredé que se registre su clase por ejemplo RegisterClass(TfrmCatalogoArticulos) y RegisterClass(TdmCatalogoArticulos)

Espero que te pueda servir saludos

[[Al González]]

¡Hola a todos!

Entiendo perfectamente tu planteamiento Pvizcay. Quizá esto no represente ninguna solución para ti, pero en este otro hilo hablo de cierta característica que le agregué a uno de mis componentes para lograr algo muy similar a lo que tú buscas y debido a la misma inquietud.

Para lograrlo hice uso de las funciones de RTTI que sugiere Maeyanes (las cuales se encuentran en la unidad TypInfo.pas). El resultado es que ahora puedo copiar las propiedades publicadas de cualquier objeto y eso me permite, por ejemplo, clonar el conjunto de datos (data set) que se le haya asignado en tiempo de diseño a un TDataSource. De tal manera que ahora defino en tiempo de diseño un sólo data set por entidad de datos, independientemente de las diferentes formas donde se utilice (y cómo se utilice) de manera simultánea.

Propiedad DataSetCloned:


En las funciones de TypInfo.pas está la solución, aunque requiere de una considerable cantidad de trabajo.

Un abrazo simplificado.

Al González.

[pvizcay]

bueno primero gracias a todos

con las cosas que leí aca y otras que encontré por mi cuenta ya "veo" por donde encarar la solución.. cuando lo tenga todo armadito lo posteo de vuelta para ver que les parece

saludos!

[Casimiro Notevi]

Pues sería muy interesante, no recordaba esa aportación de Al González, pero es muy, muy interesante.