实例——计算增加到目的表中的记录数并显示在状态栏中.txt

来自「冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让」· 文本 代码 · 共 15 行

    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；