1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| procedure TF_GRAPHE.BCImageButton3Click(Sender: TObject);
var str:ansistring; x,y:variant;
begin
ChartPrix_An.Active:=False;
MD.Q_PrixParAn.Close;
MD.Q_PrixParAn.ParamByName('P').AsInteger:=DBLookupComboBox1.KeyValue;
MD.Q_PrixParAn.Open;
if MD.Q_PrixParAn.FieldValues['APRIXMOY']=Null then
Abort;
MD.Q_PrixParAn.First; x:=MD.Q_PrixParAn.FieldValues['APRIXMOY'];str:='';ListChartSource1.Clear;
While not MD.Q_PrixParAn.EOF do
begin
str:=MD.Q_PrixParAn.FieldValues['NOM_ANN'];
y:=MD.Q_PrixParAn.FieldValues['APRIXMOY'];
ListChartSource1.AddXYList(x,[y,y],str,Random(100025244)+random(15958450));
x:=x+(SpinEdit1.Value*y);
MD.Q_PrixParAn.Next;
end;
ChartPrix_An.Active:=True;
end; |
Partager