有学生成绩表如下
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, 而我想让它们显示为 语文 数学 英语 物理, 不知应在何处设置?
解决方案 »
- 有个问题一直想不通啊!谁帮帮我!!!
- 高分!有没有办法把excel的内容读到ADOQuery中??然后我可以用ADOQuery来做查询等操作
- SOS!几个基本概念
- 如何实现发送同步的数据
- 求教delphi中搜索(查询)数据的几种方式。
- ADO中有没有返回SQL服务器名列表的函数?
- 如何用delphi程式來實現將.XLS快速的導入到SQL中!!!!
- 请问哪里有wise instsll system9.01的汉化版本?急用!谢谢!
- 关于在TreeView里面建立子项目的问题,这样就可以了?转转转,还是转不过弯~
- ADO操作CSV文件出现乱码
- 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