計算增加到目的表中的記錄數並顯示在狀態欄中

    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；