Problème avec OnValidate

Version imprimable

Voir 40 message(s) de cette discussion en une page

01/11/2010, 07h47
Just-Soft

Problème avec OnValidate

Bonjour

J'ai écris une exception dans le OnValidate d'un champ d'une table de données mais en faisant une compilation pas à pas je m'aperçois que ce bout de programme n'est jamais appelé ! que peut-être l'erreur ?
Composant ADO
BD Access
Delphi 7

Merci par avance
01/11/2010, 19h01
liazidf

Salut Just,
il serait préférable d'utiliser le onchange, car si j'ai bien compris l'exception se déclenche lors des changements de valeur.
:ccool:
02/11/2010, 08h25
SergioMaster

Bonjour ,

J'ai souvent utilisé le OnValidate avec succès , très pratique .
Bien sur celui ci n'est appelé que lors d'un Post . C'est peut-être ça le hic ?
02/11/2010, 08h34
Just-Soft

Citation:

Envoyé par liazidf

Salut Just,
il serait préférable d'utiliser le onchange, car si j'ai bien compris l'exception se déclenche lors des changements de valeur.
:ccool:

Merci mais ce n'est pas ce que je cherche.
02/11/2010, 10h04
Just-Soft

Citation:

Envoyé par SergioMaster

Bonjour ,

J'ai souvent utilisé le OnValidate avec succès , très pratique .
Bien sur celui ci n'est appelé que lors d'un Post . C'est peut-être ça le hic ?

Très logique et c'est ce qui m'étonne de plus en plus, je fais un F5 sur le post mais jamais le code du OnValidate du champ en question n'est évoqué, j'ai compilé en pas à pas pour voir mais rien, il l'ignore comme s'il n'existait pas !
03/11/2010, 08h15
SergioMaster

Étonnant !
une option manquante/mise quelque part dans tes composants peut-être ?
Difficile de pouvoir le dire en n'ayant que du théorique. Le cas ne m'est jamais arrivé donc je n'ai pas de piste a proposer.

Quand j'ai un problème de ce genre je refais un petit programme test utilisant juste la fonction a tester . Je pose les composants avec leur valeurs par défauts et ensuite le debug pour tracer tout ca . Evidemment généralement ca fonctionne alors la suite logique est de détecter la différence (pourtant évidente mais que l'on a pas vue :roll: )
03/11/2010, 12h09
TryExceptEnd

Citation:

Envoyé par Just-Soft

Bonjour

J'ai écris une exception dans le OnValidate d'un champ d'une table de données mais en faisant une compilation pas à pas je m'aperçois que ce bout de programme n'est jamais appelé ! que peut-être l'erreur ?
Composant ADO
BD Access
Delphi 7

Merci par avance

Et quel est le code que vous avez écrit ?

Bonjour

un code très simple dont voici un exemple sur le champ nom_prenom

Code:

1
2
3
4
5
procedure TDModuleAdo.TClientsNom_PrenomValidate(Sender: TField);
begin
  if (TClientsNom_Prenom.Value = '') then
    raise Exception.CreateFmt('Champ à renseigner obligatoirement de l''enregistrement %d', [TClients.RecNo]);
end;

j'aurais plutôt mis Sender.value , le dataset n'est pas encore modifié , puisque on teste AVANT sa modification (c'est du moins comme cela que je l'entend) .
Code:

1 2 3 4 5 procedure TDModuleAdo.TClientsNom_PrenomValidate(Sender: TField); begin if (sender.Value = '') then raise Exception.CreateFmt('Champ à renseigner obligatoirement de l''enregistrement %d', [TClients.RecNo]); end;
Edit . PS , j'aurais aussi plutôt mis un asString que value ou un isNull . Un Trim également pour éviter des Espaces malins

Citation:

Envoyé par SergioMaster

j'aurais plutôt mis Sender.value , le dataset n'est pas encore modifié , puisque on teste AVANT sa modification (c'est du moins comme cela que je l'entend) .

Code:

1
2
3
4
5
procedure TDModuleAdo.TClientsNom_PrenomValidate(Sender: TField);
begin
  if (sender.Value = '') then
    raise Exception.CreateFmt('Champ à renseigner obligatoirement de l''enregistrement %d', [TClients.RecNo]);
end;

Edit . PS , j'aurais aussi plutôt mis un asString que value ou un isNull . Un Trim également pour éviter des Espaces malins

C'était mon 1er essai et ça n'a rien donné. Je viens de tester avec isNull mais rien aussi.

En complément, j'ajoute le code qui devrait, normalement, provoquer l'appel à OnValidate

Code:

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
procedure TfrmClient.bValiderClick(Sender: TObject);
begin
  try
    dbDate_debut.Visible := True;
    DateTimePicker1.Visible := False;
    etat_groupe_boutton(True);
 
    // date
    DModuleAdo.TAbonnementsdebut_abn.Value := DateTimePicker1.DateTime;
 
    // code
    DModuleAdo.TAbonnementsCode_client.Value := DModuleAdo.enr_cours + 1;
 
    // type abonnement
    case DModuleAdo.TTypescode_type_abn.Value of
      1 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 30;   // mensuel
      2 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 91;   // trimestriel
      3 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 182;  // semestriel
      4 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 365;  // annuel
    end;
 
    // état de l'abonnement
    if ((DModuleAdo.TAbonnementsdebut_abn.Value >= now) and (now < DModuleAdo.TAbonnementsfin_abn.Value)) then
      DModuleAdo.TClientsActive.Value := True
    else DModuleAdo.TClientsActive.Value := False;
    DModuleAdo.TClients.Post; // c'est là où le code devrait être évoquer mais rien ne se passe !!
 
  Except
    ShowMessage('Problème lors de la sauvegarde de l''enregistrement');
  end;
  etat_groupe_boutton(True);
end;

Citation:

Envoyé par Just-Soft

En complément, j'ajoute le code qui devrait, normalement, provoquer l'appel à OnValidate

Code:

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
procedure TfrmClient.bValiderClick(Sender: TObject);
begin
  try
    dbDate_debut.Visible := True;
    DateTimePicker1.Visible := False;
    etat_groupe_boutton(True);
 
    // date
    DModuleAdo.TAbonnementsdebut_abn.Value := DateTimePicker1.DateTime;
 
    // code
    DModuleAdo.TAbonnementsCode_client.Value := DModuleAdo.enr_cours + 1;
 
    // type abonnement
    case DModuleAdo.TTypescode_type_abn.Value of
      1 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 30;   // mensuel
      2 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 91;   // trimestriel
      3 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 182;  // semestriel
      4 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 365;  // annuel
    end;
 
    // état de l'abonnement
    if ((DModuleAdo.TAbonnementsdebut_abn.Value >= now) and (now < DModuleAdo.TAbonnementsfin_abn.Value)) then
      DModuleAdo.TClientsActive.Value := True
    else DModuleAdo.TClientsActive.Value := False;
    DModuleAdo.TClients.Post; // c'est là où le code devrait être évoquer mais rien ne se passe !!
 
  Except
    ShowMessage('Problème lors de la sauvegarde de l''enregistrement');
  end;
  etat_groupe_boutton(True);
end;

Je ne vois pas ou le champ Nom/Prenom est modifié dans ton code ?

04/11/2010, 11h20
Just-Soft

C'est un champ de la table Clients, normalement le TClients.Post provoque l'exécution du OnValidate du champ nom_prenom, voilà.
04/11/2010, 11h35
TryExceptEnd

Eh bein non, il fallait lire l'aide de delphi :

Citation:

Un gestionnaire d'événement OnValidate permet de valider les modifications apportées aux données du champ, juste avant qu'elles ne soient écrites dans le tampon de l'enregistrement en cours. La propriété EditMask permet la validation des données saisies, caractère par caractère. OnValidate permet à une application de valider globalement les données.

Quand la valeur d'un composant champ est affectée par du code, la validation par EditMask n'est pas effectuée puisqu'il n'y a pas de contrôle orienté données pour vérifier le respect du masque. OnValidate permet à une application de valider ces données avant qu'elles ne soient expédiées à la table de la base de données.

Pour refuser la valeur en cours du champ dans le gestionnaire d'événement OnValidate,déclenchez une exception.

Lors de l'écriture de la valeur d'un champ dans le tampon de l'enregistrement en cours,la séquence suivante a lieu :

1 Le gestionnaire d'événement OnValidate est appelé pour valider les données.
2 Si le gestionnaire d'événement OnValidate accepte la valeur en cours (Value),les données sont écrites dans le tampon d'enregistrement.
3 Si l'écriture des données ne déclenche pas d'exception,le gestionnaire d'événement OnChange est appelé pour permettre de répondre aux modifications.
04/11/2010, 12h17
Just-Soft

Citation:

Envoyé par TryExceptEnd

Eh bein non, il fallait lire l'aide de delphi :

quoi eh bein non !
j'ai lu et c'est ce que j'ai compris, donc si c'est pas ça, aides moi par l'exemple si t'as une autre piste car moi je vois pas 8O
04/11/2010, 12h38
TryExceptEnd

L'évènement OnValidate d'un champ est appelé seulement lors de la modification du ledit champ que se soit dans un contrôle orienté donnée comme un DBEdit ou par code comme par exemple : ma_table_champ.value = une_valeur.
04/11/2010, 12h55
Just-Soft

Citation:

Envoyé par TryExceptEnd

L'évènement OnValidate d'un champ est appelé seulement lors de la modification du ledit champ que se soit dans un contrôle orienté donnée comme un DBEdit ou par code comme par exemple : ma_table_champ.value = une_valeur.

Tu veux dire que lors d'ajout, et si on laisse le champ sans toucher à son contrôle DBEdit p.e, le code n'est jamais appelé ?!
04/11/2010, 13h13
TryExceptEnd

Citation:

Envoyé par Just-Soft

Tu veux dire que lors d'ajout, et si on laisse le champ sans toucher à son contrôle DBEdit p.e, le code n'est jamais appelé ?!

Et pourquoi le serait-il ?
Dans ce cas utilise plutôt l'évènement BeforePost de la table.
04/11/2010, 13h28
Just-Soft

Citation:

Envoyé par TryExceptEnd

Et pourquoi le serait-il ?
Dans ce cas utilise plutôt l'évènement BeforePost de la table.

Mais c'est ce que je veux éviter car dans le BeforPost je dois faire des tests sur le champ en question alors je trouve, naturellement, que le OnValidate est le plus approprié sauf que je ne vois, toujours, pas pourquoi il n'est pas appelé lors d'un post ! car l'évènement OnValidate doit être vérifié avant la mise à jour des données dans le tampon d'enregistrement comme c'est expliqué dans l'aide.
04/11/2010, 13h55
Cl@udius

Salut

Citation:

Envoyé par Just-Soft

...sauf que je ne vois, toujours, pas pourquoi il n'est pas appelé lors d'un post !

OnValidate est bien appelé lors d'un Post. A condition néanmoins que le champ en question ait été modifié.
C'est le cas systématiquement pour un Insert, mais pas toujours pour un Edit.

@+ Claudius.
04/11/2010, 14h18
Just-Soft
Citation:

Envoyé par Cl@udius

Salut

OnValidate est bien appelé lors d'un Post. A condition néanmoins que le champ en question ait été modifié.
C'est le cas systématiquement pour un Insert, mais pas toujours pour un Edit.

@+ Claudius.

Salut et merci
c'est ce qui m'étonne de plus en plus car voici ce que j'ai fais :
- appel de Append (ou insert)
- ajout de code dans le OnValidate du champ
- appel de post
mais le OnValidate n'est jamais exécuté !

Voir 40 message(s) de cette discussion en une page