Discussion :

[jcaction]

Bonjour à tous,

Dans mon Application (Delphi + Firebird 2) j'utilise des Tquery pour mes requêtes mais il se trouve que comme je gère un grand nombre de données (environ 1500) c'est pas très agréable pour l'utilisateur de voir le chargement des données dans mon DBGrid.
Un exemple simple est que je souhaites Compter le nombre d'enregistrements d' une requête et aussi faire des calculs sur deux colonnes (Montant et Quantité).
Le problème est que les lignes apparaissent très lentement.

Mon code que j' écrit dans le AfterOpen de mon IBQuery est le suivant

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
procedure TFenVueCommande.CommandSetAfterOpen(DataSet: TDataSet);
var j,k : Integer;
begin
   j:=0;
   k:=0;
  while not CommandSet.Eof do
   begin
    j:=j+(StrToInt(CommandSetNBPIECECOM.Text)); // somme des Qtité
   k:=k+(StrToInt(CommandSetMONTCOM.Text));    // somme du montant 
  CommandSet.Next;
 end;
edit5.Text:=IntToStr(CommandSet.RecordCount);// Nombre de lignes
edit6.Text:=IntToStr(j);
edit7.Text:=IntToStr(k);
end;

Merci par avance pour votre aide.

[edam]

note:ne jamai faire de calcul dans un événément de afteropen
si ta des champs à calculé, les mettres dans oncalcfield,
2-pour tes calcul là, soit u utilise les champs aggrégat avec TClientDataset, ou simplment et plus pratique et rapide une requet

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 TMaForm.calculer;
var 
     query:TIBSQL;
     nbr:integer
     qte:single;
     som:currency;
begin
     query:=TIBSQL.Create(nil);
     try
       query.Database:=IBDatabase1;
       query.SQL.Text:='select count(*),sum(NBPIECECOM),sum(MONTCOM) from matable';
       query.ExecQuery;
       nbr:=query.fields[0].value;
       qte:=query.fields[1].value;
       som:=query.fields[2].values;      
       IBTransaction1.CommitRetaining;
     finally
       query.Free;
     end;
......
 
end;

edit: avec les dbgrid, n'oublie pas d'utilisé TIBQuery.disablecontrol et enablecontrol (quant tu ouvre une table, faire une recherche dans une boucle,....) sa réduit le rafraichissement des controls BD

[jcaction]

Merci pour ta réponse je vais la tester. en fait ma requête utilise plusieurs paramètre donc j'avais opté pour l'utilisation du OnCalcFields mais ça ne marche pas ça m'affiche 0 dans tous les champs.
Je teste la 2ème proposition !