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; |
Partager