关于TDBChart的使用问题!急用!帮帮忙!!(100分)

  • 主题发起人 主题发起人 yhzz
  • 开始时间 开始时间
Y

yhzz

Unregistered / Unconfirmed
GUEST, unregistred user!
比如
我用Adoquery1 通过数据库查询后,
Adoquery1中就有n个纪录,n各字段我想此时Tdbchart能够反映出它的变化,
我所能想出的代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
1 dbchart1.SeriesList[0].DataSource:=adoquery1;
2 with adoquery1 do
3 begin
4 Close;
5 SQL.Clear;
6 sql.Add(' select * from twxyj');
7 open;
8 series1.XLabelsSource:=fields[1].FieldName;
9 series1.CheckDataSource;
end;
end;
我想,在第8行已经对XlabelsSource进行了付值,可Dbchart上是一片空白!
*******************************************************
既然各位高手已经写过这方面的应用程序,如果你们愿意的话,
请问能不能把对TDBchart操作这一块的程序代码贴出来看看
多谢多谢!!,急用急用!!!!!!

 
DBChart1.Series[0].DataSource:=TjtxQuery;
DBChart1.Series[0].XlabelsSource:=ComboBox1.Text;
DBChart1.Series[0].YValues.ValueSource:=ComboBox2.Text;
 
接受答案了.
 
后退
顶部