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操作这一块的程序代码贴出来看看
多谢多谢!!,急用急用!!!!!!
我用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操作这一块的程序代码贴出来看看
多谢多谢!!,急用急用!!!!!!