TreeView an Datenbank ?

[shmia]

Delphi-Quellcode:

procedure TFrmMandant.TreeViewInit;
var
   tv: TTreeView;
   n: TTreeNode;
   idSender : string;
begin
   tv := TreeView1;
   tv.Items.BeginUpdate;
   tv.Items.Clear;

   // QryMandants ist die Mastertabelle
   // QrySenders ist die Detailtabelle
   // die Dateitabelle ist mit der Mastertabelle verknüpft
   // lies dazu in der Online-hilfe: "TQuery.DataSource"

   QryMandants.First;

   while not QryMandants.Eof do
   begin
      n := tv.Items.AddChild(nil,QryMandants.FieldByName('IdMandant').AsString);
      n.ImageIndex    := IMG_MANDANT;
      n.SelectedIndex := IMG_MANDANT;

      while not QrySenders.Eof do
      begin
         idSender := QrySenders.FieldByName('IdSender').AsString;
         with tv.Items.AddChild(n, idSender) do
         begin
            ImageIndex    := IMG_SENDER;
            SelectedIndex := ImageIndex;
         end;
         QrySenders.Next;
      end;

      QryMandants.Next;
   end;

   tv.FullExpand;
   tv.Items.EndUpdate;
end;