这是什么问题?

Question

Aqrkmx.ConnectionString:=Fmzt.ztsql;
    Aqrkmx.Close;
    Aqrkmx.SQL.Clear;
    Aqrkmx.SQL.Add('insert into R_rkmx values (');
    Aqrkmx.SQL.Add(''''+trim(edlsh.Text)+''''+',');
    Aqrkmx.SQL.Add(''''+trim(edhh.Text)+''''+',');
    Aqrkmx.SQL.Add(strtoint(trim(edzzsl.Text))+',');
    Aqrkmx.SQL.Add(strtofloat(trim(edsl.Text))+',');
    Aqrkmx.SQL.Add(strtofloat(trim(edcbj.Text))+',');
    Aqrkmx.SQL.Add(strtofloat(trim(edjj.Text))+',');
    Aqrkmx.SQL.Add(strtofloat(trim(edje.Text))+',');
    Aqrkmx.SQL.Add(strtofloat(trim(edse.Text))+',');
    Aqrkmx.SQL.Add(strtofloat(trim(edjs.Text))+',');
    Aqrkmx.SQL.Add('0,');
    Aqrkmx.SQL.Add('0,');
    Aqrkmx.SQL.Add('0,');
    Aqrkmx.SQL.Add('0,');
    Aqrkmx.SQL.Add(strtofloat(trim(edlsj.Text))+',');
    Aqrkmx.SQL.Add(strtofloat(trim(edlsje.Text))+',');
    Aqrkmx.SQL.Add(''''+trim(edph.Text)+''''+',');
    Aqrkmx.SQL.Add(''''+trim(edxq.Text)+''''+',');
    Aqrkmx.SQL.Add(''''+trim(edscrq.Text)+''''+')');
    Aqrkmx.ExecSql;
    Aqrkmx.Close;说    Aqrkmx.SQL.Add(strtoint(trim(edzzsl.Text))+',');
[Error] Gjwh.pas(122): Incompatible types????????????????

Answer 1

加了一个int当然不行了。 Aqrkmx.SQL.Add(trim(edzzsl.Text)+',');

Answer 2

改为
    Aqrkmx.ConnectionString:=Fmzt.ztsql;
    Aqrkmx.Close;
    Aqrkmx.SQL.Clear;
    Aqrkmx.SQL.Add('insert into R_rkmx values (');
    Aqrkmx.SQL.Add(''''+trim(edlsh.Text)+''''+',');
    Aqrkmx.SQL.Add(''''+trim(edhh.Text)+''''+',');
    Aqrkmx.SQL.Add('strtoint(trim(edzzsl.Text)),');
    Aqrkmx.SQL.Add('strtofloat(trim(edsl.Text)),');
    Aqrkmx.SQL.Add('strtofloat(trim(edcbj.Text)),');
    Aqrkmx.SQL.Add('strtofloat(trim(edjj.Text)),');
    Aqrkmx.SQL.Add('strtofloat(trim(edje.Text)),');
    Aqrkmx.SQL.Add('strtofloat(trim(edse.Text)),');
    Aqrkmx.SQL.Add('strtofloat(trim(edjs.Text)),');
    Aqrkmx.SQL.Add('0,');
    Aqrkmx.SQL.Add('0,');
    Aqrkmx.SQL.Add('0,');
    Aqrkmx.SQL.Add('0,');
    Aqrkmx.SQL.Add('strtofloat(trim(edlsj.Text)),');
    Aqrkmx.SQL.Add('strtofloat(trim(edlsje.Text)),');
    Aqrkmx.SQL.Add(''''+trim(edph.Text)+''''+',');
    Aqrkmx.SQL.Add(''''+trim(edxq.Text)+''''+',');
    Aqrkmx.SQL.Add(''''+trim(edscrq.Text)+''''+')');
    Aqrkmx.ExecSql;
    Aqrkmx.Close;追踪了一下
insert into R_rkmx values (
'00004',
'123456',
strtoint(trim(edzzsl.Text)),
strtofloat(trim(edsl.Text)),
strtofloat(trim(edcbj.Text)),
strtofloat(trim(edjj.Text)),
strtofloat(trim(edje.Text)),
strtofloat(trim(edse.Text)),
strtofloat(trim(edjs.Text)),
0,
0,
0,
0,
strtofloat(trim(edlsj.Text)),
strtofloat(trim(edlsje.Text)),
'77',
'88',
'99')我要写入数值的全变成strtofloat....了,怎么回事?

Answer 3

Aqrkmx.SQL.Add('strtoint(trim(edzzsl.Text)),');
你的这条语句不就是往SQL中加了一个字符串常量“ strtoint(trim(edzzsl.Text)), ”