1 2 3 4 5 6 7 8 9 10 11 12
| with pareto do
begin
SQL.Clear;
SQL.Add('SELECT top 5 code_default,disg_code, Qte, Date1, type_produit');
SQL.Add('FROM (SELECT tempsdefaults.code_default, defaults.disg_code, Count(tempsdefaults.code_default) AS Qte, tempsdefaults.Date1, Produit.type_produit');
SQL.Add( 'FROM (defaults INNER JOIN tempsdefaults ON defaults.code_default = tempsdefaults.code_default) INNER JOIN Produit ON tempsdefaults.produit = Produit.produit');
SQL.Add( 'GROUP BY tempsdefaults.code_default, defaults.disg_code, tempsdefaults.Date1, tempsdefaults.produit, Produit.type_produit');
SQL.Add( 'HAVING (((tempsdefaults.Date1) Between :date1 And :date2) AND ((Produit.type_produit)='+QuotedStr(produitpareto.Text)+'))');
Parameters.CreateParameter('date1', ftstring, pdInput, 0, StrToDate(datepareto1.Text));
Parameters.CreateParameter('date2', ftstring, pdInput, 0, StrToDate(datepareto2.Text));
SQL.Add( 'ORDER BY Count(tempsdefaults.code_default) DESC)');
Open; |
Partager