Discussion :

[souminet]

Bonjour,
je voudrais relier 2 DBLookUpComboBox, de façon à ce que les items affichés du 2ème DBLookUpComboBox dépendent essentielement de l'item choisi au niveau du 1er DBLookUpComboBox.
Je m'éxplique:
J'ai 2 tables Paradox:
Classe(N_Classe, Désignation) / Clé: N_Classe
Sous_Classe(N_Sous_Classe, N_Classe, Désignation) / Clé: N_Sous_Classe+N_Classe

Le 1er DBLookUpComboBox (Name: DBLBoxCl) a les propriétés suivantes:
DataField: Classe
DataSource: DataModule3.DataSAppel
ListField: N_Classe;Désignation
ListSource: DataModule3.DataSClass

Je voudrais que si par exemple l'item choisi au niveau du 1er DBLookUpComboBox est : 33 : Informatique
Alors le 2ème DBLookUpComboBox ne doit afficher que les items correspondants aux sous classes de la classe: 33: Informatique, c a d:
33A, 33B, 33C.... etc

Merci++++++++++++++++

[souminet]

j'ai essayé de chercher sur le Net (Ah le bon vieux Google...un ami de longue date...) et j'ai trouvé qu'on pouvait aussi utiliser un TQuery, le HIC est qu'il ne m'en dit pas plus!!!
Ils sont pas trés bavards ces moteurs!!!

Merci de me proposer une autre idée , si possible

Ciao

[SergioMaster]

pas très difficile .
sur la form :
1 TTable Classe + 1 TDataset DSClasse le 1° combobox sera lié à ce datasource
1 TQuery Qsous_Classe

Code :

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

'SELECT N_SOUS_CLASSE,DESIGNATION FROM SOUS_CLASSE WHERE N_CLASSE=:N_CLASSE

avec la propiété datasource=DSClasse (le dataset précédent) + 1 Dataset DSSous_Classe avec le 2° combobox lié à ce dernier

et le tour est joué

[souminet]

pas très difficile .
sur la form :
1 TTable Classe + 1 TDataset DSClasse le 1° combobox sera lié à ce datasource
1 TQuery Qsous_Classe

Code :

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

'SELECT N_SOUS_CLASSE,DESIGNATION FROM SOUS_CLASSE WHERE N_CLASSE=:N_CLASSE

avec la propiété datasource=DSClasse (le dataset précédent) + 1 Dataset DSSous_Classe avec le 2° combobox lié à ce dernier

et le tour est joué

Merci ++++ c bon!!
j'ai aussi rajouté ces quelques lignes pour exploiter cette solution....

Code :

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

1
2
3
4
5
6
7
8
9
procedure TCreationApp.DBLBoxClClick(Sender: TObject);
Var
VClass:String;
begin
DataModule3.QuerySClass.Close;
VClass:=DBLBoxCl.Text;
DataModule3.QuerySClass.Params[0].AsString := VClass;
DataModule3.QuerySClass.Active:=true;
end;

[SergioMaster]

j'ai aussi rajouté ces quelques lignes pour exploiter cette solution....

bizarre cela me semble inutile , mais ??? bon

[souminet]

bizarre cela me semble inutile , mais ??? bon

En fait, sans ces quelques lignes le DBLookUpComboBox restait inactif!!!!

grisé... donc j'ai opté pour un bricolage!!!

[SergioMaster]

Bien sur si le query n'est pas ouvert avant je comprends le grisé .
Dans mon 'Shéma' je sous entendait la table et le query ouvert 'en permanence'
(evenement oncreate ou onactivate) .

Non ce qui me semble 'bizarre' c'est le fait d'avoir a passer le paramètre

Code :

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

1
2
VClass:=DBLBoxCl.Text;
DataModule3.QuerySClass.Params[0].AsString := VClass;

en effet si

avec la propiété datasource=DSClasse (le dataset précédent) + 1 Dataset DSSous_Classe avec le 2° combobox lié à ce dernier

il n'y a aucune raison de le faire . La seule condition bien sur est que le paramêtre soit égal au nom du champ de la table