计算增加到目的表中的记录数并显示在状态栏中

niochen

于 2009-02-20 10:18:00 发布

阅读量313

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/jfree5200/article/details/3913077

Delphi 专栏收录该内容

95 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的批处理复制示例，通过TBatchMove组件执行文件的增加操作，并展示了如何设置批处理模式及捕获操作状态。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    procedure TForm1.AppendtBtnClick(Sender: TObject)；
    begin
      with BatchMove_Append do
        begin
        Mode := batAppend；
        //指定批拷贝的操作方式为增加方式
        AbortOnKeyViol := False；
        Execute；
        //调用TbatchMove组件的Execute方法，执行批拷贝
       StatusBar1.SimpleText := ‘已增加’+IntToStr(MovedCount - KeyViolCount) + '记录'；
      End；
    End；