Discussion :

[ghan77]

Voilà j'essaie de faire un graphique mais au niveau de la condition et de la création du graphe ca ne marche pas le graphique ne se fait pas et je ne comprends pas pourquoi.Voila mon code complet :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 
var
v:double;
condition2,condition:boolean;
begin
 
//Vérifiez s'il a sélectionné une clé pub
if ComboBox1.text ='Sélectionnez' then//Condition Si on a pas sélectionné dans la ComboxBox1
          begin
          Showmessage('Veuillez Sélectionnez une Clé de Publication');//Afficher Avertissement
          exit;
          end;
 
condition2:=false;
condition:=false;
 
//J'initialise V
v:=0;
 
//Recherche Clé Pub, Date, Retour, Montant Retour(peut etre)
Query2.Close;
Query2.sql.clear;
Query2.sql.Add('SELECT smcode,sdate,');
Query2.sql.Add('COUNT(sccode) AS CompteDeSCCode,');
Query2.sql.Add('Sum(SPRICE) as SommeDeSPRICE');
Query2.sql.Add('FROM Sales');
Query2.SQL.Add('WHERE (smcode=:x)');
Query2.SQL.add('GROUP BY sdate, smcode');
Query2.Params[0].AsString:=AnsiUpperCase(combobox1.text);
Query2.Open;
 
//Déterminer si le texte du ComboBox et de la requête sont égaux
while not Query2.Eof do
      begin
                if AnsiUpperCase(combobox1.Text)=Query2.Fields[0].asstring then
                condition:=true;
                Query2.Next;
      end;
 
if condition=false then
      showmessage('Cette Clé Pub n''existe pas')
      else
      begin
      Serie.Title:=AnsiUpperCase(combobox1.text); //Modifie le titre de la série
      Series2.Title:=AnsiUpperCase(combobox1.text);
      Series3.Title:='Seuil';
      end;
 
Series1.Clear; //Efface le contenu de la série
Series2.Clear;
Series3.Clear;
 
      while not Query2.Eof do //Ajoute valeurs dans la série
      begin
      if condition=true then
      begin
      V:=V+StrToFloat(Query2.Fields[3].AsString);
      Series1.Add(StrToFloat(Query2.Fields[2].AsString),Query2.Fields[1].AsString,693450250); //Ajoute un nombre entre 0 et 50 à la série
            if edit1.text<>'' then
            begin
                 Series2.Add(strtofloat(edit1.text),'',750401325);
                 Series3.Add(v,Query2.Fields[1].AsString,693450250);
            end
            else
            begin
            condition2:=true;
            end;
            end;
      Query2.next;
      end;
 
      if condition2=true then
      Showmessage('Veuillez Remplir Le Champ Montant Fabrication');
end;

et voilà la partie de code où apparement il y a un petit problème :

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
 
while not Query2.Eof do //Ajoute valeurs dans la série
      begin
      if condition=true then
      begin
      V:=V+StrToFloat(Query2.Fields[3].AsString);
      Series1.Add(StrToFloat(Query2.Fields[2].AsString),Query2.Fields[1].AsString,693450250); //Ajoute un nombre entre 0 et 50 à la série
            if edit1.text<>'' then
            begin
                 Series2.Add(strtofloat(edit1.text),'',750401325);
                 Series3.Add(v,Query2.Fields[1].AsString,693450250);
            end
            else
            begin
            condition2:=true;
            end;
            end;
      Query2.next;
      end;

c'est depuis que j'ai mis "condition" qu'il y a un problème alors que "condition2 marche nikel!

voilà merci de vos prochaine réponse!

[ghan77]

Mdr!J'ai résolu moi même le problème je suis vraiment trop nul! en fait j'avais oublié après la boucle While de "condition" de mettre après

Code :

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

1
2
 
Query2.First;

Comme ici :

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
 
Query2.First;//Oubli ici! lol
      while not Query2.Eof do //Ajoute valeurs dans la série
      begin
      if condition=true then
      begin
      V:=V+StrToFloat(Query2.Fields[3].AsString);
      Series1.Add(StrToFloat(Query2.Fields[2].AsString),Query2.Fields[1].AsString,693450250); //Ajoute un nombre entre 0 et 50 à la série
            if edit1.text<>'' then
            begin
                 Series2.Add(strtofloat(edit1.text),'',750401325);
                 Series3.Add(v,Query2.Fields[1].AsString,693450250);
            end
            else
            begin
            condition2:=true;
            end;
            end;
      Query2.next;
      end;