Benim yapmak istedigim db den gelen bilgileri TreeView e işletmek
Db yapım
Id SubId Menu adi
1 0 Ana1
2 0 Ana2
3 0 Ana3
4 1 Ana1 alatında
5 4 XXXXXXXXXX
Gibi bir db tasarımım var
burada çektıgım sıkıntı program ilk açılırken 2 inci alttan sonrakini olusturamıyorum
Kodlar
Kod: Tümünü seç
type
adrestype=array[0..7]of word;
Var
MyNode,Buraya: ttreenode;
adresT : ^adresType;
TreeView1.Items.Clear;
AnaKayitlar.SQL.Text:='Select * From MenuTbl Where SubCatId=0 ';
AnaKayitlar.Open;
//U/case hangisi of
//0://ana kayıtlar
// begin
for i:=0 to AnaKayitlar.RecordCount-1 do begin
begin
MyNode := TreeView1.items.add (Nil, AnaKayitlarMenAck.AsString);
mynode.ImageIndex:=hangisi;
new (adrest);
fillchar (adrest^, sizeof (adrest^), 0);
adresT^ [0] := AnaKayitlarCatId.asinteger;
MyNode.Data := adrest; //dispose yapmak yok
mynode.ImageIndex:=hangisi;
mynode.StateIndex:=-1;
Alt.SQL.Text:='Select * From MenuTbl Where SubCatId='+IntToStr(AnaKayitlarCatId.Value)+' ';
Alt.Open;
for j:=0 to Alt.RecordCount-1 do begin
Buraya := TreeView1.items.AddChild(Mynode, trim(AltMenAck.Value));
new (adrest);
fillchar (adrest^, sizeof (adrest^), 0);
adresT^ [0] := AnaKayitlarCatId.Value;
adresT^ [1] := AltSubCatId.Value;
Buraya.Data := adrest;
Buraya.ImageIndex:=hangisi;
Buraya.StateIndex:=-1;
alt.Next;
end;
anakayitlar.Next;
End;
