Discussion :

[redoran]

rebonjour ; [d7+access] mon deuxième problème posté aujourd'hui est le suivant :
j'ai une form qui contiend selon lordre suivant :
Produit A: edit1.text;
Produit B: edit2.text;
Produit C: edit3.tex;
...........................
règles:

1. opération enregistrés dans la table mouvement ( exemple d'opération : entrée),
2. une opération contiens plusieurs lignes,
3. c'est produit doivent être enregistrés dans de la table ligne ,
4. je doit respecter cette affichage ( ci dessus),

ma solution:

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
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
// enregistrés le  produit A
dm1.tlignes.open;
dm1.tlignes.apend;
dm1.tlignesproduit.value:=edit1.text;
dm1.tlignes.post;
 
// enregistrés le  produit B
dm1.tlignes.open;
dm1.tlignes.apend;
dm1.tlignesproduit.value:=edit2.text;
dm1.tlignes.post;
 
// enregistrés le  produit C
dm1.tlignes.open;
dm1.tlignes.apend;
dm1.tlignesproduit.value:=edit3.text;
dm1.tlignes.post;
 
end;

je me demande si c'est une méthode selon l'art ou tous simplement c'est du bricolage ??????

[skywaukers]

Bonjour,

j'aurai au moins extrait une méthode pour l'enregistrement :

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
procedure TFrom1.EnregistrerLigne( aLigne : string)
begin
  dm1.tlignes.open;
  dm1.tlignes.apend;
  dm1.tlignesproduit.value:=aLigne;
  dm1.tlignes.post;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
// enregistrés le  produit A
EnregistrerLigne(edit1.text);
 
// enregistrés le  produit B
EnregistrerLigne(edit2.text);
 
// enregistrés le  produit C
EnregistrerLigne(edit3.text); 
end;

après tu peux aussi utiliser une Grid (si demaine ils veulent 4 lignes ?) et tu la parcours en appelant la méthode. Voir même une DBGrid qui se remplie automatiquement...

@++
Dany

[redoran]

merci dany pour votre réponse ;
ou je doit déclaré cette procédure dans

Code :

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

1
2
3
4
 private
    { Déclarations privées }  ici 
  public
    { Déclarations publiques } ou ici

Code :

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

1
2
3
4
5
6
7
procedure TFrom1.EnregistrerLigne( aLigne : string)
begin
  dm1.tlignes.open;
  dm1.tlignes.apend;
  dm1.tlignesproduit.value:=aLigne;
  dm1.tlignes.post;
end;

on ce qui concerne la disposition des champ est imposé et 2 chaque champ ramène c'est valeur d'un autre edit donc c figé ; sinon j'aurai utilisé un tlistview ou un dbgrid.

c'est en rapport avec le post d'aujourd'hui dans composant
http://www.developpez.net/forums/d96...anevas-defini/

[ouiouioui]

tu met dans private si juste form1 l'utilise, dans public si ta une form2 par ex qui utilise form1 ET cette methode.