批量插入到数据库

  temp := 'insert into t_zhibo_detail(c_business_code,c_product_code,c_num,c_price) values ';
  temp3 := 'insert into t_zhibo_detail(c_business_code,c_product_code,c_price) values ';
 // temp := 'ON DUPLICATE KEY UPDATE `c_weight`=`m_weight`,`c_index`=`m_index`; ';

  pstr1 := 'insert into t_product_zhibo(c_product_code,c_product_name,c_style_no,c_gongkuan,c_lianjie,c_company_id) values ';
  pstr2 := ' ON DUPLICATE KEY UPDATE c_gongkuan = VALUES(c_gongkuan),c_lianjie = VALUES(c_lianjie)';
  J := 0;
  k := 0;
  m := 0;
  for I := 1 to StringGrid1.RowCount - 1 do
    if (trim(StringGrid1.Cells[1, I]) <> '') then
    begin
      if (trim(StringGrid1.Cells[7, I]) = '') then
      begin
        ShowMessage('第' + quotedstr(inttostr(I)) + '行！数据不完整，或数量为0');
        Exit;
      end;
      if trim(StringGrid1.Cells[5, I]) <> '' then
      begin

        J := J + 1;
        if J = 1 then
        begin
          temp2 := ' (' + quotedstr(edt_sell_code.Text) + ',' + quotedstr(StringGrid1.Cells[1, I]) + ',' + StringGrid1.Cells[5, I] + ',' + StringGrid1.Cells[7, I] + ') ';
          temp := temp + temp2;

        end
        else
        begin
          temp2 := ' , (' + quotedstr(edt_sell_code.Text) + ',' + quotedstr(StringGrid1.Cells[1, I]) + ',' + StringGrid1.Cells[5, I] + ',' + StringGrid1.Cells[7, I] + ') ';
          temp := temp + temp2;

        end;
      end
      else
      begin

        k := k + 1;
        if k = 1 then
        begin
          temp4 := ' (' + quotedstr(edt_sell_code.Text) + ',' + quotedstr(StringGrid1.Cells[1, I]) + ',' + StringGrid1.Cells[7, I] + ') ';
          temp3 := temp3 + temp4
        end
        else
        begin
          temp4 := ' , (' + quotedstr(edt_sell_code.Text) + ',' + quotedstr(StringGrid1.Cells[1, I]) + ',' + StringGrid1.Cells[7, I] + ') ';
          temp3 := temp3 + temp4;
        end;
      end;

      m := m + 1;
      if m = 1 then
      begin
        pstr3 := ' (' + quotedstr(StringGrid1.Cells[1, I]) + ',' + quotedstr(StringGrid1.Cells[2, I]) + ',' + quotedstr(StringGrid1.Cells[6, I]) + ',' + quotedstr(StringGrid1.Cells[8, I]) + ',' + quotedstr(StringGrid1.Cells[9, I]) + ',' + quotedstr(str_company_id) + ') ';
        pstr1 := pstr1 + pstr3;

      end
      else
      begin
        pstr3 := ' , (' + quotedstr(StringGrid1.Cells[1, I]) + ',' + quotedstr(StringGrid1.Cells[2, I]) + ',' + quotedstr(StringGrid1.Cells[6, I]) + ',' + quotedstr(StringGrid1.Cells[8, I]) + ',' + quotedstr(StringGrid1.Cells[9, I]) + ',' + quotedstr(str_company_id) + ') ';
        pstr1 := pstr1 + pstr3;

      end;

    end;
  if (J > 0) or (k > 0) then
  begin

    shujuzonghe.fdcmnd1.CommandText.Text := pstr1 + pstr2;
    shujuzonghe.fdcmnd1.Execute;

    shujuzonghe.fdcmnd1.CommandText.Text := 'call mp_insert_zhibo(' + quotedstr(edt_sell_code.Text) + ',' + quotedstr(str_company_id) + ' ,' + quotedstr(edt_date.Text) + ',' + quotedstr(rzcmbx_salesman.Value) + ',' + quotedstr(str_user_id) + ',0,' + quotedstr(Memo1.Text) + ',' + quotedstr(RzEdit1.Text) + ' )';
    shujuzonghe.fdcmnd1.Execute;
    if (J > 0) then
    begin
      shujuzonghe.fdcmnd1.CommandText.Text := temp;
      shujuzonghe.fdcmnd1.Execute;
    end;

    if k > 0 then
    begin
      shujuzonghe.fdcmnd1.CommandText.Text := temp3;
      shujuzonghe.fdcmnd1.Execute;
    end;
  end