关于核算的问题

Question

我有一个问题想请教，
  我有两张表，一个张表是 ado_resourse(resourse_id,active_id,workshop_id,distribute_rate,distribute_cost),
 另张表，ado_cost(resoure_id,workshop_id,season_num,resourse_cost)
   我现在在就是想通过ado_cost中resourse_cost的总和乘以ado_resourse中的distribute_rate=ado_resourse中的distribute_cost.
   我在SQL中写的能实现
select sum(resourse_cost) 
from  ado_cost a ,ado_resourse b
where a.resourse_id=b.resourse_id and a.workshop_id=b.workshop_id
  我在DELPHI中写的，  ado1_cost_master:adoquery1
ado1_cost_master:
select  a.workshop_id,a.resourse_id,a.season_num,a.resourse_cost,b.distribute_rate,b.active_id,b.distribute_cost 
from  cost_master a ,resourse_distribute b
where a.resourse_id=b.resourse_id and a.workshop_id=b.workshop_id
这样就算 do_cost中resourse_cost的总和 可是报错了，       
procedure Tw_resourse_distribute.Button1Click(Sender: TObject);
var
 sum1:real;
 s:string;
 book:tbook;
begin
   sum1:=0;
   book:=ado1_cost_master.GetBook;
   ado1_cost_master.DisableControls;
   ado1_cost_master.First;
   while not ado1_cost_master.Eof do
   begin
    sum1:=sum1+ado1_cost_master.fieldbyname('resourse_cost').Value;
    ado1_cost_master.Next;
   end;
   ado1_cost_master.GotoBook(book);
   ado1_cost_master.FreeBook(book);
   ado1_cost_master.EnableControls;
  str(sum1:8:2,s)
 end;
end.
请高手指点，谢谢！！

Answer 1

现在有哪个帮我顶以下，
procedure Tw_resourse_distribute.ado_resourse_distributedCalcFields(DataSet: TDataSet));
begin
ado_resourse_distributedistribute_cost.Value:=ado_resourse_distributedistribute_rate.Value*(strtofloat(edit1.Text));
end;
end.可是是报错了，没有什么个float，