TreeView aus DB füllen

[Christian18]

Hallo,

ich habe mal eine Frage zu TreeViews. Wie kann ich das ding mit Daten aus meiner DB befüllen. Oder erstmal wie kann ich es überhaupt befüllen. Ich habe in meiner DB drei Tabellen. Über die Mastersource sind diese miteinander verbunden.

MFG Christian18

[mkinzler]

Zitat:

Oder erstmal wie kann ich es überhaupt befüllen.

Delphi-Quellcode:

TreeView.Items.Add<xxx>;

Wie willst du die Daten der 3 Tabellen anzeigen?

U.U. wäre ein DBtreeView hilfreich.

[Christian18]

Ja die Daten will ich anzeiegn. Und da die einzelnen Tabellen mit der Mastsresource vcerbunden sind. ist ein treeview richtig gut geeignet.

MFG Christian18

[mkinzler]

Meine Frage zielte daruf ab wie die die Daten in dem Treeview dargestellt werden sollen. Z.B. Erste Ebene aus tabelle ein, 2.Ebene aus Tabelle2 u.s.w.

Schau dir mal den VirtualTreeView an.

[Christian18]

Ja genau so meine ich das. 1. Tabelle erste ebene usw.

Wo kann ich den Virtuellen Treeview finden.

MFG Christian18

[aschne1]

Hi

Nimm lieber VST wenn es viele Datensätze (ab 1000) sind, denn TTreeview ist sehr langsam.

Edit: Alle Tabelle mit einer Schleife durchlaufen und die Werte einzeln zuweisen.

Gruss

[mkinzler]

Zitat:

Wo kann ich den Virtuellen Treeview finden.

VST-Homepage

[Christian18]

Hallo,

ich will trotzdem erstmal mit TTreeView arbeiten. Wie kann ich das ding denn jetzt mit Daten füllen?!?!?

MFG Christian18

[mkinzler]

Bei den Downloads gibt es auch diese Demo

[Christian18]

Also ich habe schon mal angefangen.

ich würde es so machen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.First;
  while not Table1.Eof do
    begin
      while not Table2.Eof do
        begin
          while not Table3.Eof do
            begin
              Table3.Next;
            end;
          Table2.Next;
        end;
      Table1.Next;
    end;
end;

Und jetzt weiß ich bloß nicht weiter. Ich weiß jetzt nicht wie ich den ersten Knoten mache. dann die unterknoten und zu den unterknoten dann die einträge. wie kann ich das machen???

MFG Christian18

[aschne1]

Delphi-Quellcode:

DeineQuery.First
while not DeineQuery.Eof do                                          // Alle Datensätze durchlaufen
begin
  TreeView1.Items.AddChild(nil,DeineQuery.FieldByName('Feldname').AsString);
  Next;
end;

Fügt Rooteinträge hinzu, für Untereinträge weitere Schleifen...

Gruss

[Christian18]

Ok,

das funktioniert erst einmal. Und wie kann ich jetzt die ersten Untereinträger aus der zweiten Tabelle machen???

Hier mein code:

Delphi-Quellcode:

procedure TFMain.Button1Click(Sender: TObject);
begin
  Gauge1.MinValue:=1;
  Gauge1.MaxValue:=Table1.RecordCount;
  while not Table1.Eof do
    begin
      TreeView1.Items.AddChild(nil, Table1.FieldByName('Feldname').AsString);
      while not
      Table1.Next;
      Gauge1.Progress:=Gauge1.Progress + 1;
    end;
end;

MFG Christian18

[mkinzler]

In dem du AddChild auf auf den Knoten anwendest, welchem du einen Unterknoten zuordnen willst.

Delphi-Quellcode:

procedure TFMain.Button1Click(Sender: TObject);
var
    node: TTreeNode;
begin
  Gauge1.MinValue:=1;
  Gauge1.MaxValue:=Table1.RecordCount;
  while not Table1.Eof do
    begin
      node:= TreeView1.Items.AddChild(nil, Table1.FieldByName('Feldname').AsString);
      while not Table2.Eof do
      begin 
          TreeView1.Items.AddChild(node, Table2.FieldByName('Feldname').AsString);
          Table2.Next;
      end;
      Table1.Next;
      Gauge1.Progress:=Gauge1.Progress + 1;
    end;
end;

[Edit: DelphiTags vergessen]

[marabu]

Hallo Christian,

als erstes solltest du deine DataSets über die Eigenschaft MasterSource (TTable) bzw. DataSource (TQuery) hierarchisch verketten. Das Eintragen von Knoten auf beliebiger Ebene lässt sich folgendermaßen abstrahieren:

Delphi-Quellcode:

procedure AddNodes(nodes: TTreeNodes; nParent: TTreeNode; ds: TDataSet; fnDisplay, fnKey: String);
var
  iKey: Integer;
  sDisplay: String;
begin
  nodes.BeginUpdate;
  with ds do
  try
    First;
    while not Eof do
    begin
      sDisplay := FieldByName(fnDisplay).AsString;
      iKey := FieldByName(fnKey).AsInteger;
      with nodes.AddChildObject(nParent, sDisplay, Pointer(iKey)) do
        HasChildren := True;
      Next;
    end;
  finally
    nodes.EndUpdate;
  end;
end;

Die Initialisierung der TreeView kann im Ereignis OnCreate() der Form statt finden:

Delphi-Quellcode:

procedure TDemoForm.FormCreate(Sender: TObject);
begin
  AddNodes(TreeView.Items, nil, QC, 'Company', 'CustNo');
end;

Wie du die Knoten auf den unteren Ebenen über das Ereignis OnExpanding() der TreeView eintragen lassen kannst, das zeigt die angehängte Demo.

Grüße vom marabu