Tout est figé lors de l'exécution du programme

Bonjour à tous,

Voilà, le problème est que lorsque j'exécute ma procédure de recherche sur mes 2 tables, (Recherche et édition sur une troisième table) tout les autres composants et boutons sont désactivés!!! L'application est occupée et on ne peut même pas réduire la fenêtre ou autre!!!:(

Est ce qu'il est possible par exemple de programmer un bouton 'annuler' pour interompre la recherche, auquel cas il faudrait déja avoir la possibilité de cliquer dessus lors de l'exécution de la procédure de recherche

merci

Est ce que tu peut donner votre procedure de recherche. pour voir si on peut optimiser.

Salut

Ou alors, il suffit d'exécuter ta procédure de recherche/édition dans un Thread.
Tu garderas ainsi le contrôle sur ta fenêtre principale.

@+

Oui , voilà

Code:

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
66
67
68
69
70
71
72
73
74
75
76
77
78
procedure TFAbsence.SearchButtonClick(Sender: TObject);
Var
trouv:boolean;
i,j:integer;
begin
 DataModule3.personnel.First;
 DataModule5.TableEvent.First;
 trouv:=false;
  i:=0;
  j:=0;
  editAbs.Text:='0';
  editAbs.Update;
  editPrs.Text:='0';
  editPrs.Update;
While not  DataModule3.personnel.Eof do
    begin
     while not DataModule5.TableEvent.Eof do
         begin
           if (DataModule3.personnel.FieldValues['PUCE']=DataModule5.TableEvent.FieldValues['PUCE']) and (trouv=false) then
              begin
               DataModule5.TabTempPrs.Append;
               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.post;
               i:=i+1;
               editPrs.Text:=inttostr(i);
               editPrs.Update;
               DataModule5.TabTempPrs.Next;
               trouv:=true;
            end;   //end if
 
            DataModule5.TableEvent.Next;
 
     end;
 
            if (trouv=false) then
             begin
              DataModule5.TabTempAbs.Append;
              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.TableEvent.FieldValues['DATE'];
               DataModule5.TabTempAbs.Post;
               j:=j+1;
               editAbs.Text:=inttostr(j);
               editAbs.update;
              DataModule5.TabTempAbs.Next;
 
              DataModule5.TableEvent.First;
              DataModule3.personnel.Next;
 
             end; //end if
 
              if (trouv=true) then
              begin
              DataModule5.TableEvent.First;
              DataModule3.personnel.Next;
              trouv:=false;
              end;
 
 
       end; //end While
 
 
 
 
 
end;

Citation:

Ou alors, il suffit d'exécuter ta procédure de recherche/édition dans un Thread.
Tu garderas ainsi le contrôle sur ta fenêtre principale.

un thread????

Citation:

Envoyé par souminet

un thread????

Tu peux déjà regarder ceci dans la :faq:.
Ensuite il me semble que tu peux optimiser ta procédure en utilisant des locate par exemple.
@+

Ok, je vais opter pour le Thread !!

Merci pour le lien vers la FAQ

@++