Impression en delphi

gigabyte Messages postés 21 Date d'inscription vendredi 19 janvier 2007 Statut Membre Dernière intervention 18 octobre 2015 - 19 juil. 2009 à 22:23
beckerich Messages postés 302 Date d'inscription jeudi 29 septembre 2005 Statut Membre Dernière intervention 17 septembre 2013 - 20 juil. 2009 à 12:26
bonjour tt monde,j'ai une table qui porte 4 champ
code client,date livraison,nom client ,qtt livree.
je demande mes freres,programmeurs de me donner un coup de main comment afficher sur impression,les details de chaque client cad:

code client date liv nom qtt
1 --/--/-- cc 20
1 --/--/-- cc 35
1 --/--/-- cc 66
tot xx

2 --/--/-- yy 44
2 --/--/-- yy 85

tot uu

3 --/--/-- hh 77
tot pp

2 réponses

cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 13
19 juil. 2009 à 22:54
bonsoir,
code client,date livraison,nom client ,qtt livree.

on ne peut faire guère plus simple..

je te propose une requête SQL, qui te
donnera la somme des quantités livrées par client entre deux dates :
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;



Debut et Fin pouvant être deux DateTimePicker.

il suffit ensuite de relier ton query à un datasource lui-même relié à un composant db de QuickReport.

et au final :

QuickRep1.Print;


cantador
0
beckerich Messages postés 302 Date d'inscription jeudi 29 septembre 2005 Statut Membre Dernière intervention 17 septembre 2013 2
20 juil. 2009 à 12:26
delphi, ça impressionne...
Luc.
0
Rejoignez-nous