出现下面的情况是什么原因？“Error Creating Cursor Handle”在线等

Question

全部执行程序
sql_stra:=sql1+' where cGroupID='''+g_strdeptno+''' and IF_AFFIRM=''1'' and cCheckPostID='''+PostID+''' ';
  WRYMain.OpenQuery(query1,sql_stra);
  with query1 do begin
    first;
    while not eof do begin                
      cCheckBillNo:=fieldbyname('cCheckBillNo').AsString;
      mo_number:=fieldbyname('mo_number').AsString;
      ln_no:=fieldbyname('ln_no').AsString;
      cName:=fieldbyname('cName').AsString;
      ItemID:=fieldbyname('cCheckItemID').AsString;
      cBatchNo:=fieldbyname('cBatchNo').AsString;
      sql_plnr:=' select plnr from Checkorders where mo_number='''+mo_number+''' '+
                ' and  ln_no='''+ln_no+''' ';
      WRYMain.OpenQuery(query2,sql_plnr);
      plnr:=query2.fieldbyname('plnr').AsString;
      if plnr='' then
      plnr:='²É¹ºÎïÁÏ';
      sql_strb:=' insert into '+str_tablename+'(cCheckBillNO,mo_number,ln_no,plnr,cname,cBatchNo,cgroupID,cCheckItemID,cJclx) '+
                ' values(:a,:b,:c,:d,:e,:f,:g,:h,:i) ';
      with query2 do begin
        close;
        sql.clear;
        sql.add(sql_strb);
        parambyname('a').asstring:=cCheckBillNO;
        parambyname('b').asstring:=mo_number;
        parambyname('c').asstring:=ln_no;
        parambyname('d').asstring:=plnr;
        parambyname('e').asstring:=cname;
        parambyname('f').asstring:=cBatchNo;
        parambyname('g').asstring:=g_strdeptno;
        parambyname('h').asstring:=ItemID;
        parambyname('i').asstring:='Õý³£¼ì²â';
        prepare;
        execsql;
      end;
//Ð޸ıê־λ
      with prcCheckBill do
         begin
           close;
           ParamByName('@cCheckbillNo').asString:=cCheckBillNO;
           ParamByName('@cmo_number').asString:=mo_number;
           ParamByName('@cln_no').asString:=ln_no;
           ParamByName('@cBatchNo').asString:=cBatchNo;
           ParamByName('@cGroupID').asString:=g_strdeptno;
           ParamByName('@cCheckItemID').asString:=ItemID;
           ExecProc ;
           open;
         end;
      next;
    end;
  end;

Answer 1

ExecProc ;
           open;
只要一句