Discussion :

[ameno_123]

Bonjour,
J'ai une table Famille (ID, Famille_ID, Famille)
-------------------------
|ID |Famille_ID|Famille |
-------------------------
|0 |0 |Racine |
|1 |0 |Vente |
|2 |0 |Achat |
|3 |1 |Nourriture|
|4 |3 |Viande |
|5 |4 |Rouge |

Racine--Vente--Nourriture--Viande--Rouge

Comment faire pour avoir cette arborescence et alimenter ma base, ou autre idée de structure!!?

Merci

[SergioMaster]

pour la base : un très bon article de SQLPro http://sqlpro.developpez.com/cours/arborescence/

pour l'affichage , voir du coté de TVirtualTreeView (y a même un exemple avec DB) ,c'est réalisable sans (je l'ai fait en D3 avec le treeview classsique)

[ameno_123]

Merci beaucoup, j'ai trouvé ce que je cherche, j'aimerai bien avoir un exemple avec treeview classsique.

Merci

[SergioMaster]

Pour ce que cela vaut , j'ai simplifié le type Record a sa plus simple expression . L'arbre est 'contenu' dans la table TBase (NOMEN_BASE)

CREATE TABLE NOMEN_BASE
( ....
LIGNE_ABSOLUE Smallint, // ordre (equivalent de ID dans ton Cas
PARENT_NIVEAU Smallint, // niveau (équivalent de Famille
PIECE CHAR(15),
MATIERE Char(5),
COLORIS Char(3),
QUANTITE Numeric(15,4),
....
CONSTRAINT CLE1_NOMENBASE PRIMARY KEY (LIGNE_ABSOLUE)
);

L'ordre est bien sur TRES important

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
72
73
74
75
76
 
type TAnode = Record
    Onglet : TBookMark;    // pointage sur l'enregistrement
end;
 
 
procedure TAllNomen.Arbre;
var ANode:TTreeNode;
    DataNoeud:^TAnode;
begin
ANode:=nil;
with TreeView.Items,TBase do
   begin
     BeginUpdate;
     TreeView.OnChange:=nil;
     DisableControls;
     Clear;
     while not EOF do
       begin
         if FieldByName('PARENT_NIVEAU').Value=0 then
            begin
              DataNoeud:=AllocMem(SizeOf(TAnode));
              DataNoeud.Onglet:=GetBookMark;
              ANode:=AddObject(nil,'',DataNoeud);
              NodeImage(Anode);   // Gestion Affichage
              Next;
            end
         else Enfants(Anode,FieldByName('PARENT_NIVEAU').Value);
       end;
     TreeView.FullExpand;
     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;
  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;
            Node2:=AddObject(Node2,'',DataNoeud);
            NodeImage(Node2);
            Next;
         end
      else Enfants(Node2,FieldByName('PARENT_NIVEAU').Value);
    end;
 end; {with}
end;
 
procedure TAllNomen.NodeImage(ANode : TTreeNode);
begin
if Anode<>nil then
 begin
  if <Condition>
   then ANode.ImageIndex:=0
   else ANode.ImageIndex:=1;
  ANode.SelectedIndex:=ANode.ImageIndex;
  if TBaseMatiere.isNull then Anode.text:=Format('%-15s',[TBasePIECE.Value])
                         else Anode.text:=Format('%-15s %-25s',[TBaseMATIERE.Value,
                                                                TBaseCOLORIS.Value]);
 end;
end;