Discussion :

[tchimou]

Bonjour à tous!
je suis entrain de faire une recherche dans une table à partir de deux dates.
A la fin de la recherche , je dois afficher les resultats dans le Dbgrid et les montants dans des Edit .
Au fait, je desire rechercher les entrées(somme) et les sorties(somme) d'une personne dans une table et afficher le total Entrée , Total Sortie et le Solde dans des Edit à la fin de la recherche entre deux dates;
Mais ça ne marche pas, et il y a rien dans les Edit.
Voici mon code

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
24
25
26
27
28
29
30
31
32
33
procedure TGestionForm.SpeedButton3Click(Sender: TObject);
var nEntree,nSortie :variant;
begin
  nEntree:=0; nSortie:=0;
  DM.tbDetailPerson.First;
  while not DM.tbDetailPerson.Eof do
  begin
    DM.tbDetailPerson.Locate('DATEPERS',DateInitiale.Date,[]);
    DM.tbDetailPerson.Locate('DATEPERS',DateFinale.Date,[]);
    if (FormatDateTime('dd/mm/yyyy',DM.tbDetailPersonDATEPERS.Value)=
       FormatDateTime('dd/mm/yyyy',DateInitiale.Date)) and  (FormatDateTime('dd/mm/yyyy',DM.tbDetailPersonDATEPERS.Value)=
       FormatDateTime('dd/mm/yyyy',DateFinale.Date)) then
  begin
    if (DM.tbDetailPersonDATEPERS.Value >= DateInitiale.Date)and
       (DM.tbDetailPersonDATEPERS.Value <= DateFinale.Date)and
       (DM.tbDetailPersonTYPEMVT.Value = 'ENTREE GERANT') then
  begin
    nEntree:=nEntree + DM.tbDetailPersonSOMPERS.Value;
  end;
    if (DM.tbDetailPersonDATEPERS.Value >= DateInitiale.Date)and
       (DM.tbDetailPersonDATEPERS.Value <= DateFinale.Date)and
       (DM.tbDetailPersonTYPEMVT.Value = 'SORTIE GERANT') then
  begin
    nSortie:=nSortie + DM.tbDetailPersonSOMPERS.Value;
  end;
 
  end;
    DM.tbDetailPerson.Next;
  end;
    EditEntree.Text:=FloatToStr(nEntree);
    EditSortie.Text:=FloatToStr(nSortie);
    EditSolde.Text:=FloatToStr(nEntree - nSortie);
end;

il ne m'affiche pas d'erreur , et pourtant il ne me donne pas ce que je veux.
Merci pour votre aide.

[aityahia]

c'est pas la bon solution ton code il te faut enormément de temps pour calculer tes totaux il faut utiliser les requete pour le filtrage et le calcule.

vous ecrivez une requete pour afficher le détails

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
QueryDetailPers.Close;
QueryDetailPers.SQL.Add('SELECT * FROM DetailPresonne');
QueryDetailPers.SQL.Add('WHERE (DATEPERS BETWEEN :DateInitial AND :DateFinale) AND (TYPEMVT = :Mouvement) ');
QueryDetailPers.ParamByName('DateInitial').Value :=DateInitiale.Date;
QueryDetailPers.ParamByName('DateFinale').Value :=DateFinale.Date;
QueryDetailPers.ParamByName('Mouvement').Value :='ENTREE GERANT';
QueryDetailPers.Open;

et une autres pour calculer le total.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
QuerySumDetailPers.Close;
QuerySumDetailPers.SQL.Add('SELECT Sum(SOMPERS) AS Total FROM DetailPresonne');
QueryDetailPers.SQL.Add('WHERE (DATEPERS BETWEEN :DateInitial AND :DateFinale) AND (TYPEMVT = :Mouvement) ');
QuerySumDetailPers.ParamByName('DateInitial').Value :=DateInitiale.Date;
QuerySumDetailPers.ParamByName('DateFinale').Value :=DateFinale.Date;
QuerySumDetailPers.ParamByName('Mouvement').Value :='ENTREE GERANT';
QuerySumDetailPers.Open;

DateInitial,Datefinale,Mouvement sont des paramtres d'entrer.
Attention si vous utilser access il faut formatern la date au format mm/dd/yyyy
et vous faite la meme chose pour calculer les sortie

[tatareau]

suggestion : parfois plus performant: faire travailler ton SGBD par une procédure stockèe.
Bon code :

[philnext]

Je trouve la solution de aityahia plus générique, donc à utiliser.

[tchimou]

merci je vais travailler avec ce code.

[tchimou]

j'ai essayer le code , il y a pas d'erreur à l'execution, mais lorsque je clique sur le bouton il m'affiche une erreur de syntaxe à ce niveau:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

('WHERE (DATEPERS BETWEEN :DateInitiale AND :DateFinale) AND (TYPEMVT = :Mouvement) ')

je voudrais aussi savoir si DateInitiale et DateFinale qui sont utilisés dans cette requete sont bien les noms de mes objets DateTimepicker, aussi je ne comprends pas bien la provenance de 'Mouvement'.
Excuser moi je connais juste un peu le sql , mais pas très bien , donc veillez m'excuser pour mes questions, je voudrais seulement comprendre le code.
merci

[philnext]

Pour te répondre les parties avec ':' dans ta requète sont des paramètres que tu définis avec ParamByName.
Tu as quoi comme erreur de syntaxe ?

[tchimou]

voici l'erreur qui s'affiche:

[tatareau]

tchimou: STP evite d'envoyer un document au format propriétaire... même si c'est permis par le forum.
Peux tu redonner les lignes de codes de la requête précédent ton erreur?

[philnext]

A la lecture de ton erreur c'est la passagede paramètres qui n'a pas fonctionné.
Je ne peux pas t'aider car je n'utilise pas ça.
Essaye de modifier directement dans ta requete sans passer par les parametres (c'est ce que je fais ça me semble plus clair)

[tchimou]

Ok voici mon code , je le mets derrière une boucle while do , mais je crois que l'erreur n'est pas à ce niveau :

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
24
25
26
nEntree:=0; nSortie:=0;
  DM.tbDetailPerson.First;
  while not DM.tbDetailPerson.Eof do
  begin
     DM.QueryDetail.Close;
     DM.QueryDetail.SQL.Add('SELECT * FROM DETAIL_PERS');
     DM.QueryDetail.SQL.Add('WHERE (DATEPERS BETWEEN :DateInitiale AND :DateFinale) AND (TYPEMVT = :Mouvement) ');
     DM.QueryDetail.ParamByName('DateInitiale').Value :=DateInitiale.Date;
     DM.QueryDetail.ParamByName('DateFinale').Value :=DateFinale.Date;
     DM.QueryDetail.ParamByName('Mouvement').Value :='ENTREE GERANT';
     DM.QueryDetail.Open;
 
     DM.QuerySomme.Close;
     DM.QuerySomme.SQL.Add('SELECT Sum(SOMPERS) AS Total FROM DETAIL_PERS');
     DM.QuerySomme.SQL.Add('WHERE (DATEPERS BETWEEN :DateInitiale AND :DateFinale) AND (TYPEMVT = :Mouvement) ');
     DM.QuerySomme.ParamByName('DateInitiale').Value :=DateInitiale.Date;
     DM.QuerySomme.ParamByName('DateFinale').Value :=DateFinale.Date;
     DM.QuerySomme.ParamByName('Mouvement').Value :='ENTREE GERANT';
     DM.QuerySomme.Open;
 
 
    DM.tbDetailPerson.Next;
  end;
    EditEntree.Text:=FloatToStr(nEntree);
    EditSortie.Text:=FloatToStr(nSortie);
    EditSolde.Text:=FloatToStr(nEntree - nSortie);

merci

[tatareau]

remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DM.QuerySomme.ParamByName('Mouvement').Value :='ENTREE GERANT';

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DM.QuerySomme.ParamByName('Mouvement').AsString :='ENTREE GERANT';

[Rayek]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11

QueryDetailPers.Close;
QueryDetailPers.SQL.Clear;
QueryDetailPers.SQL.Add('SELECT * FROM DetailPresonne');
QueryDetailPers.SQL.Add('WHERE (DATEPERS BETWEEN :DateInitial AND :DateFinale) AND (TYPEMVT = :Mouvement) ');
QueryDetailPers.ParamCheck := True;
QueryDetailPers.ParamByName('DateInitial').Value :=DateInitiale.Date;
QueryDetailPers.ParamByName('DateFinale').Value :=DateFinale.Date;
QueryDetailPers.ParamByName('Mouvement').Value :='ENTREE GERANT';
QueryDetailPers.Open;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
QuerySumDetailPers.Close;
QuerySumDetailPersSQL.clear;
QuerySumDetailPers.SQL.Add('SELECT Sum(SOMPERS) AS Total FROM DetailPresonne');
QueryDetailPers.SQL.Add('WHERE (DATEPERS BETWEEN :DateInitial AND :DateFinale) AND (TYPEMVT = :Mouvement) ');
QuerySumDetailPers.paramCheck := True;
QuerySumDetailPers.ParamByName('DateInitial').Value :=DateInitiale.Date;
QuerySumDetailPers.ParamByName('DateFinale').Value :=DateFinale.Date;
QuerySumDetailPers.ParamByName('Mouvement').Value :='ENTREE GERANT';
QuerySumDetailPers.Open;

Déjà la grosse erreur d'utiliser Add et de ne pas faire un Clear avant.
Puis il est préférable de faire un paramcheck := true avant de saisir les paramètres ca mange pas de pain et on est sur qu'ils sont détectés après

[tchimou]

Merci pour le code , je l'ai modifié avec vos conseils ;
mais j'ai un autre problème , il ne me donne aucun resultat , mais il ne donne plus d'erreur comme les fois dernières.
J'ai même l'impression qu'il ne fait pas le filtrage, c'est exactement comme mon premier code plus haut . Il s'execute bien , sans erreur, lorsque je clique sur le bouton pour valider mes deux dates choisies , il y a rien qui marche.
je ne sais pas quoi faire.
je crois que le problème , c'est au niveau des calculs, il ne fait pas les calculs.
je dois afficher la somme des entrees dans un Edit et la somme des sorties dans un Edit aussi , et afficher enfin le solde (Entree - Sortie) dans un Edit .
comment faire pour integrer cela avec des requetes .
merci de votre aide.

[Rayek]

Tu utilises quoi comme base de données ?

[tchimou]

je travaille avec Access comme Base de donnees. j'ai une table que j'appelle Personne qui contient les noms de personnes et une autre table DetailPers qui contient les details de personnes; donc je travaille en maitre - esclave , donc les donnees que je cherche à calculer se trouve dans la table DetailPers qui est liée à Personne .
Merci

[Rayek]

Essaie comme ca alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
QueryDetailPers.SQL.Clear;
QueryDetailPers.SQL.Add('SELECT * FROM DetailPresonne');
QueryDetailPers.SQL.Add('WHERE (DATEPERS BETWEEN :DateInitial AND :DateFinale) AND (TYPEMVT = :Mouvement) ');
QueryDetailPers.ParamCheck := True;
QueryDetailPers.ParamByName('DateInitial').Value :=FormatDateTime('mm/dd/yyyy',DateInitiale.Date);
QueryDetailPers.ParamByName('DateFinale').Value :=FormatDateTime('mm/dd/yyyy',DateFinale.Date);
QueryDetailPers.ParamByName('Mouvement').Value :='ENTREE GERANT';
QueryDetailPers.Open;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
QuerySumDetailPers.Close;
QuerySumDetailPersSQL.clear;
QuerySumDetailPers.SQL.Add('SELECT Sum(SOMPERS) AS Total FROM DetailPresonne');
QueryDetailPers.SQL.Add('WHERE (DATEPERS BETWEEN :DateInitial AND :DateFinale) AND (TYPEMVT = :Mouvement) ');
QuerySumDetailPers.paramCheck := True;
QuerySumDetailPers.ParamByName('DateInitial').Value :=FormatDateTime('mm/dd/yyyy',DateInitiale.Date);
QuerySumDetailPers.ParamByName('DateFinale').Value :=FormatDateTime('mm/dd/yyyy',DateFinale.Date);
QuerySumDetailPers.ParamByName('Mouvement').Value :='ENTREE GERANT';
QuerySumDetailPers.Open;

En Access le format est MM/DD/YYYY normalement.

[tchimou]

merci pour le code!
en Access le format c'est : DD/MM/YYYY ;
j'ai modifié de nouveau le code en tenant compte du format , mais toujours rien qui se passe , mais ici maintenannt je vois le Dbgrid bougé du premier enregistrement au dernier , mais il ne fait pas toujours le filtrage par Date , il me donne tous les enregistrements avec toutes les dates;
je ne sais pas où ce trouve le problème, pourtant tout à l'air bon.
merci de nouveau pour votre aide.

[Rayek]

C'est vrai, je viens de me souvenir qu'ACCESS a un système d'appel de date spécial (Merci MS ... )

Essaie comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
QueryDetailPers.SQL.Clear;
QueryDetailPers.SQL.Add('SELECT * FROM DetailPresonne');
QueryDetailPers.SQL.Add('WHERE (DATEPERS BETWEEN :DateInitial AND :DateFinale) AND (TYPEMVT = :Mouvement) ');
QueryDetailPers.ParamCheck := True;
QueryDetailPers.ParamByName('DateInitial').Value := '#' + FormatDateTime('mm/dd/yyyy',DateInitiale.Date) + '#';
QueryDetailPers.ParamByName('DateFinale').Value :='#' + FormatDateTime('mm/dd/yyyy',DateFinale.Date) + '#';
QueryDetailPers.ParamByName('Mouvement').Value :='ENTREE GERANT';
QueryDetailPers.Open;

fait un test déjà avec cette partie

[tatareau]

Je dis sans doute une bêtise En mode DEBUG faire des watch des affectations avant et après chaque Value.