Discussion :

[songue77]

Slt à tous.

depuis un bon bout de temps je cherche à utiliser mon dbnavigate de manière à satisfaire certain besoin ,mais sans succès.
je m'explique: j'aimerais que mon dbnavigate , notament son boutton nbPost reagit en fonction du contenu de mes champs. si au moins un champs est vide , en appuyant sur le nbpost du dbnavigate qu'un message soit affiché et qu'il n'y ait pas d'insertion dans ma table,ce pour eviter d'avoir une table avec des champs vides.

pour cela j'ai mis un code derriere le BEFOREACTION de mon dbnavigate et dans cette procedure j'ai remplacer la variable button par nbpost,pour q'uil reagit seulement au clic sur ce boutton.

mais malheuresement mon dbnavigate reagit au clic de n'importe quel boutton,(il me montre le message au clic de n'importe quel boutton) et en plus à chaque fois l'enregistrement est envoyer dans ma table
que mes champs soient vide ou non.

EN RESUME
J'AIMERAIS SAVOIR S'IL YA UNE FONCTION OU UNE ASTUCE QUELCONQUE QUI PERMET D'ABORTER L'ACTION D'UN DBNAVIGATE SI CERAINES CONDITIONS NE SONT PAS VERIFIER.

MERCI D'AVANCE

[Bejaia-In]

Si tu veux qu'un enregistrement vide ne soit pas validé, il suffit de mettre ce code dans l'évenement BeforePost de ta table.

Code :

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

1
2
3
 
if DataSet.IsEmpty then Abort;// Si la table est vide ne pas valider
if DataSet.FindField('UnChampdeTable').isNull then Abort;//Si le champ est vide ne pas valider.

[aityahia]

<- mets le code dans le code BeforePost de ta table c'est beaucoup mieux.

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
procedure TForm1.Table1BeforePost(DataSet: TDataSet);
var I:integer;
    SaisieOk : Boolean;
begin
 SaisieOk := True;
For i:=0 to Table1.FieldCount-1 do
  begin
   if Table1.Fields[I].IsNull then
      begin
       SaisieOk := False;
       Exit;
      end;
  end;
 
if not SaisieOK Then
   begin
    ShowMessage('Vous devez saisire le champs :'+Table1.Fields[I].FieldName);
    Abort;
   end;
end;

[songue77]

Si tu veux qu'un enregistrement vide ne soit pas validé, il suffit de mettre ce code dans l'évenement BeforePost de ta table.

Code :

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

1
2
3
 
if DataSet.IsEmpty then Abort;// Si la table est vide ne pas valider
if DataSet.FindField('UnChampdeTable').isNull then Abort;//Si le champ est vide ne pas valider.

Merci pour ton code ,ça m'a beaucoups aidé;
mais tu vois le pb qu'à chaque boutton de DBnavigate on p associer une procedure befor action ( ) ;dont l'un des parametres est le nom du boutton concerné;
comme ca le code mis dans ce procedure ne se declenche qu'au clic du boutton mentionné comme parametre dans le le procedure beforeaction,mais le mien je le donne comme parametre nbpost, pour que le code se declenche seulement au clic de nbpost,mais le code se declenche au clic de n'importe quel boutton ,je ne sais pas pourquoi.

stp aide moi à le savoir.

merci

[Cl@udius]

Salut,

mais tu vois le pb qu'à chaque boutton de DBnavigate on p associer une procedure befor action ( ) ;dont l'un des parametres est le nom du boutton concerné

Ce n'est pas exactement ça ! Tu ne peux associer au DBNavigator qu'un seul évènement BeforeAction. Lors d'un click sur l'un des boutons du DBNavigator, le paramètre Button indique le bouton sur lequel a été effectué le click.

Voici un code exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  if Button = nbPost then
    // Click sur Bouton Post
    // Traitement en conséquence
    //...
  else if Button = nbCancel then
    // ...
end;

L'aide de Delphi précise:

Description
Ecrivez un gestionnaire d'événement BeforeAction pour effectuer des actions spécifiques avant la réponse standard au choix d'un bouton du navigateur de base de données.

Il faut que tu gardes à l'esprit que tu ne peut pas annuler l'action standard du bouton (Post dans ton cas).

Je te propose donc de t'orienter vers les solutions proposées par Bejaia-In et Aityahia.

@+