Problème lors de l'exécution du code

**souminet** · 11/12/2007, 09h43

Bonjour, Voilà je travaille sur une petite application qui a pour but de rechercher les enregistrements présents dans 2 tables à la fois, et de les insérer dans une troisième table: Le code du bouton rechercher donne:

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
 
procedure TFAbsence.SearchButtonClick(Sender: TObject);
Var
trouv:boolean;
i,j:integer; k:real; s:string[5];
 
begin
i:=0;
 
DataModule3.personnel.First;
DataModule5.TableEvent.First;
DataModule5.TabTempPrs.First;
DataModule5.TabTempAbs.First;
trouv:=false;
 
While not  DataModule3.personnel.Eof do
    begin
     trouv:=false;
     while not DataModule5.TableEvent.Eof do
         begin
           if DataModule3.personnel.FieldValues['PUCE']=DataModule5.TableEvent.FieldValues['PUCE'] then
              begin
               DataModule5.TabTempPrs.Append;
               DataModule5.TabTempPrs.Edit;
               DataModule5.TabTempPrs.FieldValues['MATRICULE']:=DataModule3.personnel.FieldValues['MATRICULE'];
               DataModule5.TabTempPrs.FieldValues['PUCE']:=DataModule3.personnel.FieldValues['PUCE'];
               DataModule5.TabTempPrs.FieldValues['NOM']:=DataModule3.personnel.FieldValues['NOM'];
               DataModule5.TabTempPrs.FieldValues['PRENOM']:=DataModule3.personnel.FieldValues['PRENOM'];
               DataModule5.TabTempPrs.FieldValues['FONCTION']:=DataModule3.personnel.FieldValues['FONCTION'];
               DataModule5.TabTempPrs.FieldValues['DEPT']:=DataModule3.personnel.FieldValues['DEPT'];
               DataModule5.TabTempPrs.FieldValues['EVENT']:=DataModule5.TableEvent.FieldValues['EVENT'];
               DataModule5.TabTempPrs.FieldValues['DATE']:=DataModule5.TableEvent.FieldValues['DATE'];
               DataModule5.TabTempPrs.FieldValues['HEURE']:=DataModule5.TableEvent.FieldValues['HEURE'];
 
               DataModule5.TabTempPrs.Next;
               trouv:=true;
            end; {end if}
 
            if (trouv=false) then
             begin
              i:=i+1;
              DataModule5.TabTempAbs.Append;
              DataModule5.TabTempAbs.Edit;
              DataModule5.TabTempAbs.FieldValues['MATRICULE']:=DataModule3.personnel.FieldValues['MATRICULE'];
              DataModule5.TabTempAbs.FieldValues['PUCE']:=DataModule3.personnel.FieldValues['PUCE'];
              DataModule5.TabTempAbs.FieldValues['NOM']:=DataModule3.personnel.FieldValues['NOM'];
              DataModule5.TabTempAbs.FieldValues['PRENOM']:=DataModule3.personnel.FieldValues['PRENOM'];
              DataModule5.TabTempAbs.FieldValues['FONCTION']:=DataModule3.personnel.FieldValues['FONCTION'];
              DataModule5.TabTempAbs.FieldValues['DEPT']:=DataModule3.personnel.FieldValues['DEPT'];
              //DataModule5.TabTempAbs.FieldValues['DATE']:=
 
              DataModule5.TabTempAbs.Next;
             end; {end if }
 
         DataModule3.personnel.Next;
         DataModule5.TableEvent.First;
       end; {end While}
 
       end;
 
 
end;

N.B: Les variables seront utilisées ultérieurement pour calcler le nombre retrouvé des absents et présents

A la compilation, il n'ya aucun problème, mais c'est à l'éxecution que la recherche n'en fini plus et réécri le meme energistrement à l'infini!!!???????

Je n'ai pas pu déceler le Problème!!! En plus, quand je stoppe tout et que je revois ma table destination, je la trouve vide???!!

Merci de m'aider

**dd_garion** · 11/12/2007, 09h49

Bonjour,

Tu boucles sur While not DataModule3.personnel.Eof do

et du remet a chaque fois sur le premier enregistrement avec

ataModule5.TableEvent.First;

Donc, boucle infini.

Enfin, je pense

**dd_garion** · 11/12/2007, 10h02

Je viens de comprendre ce que tu voulais faire...

Les lignes suivantes :

Code :

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

1
2
3
 
         DataModule3.personnel.Next;
         DataModule5.TableEvent.First;

Doivent descendre en dessous du end car tu la mis dans le

Code :

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

1
2
 
while not DataModule5.TableEvent.Eof do

Ce qui provoque ta boucle infini.

Ensuite tu rajoutes, où tu viens d'enlever les deux lignes, la ligne suivante :

Code :

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

1
2
 
DataModule5.TableEvent.Next;

Je pense que ce sera ok.

**souminet** · 11/12/2007, 13h48

Voilà, j'ai suivi à la lettre ce que tu m'as conseillé de faire, mais c'est toujours le même problème,
en fait, je retrouve le premier enregistrement de la table personnel dans la table destination mais il boucle à l'infini sur cette dernière, elle se fait inséré à l'infini sans pouvoir passer aux reste des enregistrements de la table jusqu'à ce que j'interrompe le programme!!!!

**Cl@udius** · 11/12/2007, 13h50

Salut

Montre-nous ton code tel que tu l'as modifié. Ce sera plus facile pour isoler l'erreur.

@+ Claudius

**souminet** · 11/12/2007, 14h00

voilà, j'ai repris mon code ce cette façon:

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
procedure TFAbsence.SearchButtonClick(Sender: TObject);
Var
trouv:boolean;
i,j:integer; k:real; s:string[5];
 
begin
i:=0;
 
DataModule3.personnel.First;
DataModule5.TableEvent.First;
DataModule5.TabTempPrs.First;
DataModule5.TabTempAbs.First;
trouv:=false;
 
While not  DataModule3.personnel.Eof do
    begin
     trouv:=false;
     while not DataModule5.TableEvent.Eof do
         begin
           if DataModule3.personnel.FieldValues['PUCE']=DataModule5.TableEvent.FieldValues['PUCE'] then
              begin
               DataModule5.TabTempPrs.Append;
               DataModule5.TabTempPrs.Edit;
               DataModule5.TabTempPrs.FieldValues['MATRICULE']:=DataModule3.personnel.FieldValues['MATRICULE'];
               DataModule5.TabTempPrs.FieldValues['PUCE']:=DataModule3.personnel.FieldValues['PUCE'];
               DataModule5.TabTempPrs.FieldValues['NOM']:=DataModule3.personnel.FieldValues['NOM'];
               DataModule5.TabTempPrs.FieldValues['PRENOM']:=DataModule3.personnel.FieldValues['PRENOM'];
               DataModule5.TabTempPrs.FieldValues['FONCTION']:=DataModule3.personnel.FieldValues['FONCTION'];
               DataModule5.TabTempPrs.FieldValues['DEPT']:=DataModule3.personnel.FieldValues['DEPT'];
               DataModule5.TabTempPrs.FieldValues['EVENT']:=DataModule5.TableEvent.FieldValues['EVENT'];
               DataModule5.TabTempPrs.FieldValues['DATE']:=DataModule5.TableEvent.FieldValues['DATE'];
               DataModule5.TabTempPrs.FieldValues['HEURE']:=DataModule5.TableEvent.FieldValues['HEURE'];
 
               DataModule5.TabTempPrs.Next;
               trouv:=true;
            end; {end if}
 
            if (trouv=false) then
             begin
              i:=i+1;
              DataModule5.TabTempAbs.Append;
              DataModule5.TabTempAbs.Edit;
              DataModule5.TabTempAbs.FieldValues['MATRICULE']:=DataModule3.personnel.FieldValues['MATRICULE'];
              DataModule5.TabTempAbs.FieldValues['PUCE']:=DataModule3.personnel.FieldValues['PUCE'];
              DataModule5.TabTempAbs.FieldValues['NOM']:=DataModule3.personnel.FieldValues['NOM'];
              DataModule5.TabTempAbs.FieldValues['PRENOM']:=DataModule3.personnel.FieldValues['PRENOM'];
              DataModule5.TabTempAbs.FieldValues['FONCTION']:=DataModule3.personnel.FieldValues['FONCTION'];
              DataModule5.TabTempAbs.FieldValues['DEPT']:=DataModule3.personnel.FieldValues['DEPT'];
              //DataModule5.TabTempAbs.FieldValues['DATE']:=
 
              DataModule5.TabTempAbs.Next;
             end; {end if }
 
           DataModule5.TableEvent.Next;
 
 
       end; {end While}
       DataModule3.personnel.Next;
       DataModule5.TableEvent.First;
       end;
 
 
end;

N.B: Quelques variables déclarées seront utilisées ultérieurement!!!

Merci

**Cl@udius** · 11/12/2007, 14h33

Essaye avec ceci:

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
 
procedure TFAbsence.SearchButtonClick(Sender: TObject);
Var
  i,j:integer; k:real; s:string[5];
begin
  i:=0;
 
  DataModule3.personnel.First;
  DataModule5.TableEvent.First;
 
  While not DataModule3.personnel.Eof do
  begin
    while not DataModule5.TableEvent.Eof do
    begin
      if DataModule3.personnel.FieldValues['PUCE']=DataModule5.TableEvent.FieldValues['PUCE'] then
      begin
        with DataModule5.TabTempPrs do
        begin
          Append;
          FieldValues['MATRICULE']:=DataModule3.personnel.FieldValues['MATRICULE'];
          FieldValues['PUCE']:=DataModule3.personnel.FieldValues['PUCE'];
          FieldValues['NOM']:=DataModule3.personnel.FieldValues['NOM'];
          FieldValues['PRENOM']:=DataModule3.personnel.FieldValues['PRENOM'];
          FieldValues['FONCTION']:=DataModule3.personnel.FieldValues['FONCTION'];
          FieldValues['DEPT']:=DataModule3.personnel.FieldValues['DEPT'];
          FieldValues['EVENT']:=DataModule5.TableEvent.FieldValues['EVENT'];
          FieldValues['DATE']:=DataModule5.TableEvent.FieldValues['DATE'];
          FieldValues['HEURE']:=DataModule5.TableEvent.FieldValues['HEURE'];
          Post;
        end;
      end
      else
      begin
        i:=i+1;
        with DataModule5.TabTempAbs do
        begin
          Append;
          FieldValues['MATRICULE']:=DataModule3.personnel.FieldValues['MATRICULE'];
          FieldValues['PUCE']:=DataModule3.personnel.FieldValues['PUCE'];
          FieldValues['NOM']:=DataModule3.personnel.FieldValues['NOM'];
          FieldValues['PRENOM']:=DataModule3.personnel.FieldValues['PRENOM'];
          FieldValues['FONCTION']:=DataModule3.personnel.FieldValues['FONCTION'];
          FieldValues['DEPT']:=DataModule3.personnel.FieldValues['DEPT'];
          //FieldValues['DATE']:=
          Post;
        end;
      end; {end if }
      DataModule5.TableEvent.Next;
    end; {end While}
    DataModule5.TableEvent.First;
    DataModule3.personnel.Next;
  end;
end;

Quelques remarques sur ton code:

Un Edit derrière un Append n'est pas nécessaire
De préférence faire un Post plutôt qu'un Next pour valider ton enregistrement
Ne pas hésiter à utiliser des blocs with...end pour faciliter la lecture du code
Ta variable Trouv n'est pas nécessaire puisque c'est le résultat du if initial

Voilou

@+ Claudius

**bsdocuments** · 11/12/2007, 22h15

si vous rencontrez des problèmes en exécution de votre programme
sous delphi; essayer de l'éxecuter à partir de votre fichier *.exe compilé !;
c'est une bonne méthode pour éviter les exceptions DELPHI! ansi que
son blocage!

je vous censeil de mèttre un point d'arrèt pour débugguer votre
code!

c'est une bonne méthode pour détecter les érreurs.
a+

Bonne continuation!

Problème lors de l'exécution du code

Bases de données Delphi

Discussions similaires

Partager

Partager