Discussion :

[aekskype]

j'aimerais bien trouver une sollution a ce defit...
j'ai une fiche qui contient une DbGrid reliée a une table EMPLOYE
ce que j'aimerais avoir c le faite de cocher la CASE Employe du DBRadioGroup
la Dbgrid Affiche Seleument les Employes et non pas les ENSEIGNANTS avec,
anisi si je coche la case TOUT la DbGrid Affiche Tout le Contenu de La table

Sachant que le Items EMPLOYE et ENSEIGNANT sont dans le Champ QUALITE de la table Employe

[Just-Soft]

j'aimerais bien trouver une sollution a ce defit...
j'ai une fiche qui contient une DbGrid reliée a une table EMPLOYE
ce que j'aimerais avoir c le faite de cocher la CASE Employe du DBRadioGroup
la Dbgrid Affiche Seleument les Employes et non pas les ENSEIGNANTS avec,
anisi si je coche la case TOUT la DbGrid Affiche Tout le Contenu de La table

Sachant que le Items EMPLOYE et ENSEIGNANT sont dans le Champ QUALITE de la table Employe

Salut;

étant donné l'énoncé c'est d'un filtre qu'il s'agit pas d'un tri . et pour se faire, tu as deux solutions:

1. Traitement SQL :

   Code :

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

   1
   2
   3
   4
   5
   chaine := 'Select * From taTable where tonchamp =: valDBRadioGroup';
   TonQuery.Cleat;
   TonQuery.SQL := chaine;
   TonQuery.ParamByName('valDBRadioGroup') := DBRadioGroup.items;
   TonQuery.Open;

2. Traitement avec composant table :

   Code :

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

   1
   2
   Table1.Filter := tonChamp + DBRadioGroup.items;
   Table1.Filtered := True;

pour le filtre faut vérifier la syntaxe, j'ai jamais réussi à le faire du premier coup

[aekskype]

j'ai essayer avec le filtre de la table ca marche pas
meme avec le query pareil
le faite de cocher un items du DbRadioGroup c Quelle Proprieté
j'ai mis les code que vous m'avez proposer sur l'evenement OnChange du DbRadioGroup

[Just-Soft]

j'ai essayer avec le filtre de la table ca marche pas
meme avec le query pareil
le faite de cocher un items du DbRadioGroup c Quelle Proprieté
j'ai mis les code que vous m'avez proposer sur l'evenement OnChange du DbRadioGroup

ok ma proposition était de te donner deux solutions mais là je dois savoir qu'utilise-tu comme composants d'accès à la BD et avec quel BD travaille-tu ? en même temps poste ton code qu'on travail dessus.

[Cl@udius]

Salut

Je te propose ceci avec l'évènement OnFilterRecord de la table:

Sur le OnClick du TRadioGroup:

Code :

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

1
2
3
4
5
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  TableEmploye.Filtered := TRadioGroup(Sender).ItemIndex = 0;
  TableEmploye.First;
end;

Puis sur le OnFilterRecord de la table Employé:

Code :

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

1
2
3
4
procedure TForm1.TableEmployeFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := TableEmploye.FieldByName('QUALITE').AsString = 'EMPLOYE';
end;

@+ Claudius

[aekskype]

le compilateur arrete sur cette ligne
----

Code :

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

Table_emp.Filtered := dbRadioGroup1(Sender).ItemIndex = 0;

la valeur affectée a result n'est jamis utilisé

[Just-Soft]

le compilateur arrete sur cette ligne
----

Code :

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

Table_emp.Filtered := dbRadioGroup1(Sender).ItemIndex = 0;

la valeur affectée a result n'est jamis utilisé

mais c'est pas une erreur, tu peux l'ignorer. maintenant est-ce le code donne résultat ?

[Cl@udius]

la valeur affectée a result n'est jamis utilisé

Sans un extrait de code, difficile d'apporter une réponse.

@+

[aekskype]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm_liste_emp.DBRadioGroup1Click(Sender: TObject);
begin
Table_emp.Filtered := dbRadioGroup1(Sender).ItemIndex = 0;
Table_emp.First;
 
end;
 
procedure TForm_liste_emp.Table_empFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
 Accept := Table_emp.FieldByName('QUALITE').AsString = 'EMPLOYE';
end;

[Cl@udius]

A priori l'avertissement sur le result n'a rien à voir avec ce code.

Je vois que tu utilises un TDBRadioGroup pour effectuer la filtration/non filtration de la table. Pourquoi ce choix ? Un TRadioGroup suffit !

@+

[aekskype]

le curseur clignante sur (Sender)

[Cl@udius]

Essaye ceci:

Code :

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

Table_emp.Filtered := TDBRadioGroup(Sender).ItemIndex = 0;

même si en l'occurrence je te déconseille vraiment l'utilisation d'un composant orienté données.

@+

[aekskype]

j'ai deja essaye ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm_liste_emp.DBRadioGroup1Click(Sender: TObject);
begin
Table_emp.Filtered := dbRadioGroup1(Sender).ItemIndex = 0;
Table_emp.First;
 
end;
 
procedure TForm_liste_emp.Table_empFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
 Accept := Table_emp.FieldByName('QUALITE').AsString = 'EMPLOYE';
end;

j'ai modifier ton code sur mon dbradiogroup bien sur
et ca marche pas

j'ai effacer le dbradiogroup maintenant et j'ai essayer par la suite Radiogroup mais pareil

[Just-Soft]

j'ai deja essaye ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm_liste_emp.DBRadioGroup1Click(Sender: TObject);
begin
Table_emp.Filtered := dbRadioGroup1(Sender).ItemIndex = 0;
Table_emp.First;
 
end;
 
procedure TForm_liste_emp.Table_empFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
 Accept := Table_emp.FieldByName('QUALITE').AsString = 'EMPLOYE';
end;

j'ai modifier ton code sur mon dbradiogroup bien sur
et ca marche pas

j'ai effacer le dbradiogroup maintenant et j'ai essayer par la suite Radiogroup mais pareil

qu'est ce qui ne marche pas ?

[sam83]

Bonsoir tout le monde
voilà je vous propose ça

Code :

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

1
2
3
4
5
if radiogroup1.ItemIndex =0 then
  begin
  Table_emp.Filter :=' QUALITE = employé';
  Table_emp.Filtered :=true
  end;

[edam]

mais là je dois savoir qu'utilise-tu comme composants d'accès à la BD et avec quel BD travaille-tu ? en même temps poste ton code qu'on travail dessus.

+1