procedure TForm1.Button1Click(Sender: TObject); begin with Query1.SQL do begin Clear; Add('Select NomClient, ); Add('sum(qtt) as Total ); Add('Where (date_livraison >=:Deb) and (date_livraison<=:Fin) '); Add('Group By NomClient '); Query1.ParamByName('Deb').AsDate := DEBUT.Date; Query1.ParamByName('Fin').AsDate := FIN.Date; Query1.Open; end; end;
QuickRep1.Print;