Discussion :

[rafikjka]

salut tout le monde
j'ai une table facture qui contient un champs de type date , sachant d'abord que j'utilise delphi 7 et paradox comme SGBD, je voulais faire un filtre à ma table selon seulement l'année de la date, j'ai utilisé pour cela un composant DateTimePicker
et j'ai mis sa propriété datemode en dmUpDown et sa propriété format affiche uniquement l'année. je voulais lorsque je clique sur mon datetimepicker , en Up ou en Down , il filtrera ma table en affichant seulement les factures de l'année désirée.
merci pour tout d'avance

[messahel]

Bonjour,
ajouter ce code dans l’évènement OnChange de DateTimePicker1:

Code :

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

1
2
3
4
5
6
7
 
with tableFacture do
    begin
    Filtered:=false;
    Filter:='[dateFacture]='+quotedstr(datetostr(DateTimePicker1.Date));
    Filtered:=true;
    end;

[SergioMaster]

c'est là où les filtres sur Dataset ont leurs limites je pense

à essayer

Code non testé :

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

1
2
3
4
5
6
7
8
9
10
var aa,mm,jj : Integer;
begin
Decodedate(Datetimepicker1.Date,aa,mm,jj)
with tableFacture do
    begin
    Filtered:=false;
    Filter:='EXTRACT(YEAR FROM DATEFACTURE)='+inttostr(aa);
    Filtered:=true;
    end;
end;

comme toujours cependant je recommanderais un TQuery plutôt qu'un TTable avec Filtre

Code SQL :

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

1
2
3
 
SELECT * FROM MATABLE
WHERE EXTRACT(YEAR FROM DATEFACTURE)=:AA

et un code du genre (toujours l'évènement onchange du datetimePicker)

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var aa,mm,jj : Integer;
begin
Decodedate(Datetimepicker1.Date,aa,mm,jj)
With QueryTableFacture do
  begin
    Active:=False;
    ParambyName('AA').asInteger:=aa;
   Active:=True;
  end;

[messahel]

Le code précédent filtre la date avec jour et mois

with tableFacture do
begin
Filtered:=false;
Filter:='[dateFacture]='+quotedstr(datetostr(DateTimePicker1.Date));
Filtered:=true;
end;

mais pour filtrer que l'année on doit prendre les dates entre début de l'année et la fin (01-01-yyyy et 31-12-yyyy)
modifier le format de la date et son séparateur au lancement du programme dans l'évènement OnCreate:

Code :

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

1
2
3
 
dateseparator:='-';
shortdateformat:='dd/mm/yyyy';

ajouter DateUtils dans USES où la fonction YearOF est définie

Code :

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

1
2
uses ........, DateUtils, ......;

dans l'évènement OnChange de DateTimePicker1:

Code :

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

1
2
3
4
5
6
7
 
with tableFacture do
    begin
    Filtered:=false;
    Filter:='[dateFacture]>='+quotedstr('01-01-' + inttostr(yearof(DateTimePicker1.Date)))+ 'and ' +'[dateFacture]<='+quotedstr('31-12-' + inttostr(yearof(DateTimePicker1.Date)));
    Filtered:=true;
    end;

[akli_agha]

J'aurai utilisé l'evenement OnFilterRecord comme ceci :

Code :

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

1
2
3
 
Accept := YearOf(DataSet.FieldByName('DATEFACTURE').AsDateTime) =
                    YearOf(DateTimePicker1.Date);

et dans l'evenement OnChange du TimePicker

Code :

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

1
2
 
  tableFacture.Refresh;

[chikh_karkar]

Code :

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

1
2
3
4
5
6
with tableFacture do
    begin
    Filtered:=false;
    Filter:='dateFacture=>01/01/'+quotedstr(datetostr(DateTimePicker1.Date)+'   AND [dateFacture]=<31/12/'+quotedstr(datetostr(DateTimePicker1.Date));
    Filtered:=true;
    end;

[Rayek]

Code :

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

1
2
3
4
5
6
with tableFacture do
    begin
    Filtered:=false;
    Filter:='dateFacture=>01/01/'+quotedstr(datetostr(DateTimePicker1.Date)+'   AND [dateFacture]=<31/12/'+quotedstr(datetostr(DateTimePicker1.Date));
    Filtered:=true;
    end;

Réponse déjà fournit plus haut.

Sinon simplement

Code :

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

1
2
3
4
5
6
7
 
with tableFacture do
    begin
    Filtered:=false;
    Filter:='Year(dateFacture)=' + YearOf(DateTimePicker1.Date);
    Filtered:=true;
    end;

Normalement la fonction Year (SQL 92) fonctionne dans les filtres