BatchMove的用法

最新推荐文章于 2022-03-19 09:17:20 发布

原创最新推荐文章于 2022-03-19 09:17:20 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delete #file

BCB 专栏收录该内容

6 篇文章

订阅专栏

博客展示了一段代码，定义了 BMove 函数，用于把一个表追加到另一个表中，使用了 BatchMove 操作。在循环中处理表数据，累加价格，执行追加操作，最后删除 BM 对象并返回累加结果，还涉及文件相关内容。

部署运行你感兴趣的模型镜像

Currency __declspec(dllexport) BMove(TComponent* Owner,TTable *D,TTable *R)
{
//把一个表追加到另一个表中（用BatchMove)

   file://AisiString mDATE = "SDATE="+Now().DateString();
   TBatchMove *BM=new TBatchMove(Owner);
   Currency CR=0;
   for(R->First();!R->Eof;R->Next()){
      CR += R->FieldByName("TPRICE")->AsCurrency;
      BM->Source=R;
      BM->Destination=D;
      BM->Mappings->Clear();
      BM->Mappings->Add("PRICE=TPRICE");
      BM->Mappings->Add("PRUNO=PRUNO");
      file://BM->Mappings->Add(mDATE);
      BM->Mappings->Add("UPRICE=UPRICE");
      BM->Mappings->Add("PCS=PCS");
      BM->Mode=batAppend;
      BM->Execute();
      }
   delete BM;
   return(CR);
}