Planungstool - Struktur ok ?

[Sir Rufo]

Muss man nicht unbedingt ...

Für die Tabellen-Struktur baust du dir einfach eine Tabelle, die die Abhängigkeiten zum Vorgänger (ParentID), den Typen (IDType) und die ID des Eintrags (ItemID) speichert.

Nun erstellst du dir ein Basis-Formular, dem du eine ItemID übergeben kannst.

Delphi-Quellcode:

TFBaseItem = class( TForm )
public
  property ID : integer;
end;

// Das brauchen wir später noch :)
TFBaseItemClass = class of TFBaseItem;

Für alle vorkommenden Typen erstellst du dir ein entsprechendes Formular, abgeleitet vom Basis-Formular,
mit dem alle Funktionen zu diesem Item möglich sind. (Daten zur ID aus der DB anzeigen, bearbeiten)
Diese Formulare werden dann mit RegisterClassAlias deiner Anwendung bekannt gegeben.

Delphi-Quellcode:

TFLand = class( TFBaseItem);

initialization

RegisterClassAlias( TFLand, '1' ); // Land hat z.B. IDType = 1
// oder auch
RegisterClassAlias( TFLand, 'Land' );

Möchtest du nun das passende Formular zu einem Item anzeigen, dann geht das wie folgt:

Delphi-Quellcode:

procedure ShowItemForm( IDType, ItemID : integer );
begin
  with TFBaseItem( FindClass( IntToStr( IDType ) ) ).Create( Application ) do
  begin
    ID := ItemID;
    Show;
  end;
end;

[jokerfacehro]

Danke für die schnelle Antwort.
Dass mit der Struktur des Baums in einer Tabelle speichern, war auch genauso meine idee.
dazu habe ich dann pro hierachieebene eine tabelle, wo ich die attribute speicher.

da bin ich froh, schon nen guten lösungsansatz gefunden zu haben

die idee mit der formularerstellung ist mir ganz neu und da werd ich mich jetzt mal informieren.

Delphi-Quellcode:

// Das brauchen wir später noch :)
TFBaseItemClass = class of TFBaseItem;

nutze ich um den benötigten klassen-typ zu übergeben, richtig?
z.B.

Delphi-Quellcode:

type TFLand = class(TFBaseItem)
end;

type TFBaseItemClass = class of TFBaseItem;



procedure CreateForm(FormType: TFBaseItemClass);
begin

FormType.Create(Application);

end;

procedure Click;
begin

RegisterClass(TFLand,'Land');

CreateForm(FindClass('Land'));
end;

hoffe ich konnte dir folgen

[Sir Rufo]

Nein, nicht ganz (ich hatte aber auch einen kleinen Fehler drin)

Erzeugt werden die Formulare so

Delphi-Quellcode:

uses
  frmBaseItem;

procedure ShowItemForm( IDType, ItemID : integer );
begin
  with TFBaseItemClass( FindClass( IntToStr( IDType ) ) ).Create( Application ) do
  begin
    ID := ItemID;
    Show;
  end;
end;

Mit FindClass kannst du nach einem Klassennamen (auch Alias, den wir benutzt haben) suchen lassen.
Der Rückgabewert von FindClass (logischerweise eine Class) wird per Cast auf die Basis TFBaseItemClass gebracht und erzeugt.

Der Vorteil ist nun, dass deine HauptAnwendung die Formulare gar nicht kennen muss, sondern nur das Basis-Formular.
Weiterhin kannst du auch erst prüfen, ob du eine Klasse zurückbekommen hast und dann erst erzeugen.
Wenn keine Klasse kommt, dann eben nichts machen

So kannst du die benötigten Formulare auch erst zu einem späteren Zeitpunkt coden und brauchst dich aber nicht um die Abhängigkeiten scheren.

Du kannst auch zunächst ein Dummy-Formular erstellen.

BTW Als ClassAlias "1" zu nehmen ist natürlich doof, besser wäre es natürlich "ItemType1", "ItemType2", etc.

[jokerfacehro]

Danke dir.

Das ist perfekt für mein Projekt geeignet, da der Komplexitätsgrad sehr hoch ist

Ich habs noch nicht ganz verstanden, aber nachm Weiterlesen und Schlafen wirds bestimmt


Ich melde mich später nochmal.