Discussion :

[gegila]

Bonjour,
Je souhaite gérer deux champs de données que j'appellerai Catégories et Sous catégories.

Je saisie ces valeurs à l'aide d'un TreeWiew comme suit


Et ensuite je voudrais les employer sur un écran de Saisie comme cela:


C'est a dire si je sélectionne comme catégories: Assurances, je voudrais que dans le champ Sous Catégories n'apparaissent que les rubriques concernant la catégorie Assurance

Bien sur ces champs sont des combobox et la finalité serait les remplir avec le valeurs du TreeWiew

Es ce la bonne solution ?

Sauver le treeView on peut le faire dans un fichier texte, qui est formaté de cette façon

Code :

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

1
2
3
Assurance
	Voitures
	Habitation

mais comment les utiliser dans le 2 Combo ?

Je ne sais pas par quel bout prendre le problème?

Merci pour votre aide

[sbadecoder]

Bonjour,
Il faudrait définir une structure de stockage des catégo et ss-catégo, par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Tcatego = record
  catego : string;
  sscate  : TStrings;
end
 
//ou via une seule TStrings
 
var
  ListeCatego1 : array of Tcatego;
//ou
  ListeCatego2 : array of TStrings;  // catego en index 0 et sscat ensuite

Ensuite, il faut mettre à jour le Combo1 avec la liste des catego puis gérer la mise à jour de la liste du Combo2 lors de l'événement Combo1OnChange.

[SergioMaster]

Bonjour,

Je ne suis absolument pas d'accord avec sbadecoder pourquoi ajouter une structure de stockage alors qu'on l'a déjà : l'arbre.

Il faut "tout simplement" récupérer les enfants du noeud FAQ

Bon, bien sûr ici il s'agit de FMX et non de VCL mais le principe restera le même

dans l'évènement OnChange du combobox1
code FMX écrit à la volée

Code :

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

1
2
3
4
5
6
7
8
9
var 
    c: Integer;
    AnItem : TTreeViewItem;  
begin
ComboBox2.items.Clear;
AnItem:=Treeview1.ItemByIndex(Combobox1.ItemIndex);
for c:=0 to AnItem.Count-1 do 
  Combobox2.Items.Add(AnItem.ItemByIndex(c).Text);
end;

Une seule contrainte, il faut que combobox1 soit rempli de la même manière, au moment du remplissage de l'arbre afin de garder le même ordre


en VCL le code devrait même être légèrement plus simple mais cela fait un bail que je n'ai pas toucher à des treeviews VCL, il me faudra un petit rafraichissement de mémoire

[ShaiLeTroll]

Il faudrait en savoir plus sur le Worflow
Les Combo sont-elles dans le même écran que le TTreeView ?
J'ai l'impression que l'on d'abord un TTreeview dans un écran de configuration pour l'utilisateur admin
Puis ailleurs, surement pour un autre utilisateur lambda, un écran d'exploitation avec les combos

Je pense qu'il faudrait créer une table CATEGORIE ( CAT_ID, CAT_PARENT_ID, LIBELLE) de façon à stocker l'arbre

Ensuite, remplir des combos, je ne vois pas la difficulté, voire même un TDBLookupComboBox qui gère une ListSource en DB en plus de son DataSource
Couplé avec un MasterSource au ListSource secondaire, les deux combos pourrait être rempli automatiquement

Soyez plus précis sur le besoin, le process, l'ergonomie de l'application
Utilisez une base de données ou autre pour stocker dans le temps cette configuration ?

[gegila]

Bonjour Shail

J'ai l'impression que l'on d'abord un TTreeview dans un écran de configuration pour l'utilisateur admin
Puis ailleurs, surement pour un autre utilisateur lambda, un écran d'exploitation avec les combo

Effectivement le Combos ne sont pas dans le même écran.

Ta solution de passer par la création d'une table me paraît plus logique pour ce que je veux obtenir.
Je butais un peu sur les autres solutions proposées

Par contre comment stocker mon TTreeWiew dans cette table !

J'essaye et vous tiens au courant

[ShaiLeTroll]

On ne stocke pas le TTreeview mais les données métiers, dans votre cas les Catégories

C'est l'inverse qu'il faut penser
Travailler sur un modèle de donnée, puis ensuite vient la présentation

Tu manipules plutôt un TDataSet ou TQuery, qui sert pour stocker la donnée en mémoire ainsi que la reporter sur le SGBD
Et l'affichage du TTreeView vient s'ajouter à cela

Le Data pouvant stocker par exemple le TBookmark pour une navigation rapide.


Tout cela au final, c'est une gestion de Thésaurus

[gegila]

J'ai donc tranché la question en créant Tables Maitre-Détails.

Ma sauvegarde est faite sur la base directement

Et je rempli mes automatiquement mes 2 ComboBox lors du OnCreate