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

[Casimiro Noteví]

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 Noteví]

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

[Neeruu]

Hola pvizcay, quería saber si pudiste resolver de alguna manera la centralización de DataSet...

Yo empece a caminar el mismo camino de dudas que aquí se menciona...

En un principio opte por crear una instancia del modulo de datos por cada Formulario que instan cio, pero esta forma de trabajo mas allá de los recurso que consume ( que aunque no me veo afectado por ello se que es un punto a mejorar) , me genera un tiempo de retardo en la apertura de los formularios debido a la conexión de la base de datos.

Ejemplo:

Creo un Formulario
En el Evento create del Form, es donde instancio el Modulo de datos y realizo la conexión de ese modulo con la base de datos,
generando un tiempo extra a la hora de crear el formulario, debido al tiempo que utiliza el componente en conectar con la DB.

Fue por todo lo esto que se me ocurrió la posibilidad de instan ciar un modulo de datos, con su conexión establecida, y luego por cada formulario instan ciado, solo obtener una copia de ese modulo de datos instan ciado, o se una copia/clon de ese objeto data-module.

Por eso quería saber si tenias alguna solución.??


Por otro lado, encontré lectura sobre los componentes MagiaData de Al Gonzalez, pero no puedo encontrarlos (No se si están para descargarlos en algún lugar, si son pagos o no...)

Saluda Atte Neeruu!!!