DBTreeView hakkında

[meron06]

Arkadaşlar cümleten Sel.al. .JvDBTreeView componenti ni kullanmak istiyorum. sitesinde yada başka bi sitede örnek bulamadım .baya uğraştırdı.bu componenti kullanmayı bilen arkadaşlar varmı acaba.bugun bi arkadaş daha bu componentle ilgili soru sormuş.yada bu compoenet bağlı kalmaksızın.veri tabanımdaki 2 tablomdan nasıl kayıtları DBTreeView şeklinde görüntüleyebilirim.

[ozz_deniz]

Walla ben Quantum DBTree list kullanıyorum, key field, parent field birde list view diye üç özelliği var, data yapısının :

CREATE TABLE TREE

(ROOT VARCHAR(10),
KOD VARCHAR(10),
AD VARCHAR(10));

gibi olması lazım, burdaki parent field ROOT, Ket Field KOD, List view de AD oluyor.

[veliadiguzel]

S.A.

Kod: Tümünü seç

procedure TForm1.JvTransparentButton1Click(Sender: TObject);
var
  ActiveNode: TTreeNode;
  ActiveChildNode: TTreeNode;
begin
  Liste.Items.Clear;
  IBTable1.First;
  IBTable2.First;
  with Liste.Items do
  begin
    while not IBTable1.Eof do
    begin
      ActiveNode := Add(nil, IBTable1.FieldValues['KSM_ADI']);
      ActiveNode.ImageIndex := 0;
      while not IBTable2.Eof do
      begin
        ActiveChildNode:=AddChild(ActiveNode, IBTable2.FieldValues['BLG_ADI']);
        ActiveChildNode.ImageIndex:=1;
        IBTable2.Next;
      end;
      IBTable1.Next;
    end;
  end;
end;

ben kısa yoldan böyle bir kod kullanıyorum.