Baumstruktur darstellen

[Monday]

Vielen Dank für die Antworten.

Ich habe gebastelt und bin dem Ziel schon näher

Wenn man die Tiefe / Ebene (=ebene (wie sagt man da richtig bei einer baumstruktur!?)) mitspeichert, dann hat man ja schon fast die Strukur. Also gleich einrücken. Dann muss man nur noch die Zeilen richtig vertauschen.

Also soweit bin ich schon:

Ich habe jetzt eine DB mit der Struktur

id, parentID, tiefe, text

Das ganze lade ich erstmal in ein StringGrid und dann der Versuch der sortierung.

Auf einer Form habe ich ein StringGrid (m. Schriftart Courier wegen des Einrücken) mit mind. 4 Spalten und drei Buttons.

Relevant ist eigentlich nur die "Text" Spalte, in diesem Beispiel Spalte Nr. 3 (beginnend von 0). Die ersten drei id, parentID, tiefe sindnur hilfsspalten.

Nun sieht es so aus:

Code:

// http://www.delphi-treff.de/tipps-tricks/komponenten/tstringgrid/zeilen-in-einem-stringgrid-tauschen/
procedure ExchangeStringGridRows(const AGrid: TStringGrid; Row1, Row2: Integer);
var
  Temp: TStrings;
begin
  Temp:=TStringList.Create;
  try
    Temp.Assign(AGrid.Rows[Row1]);
    AGrid.Rows[Row1].Assign(AGrid.Rows[Row2]);
    AGrid.Rows[Row2].Assign(Temp);
  finally
    Temp.Free;
  end;
end;





procedure TForm1.Button1Click(Sender: TObject);  // "sortieren"
var
  i, max,a: integer;
  leer : string;
begin
ZQuery1.SQL.Text := 'SELECT max(id) as max from daten;';
ZQuery1.Open;
max := ZQuery1.FieldByName('max').AsInteger;

   for i := 1 to max do begin // alle zellen durchgehen

     if StringGrid1.cells[2,i] <> '1' then begin // 1 ist die niedrigste Ebene
       // parentID / ID
       if (StringGrid1.cells[1,i] <> StringGrid1.cells[0,i-1]) and (StringGrid1.cells[1,i] <> StringGrid1.cells[1,i-1]) then begin
         ExchangeStringGridRows(StringGrid1, i, i-1);
       end;
     end;
end;


end;





procedure TForm1.Button2Click(Sender: TObject); // einlesen
var
  i, max: integer;
  leer : string;
begin
 ZQuery1.SQL.Text := 'SELECT max(id) as max from daten;';
 ZQuery1.Open;
 max := ZQuery1.FieldByName('max').AsInteger;

  ZQuery1.SQL.Text := 'select * from daten order by parentID asc, id desc, texta';
  ZQuery1.Open;


 for i := 1 to max do begin

   StringGrid1.Cells[0,i] := ZQuery1.FieldByName('id').AsString;;
   StringGrid1.Cells[1,i] := ZQuery1.FieldByName('parentID').AsString;;
   StringGrid1.Cells[2,i] := ZQuery1.FieldByName('tiefe').AsString;;

   if ZQuery1.FieldByName('tiefe').AsString = '1' then begin  leer := '';  end;
   if ZQuery1.FieldByName('tiefe').AsString = '2' then begin  leer := '   ';  end;
   if ZQuery1.FieldByName('tiefe').AsString = '3' then begin  leer := '      ';  end;
   if ZQuery1.FieldByName('tiefe').AsString = '4' then begin  leer := '         ';  end;
   if ZQuery1.FieldByName('tiefe').AsString = '5' then begin  leer := '            ';  end;

   StringGrid1.Cells[3,i] := leer + ZQuery1.FieldByName('texta').AsString;;

   StringGrid1.RowCount:= StringGrid1.RowCount+1;
   ZQuery1.Next;
 end;


end;

procedure TForm1.Button3Click(Sender: TObject); // nur zum testen
var
  i: integer;
begin
 for i := 1 to 1500 do begin
  Button1Click(Self);      end;
end;

Im Prinzip funktioniert das schon. Allerdings gibts noch ein paar Probleme:
- er sortiert falsch bzw. es entsteht eine Endlosschleife
- sehr laaaaangsam



Lg
Monday


Edit: SQlite3

[Sir Rufo]

Welches Datenbanksystem?

SQlite?

Da geht das mit einer simplen Tabellenstruktur und einer netten Abfrage einfach so

SQL-Code:

CREATE TABLE org(
  name TEXT PRIMARY KEY,
  boss TEXT REFERENCES org
) WITHOUT ROWID;
INSERT INTO org VALUES('Alice',NULL);
INSERT INTO org VALUES('Bob','Alice');
INSERT INTO org VALUES('Cindy','Alice');
INSERT INTO org VALUES('Dave','Bob');
INSERT INTO org VALUES('Emma','Bob');
INSERT INTO org VALUES('Fred','Cindy');
INSERT INTO org VALUES('Gail','Cindy');

WITH RECURSIVE
  under_alice(name,level) AS (
    VALUES('Alice',0)
    UNION ALL
    SELECT org.name, under_alice.level+1
      FROM org JOIN under_alice ON org.boss=under_alice.name
     ORDER BY 2 DESC
  )
SELECT substr('..........',1,level*3) || name FROM under_alice;

ergibt dann

Code:

Alice
...Bob
......Dave
......Emma
...Cindy
......Fred
......Gail

http://www.sqlite.org/lang_with.html

[mkinzler]

Die Procedure sieht eher nac Interbase/Firebird aus.
Wenn es sich um FB handelt, könnte man auch eine CTE verwenden

[Sir Rufo]

Zitat von mkinzler:

Die Procedure sieht eher nac Interbase/Firebird aus.
Wenn es sich um FB handelt, könnte man auch eine CTE verwenden

Jo, aber das kommt ja nicht vom TE, daher ist das noch völlig unklar, welche DB

[Monday]

Ich habe es nur auf die schnelle ausprobiert. SQLite 3.8.0 kann es nicht, aber 3.8.7 kann es (und ich dachte immer x.x.x Versionen beinhalten keine großen Änderungen!).

Und was soll ich sagen?

Vielen vielen Dank für diesen Tipp!! Das sowas direkt in SQLite geht hätte ich mir nicht träumen lassen!!
Das ist so fantastisch, für den Code würde ich meine Frau eintauschen



Tausende von Datensätze schafft der in wenigen millisekunden. Ich behaupte mal, dass ich mehr Zeit benötige die Datensätze zu schreiben ^^

Da ist meine Tippserei ja gar nichts dagegen.

Vielen vielen Dank für die Hilfe!

Mal sehen ob es morgen immer noch funktioniert

LG,
Monday

[taveuni]

Das gibts auch bei MSSql inkl. Express Versionen ab Version 2008. Stichwort hierarchyid.

[Blup]

Zitat von Dejan Vu:

Zitat von Blup:

Du solltest die Verknüpfung ID - ParentID (häufig gehört auch noch eine Position für die Reihenfolge dazu) auf jeden Fall in einer separaten DB-Tabelle speichern.
Sonst sperrt eine Verschiebung des Elements im Baum auch alle von der ID direkt oder indirekt abhängigen Datensätze.

Das verstehe ich nicht.
Wenn ich einen Knoten verschiebe, ändere ich nur seine Parent-ID. Was hat das mit den Unterknoten zu tun?

Fremdschlüssel von ParentID auf ID kann man innerhalt einer Tabelle vermutlich auch in diesem SQL-Dialekt nicht setzen.
Sollte ein Datensatz gelöscht werden, können immer noch Unterknoten existieren, die mit ParnetID auf den gelöschten Datensatz verweisen.

Das Problem "lock conflict ..." ist abhängig vom Transaktionsmanagment und betrifft z.B. Interbase oder Firebird.
Beispiel:
Die Baumstruktur enthält Artikel (Tabelle T_ARTIKEL Primärschlüssel ID).
Es gibt eine weitere Tabelle T_BESTELLUNG unter anderem mit dem Feld ArtikelID (mit Fremdschlüssel auf T_ARTIKEL.ID).
Der Artikel wird verändert (Bezeichnung, ParentID oder anderes) in Transaktion A.
Dadurch wird eine neue Version dieses Datensatzes erzeugt.
Andere Transaktionen z.B. B, die vor Ende der Transaktion A gestartet wurde, haben jetzt ein Problem.
Bestellungen die diesen Artikel enthalten, können in Transaktion B nicht gespeichert werden (lock conflict ...), da diese mit Fremdschlüssel(ArtikelID) auf die neue Version des Artikel-Datensatz verweisen müssen, der aber in Transaktion B noch nicht bekannt ist.

[generic]

Zitat von taveuni:

Das gibts auch bei MSSql inkl. Express Versionen ab Version 2008. Stichwort hierarchyid.

Alternativ geht das auch über CTE bei eigenen Datentypen.