在DELPHI7.0中如何实现出生日期统计直方图

Question

我正在做关于人员管理方面的数据库,我想请教诸位高手:如何做一个关于分段统计人员年龄和人数关系的直方图,我的数据库出生日期字段为日期型.请诸位高手给予详细的源程序!!!谢谢!!!!加急!!!!急用!!!!

Answer 1

有办法了, 用Tchar. 把横轴设置成datatime型的,调整最大最小值 纵轴设置成人数,取消3D效果然后根据你的查询结果在Tchar上画barprocedure TForm1.Button2Click(Sender: TObject);
var
dd:word;
begin
series1.clear;
series1.AddXY(EncodeDate(1980,1,21),人数,'',clRed );
end;

Answer 2

其实你用dbchart应该没有问题的吧
你可以统计每个月的人数的吧 或者每天的人数给你段代码 你看看对你有没有什么用处的
CommandText := ' INSERT INTO #Temp' +
      ' SELECT DATENAME(yy,b.goumairiqi) AS Buy_Year,DATENAME(mm,b.goumairiqi) As Buy_Month' +
      ' FROM Kehu_zl a,Yigouche_lb b' +
      ' WHERE a.Bianma=b.Kehu_Bianma AND b.xinghao=:Xinghao ';CommandText := ' SELECT Count(*) AS Total,Buy_Month FROM #Temp' +
      ' WHERE Buy_Year*12+Buy_Month>=:Begin_Day' +
      ' AND Buy_Year*12+Buy_Month<=:End_Day' +
      ' GROUP BY Buy_Month';