Form + DataModule mehrere Instanzen

[Nersgatt]

Moin,

ich habe zu fast jedem Formular auch ein entsprechendes Datenmodul, wo das nichtvisuelle Zeugs liegt. Also Queries, Datasets, DataSources und sowas. Auch mal ne Imagelist, usw.

Nun möchte ich gern von einigen Formularen mehrere Instanzen öffnen und dazu soll auch jede Instanz des Formulars eine eigene Instanz des Datenmoduls bekommen. Wie stelle ich da die Verbindung zwischen der Instanz des Datenmoduls und der Instanz der Formulars her?

Danke!

[nahpets]

Mach' Dir 'nen Nachfahren von TForm (oder Deiner aktuell genutzten Formularvariante), gönne dem Nachfahren ein Attribut DataModule vom Typ TDataModule.

Dann kannst Du im Objektinspektor dem Formular ein DataModule zuweisen, analog z. B. zu der Eigenschaft DataSet bei 'ner DataSource.

Grob in Delphi:

Delphi-Quellcode:

Type
  TfmMeinDataModulForm = class(TForm)
    fDataModule : TDataModule;
    ...
  public
    property    DataModule : TDataModule read GetDataSource write SetDataSource;
    ...
  end;

implementation

...

function  TfmMeinDataModulForm.GetDataModule : TDataModule;
begin
  Result := fDataModule;
end;

procedure TfmMeinDataModulForm.SetDataSource(ADataModule : TDataModule);
begin
  fDataModule := ADataModule;
  if Assigned(fDataModule) then begin
    ... // eventuell erforderliche weitere Zuweisungen, Plausibilitätsprüfungen ...,
        // in Bezug auf das DataModule.
        // Z. B.: Sind dort die erforderlichen DataSets ... vorhanden ...
  end;
end;

Im Programmquelltext wäre dann ein Zugriff auf das DataModule in der Form

Delphi-Quellcode:

  ...
  Self.DataModule.JedePublicEigenschaftDesDataModules.UndDerenEigenschaftenUndOderMethoden(ggflsMitParametern);
  ...
  Self.DataModule.DataSource1.DataSet.Open;
  while not Self.DataModule.DataSource1.DataSet.EoF do begin
    // ... irgendwas mit den Daten machen ...
    Self.DataModule.DataSource1.DataSet.Next;
  end;

möglich.

Wenn's ohne extra Nachfahren sein soll, kannst Du auch unter private eine Eigenschaft FDataModule vom Typ TDataModule anlegen und im FormCreate (oder sonstiger passender Stelle) ein DataModule erstellen und zuweisen. Der Zugriff geht wie oben.

Das ist jetzt nur grob als Idee beschrieben, es gibt bestimmt auch noch andere Lösungen.

[himitsu]

Zitat:

Dann kannst Du im Objektinspektor dem Formular ein DataModule zuweisen, analog z. B. zu der Eigenschaft DataSet bei 'ner DataSource.

Aber nur wenn der OI dieses Property auch anzeigt.

Public wird sowieso niemals im OI angezeigt. (nur Published)

Und Published-Properties, welche man direkt in der aktuell bearbeiteten Formklasse deklariert hat, sind eh nicht sichtbar.
Maximal immer nur die Property des Vorfahren, aber hier fällt die IDE fast immer auf TForm als Vorfahre zurück, auch wenn man dazwischen noch weitere Ableitungen hat.

Vermutlich muß man den Vorfahren mit diesem Property als "Vorlage" bei Delphi registrieren, damit man das Property im OI sieht.

[nahpets]

Selbst wenn man die Eigenschaften nicht im Objektinspektor zu sehen bekommt, die "händische" Variante funktioniert auf jeden Fall.

Und da ja von einem Formular mehrere Exemplare erstellt werden sollen, müssen entsprechend gleichviele Datenmodule erstellt werden. Eine Zuweisung im Objektinspektor wäre hier (vermutlich) eh nicht hilfreich, da dort ja alle Formulare auf das gleiche Datenmodul verweisen würden.

Also würde (vermutlich) eine Eigenschaft FDataModule unter private mit 'ner Zuweisung das Datenmoduls nach seiner Erstellung in FormCreate (oder ähnlich) ausreichen.

Oder ginge (sinngemäß) auch sowas?

Delphi-Quellcode:

Type
  TForm1 = class(TForm)
    ...
  private
    fDataModule : TDataModule;
    ...
  end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  fDataModule := TMeinDatenModul.Create(Self);
end;

Dann kann über fDataModule auf das Datenmodul zugegriffen werden.

[Nersgatt]

Ich glaube, mein Problem ist nicht richtig verstanden worden.

Ich hab ein Formular (TfrmFoo) und ein DatenModul (TdmFoo).

Im Formular liegt z.B. ein Grid. Als Datenquelle für das Grid gebe ich im Objektinspektor dmFoo.dsDaten an.
Wenn ich nun eine Instanz von frmFoo erzeuge, erzeuge ich in der Regel im FormCreate die dazugehörige Instanz von dmFoo. So funktioniert das gut.
dmFoo := TdmFoo.Create(Self) (dmFoo ist die globale Variable, die Delphi bei jedem Datenmodul im Quelltext des Datenmoduls erzeugt)

Das funktioniert so lange gut, solange ich von frmFoo nur einen Instanz erzeuge.
Erzeuge ich eine weitere Instanz von frmFoo, wird dmFoo erneut erzeugt. Damit hab ich 2 Probleme:
1. Ein Speicherleck (das ist aber hier nicht mein Problem)
2. in beide Instanzen von TfrmFoo benutzen die zuletzt erzeugte Instanz von TdmFoo. Das ist mein eigentliches Problem.

Ich möchte, dass die erste Instanz von frmFoo auf eine Instanz von dmFoo hat. Sonst zeigen die Grids ja in beiden Formularen das selbe an.

[himitsu]

Nee, dein Problem ist hierbei eher, dass du bei dmFoo := TdmFoo.Create(Self) die globale Variable verwendest, anstatt einer lokalen Variable (ein Feld in TfrmFoo).

Tipp: Am Einfachsten immer als Erstes diese globale Variable löschen (außer "eine" Instanz davon lässt du automatisch von Delphi erzeugen > siehe DPR/Projektoptionen)
Und schon kommt man garnicht erst auf die Idee diese Variable ausversehn nutzen zu wollen.

[Nersgatt]

Zitat von himitsu:

Nee, dein Problem ist hierbei eher, dass du bei dmFoo := TdmFoo.Create(Self) die globale Variable verwendest, anstatt einer lokalen Variable (ein Feld in TfrmFoo).

Eine lokale Variable würde sehr gern verwenden, wenn ich wüsste, wie ich dann im Objektinspektor angeben kann, dass die Datenquelle FdmFoo.dsDaten ist und nicht dmFoo.dsDaten.
Natürlich könnte ich im Quellcode die Properties setzen. Aber dann verliere ich ja alle Vorteile, die das "R" im Wort "RAD" repräsentiert.

[nahpets]

Deshalb ja keine globale Variabel dmFoo, sondern die private Eigenschaft fDataModule.

Im FormCreate dann statt dmFoo := TdmFoo.Create(Self) halt fDataModule := TdmFoo.Create(Self) und im übrigen Quelltext alle Zugriffe auf dmFoo durch fDataModule ersetzen.