Réinitialisation du code d'une form

**adelcrb** · 01/07/2012, 16h34

salam

je bidouille une application (catalogue produit d'une entreprise) les produits ne sont pas tous similaire donc logiquement les détails des produits ne le sont pas aussi alors j'ai fais en sort que l'application active juste les dbedit qu'ils ont des valeurs comme suite (sur oncreat de la form):

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
procedure TFDetail.FormCreate(Sender: TObject);
  begin
 
 
  if (nb.text = ',0')or (nb.text = '#') or (nb.text = '')then
  nb.visible:=false   ;
 
  if (c.text = ',0')or (c.text = '#') or (c.text = '')then
  c.visible:=false ;
 
  if (d.text = ',0')or (d.text = '#') or (d.text = '')then
  d.visible:=false ;
 
 
  if (f.text = ',0')or (f.text = '#') or (f.text = '')then
  f.visible:=false;
 
  if (g.text ='0' )or (g.text = '#') or (g.text = '')then
  g.visible:=false ;
 
 
  if (i.text = ',0')or (i.text = '#') or (i.text = '')then
  i.visible:=false;
 
  if (j.text = '0')or (j.text = '#') or (j.text = '')then
  j.visible:=false;
 
  if (wi.text = '0')or (wi.text = '#') or (wi.text = '')then
  wi.visible:=false ;
 
  if (disque.text = '0')or (disque.text = '#') or (disque.text = '')then
  disque.visible:=false ;
 
  if (nAntiDrain.text = '0')or (nAntiDrain.text = '#') or (nAntiDrain.text = '')then
  nAntiDrain.visible:=false ;
 
  if (nAntiSyphon.text = '0')or (nAntiSyphon.text = '#') or (nAntiSyphon.text = '')then
  nAntiSyphon.visible:=false;
 
  if (nBypass.text = '0')or (nBypass.text = '#') or (nBypass.text = '')then
  nBypass.visible:=false ;
 
 
  if (nElement.text = '0')or (nElement.text = '#') or (nElement.text = '')then
  nElement.visible:=false;
 
 
  if (a2.text = '0')or (a2.text = '#') or (a2.text = '')then
  a2.visible:=false;
 
  if (b2.text = '0')or (b2.text = '#') or (b2.text = '')then
  b2.visible:=false ;
 
  if (h2.text = '0')or (h2.text = '#') or (h2.text = '')then
  h2.visible:=false ;
 
  if (e.text = ',0')or (e.text = '#') or (e.text = '')then
  e.visible:=false ;
 
/* PageDetail.ActivePageIndex := 0;
 TabConcurrent.TabVisible := FileExists(ExePath + '§§§§§.REG');*/ça c'est pour autre chose
 
 
 
 end;

jusque la tous va bien le problème c'est quand je fait précédent et je chercher un autre produit dé que je reviens sur la form des détail je trouve les dbedit active du premier produit donc je cherche la manière de réinitialisation du code quand je quitte la form des détails ... j'espere que c'est claire et je vous remercie d'avance pour votre aide et je précise que je suis hyper débutant .

**mina24** · 01/07/2012, 18h22

Bonsoir

Envoyé par adelcrb

(sur oncreat de la form):

Essayez ce Code sur OnActivate de la form sinon OnDataChange du datasource. Bon courage

**adelcrb** · 02/07/2012, 10h07

merci pour t'a réponse mina j'ai essyé avec OnActivate ça n'a rien donnez et avec OnDataChange j'ai eu le droit a une erreur...je suis coincé la mais je vais continuer a cherchez tout de même.

**Rayek** · 02/07/2012, 10h53

Envoyé par mina24

Bonsoir
Essayez ce Code sur OnActivate de la form sinon OnDataChange du datasource. Bon courage

Le OnActivate c'est pas terrible comme idée, si la form ne perd jamais le focus il ne s'active jamais.

Envoyé par adelcrb

merci pour t'a réponse mina j'ai essyé avec OnActivate ça n'a rien donnez et avec OnDataChange j'ai eu le droit a une erreur...je suis coincé la mais je vais continuer a cherchez tout de même.

Et l'erreur est ?

**adelcrb** · 02/07/2012, 11h43

voila les message d'erreur

[Hint] Data.pas(183): Value assigned to 'IsPrevInstance' never used
[Error] Data.pas(360): Undeclared identifier: 'nb'
[Fatal Error] &&&&.dpr(11): Could not compile used unit 'Data.pas'

problème de déclaration du dbedit j'ai essayé de le déclaré pareil comme sur la form ou il se trouve mais ça n'a pas fonctionner.

**Rayek** · 02/07/2012, 11h46

Ton Datasource est bien sur la form ou bien est il dans un Datamodule ?

**adelcrb** · 02/07/2012, 12h05

au faite mon Datasourceet d’ailleurs tous mes composants de base de données se trouvent dans un Datamodule désolé j'ai oublier de le motionner.

**Fxg** · 02/07/2012, 14h02

nb est un TEDIT ou un TDBEDIT ?

Tu as bien inclus ton Datamodule dans les Uses ?

**Rayek** · 02/07/2012, 14h32

Envoyé par adelcrb

au faite mon Datasourceet d’ailleurs tous mes composants de base de données se trouvent dans un Datamodule désolé j'ai oublier de le motionner.

Alors en général, les Datasource c'est dans la form et les composant DB dans le Datamodule.

Sinon pour régler le problème sans avoir à changer de place les datasource.

- Dans la partie implementation du datamodule tu rajoutes un uses vers ta form
- Dans le onDatachange du Datasource tu fais soit :

Code :

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

1
2
3
4
 
if (Taform.nb.text = ',0')or (Taform.nb.text = '#') or (Taform.nb.text = '')then
  Taform.nb.visible:=false   ;
// ... pareil sur le reste

Ou

Code :

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

1
2
3
4
5
6
7
 
With TaForm do
begin
  if (Taform.nb.text = ',0')or (Taform.nb.text = '#') or (Taform.nb.text = '')then
    Taform.nb.visible:=false   ;
  // ... pareil sur le reste
End; // With

**SLE** · 02/07/2012, 14h36

...plutôt comme ceci (sinon quel est l'intérêt du with)

Code :

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

1
2
3
4
5
6
7
 
With TaForm do
begin
  if (nb.text = ',0')or (nb.text = '#') or (nb.text = '')then
    nb.visible:=false   ;
  // ... pareil sur le reste
End; // With

**Rayek** · 02/07/2012, 15h09

Envoyé par SLE

...plutôt comme ceci (sinon quel est l'intérêt du with)

Code :

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

1
2
3
4
5
6
7
 
With TaForm do
begin
  if (nb.text = ',0')or (nb.text = '#') or (nb.text = '')then
    nb.visible:=false   ;
  // ... pareil sur le reste
End; // With

Oups un copier...merder

**adelcrb** · 02/07/2012, 15h40

Envoyé par Fxg

nb est un TEDIT ou un TDBEDIT ?

Tu as bien inclus ton Datamodule dans les Uses ?

c'est un

trzdbetit

donc dbedit et évidement j'ai belle est bien ajouter mon datamodule dans les uses. (merci comme même)

Sinon pour régler le problème sans avoir à changer de place les datasource.

- Dans la partie implementation du datamodule tu rajoutes un uses vers ta form
- Dans le onDatachange du Datasource tu fais ...

j'ai suivis tes conseil a la lettre ça a bien marcher puisque j'ai réussi a compilé sans la moindre erreur mais quant je choisi le produit (a l'ouverture de la form en question) l'application bug et j’obtiens un long message d'erreur :project &&&&.exe raised exception class EAaccessviolation with message'access violation at adresse 006431e9 in module '&&&&.exe'.read of adress 00000378'.process stoped.use step or run to continue.

voila c'est évidant que ça a un rapport avec ma base de données access malgré qu'elle est bien connecté avec delphi

... et merci pour les réponses ça m'aide pour ce projet et j’apprends de plus en plus.

**SLE** · 02/07/2012, 15h59

Lance ton appli en pas à pas pour voir d'où vient le bug.
A priori tu essaies d'appeler une methode ou une propriété sur un objet qui n'est pas instancié (valeur = nil)

**Rayek** · 02/07/2012, 16h24

Envoyé par adelcrb

j'ai suivis tes conseil a la lettre ça a bien marcher puisque j'ai réussi a compilé sans la moindre erreur mais quant je choisi le produit (a l'ouverture de la form en question) l'application bug et j’obtiens un long message d'erreur :project &&&&.exe raised exception class EAaccessviolation with message'access violation at adresse 006431e9 in module '&&&&.exe'.read of adress 00000378'.process stoped.use step or run to continue.

voila c'est évidant que ça a un rapport avec ma base de données access malgré qu'elle est bien connecté avec delphi

... et merci pour les réponses ça m'aide pour ce projet et j’apprends de plus en plus.

Attention, rien à voir avec Access le AccessViolation

Ce message d'erreur indique que tu essaies de lire une information dans une zone de mémoire "non valide". Cela arrive souvent quand un composant est mal instancié/créé.

Comment crées tu ta form, ton datamodule ?
Si c'est dynamiquement vérifie qu'ils ne sont pas créés automatiquement par le programme (Projet/Options/fiche si elles sont dans Créer automatiquement, mets les dans l'autre liste)
Si c'est automatique, vérifie que ta form soit créé avant ton Datamodule.

**adelcrb** · 02/07/2012, 16h35

en effet j'avais une procédure sur ma form qui cherché des images comme suite :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFDetail.nProductChange(Sender: TObject);
begin
 with FData do
  begin
 
   if FileExists(ExePath + 'Images\' + QProductnShape.Text + '.JPEG') then
    ImgProduct.Picture.LoadFromFile(ExePath + 'Images\' + QProductnShape.Text + '.JPEG')
   else ImgProduct.Picture := nil;
  end;
end;

maintenant j'ai mis ça :

else ImgProduct.visible := false;

mais ça na rien changer quant ça bug j’obtiens une bande bleu sur la première ligne du code(peut être que sa va aider)

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFData.SProductDataChange(Sender: TObject; Field: TField);
begin
if (fdetail.nb.text = ',0')or (fdetail.nb.text = '#') or (fdetail.nb.text = '')then
  fdetail.nb.visible:=false   ;

  if (fdetail.c.text = ',0')or (fdetail.c.text = '#') or (fdetail.c.text = '')then
  fdetail.c.visible:=false ;

  if (fdetail.d.text = ',0')or (fdetail.d.text = '#') or (fdetail.d.text = '')then

**adelcrb** · 02/07/2012, 16h55

Envoyé par Rayek

Attention, rien à voir avec Access le AccessViolation

Ce message d'erreur indique que tu essaies de lire une information dans une zone de mémoire "non valide". Cela arrive souvent quand un composant est mal instancié/créé.

Comment crées tu ta form, ton datamodule ?
Si c'est dynamiquement vérifie qu'ils ne sont pas créés automatiquement par le programme (Projet/Options/fiche si elles sont dans Créer automatiquement, mets les dans l'autre liste)
Si c'est automatique, vérifie que ta form soit créé avant ton Datamodule.

j'ai crée mon data module avant les form et sur autocreat form il ya mon data module en premier puis la main form et de l'autre coté les autre form si je bascule data modole vers avalaible form j'aurai le même message d'erreur mais sur une autre ligne de code et plus exactement sur le bouton de recherche.

**camatchou** · 02/07/2012, 16h58

Salut Adelcrb,

je ne suis pas sur, mais je crois tout ce qui vous manque
c'est un ( ELSE ) apres chaque ( IF ).

a+

**adelcrb** · 02/07/2012, 17h45

Envoyé par camatchou

Salut Adelcrb,

je ne suis pas sur, mais je crois tout ce qui vous manque
c'est un ( ELSE ) apres chaque ( IF ).

a+

si je fait des else le programme sort de la boucle dé qu'il trouve 0 ou # et c'est pas ce que je cherche ... le code ça va il marche mais mon problème c'est qu'il fonction une seul fois quant je change de produit et je reviens sur la form les dbedit active son les même que le premier produit consulter même s'il est différent .

**mina24** · 02/07/2012, 18h35

Vérifie si ton dataset (product) est active ou pas (il faudrait qu'elle soit à False)
si la propriété product.active= true c'est normal que ton programme plante, puisqu'il exécute le on datatchange avant la création de la form fdetail.

**SergioMaster** · 03/07/2012, 08h25

Bonjour,

Moi ce qui me chagrine énormément ce sont ces .text .
Arrêtez moi si je me trompe mais si j'ai bien compris ces :
nb, c, d, f, g etc.... sont des DBText ou DBLabels donc des composants liés à une table ou une query ?

Il serait dans ce cas bien préférable de faire les tests directement sur les valeurs de champs !

Code :

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

1
2
3
4
5
6
7
8
9
 
with FData.QProductn do
 begin
   if (FieldByName('nb').asString= ',0') or (FieldByName('nb').asString = '#') or (FieldByName('nb').isNull)  then
  nb.visible:=false   ;
// remplacable par un truc un peu plus optimisé
  nb.visible:= not (FieldByName('nb').isNull OR (FieldByName('nb').asString= ',0') or (FieldByName('nb').asString = '#')); 
.....
end;

ceci dit , je serais curieux de voir la structure de la table , j'ai l'impression que la structure pourrait être fortement optimisée

Réinitialisation du code d'une form

Delphi

Discussions similaires

Partager

Partager