从一个表中查询出结果，并写到另一个表中的程序，这样写对吗？请高手过招，给分。

Question

with datamodule22.ADOQuery3 do
       begin
          close;
          sql.clear;
          sql.add('insert into fzjgtz (ydno,carno,tfyk,dzmc,zcgls,rkgls,lqh,oil,rq,0sl,0yj,carmen,lxbh,yhcs,90sl,93sl,97sl,qyslhj,qyyj,jgno,jgmc)');
          sql.add('values (a.ydno,a.carno,a.tfyk,a.dzmc,a.zcgls,a.rkgls,a.lqh,a.oil,a.rq,''0'',''0'',a.carmen,a.lxbh,a.yhcs,a.sl,''0'',''0'',''0'',a.yj,a.jgno,:jmc)');
          sql.add('select * from dayrecord a where jgno=:f and year(rq)=:y and month(rq)=:m and pm=''90''');
          Parameters.ParamByName('jmc').Value:=g_jgmc;      //分支机构名称
          Parameters.ParamByName('f').Value:=g_jgno;      //分支机构代码
          Parameters.ParamByName('y').Value:=yyear;      //年
          Parameters.ParamByName('m').Value:=mmonth;      //月
          prepared;
          execsql; 
       end;

Answer 1

with datamodule22.ADOQuery3 do
       begin
          close;
          sql.clear;
          sql.add('insert into fzjgtz (ydno,carno,tfyk,dzmc,zcgls,rkgls,lqh,oil,rq,0sl,0yj,carmen,lxbh,yhcs,90sl,93sl,97sl,qyslhj,qyyj,jgno,jgmc)');
          sql.add(' select a.ydno,a.carno,a.tfyk,a.dzmc,a.zcgls,a.rkgls,a.lqh,a.oil,a.rq,''0'',''0'',a.carmen,a.lxbh,a.yhcs,a.sl,''0'',''0'',''0'',a.yj,a.jgno,:jmc');////////////////!!!!!
          sql.add(' from dayrecord a where jgno=:f and year(rq)=:y and month(rq)=:m and pm=''90''');////////!!!!
          Parameters.ParamByName('jmc').Value:=g_jgmc;      //分支机构名称
          Parameters.ParamByName('f').Value:=g_jgno;      //分支机构代码
          Parameters.ParamByName('y').Value:=yyear;      //年
          Parameters.ParamByName('m').Value:=mmonth;      //月
          prepared;
          execsql; 
       end;

Answer 2

谢谢 firetoucher(风焱) OK 啦。如何才能给你分数呢，你说吧！