如图所示:什么原因呢?????????
var
zhengchang,gaodu,ribian,zgaizheng,ggaizheng :real;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select 水平梯度 from CTABLE where 编号=');
adoquery1.SQL.add(':ss');
adoquery1.Parameters.ParamByName('ss').Value:=trim(edit1.text);
adoquery1.Open;
zhengchang:=adoquery1.FieldByName('水平梯度').AsFloat;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select 垂直梯度 from CTABLE where 编号=');
adoquery1.SQL.add(':ss');
adoquery1.Parameters.ParamByName('ss').Value:=trim(edit1.text);
adoquery1.Open;
gaodu:=adoquery1.FieldByName('垂直梯度').AsFloat;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select 日变改正 from CTABLE where 编号=');
adoquery1.SQL.add(':ss');
adoquery1.Parameters.ParamByName('ss').Value:=trim(edit1.text);
adoquery1.Open;
ribian:=adoquery1.FieldByName('日变改正').AsFloat;
ggaizheng:=strtofloat(edit5.text)*gaodu;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into CTABLE1 values(:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l)');
adoquery1.Parameters.ParamByName('a').Value:=trim(edit1.text);
adoquery1.Parameters.ParamByName('b').Value:=trim(edit2.text);
adoquery1.Parameters.ParamByName('c').Value:=trim(edit3.text);
adoquery1.Parameters.ParamByName('d').Value:=strtofloat(edit4.text);
adoquery1.Parameters.ParamByName('e').Value:=strtofloat(edit5.text);
adoquery1.Parameters.ParamByName('f').Value:=trim('combobox1.Text'+'combobox2.text'+'combobox3.text');
adoquery1.Parameters.ParamByName('g').Value:=strtofloat(edit6.text);
adoquery1.Parameters.ParamByName('h').Value:=strtofloat(edit7.text);
adoquery1.Parameters.ParamByName('i').Value:=strtofloat(edit3.text)*zhengchang;
adoquery1.Parameters.ParamByName('j').Value:=ribian;
adoquery1.Parameters.ParamByName('k').Value:=ggaizheng;
adoquery1.Parameters.ParamByName('l').Value:=strtofloat(edit7.text)+zgaizheng+ggaizheng+ribian;
adoquery1.ExecSQL;
end;
