Aplicación MDI con DataModule

[jlrbotella]

Hola a todos:

Estoy realizando una aplicación MDI con acceso a base de datos. Actualmente tengo un datamodule, que se crea automáticamente cuando se ejecuta el proyecto.

Pero tengo una gran duda:

Cuando en un form hijo accedemos a una tabla llamada Tabla1, que pertenece al Datamodule, y a su vez lanzamos el mismo form hijo que accede a la misma Tabla1, debería tener distintos cursores de recorrido.

¿Alguién sabe porqué no tiene múltiples cursores, ya que cuando recorró en el form hijo, el movimiento es el mismo en el otro hijo?.

Gracias,
José L.

[courtois]

estas accediendo a la tabla con el mismo datasource?

[ContraVeneno]

Deberías darle nombre a todos tus componentes para evitar este tipo confusiones.

Es bastante dificil leer un código que va desde Tabla1 hasta Tabla25... o lo que es mucho peor... adivinar para que demonios sirve el TDBedit45

Por eso y por muchas cosas más, es muy recomendable que le des nombres a tus controles.

[roman]

Yo lo que veo es el comportamiento normal. Las dos copias acceden a la misma componente del DataModule, así que ¿por qué habían de ser cursores distintos? Otra cosa sería si tuvieras dos copias de ese datamodule.

// Saludos

[jlrbotella]

Hola:

Despues de hacer muchas pruebas, he comprobado que un form mdi, comparte la dirección del datamodule, es decir, por muchas veces crees nuevos forms mdi, comparten las mismas tablas y datasource, y es por ello, que cuando mueves un registro se mueven en todas, y lo pero es que si cierras una tabla se cierra en todas.

La solución que he usado es crear un nuevo datamodule al hacer el create del form, este datamodule es de la misma clases del datamodule original y al menos funciona correctamente.

Este es una gran ventaja, ya que en el datamodule original, podemos definir las tablas, con sus campos correctamente, así como todos los procedimientos que hagan falta, en vez de crear tantos ttable por cada formulario.

Aquí teneís el codigo de ejemplo del form hijo:

También lo podemos usar en cualquier form, aunque no sea mdi, solo fijaros en la declaración de la clase datamodule : Tdatamodule3;

Espero que os sea de ayuda.


Código Delphi [-]

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, unit3;
type
TForm2 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
// Datamodulo
datamodule : TDatamodule3;
public
constructor create(Aowner : Tcomponent);
end;
var
Form2: TForm2;
implementation

{$R *.dfm}
constructor Tform2.create(Aowner: TComponent);
begin
inherited;
datamodule := tdatamodule3.Create(self);
datasource1.DataSet := datamodule.Ifxtcliente;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
datamodule.ifxtcliente.close;
action := cafree;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
DataModule.Ifxtcliente.open;
end;
end.

[[Lepe]]

No sé exactamente que incluyes en el Datamodule, pero podría crearse varios Datamodules para que contenga solo los datos que necesita cada Formulario.

Si tenemos una ventana de Clientes, en principio, no debe acceder a las opciones de facturación.

Saludos

[jlrbotella]

Es verdad, actualmente estoy repartiendo los datamodules, debido a que nuestra base de datos tiene más de 120 tablas y cómo tu dices, los datamodules van por módulos (clientes ,proveedores, compras, ventas, estadisticas, etc..).

Esto es muy útil, ya que diseñar solo una vez las tablas, y las llamas desde cualquier form, creando una nueva instancia del datamodule. Y todavía más cuando usas formularios mdi, que llaman a las mismas tablas.

Bueno, si tienes alguna duda, te puedo enviar el código fuente.

Saludos,
JL

[Paoti]

Ahora yo me pregunto no sera un gasto excesivo de recursos de base de datos.


A menos que tengas el conexión en un data module padre.

porque si en cada datamodule haces una conexión a la base de datos, imaginateee.



ahora tengo una duda, porque lo que yo hago es crear una tbala en el formulario, asi si abro dos formularios hijos cada uno es un cursor diferente.


y si en un datamodule tienes 50 tablas por ejemplo, y creas cada datamodule por cada mdi hijo que se requiera, no es excesisvo, como solucionar eso!!! o no tiene nada que ver!



Gracias

[[Lepe]]

Hace algún tiempo se habló de este tema y yo no estaba muy de acuerdo... con el tiempo lo veo cada día más razonable.

El tema sería, por ejemplo:
- Un datamodule general para la conexión TDatabase y Transaction
- Un datamodule por cada form hijo.

Los datamodules de cada hijo, se crean cuando se crea el Form; dentro tendrá las consultas y tablas que necesite ese form nada más.

Me darás la razón de que al tener muchos componentes no visuales en el form, te dificultan el trabajo e identificarlos (por estar encima de otros controles).... pues de igual forma es buena práctica separar el acceso a datos de la interfaz, de tal forma que el datamodule de cada Form sea el que encapsule lo concerniente a la base de datos.

saludos

[jlrbotella]

Actualmente cuando creo el datamodule, sobrecargo el metodo create de este para que se le pueda pasar la conexión, así todo esta centralizado.

También irá si creas un ttable en el formulario hijo y comprobarás que los curores son diferente por cada formulario hijo. Esto es la solución más sencilla, pero hay un problema.

Si tienes metodos ligados a una tabla como: onvalidate, after post o before insert, etc..., así como definición de los tfields (display format y editmask) y esta tabla la llamas más de una en vez en varios forms, lo que ocurre es que lo tienes que escribir de nuevo, mientras la solución que planteaba era heredarla con el datamodule.

Me gusta más la opción que ha comentado el usuario Lepe, y a ver si en la nueva versión de delphi 2007, sopesan este problema.

Saludos,
JL