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

最新推荐文章于 2024-04-22 10:02:02 发布

原创最新推荐文章于 2024-04-22 10:02:02 发布 · 322 阅读

0 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

95 篇文章

订阅专栏

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

    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；