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