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;
计算增加到目的表中的记录数并显示在状态栏中
最新推荐文章于 2022-03-11 16:50:31 发布