Append和UpdateBatch

try
   //查询qry2表
   qry2.SQL.Clear;
   qry2.SQL.Add('SELECT top 0 ChePaiHao,ZongZhong,ZhouShu,XianZhong,ShiJian,BanCi,YuanXuHao,ZhanID,ChaoXianLv  FROM CL');
   qry2.Open;
  if qry1.RecordCount > 0 then
  Writelog('......上传数据中......');
  while not qry1.Eof do
  begin
    qry2.Append;
    qry2.FieldByName('ChePaiHao').AsString := qry1.Fields[0].AsString;
    qry2.FieldByName('ZongZhong').AsString := qry1.Fields[1].AsString;
    qry2.FieldByName('ZhouShu').AsString := qry1.Fields[2].AsString;
    qry2.FieldByName('XianZhong').AsString := qry1.Fields[3].AsString;
    qry2.FieldByName('ShiJian').AsString := qry1.Fields[4].AsString;
    qry2.FieldByName('BanCi').AsString := qry1.Fields[5].AsString;
    qry2.FieldByName('YuanXuHao').AsString := qry1.Fields[6].AsString;
    qry2.FieldByName('ZhanID').AsString := zhanId;   //工作站ID，需要手动设置
    qry2.FieldByName('ChaoXianLv').AsString := qry1.Fields[7].AsString;
    qry2.Post; //保存
    qry1.next;
  end;
  //执行提交
  qry2.UpdateBatch();
  Writelog('上传数据完毕');
  except on E:Exception do
    Writelog('***上传数据到服务器失败***');
  end;