千
千中元
Unregistered / Unconfirmed
GUEST, unregistred user!
想实现的功能和 http://www.delphibbs.com/delphibbs/dispq.asp?lid=659450类似,
在X轴(柱状图底部)显示服务人员的姓名,y轴显示该人员的服务数量(也就是柱状图的高度)
servicer是服务人员姓名字段
在X轴(柱状图底部)显示服务人员的姓名,y轴显示该人员的服务数量(也就是柱状图的高度)
servicer是服务人员姓名字段
代码:
DataModule1.adoqStatService.Close;
DataModule1.adoqStatService.SQL.Clear;
DataModule1.adoqStatService.SQL.Add('select count(id) as countnum,servicer from service_record where importTime>:importtime1 and importtime<:importtime2 group by Servicer');
DataModule1.adoqStatService.Parameters.ParamByName('importtime1').Value := DateTimePicker1.DateTime;
DataModule1.adoqStatService.Parameters.ParamByName('importtime2').Value := DateTimePicker2.DateTime;
DataModule1.adoqStatService.Open;
end;
mySeries := TBarSeries.Create(Application);
DBChart1.SeriesList.Clear;
mySeries.Title := '服务统计';
mySeries.ParentChart := DBChart1;
mySeries.DataSource := DataModule1.adoqStatService;
[b]mySeries.XValues.ValueSource := 'servicer';[/b]
------出错,提示是字段类型的问题
mySeries.YValues.ValueSource := 'countnum';
mySeries.Active := true;