[8D]最近用delphi 编了一个算学生各门成绩程序,在编程中遇到这样一个问题
1、不用table中的 oncalcufield来将各门成绩辊起来用 while not table1.eof do 如何做,
2、如何算各科平均分和按名次排序。
3、最好能给出一个例子。
tao_rong@163.com
假如你不用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;