delphi里面写sql语句好烦啊

Question

sql.Add('insert into sfism4.r_equip_maintitem(model,mseqno,maintitem,period)');
sql.Add(' values('''+trim(edtXmodel.Text)+''',intSeqno,'''+trim(edtXmitem.Text)+''',');
sql.Add(''''+sPeriod+''')');
intSeqno是一个整型变量，要将它的值插入到数据库中去，可我实在是不知道怎么写，加引号错，不加引号也错，请各位帮帮忙

Answer 1

sql.text := '    fdsfdsfds ' 方式好看一些

Answer 2

改成
sql.Add('insert into sfism4.r_equip_maintitem(model,mseqno,maintitem,period)');
sql.Add(' values('''+trim(edtXmodel.Text)+''','+inttostr(intSeqno)+','''+trim(edtXmitem.Text)+''','''+sPeriod+''')');

Answer 3

with query1 do
begin
close;
sql.clear;
sql.Add('insert into sfism4.r_equip_maintitem(model,mseqno,maintitem,period)');
sql.Add(' values(:a,:b,:c,:d)');
ParamByName('a').asstring:=trim(edtXmodel.text);
ParamByName('b').asinteger:=intSeqno;
ParamByName('c').asstring:=trim(edtXmitem.text);
ParamByName('d').asstring:=sPeriod;
open
end;

Answer 4

sql.Add('insert into sfism4.r_equip_maintitem(model,mseqno,maintitem,period)');
sql.Add(' values('''+trim(edtXmodel.Text)+''',IntToStr(intSeqno),'''+trim(edtXmitem.Text)+''',');
sql.Add(''''+sPeriod+''')');