Problème avec le DateTimePicker1 et les valeurs de types Monétaire !

**menoulette** · 08/10/2013, 11h41

Bonjour à vous tous je développe une application et je bloque sur deux erreurs j'explique :

j'ai deux table une nommée BG(Date_debut ,Dep_total,Rev_Total) Dep_total et Rev_total sont de type monétaire .

et une deuxième table nommée BudgetG(code_sec,date_BP ,Total_dep,Total_rev) Total_dep,Total_rev sont aussi de type monétaire ;

sur ma form delphi j'ai ajouté le composant DateTimePicker1 pour que l'utilisateur pourra sélectionner la date et des edit de text pour la saisie des montants des dépenses et des revenus ; et le bouton ajouter pour l'insertion dans les deux tables précédentes .
Mon problème est que :
1-je n'arrive pas à trouver une fonction de conversion des texte à un type monétaire sur delphi.
2-lorsque je clique sur ajouter le programme ajoute des valeurs fausses au niveau de l'année je trouve cette date (19-06-1894) ?!!! quelqu'un à une idée sur ces problèmes merci d'avance!!
cordialement

**Rayek** · 08/10/2013, 11h44

pour le 1 : StrToCurr

**menoulette** · 08/10/2013, 11h51

je l'ai déjà essayé et ça marche sauf que sur la DB je trouves des (#######) c'est normal !!

**Rayek** · 08/10/2013, 15h37

Tu les vois comment ces #####, via l'éditeur SQL de ta base de données ou bien via ton logiciel ?

Merci de préciser :
- La version de delphi,
- La base de données que tu utilises
- Le type du champs (Float, ufloat, etc ...)

**SergioMaster** · 09/10/2013, 08h44

Bonjour,

je plussoie Rayek sur les demandes de précisions et répond au point 2

(19-06-1894) = valeur nulle il suffit d'initialiser la date au moment du insert par exemple par l'event OnNewRecord

mais ceci dépend encore une fois des précisons non fournies

Quant au point 1 , utiliser un maskedit en lieu et place d'un Edit pourrait être intéressant , sinon , à savoir , il existe pas mal de composants additionnels qui permettrait d'avoir un Edit plus spécialisé , je pense par exemple a la JVCL

**menoulette** · 09/10/2013, 09h22

Bonjour et merci pour vos réponses :

concernant la version delphi j'utilise Delphi7 je suis une débutante et c'est la première fois que je programme avec delphi.
,on SGBD est bien access et les ####### apparaissent quand j'essaie de vérifier les valeur ajoutées sur le SGBD le types des champs des eux tables sont les suivants
BG(Date_debut ,Dep_total,Rev_Total) Dep_total et Rev_total sont de type monétaire date_debut est de type DATE/heur

BudgetG(code_sec,date_BP ,Total_dep,Total_rev) Total_dep,Total_rev sont de type monétaire , date_BP => Date/heur , code_sec de type text

concernant votre réponse SergioMaster je n'ai pas initialisé le datetimepicker1 parce que lorsque l'utilisateur sélection une date le datetimepicker deverait être initialisé à cette dernière et c'est cette date qui devrait être ajoutée à , ma table

je crois que je vais enlever ce datetimepicker et je le remplace par des combobox pour que l'utilisateur pourrait sélectionner la date qu'il désire !!

!!
voici la partie du code d'ajout

merci d'avance

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
 
procedure Tfiche_BP.SpeedButton8Click(Sender: TObject);
begin
 
if (trim(Edit1.text)<>'')and( trim(Edit2.text)<>'')and (trim(Edit3.Text)<>'')and (trim(Edit8.Text)<>'')
and (trim(Edit9.Text)<>'')and (trim(Edit10.Text)<>'') then
begin
 
       if (StrToCurr(edit3.Text)+StrTocurr(edit9.Text)> StrToCurr(edit2.text)) then
       Begin
       MessageDlg('ÎØÃ Ýí ãÌãæÚ äÝÞÇÊ ÞÓã ÇáÊÓííÑ æ ÇáÊÌåíÒ æ ÇáãÌãæÚ ÇáÅÌãÇáí ÊÃßÏ ãä ÇáãÚØíÇÊ',mtError,[mbCancel],0) ;
 
       end
       else
       begin
 
    test.Close;
    test.Parameters[0].Value:=DateToStr(DateTimePicker1.Date);
    test.Parameters[1].Value:=StrToCurr(edit1.Text);
    test.Parameters[2].Value:=StrToCurr(edit2.Text);
    test.Open();
    ////////////////////
 
    test2.Close;
    test2.Parameters[0].Value:=edit11.Text;
    test2.Parameters[1].Value:=DateToStr(DateTimePicker1.Date);
    test2.Parameters[2].Value:=StrToCurr(edit3.Text);
    test2.Parameters[3].Value:=StrToCurr(edit8.Text);
    test2.Open();
 
 
    //////////////////////////
     test3.Close;
    test3.Parameters[0].Value:=edit12.Text;
    test3.Parameters[1].Value:=DateToStr(DateTimePicker1.Date);
    test3.Parameters[2].Value:=StrToCurr(edit9.Text);
    test3.Parameters[3].Value:=StrToCurr(edit10.Text);
    test3.Open();
 
 
  if(not test.IsEmpty)and (not test2.IsEmpty)and(not test3.IsEmpty) then
    begin
      MessageDlg('áÞÏ ÞãÊ ÈÅÖÇÝÉ ãíÒÇäíÉ ÓÇÈÞÇ áÇ íãßäß ÅÖÇÝÉ ãíÒÇäíÉ ÃÎÑì áåÐÇ ÇáÚÇã',mtError,[mbCancel],0);
      edit1.Clear  ;  edit2.Clear; edit3.Clear; edit8.Clear; edit9.Clear; edit10.Clear;
    end
    else
    begin
     if MessageDlg('åá ÃäÊ ãÊÃßÏ ãä ÅÖÇÝÉ ÇáãÚáæãÇÊ ¿',mtConfirmation,[mbYes,mbNo],0)=mrYes then
     begin
        ajoutBG.sql.clear;
        ajoutBG.sql.add('Insert into BG(Date_debut,Rev_total,Dep_total)values('+DateToStr(DateTimePicker1.Date)+','+(edit1.Text)+','+(edit2.text)+' ) ');
        ajoutBG.ExecSQL;
        ajoutBG.Close;
         ///////////
 
         ajout.sql.clear;
        ajout.sql.add('Insert into budgetg(code_sec,dateBP,Total_dep,Total_Rev)values('+QuotedSTR(edit11.text)+','+DATETOSTR(DateTimePicker1.Date)+','+(edit3.text)+','+(edit8.text)+' ) ');
       ajout.ExecSQL;
        ajout.Close;
 
        ////////////////
 
         ajoutBudget.sql.clear;
        ajoutBudget.sql.add('Insert into budgetg(code_sec,dateBP,Total_dep,Total_Rev)values('+QuotedSTR(edit12.text)+','+DATETOSTR(DateTimePicker1.Date)+','+(edit9.text)+','+(edit10.text)+' ) ');
        ajoutBudget.ExecSQL;
        ajoutBudget.Close;
 
 
 
        showmessage('áÞÏ Êã ÅÖÇÝÉ ÇáãíÒÇäíÉ ÈäÌÇÍ');
         edit1.Clear  ;  edit2.Clear; edit3.Clear; edit8.Clear; edit9.Clear; edit10.Clear;
     end;
     end;
     end;
 
end
else showmessage(' ãä ÝÖáß Þã ÈÅÏÎÇá ÇáãÚáæãÇÊ ');
 
end;

**Rayek** · 09/10/2013, 11h09

Les #### ne serait-ce pas un problème d'affichage dans Access, as-tu essayé d'augmenter la taille de la colonne du champs ? (Ca me fait penser à ce comportement quand dans Excel la valeur est plus grande que la taille du champ)

Sinon, remarque en passant par rapport à ton code :

- Renomme tes composants, un jour si quelqu'un passe derrière toi, il va s'arracher les cheveux. il est quand même plus facile d'avoir un composant qui se nomme Edt_PrixHT que Edit1

- Dans tes requêtes, tu utilises parfois les paramètres et d'autres fois non. Pourquoi ne pas faire partout pareil ?

- Lors de l'utilisation des paramètres, tu utilises Parameters[x], selon moi, il est préférable d'utiliser le nom du paramètre : Parameters.ParamByName('Toto').Value car dans le cas où tu insères ou déplace un paramètre, tu risques avoir des données qui vont se mettre au mauvais endroit.

**menoulette** · 09/10/2013, 12h05

j'ai fait ce que vous m'aviez demandé à faire mais les requêtes ne s’exécutent pas !!

Code :

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

1
2
3
4
 
    test.Close;
    test.Parameters.ParamByName('M').Value:=DateTostr(DateTimePicker1.Date);
    test.Open();

et le Datetimpicker me cause toujours le même problème il ne prend pas la date que l'utilisateur sélectionne !!!

Merci

**Rayek** · 09/10/2013, 13h39

En mettant un point d'arrêt (avec F5) sur la ligne

Code :

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

1
2
 
test.Parameters.ParamByName('M').Value:=DateTostr(DateTimePicker1.Date);

Pendant l'exécution il va s'arrêter sur cette ligne.
- Sélectionne DateTimePicker1.Date puis fait Ctrl + F7.
- Dans la zone de saisie de la fenêtre qui apparait tape : DateToStr(DateTimePicker1.Date)
- Puis valide avec Entrer

Quel est le résultat affiché ?

**menoulette** · 09/10/2013, 14h43

Envoyé par Rayek

En mettant un point d'arrêt (avec F5) sur la ligne

Code :

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

1
2
 
test.Parameters.ParamByName('M').Value:=DateTostr(DateTimePicker1.Date);

Pendant l'exécution il va s'arrêter sur cette ligne.
- Sélectionne DateTimePicker1.Date puis fait Ctrl + F7.
- Dans la zone de saisie de la fenêtre qui apparait tape : DateToStr(DateTimePicker1.Date)
- Puis valide avec Entrer

Quel est le résultat affiché ?

le résultat affiché dit (Identificateur non déclaré : 'DateTimePicker1') !!!!

**Rayek** · 09/10/2013, 14h53

Si le DateTimePicker n'est pas dans la même unité il te faut indiquer la form dans lequel il est

**menoulette** · 09/10/2013, 15h09

Envoyé par Rayek

Si le DateTimePicker n'est pas dans la même unité il te faut indiquer la form dans lequel il est

non le DateTimePicker1 se trouve dans la même unité et il est bien déclaré au début .. je comprend pas pourquoi il l'a pas reconnu !!!

je comprend pas pourquoi ce problème persiste le DateTimepicker1 me rajoute des date que l'utilisateur n'a pas sélectionné les requêtes qui empêchent les doublons ne s’exécutent pas

???

**Rayek** · 09/10/2013, 15h18

Vérifie que tu n'es pas 2 DateTimePicker l'un sur l'autre car autant tu sélectionnes le 2em et ne modifie jamais le 1er

**menoulette** · 09/10/2013, 15h21

Envoyé par Rayek

Vérifie que tu n'es pas 2 DateTimePicker l'un sur l'autre car autant tu sélectionnes le 2em et ne modifie jamais le 1er

et ben non monsieur je n'ai qu'un seul DateTimePicker1 !!

**popo** · 10/10/2013, 16h12

Envoyé par menoulette

j'ai fait ce que vous m'aviez demandé à faire mais les requêtes ne s’exécutent pas !!

Code :

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

1
2
3
4
 
    test.Close;
    test.Parameters.ParamByName('M').Value:=DateTostr(DateTimePicker1.Date);
    test.Open();

et le Datetimpicker me cause toujours le même problème il ne prend pas la date que l'utilisateur sélectionne !!!

Merci

Tu précise que tes champs sont de type "DATE". Pourquoi vouloir les convertir en chaine ?

**menoulette** · 13/10/2013, 10h23

Envoyé par popo

Tu précise que tes champs sont de type "DATE". Pourquoi vouloir les convertir en chaine ?

bonjour merci pour votre réponse voyons j'ai enlevé la conversion en chaîne de caractères mais le problème persiste toujours !!

**Andnotor** · 13/10/2013, 13h17

Envoyé par menoulette

le résultat affiché dit (Identificateur non déclaré : 'DateTimePicker1') !!!!

Ctrl+F7 est à faire à l'exécution et non au design.

Envoyé par menoulette

test.Parameters.ParamByName('M').Value:=DateTostr(DateTimePicker1.Date);

La propriété Value est un variant et sera interprété en fonction des besoins. Une date est une valeur numérique et n'est en aucun cas une chaîne de caractère

Envoyé par menoulette

Code :

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

ajoutBG.sql.add('Insert into BG(Date_debut,Rev_total,Dep_total)values('+DateToStr(DateTimePicker1.Date)+','+(edit1.Text)+','+(edit2.text)+' ) ');

DateToStr va convertir la date en chaîne en utilisant la langue actuelle. La chaîne résultante en notation française ne sera peut-être pas reconnue par le SGBD s'il attend une notation US. De plus la chaîne-date doit être entre apostrophes.

Même remarque pour les valeurs monétaires (ou flottantes en général). Sur un système français, le séparateur décimal est la virgule mais au niveau de la requête SQL, la virgule est le séparateur de paramètres. Edit1.Text sera interprété comme deux paramètres s'il contient 1,23.

En bref, tu n'es pas obligée de construire la requête, mais si tu le fais, il faut être très strict au niveau des conversions. Le plus simple reste d'avoir une requête statique et de passer les valeurs par paramètre en laissant là où c'est possible Delphi gérer les conversions. Tu le fais pour la lecture, pourquoi pas pour l'écriture ?

**menoulette** · 14/10/2013, 15h17

Envoyé par Andnotor

Ctrl+F7 est à faire à l'exécution et non au design.

La propriété Value est un variant et sera interprété en fonction des besoins. Une date est une valeur numérique et n'est en aucun cas une chaîne de caractère

DateToStr va convertir la date en chaîne en utilisant la langue actuelle. La chaîne résultante en notation française ne sera peut-être pas reconnue par le SGBD s'il attend une notation US. De plus la chaîne-date doit être entre apostrophes.

Même remarque pour les valeurs monétaires (ou flottantes en général). Sur un système français, le séparateur décimal est la virgule mais au niveau de la requête SQL, la virgule est le séparateur de paramètres. Edit1.Text sera interprété comme deux paramètres s'il contient 1,23.

En bref, tu n'es pas obligée de construire la requête, mais si tu le fais, il faut être très strict au niveau des conversions. Le plus simple reste d'avoir une requête statique et de passer les valeurs par paramètre en laissant là où c'est possible Delphi gérer les conversions. Tu le fais pour la lecture, pourquoi pas pour l'écriture ?

Merci pour votre réponse , à vrai puisque c'était le DateTimepicker qui me provoquait un problème vu que je ne sais pas comment l'utiliser alors j'ai décidé de récupérer la valeur du DatetimePicker dans un edit1.text et de travailler avec ce edit1.text mieux que le datetimepicker mais ca reste toujours un point d'interrogation pour moi : pourquoi lorsque j'ai mis le DatetimePicker dans la requête d'ajout je trouve une date très ancienne sur la table (09/09/1895) et pas la date que l'utilisateur a choisi ? ainsi que comment passer la valeur d'un DateTimepicker1 dans une requête paramétrée ??? reste à chercher encore merci pour vos réponses

**Fxg** · 14/10/2013, 16h09

En utilisant les requêtes paramétrées et comme l'a suggéré Andnotor :

est ce que tu as essayé :

Code :

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

test.Parameters.ParamByName('M').Asdate:=DateTimePicker1.Date;

puisque ton champ est bien de type Date.

**SergioMaster** · 15/10/2013, 10h00

Envoyé par menoulette

Merci pour votre réponse , à vrai puisque c'était le DateTimepicker qui me provoquait un problème vu que je ne sais pas comment l'utiliser alors j'ai décidé de récupérer la valeur du DatetimePicker dans un edit1.text et de travailler avec ce edit1.text mieux que le datetimepicker mais ca reste toujours un point d'interrogation pour moi : pourquoi lorsque j'ai mis le DatetimePicker dans la requête d'ajout je trouve une date très ancienne sur la table (09/09/1895) et pas la date que l'utilisateur a choisi ? ainsi que comment passer la valeur d'un DateTimepicker1 dans une requête paramétrée ??? reste à chercher encore merci pour vos réponses

Toujours pour la même raison , ton datetimePicker n'est pas lié à la Datasource (ce n'est pas un DBDateTimePicker ou alors c'est mal indiqué) . Le Edit1.Text est une très mauvaise idée : erreur de saisie , format incorrect etc...
Le DateTimePicker et le paramètrage de requête reste le bon choix .

Quant à initialiser la date pour ne pas avoir la date 'nulle' lors d'un insert c'est relativement facile par exemple :

si j'ai bien compris (en lisant entre les lignes) ce sont les composants ADO qui sont utilisés ?

Envoyé par code repris

ajoutBG.sql.add('Insert into BG(Date_debut,Rev_total,Dep_total)values('+DateToStr(DateTimePicker1.Date)+','+(edit1.Text)+','+(edit2.text)+' ) ');

Code :

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

1
2
3
4
5
 
AjoutBG.SQL.Text:='INSERT INTO BG (date_debut,dep_total) Values (:paramdate,:parammontant)';
AjoutBG.Parameters.ParamByName('paramdate').Asdate:=DateTimePicker1.Date;
AjoutBG.Parameters.ParamByName('parammontant').AsCurrency:=StrTofloat(Edit2.text); // ce edit text aussi mériterait un maskedit ou un composant de saisie plus adapté
AjouBG.ExecSQL;

PS. Je ne suis pas un fan de ADO ni de Access donc ma syntaxe laisse certainement à désirer

Problème avec le DateTimePicker1 et les valeurs de types Monétaire !

Delphi

Discussions similaires

Partager

Partager