怎么用delphi实现图表分析
procedure TForm1.FormCreate(Sender: TObject);var
i: integer;
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select distinct 测试点ID form 取值表');
open;
end;
for i:=0 to adoquery1.RecordCount-1 do
begin
combobox1.items.add(adoquery1.FieldByName('测试点ID').AsString);
adoquery1.Next;
end;
combobox1.itemindex:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
dbchart1.Title.Text.Text:='「'+combobox1.text+'」利用图表分析测试点的温度值';
with adoquery1 do
begin
close;
sql.clear;
sql.add('select 测试时间,温度测试值 from (select 测试时间,温度测试值 from 取值表 where 测试点ID='''+combobox1.text+''')group by 测试时间');
open;
end;
dbchart1.series[6].xlabelssource:='测试时间';
dbchart1.series[5].yvalues.valuesource:='温度测试值';
dbchart1.series[0].datasource:=adoquery1;
end;
end.
我是要实现数据库与图表的交换,将从数据库查询的数据由图表显示,但是实现不了,说有试图执行的查询中不包含作为合计函数一部分的特定表达式‘温度测试值’,请问怎么修改