dyls.Close;
dyls.sql.clear;
dyls.sql.add(' insert into qdyl(rq,ypm,cd,dw,sl,gg,ph,ckr,lhr,ysy)');
dyls.sql.add(' select qz.rq,qz.ypm,zdwl.wlm,zdyp.dw,qz.sl,zdyp.gg,qz.ph,qz.ckr,qz.llr,qz.fhr');
dyls.SQL.add(' from qz,zdwl,zdyp');
dyls.sql.add(' where (qz.djh=:nn) and(qz.ypdm=zdyp.ypdm)and(zdyp.cd=zdwl.wldm) ');
dyls.Parameters.ParamByName('nn').Value:='A___3_____________';
dyls.Prepared;
dyls.ExecSQL;
dyls.sql.clear;
dyls.sql.add(' insert into qdyl(rq,ypm,cd,dw,sl,gg,ph,ckr,lhr,ysy)');
dyls.sql.add(' select qz.rq,qz.ypm,zdwl.wlm,zdyp.dw,qz.sl,zdyp.gg,qz.ph,qz.ckr,qz.llr,qz.fhr');
dyls.SQL.add(' from qz,zdwl,zdyp');
dyls.sql.add(' where (qz.djh=:nn) and(qz.ypdm=zdyp.ypdm)and(zdyp.cd=zdwl.wldm) ');
dyls.Parameters.ParamByName('nn').Value:='A___3_____________';
dyls.Prepared;
dyls.ExecSQL;
解决方案 »
- 问个简单问题,关于showmessage的类型问题
- 请问用Tchart控件画图怎么才能不让图形檫掉?
- 用过VC的帮帮忙,VC画面中加载Delphi窗体,Delphi窗体封装在动态库中
- 数据库中有大量的记录和图片数据,连接数据库时需要很长的时间,怎样连接数据库更快一些呢?
- 菜鸟问题,数据库设计中如何用StringGrid替换DBGrid?
- 请问Delphi中有没有像Java中类似的容器类(container)?
- 加了分后要散分了!请链接!
- 利用database desktop建立表,怎样向备注型字段memo中添加文本?在线等待,谢谢!!
- 求购关于求购序列号
- 我的困惑我给分...
- 关于Access的数据库与数据表的几点问题:怎么无人作答
- 寻XP风格控件
这句话是你在这里写错了,还是本来你就这样写的?
dyls.sql.add('where qz.djh=:nn and(qz.ypdm=zdyp.ypdm)and(zdyp.cd=zdwl.wldm);');