Discussion :

[navyg]

Bonjour ...ou plutôt Bonsoir,

Il y a peut-être une solution toute bête que je n'ai pas trouvée ...
Mon appli est reliée à une base mariadb.
Lorsque j'installe des Tdbedit pour saisir et afficher des dates, toutes les dates qui ne sont pas saisies, et il peut y en avoir, sont affichées en 30/12/1899, qui, si j'ai bien compris, est la valeur 0 ou null des dates en mysql/mariadb

Y a t il une solution ou mieux, un paramétrage ou une propriété, pour que les tdbedit restent vides lorsqu'aucune date est saisie ?

J'ai bien trouvé une solution, mais qui est très lourde et qui doit être recommencée à chaque étape, qui consiste à passer en revue tous les composants de la form et si le champ datasource est un champ de type tdate, je l'efface ... mais c'est très lourd à gérer.

Il doit y avoir plus simple mais je n'ai pas trouvé.

Merci d'avance pour votre aide.

[SergioMaster]

Bonjour,

voilà, entre autres, où passer par une requête rend la vie plus facile
par exemple :

Code SQL :

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

SELECT COALESCE(purchase_date,CURRENT_DATE()) DATEACHAT FROM purchases

donnera la date du jour sur le serveur BDD

Sinon, il faut un peu plus de détails. J'ai déduit qu'il s'agissait d'un programme VCL (à cause du DBEdit) mais qu'en est-il :

• du type de colonne contenant la date, et de sa valeur par défaut indiquée ie. une définition de colonne 'purchase_date` DATE NULL DEFAULT curdate()
• du composant utilisé pour accéder aux données Firedac, ADO .. ?
• Quelque soit le composant on peut souvent définir les champs et la définition des champs permet souvent de définir pour chaque le format d'affichage (DisplayFormat) et sa valeur par défaut (DefaultExpression dans le cas de Firedac) fort pratique en cas d'insertion de lignes

[navyg]

J'ai tout un tas de date dans une fiche client pour des validités sur différents items

finalement j'ai trouvé une solution (vers 3h30 !) en mettant dans un événement gettext sur tous les champs considérés du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TableChampDateGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
//=0 pour dsedit et isnull pour dsinsert
if (Sender.value=0) or (sender.IsNull) then
   Text := ''
else
   Text := FormatDateTime('dd/mm/yyyy', Sender.Value);
end;

et pour l'instant ça fonctionne ...

[Paul TOTH]

j'inverserai le test avec IsNull avant de lire la valeur (circuit court, la valeur ne sera pas calculée si le champ est nul), et pour les dates j'ai pris l'habitude de tester "AsDateTime < 1" car les TDateTime sont des double, et avec les virgules flottantes il faut toujours se méfier des tests d'égalité car le nombre est toujours une approximation et pas une valeur certaine.

[navyg]

Merci pour ces excellents conseils de bon sens
Je vais corriger de ce pas.
Mais en principe un TDate n'a pas de partie décimale ?
Cependant par sécurité je vais mettre inférieur à 1
Merci encore