Chargement TreeView à partir d'une base Firebird

Version imprimable

04/02/2007, 17h07
ameno_123

1 pièce(s) jointe(s)

Chargement TreeView à partir d'une base Firebird

Bonjour à tous,
Je fais appel à vous encore une fois car je suis totalement perdu.
Je m'explique, j'ai une base de données et je voudrais charger une table (Articles) sous forme de treeview (Famille et sous famille). Mais ça coince ! Je n'y arrive pas du tout.
Voici la structure de ma table articles et famille:
---------------------------------------------------
*Articles*
ID_ARTICLES INTEGER NOT NULL,
REFERENCE_ARTICLE VARCHAR(150),
DESIGNATION_ARTICLE LONGTEXT DEFAULT Null,
FAMILLE VARCHAR(30),
ID_FAMILLE INTEGER);

*Contenu*
ID_ARTICLES|REFERENCE_ARTICLE|DESIGNATION_ARTICLE|FAMILLE|ID_FAMILLE
100 | CL-6499 | Creative Webcam |Webcams| 15

---------------------------------------------------
*Famille*
ID_FAMILLE INTEGER NOT NULL,
ID_PARENT INTEGER,
FAMILLE VARCHAR(30);

*Contenu*
ID_FAMILLE|ID_PARENT|FAMILLE
15 | 2 |Webcams

ID_Parent = Périphériques

Périphériques
|________Webcams
|________Creative

-----------------------------------------------------

* Fichier pdf en attachement.

Merci beaucoup pour votre aide
04/02/2007, 20h12
giloutho

Bonjour à tous,

Je suis exactement sur la même problématique... Donc n'attends pas pour l'instant de conseils éclairés mais des pistes.

Moi je suis sur MySQL et pour arriver à faire ce que tu décris, j'ai commencé par regarder un tuto sur le site Spécial Delphi Michel. Il montre les bases d'un treeview : comment ajouter des noeuds etc...

http://www.phidels.com/php/index.php...zip.php3&id=31

Bon après il me fallait du plus complexe et j'imagine que tu auras les mêmes besoins : à savoir Afficher le nom de l'article dans le treeview et afficher la fiche entière de l'article quand on clique dessus. Je cherchais notamment comment afficher un champ et stocker le champ clé primaire de manière invisible. Tout est là :

http://users.iafrica.com/d/da/dart/D.../TreeView.html

Que du bonheur tout y est expliqué. Je l'ai trouvé il y a deux heures et mon truc commence à ressembler à qq chose...:mouarf:

Si tu as des besoins, relance le post, je vais expérimenter ce soir mais je ne pourrai te répondre que demain.

Amicalement

Salut
ci joint un code que j'utilise pour charger les familles et les articles rattachés à chaque famille.

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
 
procedure TFrm_sav_t.Peupler_tree(TV : TTreeView);
var newNode : TTreeNode;
begin
  With TIBQuery.Create(Nil) do
  try
    Database    := DM.IB_Database;
    Transaction := DM.IB_Transaction;
    SQL.Add('select FAM_REF,ART_REF from T_ARTICLE');
    SQL.Add('Order by FAM_REF,ART_REF');
    Open;
    with TV do
    begin
      Items.Clear;
      if IsEmpty then Items.Add(Nil, 'Rien trouvé...') // au lieu de faire un ShowMessage ou autre...
      else
      begin
        NewNode := Items.AddChildFirst(Nil,FieldByName('FAM_REF').Asstring);
        while not Eof do
        begin
          if (FieldByName('FAM_REF').AsString = NewNode.Text) then
            Items.AddChild(NewNode,FieldByName('ART_REF').Asstring)
          else
          begin
            newNode := Items.AddChild(Nil,FieldByName('FAM_REF').AsString);
            Items.AddChild(NewNode,FieldByName('ART_REF').Asstring);
          end;
          Next;
        end;
    end;
  end;
  finally
    Free;
  end;
end;

J'espere que cela vous aideras dans votre quête.

A+