generer treeview à partir de firebirb

Bonjour,

j'ai une base de données FIREBIRD contenant une table de 3 attributs (sujet string,parent entier,niveau entier), je n'arrive pas à charger un treeview car je ne sais pas utiliser le composant UIB et je n'ai pas la moindre idée de comment procéder.Si quelqu'un sait ou a deja reussi à le faire qu'il m'aide :(
MERCI.

Bienvenu sur le forum,

pour répondre a ta question que cela soit avec UIB ou un autre composant de connexion ne changera rien.

Le principe est simple : faire une requête ordonnée sur la table puis lire les enregistrements un à un .

Voici un exemple dans une de mes applications
Description sommaire de la table :

Citation:

CODE // code nomenclature
PIECE // piece (description)
LIGNE_ABSOLUE
PARENT_NIVEAU
LIGNE

L'ordre est fait sur le champ LIGNE
une exemple de SQL

Code:

1
2
3
4
 
SELECT a.CODE, a.PIECE, a.LIGNE_ABSOLUE, a.PARENT_NIVEAU, a.LIGNE
FROM nomen_base a where CODE='ABORG'
ORDER BY LIGNE_ABSOLUE

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
type TAnode = Record
    Onglet : TBookMark;
    Qte    : Double;
end;
 
procedure TAllNomen.Arbre;
var ANode:TTreeNode;
    DataNoeud:^TAnode;
begin
ANode:=nil;
with TreeView.Items,TBase do
   begin
     BeginUpdate;
     TreeView.OnChange:=nil;
     DisableControls;
     Data.TColoris.Close;
     Clear;
     CancelRange;
     // selectionne la nomenclature de base , ici ce n'est pas via un SQL 
     SetRange([TNomenDescCODE.value,0],[TNomenDescCODE.value,255]);
     while not EOF do
       begin
         if FieldByName('PARENT_NIVEAU').Value=0 then
            begin
              DataNoeud:=AllocMem(SizeOf(TAnode));
              DataNoeud.Onglet:=GetBookMark;
              DataNoeud.Qte:=FieldByName('QTE_TOT').Value;
              ANode:=AddObject(nil,'',DataNoeud);
              NodeImage(Anode);
              Next;
            end
         else Enfants(Anode,FieldByName('PARENT_NIVEAU').Value);
       end;
     TreeView.FullExpand;
     Data.TColoris.Open;
     TreeView.OnChange:=TreeViewChange;
     EndUpdate;
     EnableControls;
     if TreeView.Items.Count>0 then  TreeView.Selected:=TreeView.Items[0];
   end; {with}
end;
 
procedure TAllNomen.Enfants(ANode : TTreeNode;Niveau : Integer);
var Node2 : TTreeNode;
    DataNoeud:^TAnode;
begin
with TreeView.Items,TBase do
 begin
  DataNoeud:=AllocMem(SizeOf(TAnode));
  DataNoeud.Onglet:=GetBookMark;
  DataNoeud.Qte:=FieldByName('QTE_TOT').Value;
  Node2:=AddChildObject(ANode,'',DataNoeud);
  NodeImage(Node2);
  Next;
  while not EOF do
    begin
      if Niveau>FieldByName('PARENT_NIVEAU').Value then break;
      if Niveau=FieldByName('PARENT_NIVEAU').Value then
         begin
            DataNoeud:=AllocMem(SizeOf(TAnode));
            DataNoeud.Onglet:=GetBookMark;
            DataNoeud.Qte:=FieldByName('QTE_TOT').Value;
            Node2:=AddObject(Node2,'',DataNoeud);
            NodeImage(Node2);
            Next;
         end
      else Enfants(Node2,FieldByName('PARENT_NIVEAU').Value);
    end;
 end; {with}
end;

Deux sujets toutefois à lire et voir
un bon papier de SQLPRO sur les arborescences quoique pas Firebird dommage :(
un treeview chargé à partir de xml pour apprendre a manipuler un Treeview , de toute façon cette adresse est une mine anglophone certes :(

Bonsoir,

Merci pour ta réponse. Je vais m'en inspirer... Pourrais je avoir un exemple d'utilisation(les méthodes pour se connecter) d'UIB car la documentation est rare voir inexistante.
Encore merci pour ta réponse si rapide