Discussion :

[quattro]

Bonjour
Je suis nouveau dans le forum, je vais vais souvent sur le site "Developpez.com" et là je me suis inscrit car je reprend un peu d'activité avec "Delphi".J'espère obtenir des réponses et pouvoir aussi aider(cela va etre dur).
Voila, ma question est :
Je voudrais faire une recherche de 'date multiple' avec le composant "MonthCalendar".
J'ai mis a 'true' la propriété "Multiselect" du composant "MonthCalendar".
Ensuite j'ai ecrit se bout de code :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.MonthCalendar1Click(Sender: TObject); 
begin 
table1.Active:=false; 
table1.Filter:='Deb='''+monthcalendar1+''''; 
table1.Filtered:=true; 
table1.Active:=true; 
end;

et a partir de là, je lancerai l'appli, et quand je sélectionne plusieurs date avec la souris directement sur le "monthcalendar", cela me les affiche dans mon dbgrid.
Mais le soucis est que cela bloque à ma 4eme ligne du code ci-dessus.......???

[SergioMaster]

Bonjour, Bienvenue en tant que membre

pour ce qui est des filtres (filter:=) je suis contre et préfère nettement une bonne query à une table (sauf peut être avec Paradox)

pour moi , de toutes façons ce code

Code :

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

table1.Filter:='Deb='''+monthcalendar1+'''';

(tu noteras que ce dernier est "balisé" (tu sélectionne le code sur ton message et utilises le bouton [#])
est certainement faux , tu ajoutes a une string ce qui est un composant !

je ne savais même pas que TMonthCalendar avait une propriété multiselect
après avoir fouiller un peu il faut utiliser Date et EndDate donc cela donne quelque chose comme ça
(ne connaissant pas le BDD , les filtres possibles et le format des dates dans la BDD)

Code :

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

1
2
 
table1.Filter:=format('deb>=%s and deb<=%s',[QuotedStr(FormatDateTime('mm.dd.yyyy',MonthCalendar1.Date)),QuotedStr(FormatDateTime('mm.dd.yyyy',MonthCalendar1.EndDate))]);

je préfère nettement une query paramétrée du genre

Code SQL :

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

SELECT * FROM LATABLE WHERE LADATE BETWEEN :D1 AND :D2

et donc un code du style

Code :

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

1
2
3
4
Query1.Active:=False;
Query1.ParamByName('D1').asDateTime:=MontCalendar1.Date;
Query1.ParamByName('D2').asDateTime:=MontCalendar1.EndDate;
Query1.Active:=True

Reste que l’événement on clic du TmonthCalendar me parait douteux pour exécuter ce code , il vaut mieux passer par un bouton supplémentaire car c'est toute la zone du TmonthCalendar qui est réactive au Onclic , pas seulement les dates ! a moins de mémoriser date début date fin pour ne pas faire des Close/Open trop fréquents

[quattro]

Merci pour cette reponse, j'ai donc essayé avec un Query et un bouton a part, voici le code :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Query1.Active:=False;
Query1.ParamByName('Deb').asDateTime:=MonthCalendar1.Date;
Query1.ParamByName('Fin').asDateTime:=MonthCalendar1.EndDate;
Query1.Active:=True;
end;

Quand je lance l'appli, et que je selectionne qqes dates sur MonthCalendar, et ensuite click sur le bouton, il ne se passe rien dans le Dbgrid.il n'y a pas de recherche.

[quattro]

autant pour moi c'est bon....je continue