求救,计算问题,大侠们请进
rocedure TForm31.Button1Click(Sender: TObject);
var
a,b,c:real;
begin
with qy do begin
qy.Close;
qy.SQL.Clear;
qy.sql.Add('select * from jl where 笔数时间 = #'+DateToStr(d1.date)+'# ');
try
qy.Open;
except
showmessage('操作错误');
exit;
end;
edit3.Text :=(' '+inttostr(recordcount)+'');
if qy.RecordCount<>0 then
begin
qy.SQL.Clear;
qy.SQL.Add( ' SELECT SUM(合计)');
qy.SQL.Add( 'FROM jl ');
qy.SQL.Add( 'where 笔数时间 = #'+DateToStr(d1.date)+'# ');
qy.Open;
a := strtoint(edit1.Text);
b := strtoint(edit3.Text);
c :=a/b;
edit2.text:=floattostr(c);
EDIT1.TEXT:=qy.Fields[0].Asstring;
showmessage('计算完成');
end
else
showmessage('对不起,当天的记录还没添加呢');
end;
end;
运行程序后,说字符类型不正确,要如何改上面的代码呢?edit1输入框是SUM求出来的合计数,EDIT3是查询了来的行数,我想把合计数除以行数,也就是A/B,再把数据写到C,也就是EDIT2输入框,上面的程序能运行,但点按钮后就是不能正确计算出C的值