当前位置:主页>仓库管理软件> 列表

chart画曲线图,怎么画线,怎么使用,谁有一个简单的例子 找用友财务软件u8

财务软件版1楼: chart画曲线图,怎么使用,谁有一个简单的例子,马上给分。

2楼: 我会 如用友财务软件u8

3楼: QQ84325028

4楼: SiWeiLiuLang
你会就发出来

5楼: ChartFX不是有它自己带的例子吗?虽然是ASP的,但你也可以通过相应的方法在Delphi里面实现呀,又不是很麻烦。

6楼: 如果是DELPHI里的TCHART,DELPHI自带DEMO的就很好

财务软件版7楼: 是delphi中的

8楼: 转一个例子给你参考:
chart1.LeftAxis.SetMinMax(0,50); //设置纵坐标值的范围(温度)
chart2.LeftAxis.SetMinMax(0,100); //设置纵坐标值的范围(湿度)
with ADOQUERY1 do
begin
close;
sql.Clear ;
sql.Add(''select jfCT1,jfCH1,jfCT2,jfCH2,jfCT3,jfCH3,evttime from jfCdevtlog order by evttime desc'');
open;
ADOQUERY1.Fields.Count; //记录总数
while not eof do
begin
dt:=FieldByName(''evttime'').AsDateTime;
sdt:=FormatDateTime(''YY/MM/DD HH:MM:SS'',dt); //
if CheckBox1.Checked then


begin
t1:=FieldByName(''jfCT1'').AsString ;
myseriesti.AddXY(dt,strToFloat(''15''),copy(sdt,10,5),clred) ;
myseries1t.AddXY(dt,strToFloat(t1),copy(sdt,10,5),clgreen) ;
myseriesta.AddXY(dt,strToFloat(''28''),copy(sdt,10,5),clred) ;
end;
if CheckBox2.Checked then
begin
h1:=FieldByName(''jfCH1'').AsString ;
myserieshi.AddXY(dt,strToFloat(''30''),copy(sdt,10,5),clred );
myseries1h.AddXY(dt,strToFloat(h1),copy(sdt,10,5),clgreen );
myseriesha.AddXY(dt,strToFloat(''70''),copy(sdt,10,5),clred );
end;
next;
end;
end;