Discussion :

[meziane00]

salut tous le monde , je dévlope une application sous delphi 2009 , j'ai 3 db combobx , le premier dbcombobox qui correspond a une proprité de la table catégorie le deuxieme marque et le troisieme model mon probleme est le suivant comment faire si je selectione dans le premier dbcombobox une catégorie je veut avoir dans le deuxieme uniquement les marques qui coresponde au catégorie selectioner dans 1er dbcombobox ainsi que pour le 2eme dbcombobox si je selctione un iteme le 3eme dbcombobox me donne uniquement les propriété qui corresponde au 1er dbcombobox (catégorie)et au 2eme dbcombobox(marque)

[Tardiff Jean-François]

Bonjour,

Personnellement j'utiliserai l'événement Onchange des TDBCombobox.

Par exemple pour la 1° Combobox

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
 
 
procedure Myform.TComboBox1.ComboBox1Onchange(Sender: TObject);
begin
  Combobox2.Onchange := nil;
  try
   If ComboBox1.Text = 'Valeur1' then begin
     --> Remplir la combobox2 et m'est le text à une valeur par défaut si nécessaire
   end else begin If ComboBox1.Text = Valeur2' then begin
     --> Remplir la combobox2 et m'est le text à une valeur par défaut si nécessaire
   end ele begin
     --> Remplir la combobox2 et m'est le text à une valeur par défaut si nécessaire
 
   end;
    ComboBox2Onchange(ComboBox2);
  finally 
    Combobox2.Onchange := ComboBox2Onchange;
  end;
end;

[Just-Soft]

Salut;

cela se limite à définir une relation maitre/détail/détail qui équivaut à maitre/détail et son détail est lui maitre dans la seconde relation. donc deux relation maitre/détail dont la seconde est imbriquée. de ce point de vue, la solution est comme suite :

Table1 : id_Table1, autres attributs
Table2 : id_Table2, id_Table1, autres attributs
Table3 : id_Table3, id_Table2, autres attributs

si tu utilise les composants Table tu n'as qu'à renseigner les propriétés MasterSource et MasterField des Tables 2 et 3.

Table2 : MasterSource : DataSource1
Table2 : MasterField : id_Table1-->id_Table1

Table2 : MasterSource : DataSource2
Table2 : MasterField : id_Table2-->id_Table2

si tu utilise SQL alors faut faire un Select imbriqué.

avec ça je crois que tu aura le résultat escompté.

Bonne chance.

[meziane00]

merci pour votre réponse mais les dbcombobx se trouve sur un autre form mais la recherche pour remplir les dbcombobx se trouve sur une seul table

[Just-Soft]

Re;

les forme sont des objets donc faut précéder le DBComboxxxx par le nom de son form exemple : Form1.DBComboxxx.SetFocus.

[Tardiff Jean-François]

Bonjour,

Bon je suppose que vous avez une forme regroupant tous les accès à la base de donnée.

Dans cette forme vous pouvez ajouter une fonction en public renvoyant les données dont vous avez besoins.

Dans l'exemple suivant vous avez un TSQL donnant accés a la base de donnée et une fonction renvoyant les données formaté pour êtres mis dans le Items de votre ComboBox (Mycombobox.Items.Text := Données_si_Condition1(Value)

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
 
Function TMyDBForm.Données_si_Condition1(Value: string) : String;
var
  Reponse: TStringList;
begin
  Reponse := TStringList.create;
  try
    If SQLTemp.Open then
      SQLTmp.Close;
    SQLTmp.Sql.Text := 'Select champ1 where champ2 = ' quotedStr(Value);
    SQLTmp.Open;
    SQLTmp.First;
    While not SQLTmp.Eof do begin
      Reponse.add(SqlTmp.fields[0].AsString);
      SQLTmp.Next;
   end; 
    Result := Reponse.text;
  finally
  Reponse.free;
  end;
end;

D'un point de vue plus général, il n'est pas très pratique de mettre les accès au Base de donnée dans une forme.

Les datamodules ont été prévus pour cela.
Les datamodules sont un composant identique à une forme sur lequel on ne peut déposer que des composants non visuelle (boite de dialogue, accès aux base de donnée etc.) car elle ne sont pas associé a un fenêtre de donnée.
Les datamodules sont conçût pour regrouper des fonctions (comme l'accès aux donnée, la mise en forme des données leurs sauvegarde et récupération etc.) dans un code unique, pouvant être accessible à toutes les formes ou units.
Vous pouvez faire la même chose a partir de votre forme contenant votre TTable, mais vous risquer rapidement d'avoir des problèmes d'appels récursif.

Bon Wekk-end de paque