delphi的根据acess数据库数据，建立折线

Question

要用acess数据库中的表t1中的两个字段，做成一个用dbchart的折线图
但小弟刚接触delphi不久，数据库尚不明白
所以请教下大神们，这段数据怎么写
我用的控件有adoconnection,adoquery,dbchart,
我的两个字段名，分别是tm，和1010，
tm是在程序中用timetostr(time)搞到的时间，让我以文本形式存在这个字段了，另一个1010字段是数字，双精度的，这是我的数据库部分
我想用tm中的时间作为横坐标，1010字段中的数字作为纵坐标，
希望大神们帮帮忙
另外如果还有部分参数需要在控件的属性编辑器上修改，也请尽量详细告知，在下万分感谢，

Answer 1

给你指一条路：
详细的步骤我没有，你可以看看Delphi7自带的TChart的demo

Answer 2

1.界面上放个TChart控件；
2.双击控件，在弹出的对话框中add一条折线；
3.假设这条曲线是Series1: TLineSeries;然后 Series1.AddXY()，把你数据库中的xy坐标一条一条加进去；

Answer 3

大神们，好吧，图表跟数据库我已经连上了，数据也可以显示了，但现在有这样一个
！！！！！新问题！！！！！
procedure TForm1.Button24Click(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select tm , 温度101 , 湿度101  from t2  where 日期='''+datetostr(date)+''' ');
end;
  DBChart1.Series[0].XLabelsSource:='tm';
  DBChart1.Series[0].YValues.valuesource:='温度101';
  DBChart1.Series[0].DataSource:=ADOQuery1;
  DBChart1.Series[1].YValues.valuesource:='湿度101';
  DBChart1.Series[1].DataSource:=ADOQuery1;
end;
procedure TForm1.Button23Click(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select tm , 温度102 , 湿度102  from t2  where 日期='''+datetostr(date)+''' ');
    Open;
  end;
  DBChart1.Series[0].XLabelsSource:='tm';
  DBChart1.Series[0].YValues.valuesource:='温度102';
  DBChart1.Series[0].DataSource:=ADOQuery1;
  DBChart1.Series[1].YValues.valuesource:='湿度102';
  DBChart1.Series[1].DataSource:=ADOQuery1;
end;
我的程序如上，我用了两个按键，分别显示数据库中的两个字段的数据，
但是，程序运行后只能点一个BUTTON，
直接点另一个，就会报错
请问如何解决，感谢感谢

Answer 4

- -！补充，我是先点的button24，在点的button25如果先点25，在点24，出现的就是‘温度102找不到’