MaTHieU

function tdm.donnelistelivraisonfutur(i,codecam:integer):TLivraison;
var
     j    : integer;
     liv  : Tlivraison;
begin
     ds.CommandType := cmdtext;
     ds.CommandText := 'SELECT client.nom_cli,livraison.date_livraison FROM client INNER JOIN livraison ON client.code_client=livraison.code_client WHERE (livraison.code_camion=' + IntToStr(codecam) + ') AND (date_livraison > { fn NOW() })';
     ds.Active := true;
     for j:=1 to i-1 do
     begin
          ds.Next;
     end;
     liv.nomcli := ds.Fields[0].AsString;
     liv.dateLiv := ds.Fields[1].AsDateTime;
     ds.Active := false;
     result := liv;
end;

function tdm.donnenombrelivcam(i:integer):integer;
var
     nb : integer;
begin
     ds.CommandType := cmdText;
     ds.CommandText := 'SELECT COUNT(code_camion) FROM livraison WHERE (code_camion=' + IntToStr(i) + ') AND (date_livraison > { fn NOW() })';
     ds.Active := true;
     nb := ds.Fields[0].AsInteger;
     ds.Active := false;
     result := nb;
end;