不允许使用‘pid’此处只允许使用常量 表达式 或者变量 不允许使用列名

Question

 begin
         ADOQuery2.Open;
          while not ADOQuery2.Eof do
           begin
              pid:=ADOQuery2['PID'];
              Adoquery1.Close;
              ADOQuery1.SQL.Clear;
              ADOQuery1.SQL.Add('insert into salary(year_month,person,basic,bonus,add_detail,add_total,sub_detail,sub_total,total) ');
              ADOQuery1.SQL.Add('Values('''+edit1.Text+''',pid,1,1,0,0,0,0,0)');
              ADOQuery1.ExecSQL;
              showmessage('设置成功！');
              ADOQuery2.Next;
           end
      end
若把pid改成'''+pid+''',则提示Imcompatible types: 'String' and 'Integer'.请问该怎么改呢

Answer 1

var
  pid : Integer;
begin
  pid:=ADOQuery2['PID'].AsInteger;
  ADOQuery1.SQL.Add('insert into salary(year_month,person,basic,bonus,add_detail,add_total,sub_detail,sub_total,total) ');
  ADOQuery1.SQL.Add('Values('+QuotedStr(edit1.Text)+','+IntToStr(pid)+',1,1,0,0,0,0,0)');
end;

Answer 2

建议字符串都使用QuotedStr函数处理，不要用两个引号，否则可能会产生一些无法预知的问题