使用delphi制作统计图表
使用Data Controls下的DBChart控件（Name设为dbcht1）双击点击Add添加你要的类型
在Delphi中 首先进行查询，然后添加
dbcht1.Series[0].XLabelsSource:=’字段名’;
dbcht1.Series[0].YValues.ValueSource:='字段名';
dbcht1.Series[0].DataSource:=qry_1;
dbcht1.Title.Text.SetText('图表的名称');
即可以图表的形式进行数据显示
delphi PageControl选项卡标题变色
1）将PageControl的OwnerDraw属性设置为True
2）在PageControl的OnDrawTab事件中加入如下代码：
if Active then
begin
pgc_test.Canvas.Font.Color:=clBlue; //对应标题变蓝
pgc_test.Canvas.Font.Style:=[fsBold]; //对应标题加粗
end;
pgc_test.Canvas.TextOut(Rect.Left+4,Rect.Top+4,pgc_test.Pages[TabIndex].Caption);//输出子选项卡的标题内容