Discussion :

[Zizou7]

J'ai une requette parametrée qui me permet d'afficher par date les situations de plusieurs tables(par exemple 10/12/2008) et j'aimerais savoir comment on peut contrôler la saisie des mois de février qui peut avoir 28 ou 29 jours? ou les autres mois qui sont soient 30 ou 31 jours pour ne pas que la date saisie soit superieure à la date réelle c'est-à-dire au de saisir 30/3/2005 il saisit 31/3/2005.
Je vous remerci par avance.
Zizou7.

[ShaiLeTroll]

IsValidDate ? dans DateUtils.pas
TryStrToDate ?
TryEncodeDate ?

[edam]

voir les composant DateTimePicker (palette win32), ou DateEdit et DBDateEdit (composant RX)
il y on a d'autre dans jvcl

[Zizou7]

Pouvez vous m'expliquer vos differentes idées?
Merci.

[Cl@udius]

Pouvez vous m'expliquer vos differentes idées?
Merci.

IsValidDate ? dans DateUtils.pas
TryStrToDate ?
TryEncodeDate ?

Ce sont des fonctions.
pour plus d'infos.

voir les composant DateTimePicker (palette win32), ou DateEdit et DBDateEdit (composant RX)
il y on a d'autre dans jvcl

Ce sont des composants.
pour plus d'infos.

Il serait souhaitable que tu fasses un minimum de recherche/documentation.

[Zizou7]

Monsieur Shaile trol, pouvez vous me donné un exemple sur l'utilisation de ces fonctions ci-dessous?
IsValidDate ? dans DateUtils.pas
TryStrToDate ?
TryEncodeDate ?


Voici un exemple de requette parametrée que j'utilise pour recuperer la date:

Code :

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

1
2
3
base.Querydatep.Params.ParamValues['ddatemin']:=strtoDateTime(edit1.Text);
base.Querydatep.Params.ParamValues['ddatemax']:=strtoDateTime(edit2.Text);
base.Querydatep.Active:=True;

A travers cette requette par exemple,je veux contrôler la saisie des differentes dates.
Merci par avance.
Zizou7.

[Cl@udius]

Décidément tu ne fais pas beaucoup d'effort.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  DateMini, DateMaxi: TDateTime;
begin
  if TryStrToDate(Edit1.Text, DateMini) then
  begin
    if TryStrToDate(Edit2.Text, DateMaxi) then
    begin
      with base.Querydatep, Params do
      begin
        ParamValues['ddatemin'] := DateMini;
        ParamValues['ddatemax'] := DateMaxi;
        Active:=True;
    else
      ShowMessage('Date maxi incorrecte !');
  end
  else
    ShowMessage('Date mini incorrecte !');

[ShaiLeTroll]

C'est vrai un TDateTimePicker c'est mieux qu'un Edit pour saisir une Date, cela fourni en plus un calendrier ...

Code :

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

1
2
3
4
5
6
7
8
9
try
  base.Querydatep.ParamByName('ddatemin').AsDateTime := StrtoDateTime(edit1.Text);
except
  on E: EConvertError do
  begin  
    ShowMessage('Mince Alors la Date "ddatemin" c''est pas Bon !');
    Exit;
  end;
end;

Tu as utilisé la Touche
C'est un vrai conseil !
Il y a tout ce qu'il faut pour comprendre comment utiliser ces fonctions, un exemple pour des fonctions si basiques n'est pas utile, ou alors tu veux ne faire aucun effort et cela nuira à la santé du vrai programmeur qui devra reprendre ton code

[Zizou7]

merci de vos differentes interventions,mais je viens de faire une requette avec datetimepicker mais il ne permet pas d'afficher le contenu de ma requette sinon que les titres des colonnes de la requtte.
Voici la requette en qustion:

Code :

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

1
2
3
base.Qjour.Active:=False;
base.Qjour.Params.ParamValues['ddate']:=DateTimepicker1.DateFormat;
base.Qjour.Active:=True;

Pouvez vous m'aider à corriger la requette?
Merci par avance.
Zizoui7.

[Cl@udius]

Code :

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

base.Qjour.Params.ParamValues['ddate']:=DateTimepicker1.Date;

et non DateFormat qui désigne le format d'affichage de la date.

Je renouvelle mon conseil

[Zizou7]

Merci de votre intervention.
Je voie aussi que après la selection dans le DateTimePicker,le resultat n'apparaît toujours pas(ne s'affiche toujours pas).
Voici le code:

Code :

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

1
2
3
4
5
base.Qjour.Active:=False;
//base.Qjour.Params.ParamValues['ddate']:=strtodate(Edit1.Text);
base.Qjour.Params.ParamValues['ddate']:=DateTimepicker1.Date;
base.Qjour.Active:=True
end;

Si c'est avec un edit le resultat apparaît,puis que j'ai besoin d'un contrôle raison pour laqulle je veux faire avec un DateTimePicker sinon j'allais utilisé un edit. Au niveau de dateTimePicker,on ne saisie pas la date mais plutôt on la selectionne c'est ce qui peut empêcher de saisir une date superieure au nombre de jour du mois. Mon problème est que si le resultat pouvait apparaître me fairait plaisir.
Merci par avance.
Zizou7.

[Cl@udius]

La propriété Date du DateTimePicker renvoie un TDateTime, c'est-à-dire une date et une heure.

Si la valeur du paramètre ne doit pas contenir d'heure, il suffit de fixer la propriété Time du DateTimePicker à '00:00:00'. Ainsi seule la date sera transmise au paramètre.

@+