采用tdbchart控件
procedure TForm1.Button1Click(Sender: Object);
var
LS: TLineSeries;
begin
LS := TLineSeries.Create(DBChart1); //这里假设你用的是DBChart1
LS.ParentChart := DBChart1;
LS.Title := '标题'
LS.DataSource := Adoquery1; //这里假设你用的adoquery1作为dataset
LS.XLabelsSource := '你横坐标要显示的字段名称';
LS.YValues.ValueSource := ‘纵坐标的字段名称'; //必须是数值型
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024