Listeleme Şekli

[oytuntez]

Merhabalar..

Benim sormak istediğim listeleme ile ilgili..

Şimdi..

Bir alan olacak ve o alanda ağaç liste şeklinde Üst Kategoriler ve Alt Kategoriler listelenecek..

Yani her Üst Kategorinin yanındaki '+' ile onun alt kategorileri açılacak..

Alt kategorilerde de '+' simgesi ile açılım yapılacak ve o üst kategoriye ait abc tablosundaki kayıtların başlıkları listelenecek.

yani..

+ÜstKAT1
+AltKAT1
+Kayıt1
+Kayıt2
+Kayıt3
+ÜstKAT1
+AltKAT1
+Kayıt1
+Kayıt2
+Kayıt3

gibi gösterilecek kayıtlar..+lara basıldığında gösterilecek onun altındakiler tabi (sub ları.)

bunu nasıl yapabilirim acaba?? (kayıtları db den alıyorum.)

bunun için bir compenent gibi bişi varmı ki çünkü ben pek göremedim de.

[lazio]

tablo yapın destekliyorsa Dev. Express te TdxDBLookupTreeView var..

[kadirkurtoglu]

merhaba
treeview ile.

[oguzozturk74]

Su sekilde bir tablo yapınız oldugunu varsayıyorum :

> ID | ParentID | Aciklama

ve islemde Query kullanacagız. Eger Table kullanacaksan table in filter ozelligini
kullanman gerekecek.

Prosedürümüz :

Kod: Tümünü seç

  procedure PopulateNodes(aParentID: integer; ParentNode: TTreenode); 
  var 
      CurrentNode: TTreeNode; 
  begin 
      [i]// ParentID ye gore node ları seçiyoruz [/i]
      recordset := [select * from SENIN_TABLON where parentid = aParentID] 
      while not recordset.EOF do 
      begin 
          CurrentNode := Treeview.AddChild(ParentNode, 
recordset["Description"]) 
          [i]// currentnode için cocuk node lar yerini alıyor  [/i]
          PopulateNodes(recordset["id"], CurrentNode) 
          recordset.next 
      end; 
  end; 

Kullanım sekli :

Kod: Tümünü seç

PopulateNodes(0, nil)

Baska bir yol ise tabloda ki verileri once bir XML dokumanı olarak kadedip
daha sonra bunu Treeview a yuklemek. Onun icinde su baslıgı okumanızda
fayda var

http://delphi.about.com/library/weekly/aa101904a.htm

[oguzozturk74]

Ayrıca su baslıgada bakın :

http://delphi.about.com/od/vclusing/l/aa042903a.htm