Discussion :

[Yepazix]

Hello,

J'ai une table paradox qui contient (entre autre) un champs de type A qui contient des dates au format J/MM/AAAA. Ce champs n'est pas indexé. (ca doit resté des strings).

Je voudrais que le programme puisse imprimer certains champs de tous les enregistrements entre telle et telle date.

Imaginons que j'ai dans ma table :

12/07/2003 theatre diner de con 20h30
19/07/2003 concert G.Javres 20h30
explo cycle
3/08/2003 theatre art 20h30
11/08/2003 conf politique 16h00

Je choisis d'imprimer du 15/07/2003 au 10/08/2003 et du coup le programme m'imprime :

19/07/2003 concert G.Javres 20h30
3/08/2003 theatre art 20h30

[JustMe]

Si tu essaye de convertir ta String en Date avec SQL

Code :

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

1
2
3
Select CAST(ChampsString AS DATE) as MaDate,.. From MaTable
Where CAST(ChampsString AS DATE) >= :DU and
Where CAST(ChampsString AS DATE) <= :AU

Ou bien tu peut utiliser l'événement fabuleux des tables : OnFilterRecord
qui a comme argument Accept de type Boolean
Ex:

Code :

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

1
2
Accept := (StrToDate(ChampsString) >= Du) and 
(StrToDate(ChampsString) >= Au);

où Du et au sont de type Date.

pour rafraichir tu met simplement
MaTable.Filter := False;
MaTable.Filter := True;
Mais cet événement et un peu lent avec les grandes quantités de données.

[Yepazix]

Je suis assez interessé par la solution on filterrecord y a t'il des tuto quelque part qui mettent en oeuvre cette technique ?

Je ne comprends pas la commande

Code :

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

1
2
Accept := (StrToDate(ChampsString) >= Du) and 
(StrToDate(ChampsString) >= Au);

En fait sur ma form j'ai une DBGrid et je voudrais que n'apparaissent plus dedans que les rec des dates située dans la période que je détermine, c'est en vue d'imprimer cette liste ensuite.

Jusqu'ici je faisais toujours des recherches sur 1 résultat en remplisant la case filter et en mettant filtered a true, mais la ca peut pas marcher...

[JustMe]

Accept est de type boolean

Code :

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

1
2
Accept := (StrToDate(ChampsString) >= Du) and 
(StrToDate(ChampsString) <= Au);

Veux dire que seul les enregistrements qui réponde à l'expression
(StrToDate(ChampsString) >= Du) et (StrToDate(ChampsString) <= Au)
vont apparaitre dans ta grille.

Dans ton cas qu'est ce que tu va faire c'est seulement une simple proposition :
Deux MaskEdit : MaskEdit1 et MaskEdit2 avec un masque de Date et un boutton devant
On rempli les deux Date dans les maskEdit et au click du boutton tu écris :
MaTable.Filtered := False;
MaTable.Filtered := True;
et dans l'événement OnFilterRecord de la table tu écris :

Code :

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

Accept := (StrToDate(MonChampsString) >= StrToDate(MaskEdit1.Text) and (StrToDate(MonChampsString) <= MaskEdit2.Text);

Tu as aussi un lien http://delphipage.free.fr/bdefiltres.html mais je trouve c'est maigre comme explication.

[Yepazix]

Je crois que je commence à comprendre.

Accept recoit une valeur qui lui dit si la date est supérieure ou egale à ce qui est dans maskedit1 et inférieure ou égale à ce qui est dans maskedit2

Et l'event onfilterrecord se base la dessu pour afficher ou pas les rec dans la grille.

C'est bien ca ?

[JustMe]

Exactement
A chaque fois qu'un enregistrement va s'afficher l'expression affectée à Accept est testée si l'enregistrement répond aux critères de l'expression il est affiché sinon il ne l'est pas.