动态向统计图控件(tchar)添加数据.txt

来自「是一部详细介绍了DELPHI的经典著作」· 文本 代码 · 共 44 行

动态向统计图控件(Tchar)添加数据
procedure Tform_tongji_state.formshow(sender:Tobject);
var
 t:table;
 i:integer;
 data_sum:array[1..6] of integer;
begin
 t:=ttable.create(nil);
 t.databasename:='tablemodel';  //指定数据库名
 t.tablename:='test';//指定表名
 t.open;
 series1.clear;
for i:=1 to 6 do
 with t do
begin
 if fieldbyname('状况').asstring='' then
 data_sum[1]:=data_sun[1]+1;
 if fieldbyname('状况').asstring='好' then
 data_sum[2]:=data_sum[2]+1;
 if fieldbyname('状况').asstring='良好' then
 data_sum[3]:=data_sum[3]+1;
 if fieldbyname('状况').asstring='可用' then
 data_sum[4]:=data_sum[4]+1;
 if fieldbyname('状况').asstring='待修' then
 data_sum[5]:=data_sum[5]+1;
 if fieldbyname('状况').asstring='报废' then
 data_sum[6]:=data_sum[6]+1;
next;
 end;
//在设计期,应先双击Tchar控件,生成一个series,
series1.add(data_sum[2],'好',clteecolor);
series1.add(data_sum[3],'良好',clteecolor);
series1.add(data_sum[4],'可用',clteecolor);
series1.add(data_sum[5],'待修',clteecolor);
series1.add(data_sum[6],'报废',clteecolor);
series1.add(data_sum[1],'其他',clteecolor);
t.close;
t.free;
end;
图表打印的方法为:
char1.print;
保存char的图形为:
if psave.execute then
char1.savetobitmapfile(psave.fiename);