火灾的主要案例:Delphi编程方面得高手帮帮忙~!

来源:百度文库 编辑:中科新闻网 时间:2024/05/08 11:51:35
我用数据库查询学生名,例如:小明,
是根据名字查的,查出来后,显示他得信息,
在DBGrid1这里显示数据,,,
信息里面有,姓名,年龄,性别,扣分情况。
怎么得到扣分情况这里得数据????
然后把它们加起来,算出小明一共扣了多少分?

例如:
姓名 年龄 性别 扣分情况
小明 21 男 10
小明 21 男 5
小明 21 男 10

//这是查询出来的3个表
怎么得到扣分情况里得数据,
然后把它们都加到一起。。。。

function GetScore:integer;
begin
result:=0;
AdoQuery1.SQlo.Text:=
'select * from 表名 where 姓名='#39+'小明'+#39;
Adoquery1.Open;
while not Adoquery1.Eof do
begin
Result:=Result+Adoquery1.FieldByName('扣分').AsInteger;
AdoQuery1.Next;
end;
end;