Treeview

[roland9999]

Hallo,

ich habe nun ein wenig gebastelt und habe die Treeview auch fast hinbekommen.

Ein Schönheitsfehler ist aber vorhanden.

Siehe Bild

Der gerahmte Bereich ist doppelt und die Unterkategorie stimmt nicht. Alle anderen Positionen stimmen.

Hier der Quelltext:

Delphi-Quellcode:

procedure Tf_treeview.Button1Click(Sender: TObject);
var MyTreeNode1 : TTreeNode;
    icat  : integer;
begin
 with tv.Items do
  begin
   clear;
// 1. Hauptnode mit CHildnode setzen--------------------------------------------------------------
   q_hauptkategorien.Close;
   //1.Hauptkategorie
   q_hauptkategorien.Open;
   //Liefert den Namen der Kategorie über Funktion GetCategoryName
   GetCategoryName(q_hauptkategorien.FieldByName('category_child_id').AsInteger);
   //----------------------------------------------------------------------------------------
   //Eintrag in Treeview
   mytreenode1 := Add(nil, q_kategorie_name.FieldByName('category_name').AsString);

   //Unterkategorien der ersten Hauptkategorie
   q_unterkategorien.Close;
   q_unterkategorien.ParamByName('category_parent_id').AsInteger := q_hauptkategorien.FieldByName('category_child_id').AsInteger;
   q_unterkategorien.open;
   while not q_unterkategorien.eof do
     begin
      //Liefert den Namen der Kategorie
      q_kategorie_name.Close;
      q_kategorie_name.parambyname('category_id').AsInteger := q_unterkategorien.FieldByName('category_child_id').AsInteger;
      q_kategorie_name.Open;
      //Eintrag der Unterkategorien in die TreeView
      AddChild(mytreenode1, q_kategorie_name.FieldByName('category_name').AsString);
      q_unterkategorien.Next;
     end;
//-----------------------------------------------------------------------------------------------}
   for icat := 1 to Count - 1 do
    begin
     //Liefert weitere Hauptkategorien und Unterkategorien
     while not q_hauptkategorien.Eof do
      begin
       //Weitere Hauptkategorien in der TreeView anzeigen
       q_kategorie_name.Close;
       q_kategorie_name.parambyname('category_id').AsInteger := q_hauptkategorien.FieldByName('category_child_id').AsInteger;
       q_kategorie_name.Open;
       Item[icat].Text :=  q_kategorie_name.FieldByName('category_name').AsString;
       mytreenode1 := Add(nil,item[icat].Text );
       //-------------------------------------------------------------
       //Unterkategorien der weiteren Hauptkategorien in Treeview anzeigen
       q_unterkategorien.Close;
       q_unterkategorien.ParamByName('category_parent_id').AsInteger := q_hauptkategorien.FieldByName('category_child_id').AsInteger;
       q_unterkategorien.open;
       //Liefert den Namen der Kategorie
       while not q_unterkategorien.Eof do
        begin
         q_kategorie_name.Close;
         q_kategorie_name.parambyname('category_id').AsInteger :=  q_unterkategorien.FieldByName('category_child_id').AsInteger;
         q_kategorie_name.Open;
         //Eintrag der Unterkategorie in die TreeView
         AddChild(mytreenode1, q_kategorie_name.FieldByName('category_name').AsString);
         q_unterkategorien.Next;
        end;
       q_hauptkategorien.Next;
      end;
    end;
  end;
end;

Vielleicht hat ja jemand einen Tipp was ich da falsch mache.

LG

ROland

[roland9999]

Hallo zusammen,

hat niemand eine Idee?

LG

Roland

[omata]

Zitat von roland9999:

hat niemand eine Idee?

Ideen schon. Nur darf man hier ja keine konkreten Beispiele mehr veröffentlichen. Da wird es schwer, dir zu helfen. Welche Datenbankkomponenten verwendest du eigentlich und wie sieht deine Datenbankstruktur aus?

Aus dem Kopf...

Delphi-Quellcode:

procedure LoadTree(ATree:TTreeView; AConnection:TZConnection);

  procedure LoadSubTree(id:integer; Parent:TTreeNode);
  begin
    // hier den richtigen Code einfügen und schon geht es (1)
  end;

begin
  ATree.Items.Clear;
  LoadSubTree(0, nil);
end;

(1) bedanke dich dafür bei vagtler (vielleicht hilft er dir ja, aber dann müsste er sich ja an seine eigenen Regeln halten und dazu hat er vermutlich selbst keine Lust). Siehe auch hier

Sorry, aber das musste mal raus...

[roland9999]

Hallo

Zitat:

Welche Datenbankkomponenten verwendest du

Ich benutze dbExpress

Zitat:

Datenbankstruktur

Die erste Tabelle beinhaltet die Spalten category_id und category_name
Die zweite Tabelle beinhaltet die Spalten category_parent_id und category_child_id

Gruß

Roland

[omata]

Vielleicht hilft dir das hier ja weiter...

Delphi-Quellcode:

procedure LoadTree(ATree:TTreeView; ASQLConnection:TSQLConnection);

  procedure LoadSubTree(id:integer; Parent:TTreeNode);
  var SDS:TSimpleDataSet;
      Node:TTreeNode;
  begin
    SDS:=TSimpleDataSet.Create(nil);
    try
      SDS.Connection:=ASQLConnection;
      SDS.DataSet.CommandText:=
        'SELECT x.category_child_id, category_name'#13 +
        'FROM jos_vm_category_xref x'#13 +
        'INNER JOIN jos_vm_category c'#13 +
        '  ON x.category_child_id = c.category_id'#13 +
        'WHERE x.category_parent_id = :id';

      SDS.DataSet.ParamByName('id').AsInteger:=id;
      SDS.Open;
      while not SDS.Eof do begin
        Node := ATree.Items.AddChild(
          Parent, SDS.FieldByName('category_name').AsString
        );
        LoadSubTree(SDS.FieldByName('category_child_id').AsInteger, Node);
        SDS.Next;
      end;
      SDS.Close;
    finally
      SDS.free;
    end;
  end;

begin
  ATree.Items.Clear;
  LoadSubTree(0, nil);
end;

Und ich habe mich jetzt entschieden, das mir ein Geblubber von z.B. vagtler scheiss egal ist. Ich werde jetzt weiterhin Menschen, die hier Fragen stellen, helfen und lasse mich nicht weiter ausbremsen, von irgendwelchen Besserwissern und Schlaubergern.

[roland9999]

Hallo omata,

Ich habe es heute ausprobiert.
Es hat wunderbar funktioniert.
Ich bedanke mich bei dir, für deine Unterstützung.

LG

[_BlackDragon_]

@ omata:

Wäre vielleicht trotzdem nicht verkehrt gewesen zu erwähnen, dass es sich bei deinem Beispiel um die bereits angesprochene Rekursion handelt.
Dann könnte sich der geneigte Leser und Fragensteller das Beispiel ansehen und ggf. direkt etwas zu dem Thema raussuchen, falls Bedarf besteht.

Was dein Beispiel auch zeigt ist, dass es sich immer lohnt den Code soweit auseinander zu nehmen und in (Sub)Routinen zu packen, da sich so die Übersichtlichkeit verbessert und einem selber (und auch anderen) die Fehlersuche erleichtert. Goldene Regel hier am Arbeitsplatz: "Eine Funktion sollte nie länger als eine Bildschirmseite sein."

So genug Offtopic.

GreetZ Olli