Date par défaut pour nouvel enregistrement

Résolu
snoopline
Messages postés
29
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
21 septembre 2008
- 22 oct. 2004 à 18:38
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
- 25 oct. 2004 à 19:53
Bonjour,

Je souhaiterais que la date du jour s'affiche par défaut dans un TDBEdit lors le l'activation du bouton 'Insert record' d'un TDBnavigator
J'utilise Paradox7.

merci, Snoopline

3 réponses

cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
31
23 oct. 2004 à 11:39
Dans l'évènement OnNewRecord, il suffit de mettre de renseigner le champ de l'ensemble de données qui correspondant au contrôle visuel avec la date courante :
procedure TForm1.Table1NewRecord(Sender: TObjet);
begin
  Table1.FieldByName('MonChampDate').AsDateTime := now;
end;

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
May Delphi be with you
3
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
31
25 oct. 2004 à 19:53
L'appel des méthodes Insert et Append déclenche l'évènement OnNewRecord...CQFD. :)
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
May Delphi be with you
3
snoopline
Messages postés
29
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
21 septembre 2008

25 oct. 2004 à 15:24
Merci,

J'ai un peu modifié le code pour :

procedure TForm1.Button1Click(Sender: TObject);
begin
Tb_note.Insert;
Tb_note.FieldByName('Date').AsDateTime := now;
end;

Snoopline
0