donnée conserver avec un nouvelle enregistrement

**stefano** · 12/03/2006, 13h21

Salut,

C'est encore moi

Pas mal de chose dans mon projet sont arriver a termes maintenant je passe en version de test.

Pour situé le projet j'ai 3 form
la premiere comporte une base de donnée avec des enregistrement de personne
la 2eme et la 3eme Form comporte des donnée personnel de chaque personnes.

Sur la 2eme form j'ai mis un bouton "Retour" pour revenir a la 1ere Form sans avoir pour cela a quitter le projet.

Code :

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

1
2
3
4
5
procedure TFiche.RetourClick(Sender: TObject);
     begin
 
 close;
end;

et un bouton "Quitter l'application" avec ce code

Code :

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

1
2
3
4
procedure TFiche.QuitterClick(Sender: TObject);
begin
Form1.Close;
 end;

Form1 etant la 1ere Form du projet.

Quand je clique sur quitter l'application, tout ce passe bien l'(application se termine.
Le probleme viens du bouton "retour".
Effectivement la form2 se ferme bien et je reviens bien aussi sur la 1ere form mais lorsque je selectionne un autre enregistrement la form2 s'ouvre en conservant les données qui etais juste avant de fermer la form2.
j'ai tester ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFiche.RetourClick(Sender: TObject);
 var I : integer;
begin for I := ComponentCount -1 downto 0 do
  begin
if Components[i] is TEdit then
(Components[i] as TEdit).Text := '';
end;
 close;
end;

Ceci efface bien tous les texte des TEdit present sur la form2 mais apres me genere une erreur car dans la form2 j'ai des TEdit servant a des calculs et les valeurs par defauts ne sont pas recharger alors qu'ils ont etais defini a l'etablissement de la base de donnée.

Comment peus-je faire pour dire que si une valeur par defaut existe pour un TEdit qu'il me la charge?

Sachant aussi qu'un evenement onShow existe pour la restitution des données concernant une personne.

je sais pas si je suis assez explicite.

c'est pas evident.

merci pour vos conseil et aides

**edam** · 12/03/2006, 19h27

Sachant aussi qu'un evenement onShow existe pour la restitution des données concernant une personne.

et

Code :

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

Effectivement la form2 se ferme bien et je reviens bien aussi sur la 1ere form mais lorsque je selectionne un autre enregistrement la form2 s'ouvre en conservant les données qui etais juste avant de fermer la form2

????

si tu réstitu tes données dans onshow comment il réste inchangé a la rochaine ouverture
pour moi je crée les forme dynamiquement (pas au début du programme)
en plus je férme mes form modal avec modal résult