有学生成绩表如下
yuwen shuxue yingyu wuli
1 90 78 67 88
2 45 78 87 92
. . . . .
. . . . .
要根据每一条记录显示其相应的饼图。
问题是:图例中s中的文字全部来自表中的字段名 ,显示为yuwen shuxue yingyu wuli, 而我想让它们显示为 语文 数学 英语 物理, 不知应在何处设置?
yuwen shuxue yingyu wuli
1 90 78 67 88
2 45 78 87 92
. . . . .
. . . . .
要根据每一条记录显示其相应的饼图。
问题是:图例中s中的文字全部来自表中的字段名 ,显示为yuwen shuxue yingyu wuli, 而我想让它们显示为 语文 数学 英语 物理, 不知应在何处设置?
解决方案 »
- 问2个入门问题
- 显示分辨率问题
- 请教一个关于AdvStringGrid的下拉框问题
- 各位,Indy10和9相比有什么大的变化啊?
- 各位大哥帮帮忙吧,关于Variant型的变量赋值问题!!!在线等,谢谢~!!!
- …………与Oracle连接,BDE还是ADO好呢?…………
- 一个很菜的问题!
- delphi6用dbexpress查询oracle数据库中CLOB字段的错误,诚请大师指点
- 如何获得RichEdit中的光标位置(以象素为单位)?高分求救!up有分
- 这个sql怎么写呢?????????????????!!!!!!!!!!!!!!
- extractstrings分割字符串的问题,知道的进来啊 急死了
- 打开看看吧
//chtFir为TChart
procedure TfrmMain.DrawChart(aIndex: Integer; aShow3D: Boolean);
var
tSeries: TChartSeries;
i: Integer;
begin
tSeries := nil;
for i := 0 to chtFir.SeriesCount - 1 do
chtFir.Series[i].Free;
tSeries.ColorEachPoint := true;
aqChart.First;
for i := 0 to aqChart.RecordCount - 1 do
begin
tSeries.Add(aqChart.FieldByName('scount').AsFloat, aqChart.FieldByName('sname').AsString); //动态添加,第二个参数;
aqChart.Next;
end; chtFir.View3D := aShow3D;
chtFir.AddSeries(tSeries); //最后加上
end;
2.改select 语句,这样更省事:
select yuwen as [语文], shuxue as [数学], ... from tblname