Programmer un Progress bar avec la procédure de recherche

**souminet** · 17/02/2008, 13h33

Bonjour à tous,
Voilà, j'ai implémenté une procédure de recherche qui a pour but de parcourir 2 tables et d'y retrouver les enregistrements communs aux deux tables, ceux retrouvés sont ensuite insérés au niveau d'une 3ème table...!
Jusque là, tout va bien, j'ai ensuite placé sur ma fiche un ProgressBAr qui devrait donner un aperçu sur l'avancement de la recherche!!
Je l'ai implémenté comme suit au niveau de l'événement OnClick:

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
procedure TFAbsence.SearchButtonClick(Sender: TObject);
Var
trouv:boolean;
i,j,k:integer;
begin
 DataModule3.personnel.First;
 DataModule5.TableEvent.First;
 trouv:=false;
  i:=0;
  j:=0;
  k:=1;
  editAbs.Text:='0';
  editAbs.Update;
  editPrs.Text:='0';
  editPrs.Update;
  searchProgBar.Min:=0;
  searchProgBar.max:=datamodule3.personnel.RecordCount;
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['NUM']:=k;
               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['DATES']:=DataModule5.TableEvent.FieldValues['DATE'];
               DataModule5.TabTempPrs.FieldValues['HEURE']:=DataModule5.TableEvent.FieldValues['HEURE'];
               DataModule5.TabTempPrs.post;
               i:=i+1;
               k:=k+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['DATES']:=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;

with suiprogressbar4 do
begin
Min:=0;
Max:=datamodule16.DONNEBACS.recordcount;
datamodule16.DONNEBACS.first;
for i:= Min to Max do
begin
position:=i;
datamodule16.DONNEBACS.Next;
edit2.text:=inttostr(Max);
end;       end; //end While
 end;

le problème est que le progressbar passe directement de : 0% à 100% à la fin du traitement de recherche sans faire de progression...
Merci de m'eclairer sur ce point!

Merci Merci Merci

**philnext** · 17/02/2008, 20h06

Ben j'ai l'impression que tu incrémentes ta progressBar après ta recherche donc le comportement me semble normal.
(mais ton code est pas super facile à lire faute d'indentation... je te conseille : http://sourceforge.net/projects/jedicodeformat/ )

**souminet** · 18/02/2008, 09h05

Bonjour,
Merci pour le conseil d'indentation, c'est vrai que j'écris mon code sans trop faire attention, j'essaye tout de même d'espacer et d'aligner les mots clés srutout ceux des boucles et autres blocs, bref, j'en tiendrais compte bien sur, mais pour l'instant , j'ai pas trés bien saisi...???

Tu dis que le progressBAr devrait marcher???!!!! ça ne pourrait pas être un problème d'actualisation par hasard??? j'ai rencontré le même problème avec un Edit qui ne s'incrémentais pas , jusqu'a ce que l'exécution ne s'achève!!! donc j'ai juste ajouté un Update et le tout été joué!!

Est ce que ça ne serait pas juste un truc de ce genre???

Merci +++

**philnext** · 18/02/2008, 11h22

Euh non j'ai dit qu'il me semble normal qu'elle ne marche pas.
Il me semble que l'incrémentation (la ligne position=...) doit se faire DANS la boucle de recherche alors que tu la fais à la fin de ta recherche.
Perso je mettrais cette ligne après ton code

Code :

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

1
2
While not  DataModule3.personnel.Eof do
    begin

avec peut être une fonction de rafraichissement.

**souminet** · 18/02/2008, 14h51

oui, je l'ai placé comme tu me l'as suggéré, mais idem!!! maintenant il passe au 25% puis au 100%????
Moi je voudrais un progressbar qui avance progressivement d'où le progressbar!!!

merci

**ShaiLeTroll** · 18/02/2008, 16h20

datamodule3, datamodule5, datamodule16, tu t'y retrouve ?
Aucun outil n'aide a nommer ses composants, et c'est pour cela qu'ensuite, la maintenance est horriblement couteuse à ton employeur,

Code :

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

1
2
if (trouv=false) then
if (trouv=true) then

en pascal cela DOIT s'écrire

Code :

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

1
2
if not trouv then
if trouv then

les booléens c'est fait pour cela !
Et en plus, c'est plus rapide ...

Cela me rappelle, mon test de recrutement pour mon contrat d'apprentissage en entreprise en 1999, la seule question du programmeur fut d'optimiser ce code (j'avais fait du pascal une après-midi chez un pote, la veille de l'entretien, sachant qu'il faisait du delphi, et que je ne connaissais que la HP48Gx et n'ayant pas d'ordi)

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
 
function Compare(A, B: Integer; out D: Integer): Boolean;
var
  C: Boolean;
begin
  if A < B then
    C := True
  else
    C := False;
 
  if C = False then
    D := 0
  else
    D := B - A;
  Result := C;
end;

Code :

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

1
2
3
4
5
6
7
8
9
 
function Compare(A, B: Integer; out D: Integer): Boolean;
begin
  Result := (A < B); 
  if Result then
    D := 0
  else
    D := B - A;
end;

**souminet** · 19/02/2008, 09h43

Bonjour

Merci à ShaiLeTroll pour ses recommandations, en fait je débute en delphi, et ce n'est pas vraiment mon travail, je suis plutôt responsable du réseau interne de notre entreprise, Cisco et compagnie... on ne m'a chargé que de cette petite application pour aider un peu, alors je m'exerce tant que je peux à mes heures perdues...
Bref, le fait est que mon progressbar n'avance toujours pas, en fait la procédure de recherche suit cette logique:

Ouvrir table1, se positionner sur 1er enregistrement
Ouvrir table2, se positionner sur 1er enregistrement
Parcourir toute la table2, en vue de rechercher tout enregistrement ayant le même num de puce que le premier enregistrement de table1.
ensuite, rebelotte pour tous les enregistrements de ta table1...

Alors dans cette configuration des choses, comment insérer les instructions relatives à mon progressbar au niveau de la procédure de recherche pour qu'il soit synchronisé avec l'avancement de la recherche...

Merci merci merci++++

**souminet** · 19/02/2008, 10h00

Mille excuses, en fait j'ai recopier la partie du progressbar d'un test que j'avais fais, le code source est:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
with searchprogbar do
begin
Min:=0;
Max:=datamodule3.Personnel.recordcount;
datamodule3.Personnel.first;
for i:= Min to Max do
begin
position:=i;
datamodule3.Personnel.Next;
end;
end;

Voilà, c'est plutôt ça, (Ta table personnel est celle sur laquelle je me positionne en premier, pour vérifier au niveau de table 2 si il n'ya pas d'occurence...

Désolée encore!!!!

**ShaiLeTroll** · 19/02/2008, 11h22

Sinon un SELECT DISTINCT PUCE avec un INNER JOIN avec comme clause les champ en commun (PUCE) ne ferait-il pas le travail aussi bien (valable pour les bases SQL, pour Access, DBase ou Paradox, le traitement via TTable sera plus rapide)

**philnext** · 19/02/2008, 20h00

et un truc style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
with searchprogbar do
begin
  Min:=0;
  Max:=datamodule3.Personnel.recordcount;
  datamodule3.Personnel.first;
  for i:= Min to Max do
  begin
    position:=i;
    datamodule3.Personnel.Next;
    refresh;
  end;
end;

???

**djeckelle** · 20/02/2008, 09h57

Bonjour à tous,

Je suis d'accord avec le code proposé par philnext je préciserais juste qu'il faut aussi vérifier la propriété step de l'objet TprogressBar.

**ShaiLeTroll** · 20/02/2008, 12h14

Cela arrive à quelqu'un de rechercher un peu sur le forum
Comment mettre à jour une Progressbar en temps réel ?

Personnellement, j'ai énormément de boucle sur DataSet avec ProgressBar, et je n'ai jamais eu de soucis, par contre je spécifie toujours un Step à 1, et j'utilise StepIt, il semble que selon la puissance de la machine StepIt soit plus effiace que Position ... ce n'est surement qu'une impression ...

Sinon, si le traitement dure moins d'une seconde, tu n'auras jamais le temps de le voir progresser ...

Sinon, moi j'écrit ceci pour rigoler, cela progresse fluidement à part que cela va tellement vite que cela clignote un peu ... d'ailleurs souminet, tu pourrais utiliser directement l'objet TMultiProgressBarForm, avec deux barres, l'une bougeant avec Table1, et l'autre Table2 ...

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
procedure TFrmTestProgressBar.BtnMultiClick(Sender: TObject);
var
  I, J: Integer;
begin
  with TMultiProgressBarForm.Create(nil, 2) do
  begin
    try
      Max[0] := 100;
      for I := 0 to 99 do
      begin
        Position[0] := I;
 
        Max[1] := 100;
        for J := 0 to 99 do
        begin
          Position[1] := J; 
        end;
      end;
    finally
      Free();
    end;
  end;
end;

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
unit uMultiProgressBar;
 
interface
 
uses
   Classes, Forms, Controls, ComCtrls;
 
type
  TMultiProgressBarForm = class(TForm)
  private
    FBarCount: Integer;
    function GetBars(const Index: Integer): TProgressBar;
    function GetBarCount(): Integer;
    function GetMax(const Index: Integer): Integer;
    procedure SetMax(const Index, Value: Integer);
    function GetPosition(const Index: Integer): Integer;
    procedure SetPosition(const Index, Value: Integer);
  protected
    property Bars[const Index: Integer]: TProgressBar read GetBars;
  public
    constructor Create(AOwner: TComponent; BarCount: Integer); reintroduce;
    procedure StepBy(const Index: Integer; Delta: Integer = 1);
    property Max[const Index: Integer]: Integer read GetMax write SetMax;
    property Position[const Index: Integer]: Integer read GetPosition write SetPosition;
    property BarCount: Integer read GetBarCount;
  end;
 
implementation
 
 
constructor TMultiProgressBarForm.Create(AOwner: TComponent; BarCount: Integer);
var
  I: Integer;
  ProgressBar: TProgressBar;
begin
  inherited CreateNew(AOwner); // Pas de DFM
 
  FBarCount := BarCount;
  if FBarCount > 0 then
  begin
    Width := Screen.WorkAreaWidth div 2;
 
    for I := 0 to BarCount - 1 do
    begin
      ProgressBar := TProgressBar.Create(Self);
      ProgressBar.Parent := Self;
      ProgressBar.Align := alTop;
      ProgressBar.Tag := I;
      ProgressBar.Max := 100;
      ProgressBar.Smooth := True;
    end;
 
    BorderStyle := bsToolWindow;
    inherited Position := poScreenCenter;
    FormStyle := fsStayOnTop;
    Enabled := False;
    AutoSize := True;
 
    Show();
    BringToFront();
  end;
end;
 
procedure TMultiProgressBarForm.StepBy(const Index: Integer; Delta: Integer = 1);
begin
  if Index < FBarCount then
    Bars[Index].StepBy(Delta);
end;
 
function TMultiProgressBarForm.GetBars(const Index: Integer): TProgressBar;
var
  I: Integer;
begin
  if Index < FBarCount then
  begin
    for I := 0 to ComponentCount - 1 do
    begin
      if (Components[I] is TProgressBar) and (TProgressBar(Components[I]).Tag = Index) then
      begin
        Result := TProgressBar(Components[I]);
        Exit;
      end;
    end;
  end;
 
  Result := nil;
end;
 
function TMultiProgressBarForm.GetBarCount(): Integer;
begin
  Result := FBarCount;
end;
 
function TMultiProgressBarForm.GetMax(const Index: Integer): Integer;
begin
  if Index < FBarCount then
    Result := Bars[Index].Max
  else
    Result := 0;
end;
 
procedure TMultiProgressBarForm.SetMax(const Index, Value: Integer);
begin
  if Index < FBarCount then
    with Bars[Index] do
    begin
      Max := Value;
      Position := 0;
    end;
end;
 
function TMultiProgressBarForm.GetPosition(const Index: Integer): Integer;
begin
  if Index < FBarCount then
    Result := Bars[Index].Position
  else
    Result := 0;
end;
 
procedure TMultiProgressBarForm.SetPosition(const Index, Value: Integer);
begin
  if Index < FBarCount then
  begin
    Bars[Index].Position := Value;
  end;
end;
 
end.

Programmer un Progress bar avec la procédure de recherche

Delphi

Discussions similaires

Partager

Partager