comment faire une verification sur une date

Version imprimable

09/01/2007, 20h15
alexF

comment faire une verification sur une date

Bonjour,
Je realise un programme dans lequel je rentres une date dans une DBEdit dont la valeur est renvoyee dans une base de donnees (dans un champ de type date), et evidement si je rentre une mauvaise date (du texte ou n'importe quoi qui n'est pas du style dd/mm/yyyy, le programme plante.
j'ai essayer de rechercher sur le net, mais je ne trouve rien :? 8O

je suppose que le code doit etre quele chose du genre

Citation:

if DBEdit1.Text <> ???? je ne sais pas comment exprimer ???
then showmessage('mauvais format')
else ??ok pour l'insertion dans la bd...????

ma question doit etre assez bete, mais je suis tres debutant :oops:
donc si quenlq'un peut m aider ou me dire ou trouver un exemple, je le remercie d'avance :) ;)
09/01/2007, 20h38
slimjoe

Cherche du côté de TryStrToDate.
09/01/2007, 21h32
Gaadek

Sinon, pourquoi ne pas utiliser le composant TDateTimePicker?
09/01/2007, 22h04
slimjoe

Citation:

Envoyé par Gaadek

Sinon, pourquoi ne pas utiliser le composant TDateTimePicker?

+1
:king:
09/01/2007, 22h08
alexF

merci pour les info je vais tester ca dés demain :D
10/01/2007, 10h46
alexF

1 pièce(s) jointe(s)

je vais utiliser DateTimePicker
mais comment faire pour renvoyer la date dans une DBEdit ?

j'ai essaye

Citation:

procedure TForm2.DateTimePicker1Change(Sender: TObject);
begin
Form2.Tbl_PatientsDdn.Value := form2.DateTimePicker1.DateTime;
end;

pour inserer la valeur dans ma base de donnee, mais cela me met le message d erreurPièce jointe 8443

quelqu'un peut il m'expliquer ?
merci davance

Salut

Tu as ce message car ta table (ou requête) n'est pas en mode édition.

Code:

1
2
3
4
5
6
7
 
procedure TForm2.DateTimePicker1Change(Sender: TObject);
begin
  if not (Form2.Tbl_PatientsDdn.State in [dsEdit, dsInsert] then
    Form2.Tbl_PatientsDdn.Edit;
  Form2.Tbl_PatientsDdn.Value := form2.DateTimePicker1.DateTime;
end;

@+ Claudius

10/01/2007, 11h15
e-ric

Salut

Si mes souvenirs sont bons, il faut surcharger l'événement OnValidate de l'objet DBEdit. Vérifie à l'aide de F1, je ne peux pas faire de test car je n'ai pas Delphi sur mon poste de travail.

L'emploi du composant TDateTimePicker interdit la connexion à une source de données, mais tu peux initialiser la valeur du composant DateTimePicker en surchargeant l'événement OnDataChange du composant TDataSource. Dans l'autre sens, ce doit l'événement OnChnage du DateTimePicker mais atention aux appels récursifs : appel implicite à l'évt OnDataChange du composant DataSource à l'affectation du champ de base de données.

Si cette solution te semble acceptable, tiens-moi au courant. Fais des tests.

Cdlt

e-ric
10/01/2007, 11h45
Rayek

Plus simple encore, dans la JVCL il y a le composant TJvDBDateEdit qui permet de connecter le composant directement au composant table et de faire comme avec un TDateTimePicker
10/01/2007, 13h44
e-ric

Citation:

Envoyé par Malatar

Plus simple encore, dans la JVCL il y a le composant TJvDBDateEdit qui permet de connecter le composant directement au composant table et de faire comme avec un TDateTimePicker

Dans ce cas...

cdlt

e-ric
10/01/2007, 15h07
alexF

JVCL ???:roll:
je ne vois pas du tout ce que c'est...
je peux trouver ca ou ?
10/01/2007, 15h12
Rayek

Developpez ne se limite pas qu'au forum :P

http://delphi.developpez.com/freewares/