Discussion :

[compdev]

Bonjour,

j'ai créé une fiche faisant lien à une table employés, et puisque il y a un champ date de naissance, je voudrais bien l'alimenter directement par un DateTimePicker afin d'éviter de saisir directement la date dans le champ.

Autrement dit, j'aime savoir comment faire pour relier mon champ date_de_naiss avec un DateTimePicker??

Merci

[Just-Soft]

Salut;

alors supposons que ton champ s'appelle Date_naissance (type date bien sûr) et sans trop rentrer dans les détails tu peux faire ça :

Code :

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

1
2
3
4
5
6
7
8
procedure buton1click(Sender : TObject)
begin
   try
      Table1.FieldByName('Date_Naissnace').AsDate := DataTimePicker1.Value;
   except
      // gestion d'une quelconque erreur
   end;
end;

j'ai aussi supposé que tu as un composant TTable relié à ta base de données et un bouton pour valider la date choisie.

Bonne chance.

[compdev]

Bonjour,

merci beaucoup pour la réponse.

Mais je crois que cette solution marche aussi pour un composant TCalendar?

@+

[NABIL74]

Bonjour,

merci beaucoup pour la réponse.

Mais je crois que cette solution marche aussi pour un composant TCalendar?

@+

salut,
compdev oui cette solution marche aussi pour un composant MonthCalendar.

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
.
Table1.FieldByName('Date_naissance).AsDateTime := MonthCalendar1.Date;
.
end;

a+
NABIL74

[compdev]

Bonjour NABIL74,

merci pour la réponse.

Je viens d'essayer la solution, mais je veux masquer le composant MonthCalendar et il ne sera visible que lorsque je clique sur le bouton de choix de date. Une fois, la date choisie, elle sera directement insérée dans le champ de saisie.

@+

[compdev]

Salut;

Code :

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

1
2
 
Table1.FieldByName('Date_Naissnace').AsDate := DataTimePicker1.Value;

Je m'excuse Just-Soft, il y a une petite erreur dans votre solution.

Voici l'instruction correcte

Table1.FieldByName('Date_Naissnace').AsDateTime := DataTimePicker1.Date;

@+

[Just-Soft]

j'avais fais ça sur le tas sans aucune garantie j'ai même pas de Delphi là où je suis vraiment navré.

Pour maquer un composant visuel tu as la propriétés Visible.

[compdev]

J'ai essayé de rendre MonthCalendar1 invisible (depuis l'inspecteur d'objet) puis dès qu'on clique sur le bouton de choix, il serait visible pour permettre de choisir une date.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TFFACTURES.BitBtn7Click(Sender: TObject);
begin
Try
//Le composant MonthCalendar1 est invisible par défaut
MonthCalendar1.Visible := True;
Table1.Edit;
Table1.FieldByName('Date').AsDateTime := MonthCalendar1.Date;
MonthCalendar1.Visible := False;
Except
//Traitement d'exception
end;
end;

Mais cette solution n'a pas voulu marcher et j'ai remarqué que l'instruction MonthCalendar1.Visible := True; ne réaffiche pas le composant !!!

Y a-t-il un pépin dans mon code ?

@+

[Just-Soft]

voilà une petite astuce :

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
18
19
20
21
procedure TForm1.FormCreate(Sender: TObject);
begin
  MonthCalendar1.Visible := False;
end;
 
procedure TFFACTURES.BitBtn7Click(Sender: TObject);
begin
  Try
  //Le composant MonthCalendar1 est invisible par défaut 
  MonthCalendar1.Visible := True;
  Table1.Edit;
  Table1.FieldByName('Date').AsDateTime := MonthCalendar1.Date;
  Except
  //Traitement d'exception
  end;
end;
 
procedure TForm1.MonthCalendar1DblClick(Sender: TObject);
begin
  MonthCalendar1.Visible := False;
end;

Bonne chance.

[compdev]

Merci beaucoup Just-Soft, votre solution marche à merveille ! mais avec une petite modification.

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
18
19
20
21
 
rocedure TFFACTURES.BitBtn7Click(Sender: TObject);
begin
Try
MonthCalendar1.Visible := True;
Except
//Traitement d'exception
end;
end;
 
procedure TFFACTURES.FormShow(Sender: TObject);
begin
MonthCalendar1.Visible := False;
end;
 
procedure TFFACTURES.MonthCalendar1DblClick(Sender: TObject);
begin
Table1.Edit;
Table1.FieldByName('Date').AsDateTime := MonthCalendar1.Date;
MonthCalendar1.Visible := False;
end;

@+