Discussion :

[rec82]

salut
pardant si je pose ce question ,qu'il me semble traité dans le forum mais j'arive pas à les trouvé.
Question:
je developpe une application de facturation,dans le fiche VENTE j'ai une button CLIENT ,lorsqueje click sur button client une autre fiche s'affiche qui contient un dbgrid qui contien touts les client ,lorsque je click sur la ligne de client son NUMERO s'affiche dans la fiche VENTE et cette dbgrid seras fermer.
ma question :
pour le dbgrid de la fiche client quelle l'evenement qui me permet de faire ça?
cordialement rec82.

[sat83]

OnCellClick ou OnDblClick par exemple.

[SergioMaster]

je vote pour OnDblClick

[Andry]

Mois ce que je fais d'habitude c'est une
fiche modale qui intègre :
- Une propriété Numero (soit entier soir string en fonction des data)
- Une grille pour la selection
- 2 boutons Ok en mrOK et Annulé en mrCancel.
Ensuite gérer l'évènement :
- sélection de ligne de la grille pour affecter la propriété numero
- Double clic sur la grille qui affecte la propriété numero mais qui renvoi un Modalresult mrOk.
Donc dans la fiche appelante, il suffit de tester le modalresult de la fiche appelé pour récupérer ou non la valeur de la propriété numero.

Voilà.

[rec82]

salut.
merci à tout l'équipe j'essayai puis je vous repond.
merci beacoup autre fois.
cordialelement rec82.

[edam]

je vote pour OnDblClick

+1

[rec82]

salut
merci beacoup, c'est OnDblClick qui ma servir.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm13.DBGrid1DblClick(Sender: TObject);
begin
datamodule16.t1.Edit;
////*affectation des valeurs pour des champs dans form3:Nouveau vente**//
form3.Edit2.Text:= datamodule16.t1.fieldbyname('client').AsString;
form3.Label7.Caption:=datamodule16.t1.fieldbyname('nom').AsString;
form3.Label9.Caption:=datamodule16.t1.fieldbyname('adr').AsString;
datamodule16.t1.Post;
form13.Close;
end;

pour andry :

Code :

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

1
2
3
4
5
6
7
8
9
10
fiche modale qui intègre :
 Une propriété Numero (soit entier soir string en fonction des data)

	

	
Code  :
	
Sélectionner tout -
	Visualiser dans une fenêtre à part
	
-
- sélection de ligne de la grille pour affecter la propriété numero
- Double clic sur la grille qui affecte la propriété numero mais qui renvoi un Modalresult mrOk.

en effet j'ai pas compris ,ou se trouve la proprieté numéro de fiche modal
merci beacoup pour tout l'équipe.
cordialement rec82.

[NorexaMS]

ecoute rec pour ta reponse :
On dblclick c'est la plus intuitive mais moi je fait toujours une panoplie de trucs associés :
Un boutton avec le onclick pour la procedure d'affectation des données a la fiche facture + le ondblclick du dbgrid associé au onclick du bouton + la propriété défault du bouton a true pour autoriser lappui sur ENTREE.

Petite remarque : j'ai lu dans ton code DATAMODULE16, t'a 16 datamodule dans ton application ?????????? il te restait plus de place sur les autres ????? si oui ton appli est a revoir !

[NorexaMS]

Double clic sur la grille qui affecte la propriété numero mais qui renvoi un Modalresult mrOk.

Un event onclick du bouton (pointé par le ondblclick du grid) qui affecte le n et close la fiche est mieux vu pour un débutant.

Il a dit la "propriété numéro" de ton client pas le numéro modal, ca nexiste pas mais le resultat modal, regarde dans les propriété du bouton MODALRESULT et celle de la fiche tu clique sur F1 dans l'aide t'a un exemple clair pour utiliser cette propriété.
Elle sert a communiquer à ta fiche sous modale quel resultat a été envoyé par la fiche modale (MROK, MRYES, MRNONE etc.).

[edam]

datamodule16.t1.Edit;
////*affectation des valeurs pour des champs dans form3:Nouveau vente**//
form3.Edit2.Text:= datamodule16.t1.fieldbyname('client').AsString;
form3.Label7.Caption:=datamodule16.t1.fieldbyname('nom').AsString;
form3.Label9.Caption:=datamodule16.t1.fieldbyname('adr').AsString;
datamodule16.t1.Post;
form13.Close;

là, j'ai pas pigé, ou tu as mal copié..??

Code :

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

1
2
3
4
5
6
7
8
9
10
[QUOTE=rec82;4088884]
////*affectation des valeurs pour des champs dans form3:Nouveau vente**//
with datamodule16.t1 do
  begin
      Edit;         
      fieldbyname('client').AsString:=form3.Edit2.Text;
      fieldbyname('nom').AsString:=form3.Label7.Caption;
      fieldbyname('adr').AsString:=form3.Label9.Caption;
      Post;
  end;

[rec82]

salut
pour NorexaMS ,j'ai pas compris que veut tu dire par

Code :

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

Petite remarque : j'ai lu dans ton code DATAMODULE16, t'a 16 datamodule dans ton application ?????????? il te restait plus de place sur les autres ????? si oui ton appli est a revoir

!
et pour edam ,non je vous explique :

j'ai une fiche (form3) et une autre fiche (form13)
form3 appele à form13 ,dans form13 j'ai une dbgrid ,lorsque je doubleclick sur cette dbgrid ,je récupére les donnés de l'enregistrement selectionner dans les edits de form3.
cordialement rec82.

[edam]

j'ai une fiche (form3) et une autre fiche (form13)
form3 appele à form13 ,dans form13 j'ai une dbgrid ,lorsque je doubleclick sur cette dbgrid ,je récupére les donnés de l'enregistrement selectionner dans les edits de form3.
cordialement rec82.

alors pourquoi ce Edit et post????

[rec82]

salut
tu a raison edam.pas de EDIT et POST.
merci cordialement rec82.

[edam]

Mois ce que je fais d'habitude c'est une
fiche modale qui intègre :
- Une propriété Numero (soit entier soir string en fonction des data)
- Une grille pour la selection
- 2 boutons Ok en mrOK et Annulé en mrCancel.
Ensuite gérer l'évènement :
- sélection de ligne de la grille pour affecter la propriété numero
- Double clic sur la grille qui affecte la propriété numero mais qui renvoi un Modalresult mrOk.
Donc dans la fiche appelante, il suffit de tester le modalresult de la fiche appelé pour récupérer ou non la valeur de la propriété numero.

Voilà.

comme tu utilise un Datamodule tu doit prendre en considération ce que ta dit Andry, c'est ce que je fait moi aussi à peut prés, sûrement Andry va t'expliqué plus si tu veux ;
et si tu as besoin de ta forme qui contient la liste dans une autre forme ??,
par exmple une liste des artiles, il est applé depuis (bon de réception, facture, bon de livraison,......), alors que va tu faire là????

[rec82]

Salut
merci bien edam pour votre aide.

sûrement Andry va t'expliqué plus si tu veux ;

je searis trés heureux donc.
cordialement rec82.

[anapurna]

salut

pourquoi ne pas faire une methode addEnr dans le datamodule

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
 
Function ValideEnr(Rec) : Boolean
begin 
  Result := False;
  if (Rec.client <> '') and
     (Rec.Nom <> '') and 
     (Rec.adr <> '') Then 
   Result := True;
end;
 
Procedure TDataModule16.addEnr(Rec : TRecInfo);
begin
   If ValideEnr(Rec) Then
   begin
      with t1 do 
      begin
         Edit;
         fieldbyname('client').AsString := Rec.client;
         fieldbyname('nom').AsString   := Rec.nom;
         fieldbyname('adr').AsString    := Rec.adr;
         Post;
      end;
   end
   else
    Showmessage('Enregistrement non complet') ;
end;
 
Function TDataModule16.GetEnr :TRecInfo ;
begin
   Result.Client := fieldbyname('client').AsString;
   Result.nom  :=  fieldbyname('nom').AsString;
   Result.adr   :=  fieldbyname('adr').AsString;
end;

je trouve çà plus sympa de centralisé les action sur les données
ensuite il suffit de faire appel a getenr pour l'affichage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm13.DBGrid1DblClick(Sender: TObject);
var 
  Enr : TrecInfo;
begin 
  Enr := datamodule16.GetEnr;
  form3.Edit2.Text:= Enr.client
  form3.Label7.Caption:=Enr.nom;
  form3.Label9.Caption:=Enr.adr;
  form13.Close;
end;

@+ Phil

[rec82]

salut .
merci anapurna pour vos idées brillantes,je trouve que c'est plus sympa ,
j'essayerais puis je vous rapele.
un trés grands merci à toute l'équipe developpez .
cordialement rec82.

[rec82]

salut
merci à tout .enfin j'ai compris la solution de Andry et j'ai basculé vers.
j'ai fait comme ça:

Code :

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

1
2
3
4
5
procedure TOvrire.SpeedButton1Click(Sender: TObject);
begin
IF form2.ShowModal=mrok then
   edit1.Text:=module1.T1.fieldbyname('numero').AsString;
end;

et dans form2 j'ai placé un dbgrid et une bitbtn et je met sa propriéte Modalresult à mrOK
et ça marche.
cordialement rec82