如何按由大到小的顺序和计算总和(100分)

Q

qjldx

Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
[8D]最近用delphi 编了一个算学生各门成绩程序,在编程中遇到这样一个问题
1、不用table中的 oncalcufield来将各门成绩辊起来用 while not table1.eof do 如何做,
2、如何算各科平均分和按名次排序。
3、最好能给出一个例子。
tao_rong@163.com
 
你的数据库结构是怎样的,没有这个不好处理
一般用语句就能实现
 
例:select 学科,avg(分数)as 分数 from 表名 group by 学科 order by avg(分数)

avg 平均值
Group by 将表分为组
Order by 行进行排序
 
这不是delphi问题,最好看看sql语言!
 
sum求和
avg平均值
group by 分组
order by 排序
 
假如你不用sql 用dephi计算(效果没有sql计算快)
假如计算数学(math)
var
BookMark:TbookMark ://defined in DB unit
tmath:Float;
begin
tmath:=0;
With Table1 do
begin
BookMark:=GetBookMark;
DisableControls;
While Not Eof do
begin
tmath:=tmath+FieldbyName('***').asFolat;
Next;
end;
EnableControls;
FreeBookMark(bookmark);
end;
 
顶部