Discussion :

[lotfi.lahcene]

bjr,
Y a t il une fonction ou procedure en D7 (SGBD BDE) qui me renvoi le nmbre d'enregistrements trouvé dans une table suite à un filtre ?
sans passer par un:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
While not table.eof do
 
begin
code 
code
code
.
.
end;

car j'utilise un timer pour affiche en constance le nombre d'enregistrements trouvés suite à un filter...

[SergioMaster]

Bonjour,

je ne sais pas si Table.RecordCount ne fonctionnerai pas ? à vérifier

[lotfi.lahcene]

Merci SergioMaster
ça à fonctionné, mais par là une question me vient à la tete....
est ce que cela ne risque pas de faire ralentir le fonctionnement de l'application (surtout si la base se rempli avec le temps! quoi que le filtre ne risque pas de dépassé les 30 enregistrements "filtré" sur un ensemble de records croissant dans une fréquence de 30 enregistrements par jours) vu que le timer questionne la table chaque seconde...???
que me proposes tu ?

[NABIL74]

Merci SergioMaster
ça à fonctionné, mais par là une question me vient à la tete....
est ce que cela ne risque pas de faire ralentir le fonctionnement de l'application (surtout si la base se rempli avec le temps! quoi que le filtre ne risque pas de dépassé les 30 enregistrements "filtré" sur un ensemble de records croissant dans une fréquence de 30 enregistrements par jours) vu que le timer questionne la table chaque seconde...???
que me proposes tu ?

Un TTimer qui tourne à chaque seconde ?!! Quel intérêt?

Tu peux faire simple:

Code :

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

1
2
3
4
5
6
procedure TForm1.Table1sAfterScroll(DataSet: TDataSet);
begin

label1.caption:=Format('%d enregistrements lus',[Table1.RecordCount]);

end;

Pas besoin de faire un Timer.

[SergioMaster]

Bonjour,

je n'avais pas vu cette histoire de timer ! Quelle idée étrange.

Par contre, Nabil, je ne suis pas tout à fait sûr que l'évènement AfterScroll soit le meilleur choix: il se fait trop souvent !
Le mettre juste après les actions de Filtre me paraît largement suffisant

Code :

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

1
2
3
4
5
Filtered:=True;
label1.caption:=Format('%d enregistrements lus',[Table1.RecordCount]);
 
Filtered:=False;
label1.caption:=Format('%d enregistrements lus',[Table1.RecordCount]);

Mais, le mieux serait peut-être de le gérer avec l'évènement OnStateChange du DataSource associé (car je pense qu'il y en a un !)
il y a un état dsFilter qui pourrait peut être faire l'affaire (à tester)

[NABIL74]

Bonjour,

je n'avais pas vu cette histoire de timer ! Quelle idée étrange.

Par contre, Nabil, je ne suis pas tout à fait sûr que l'évènement AfterScroll soit le meilleur choix: il se fait trop souvent !
Le mettre juste après les actions de Filtre me paraît largement suffisant

Mais, le mieux serait peut-être de le gérer avec l'évènement OnStateChange du DataSource associé (car je pense qu'il y en a un !)
il y a un état dsFilter qui pourrait peut être faire l'affaire (à tester)

Bonsoir,

Oui Serge, le "OnStateChange " serait le mieux. Oui, il y en a un

[lotfi.lahcene]

l'idée du timer m'est venu vu les circonstances...
la table est filtré sur un champs appelé (Actif_s) Booleen et ce champ est appelé à changer lors du fonctionnement de l'application
et dans le panel je doit affiché le nombre d'enregistrements actifs c a d (Actif_s=true) en temps réel...