Discussion :

[qi130]

Bonjour,

J'ai 1 dbgrid permettant de gérer par exemple des voitures. il y a donc (pour faire simple) 1 colonne Marque et 1 autre Modèle.

Comment faire pour que la lookupcombo Modèle propose toujours la liste des modèles de la marque sélectionnée? que ce soit lors de l'insertion d'un véhicule, ou quand on "butine" dans la grille.
J'ai bien sûr à disposition la liste des modèles de chaque marque...

Pour 1 insertion, après sélection de la marque, j'arrive à charger les modèles correspondant, mais les modèles des autres marques sont raz dans la grille.

Une idée?

[ShaiLeTroll]

Un MasterSource en plus pour la ListSource ?

[SergioMaster]

Bonjour,

Je vois plusieurs solutions dépendant de ce qui est voulu : la possibilité ou non d'afficher tous les véhicules ou pas.

Dans le cas où seul les véhicules d'une marque serait à afficher, bien évidemment le mastersource est une possibilité,

Utilisant Firedac, perso, étant plus Query que Table, j'utiliserai
avec mastersource

Code SQL :

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

SELECT MODELE FROM MODELES WHERE MARQUE=:MARQUE

sans mastersource

Code :

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

fdQModeles.Open('SELECT MODELE FROM MODELES WHERE MARQUE=:M',[ComboBox.Text]);

Dans le second cas je remplirai un combobox mais avec une variante
(en utilisant une base Firebird)

Code SQL :

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

1
2
3
4
5
6
 
WITH A AS 
(SELECT NULL FROM RDB$DATABASE 
UNION
SELECT MARQUE FROM MARQUES) 
SELECT A.MARQUE FROM A ORDER BY 1 NULLS FIRST

Dans ce cas je jouerai avec le onCloseUp du combobox et les possibilités de Firedac

Code :

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

1
2
3
if ComboxBox.Text.isEmpty 
   then  fdQModeles.Open('SELECT MODELE FROM MODELES ORDER BY MARQUE')
   then  fdQModeles.Open('SELECT MODELE FROM MODELES WHERE MARQUE=:M',[ComboxBox.Text]);

NOTE : non testé, j'ai un petit doute sur le combobox.text

N.B. Pour ce qui est des insertions, bien sûr j'utiliserai un onNewrecord sur l'ensemble de données MODELES pour initialiser la colonne MARQUE
Bien évidement, mon utilisation de SQL oblige l'utilisation de FDSQLUpdate

[qi130]

Bonjour, et merci pour ces retours.

Cependant

Dans le cas où seul les véhicules d'une marque seraient à afficher

n'est justement pas mon contexte... et ce qui pose problème car la liste de référence des modèles me semble unique pour le grid car elle résulte d'un

Code :

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

select MODELE ... where MARQUE=

. Et quand je passe (par exemple) d'une Peugeot à une Renault, je dois recharger les modèles, du coup tout ce qui n'est pas Renault ne trouve plus son modèle dans la nouvelle liste, et la cellule correspondante est raz.

J'ai peut-être une piste à explorer car mon compo grid dispose d'une possibilité de "InPlaceEditor" référençant 1 combo classique qui vient s'ouvrir sur la cellule.
Je vais tenter:

• une liste de tous les modèles pour le grid
• l'allocation dynamique des modèles selon la marque pour alimenter la liste proposée par ce combo

Affaire à suivre...

PS: pour 1 grid "de base", il est sûrement possible de simuler ça en faisant apparaitre un combo au niveau des coordonnées de la cellule "modèle" cliquée?
P-PS : ça ressemblerait à ta solution Sergio ?

[SergioMaster]

Tu as aussi la solution (que j'aime moins) la propriété Filter et Filtered
dans le OnCloseup du combobox

Code :

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

1
2
FDQModele.Filter:=Format('Marque=%s',[QuotedStr(combobox.text)]);
FDQModele.Filtered:=not Combobox.text.isEmpty

[qi130]

J'ai avancé avec mon "InPlaceEditor"...

Je suis initialement partir sur la création dynamique de StringList nommé SL<marque> contenant les modèles de cette marque afin d'alimenter les items du Tcombobox.

Mais je me suis fait avoir car le FindComponent ne peut trouver que des composants et, pas de bol le StringList n'en est pas un

Je me suis donc rabattu sur un

Code :

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

TDictionary<string, TStringList>

le string recevant la marque.

Ensuite, j'utilise

Code :

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

TryGetValue

qui me fournit la StringList que j'assigne aux items du ComboBox.


Je pense qu'une telle approche peut être utilisée en l'absence d'un "InPlaceEditor" en faisant apparaitre le ComboBox par dessus la cellule.