2,497
社区成员
发帖
与我相关
我的任务
分享
var
tmp: Double;
begin
tmp:= 800;
try
ADOQuery1.Active:= false;
ADOQuery1.Active:= true;
Series1.DataSource:= ADOQuery1;
Series1.XLabelsSource:= '名称';
Series1.YValues.ValueSource:= '总额';
while not ADOQuery1.Eof do
begin
Series2.Add(ADOQuery1.Fields[1].AsFloat,ADOQuery1.Fields[0].AsString,Series2.SeriesColor);
Series3.Add(ADOQuery1.Fields[1].AsFloat+tmp,ADOQuery1.Fields[0].AsString,Series3.SeriesColor);
tmp:= -tmp;
ADOQuery1.Next;
end;
except
ADOQuery1.Active:= false;
ADOQuery1.Free;
ADOQuery1:= nil;
Handle;
end;
end;