Discussion :

[souminet]

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]

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]

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]

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]

Salut

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

@+ Claudius

[souminet]

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]

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]

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!