Hallo

ich bin gerade dabei Delphi zu lernen und bin dabei auf folgendes Problem gestoßen:

Ich habe 2 Tabellen über ein M-D-Beziehung verknüpft und würde auf den jeweiligen Index gerne über einen TreeView zugreifen, so daß man die Indexfelder der Mastertabelle als Knoten und die Indexfelder der Detaildtabelle als Childknoten (?) sieht.

Vieleicht hat das ja schon mal jemand gemacht und kann mir unter die Arme greifen ???

Gruß

hotte der Förster

zusammenfalten · markieren

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;

Vielen Dank, genau das habe ich gesucht !

Gruß Förster

Zitat von shmia:

markieren

Delphi-Quellcode:

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

Ich habe mal eine Frage zu diesem alten Beispiel.
Wie sind die Tabellen (Querry) denn miteinander verknüpft?

ID_Master_Tabelle = ID_Senders?

Bzw. Wie sieht der SQL-String aus?
Ich verzweifle momentan an meinem TreeView mit zwei Tabellen.

Tabelle1: ID = Integer
Tabelle2: ID_Tabelle1 = Integer

Danke schon mal im vorraus.