procedure TForm1.Button1Click(Sender: TObject);begin if Query1.Active = False then Exit; if SaveDialog1.Execute then begin Table1.TableName := SaveDialog1.FileName; with BatchMove1 do begin Source := Query1; Destination := Table1; Mode := batCopy;//这里就是动态的设计 Execute; ShowMessage(IntToStr(MovedCount) + ' records copied'); end; end; end;
if Query1.Active = False then
Exit;
if SaveDialog1.Execute then
begin
Table1.TableName := SaveDialog1.FileName;
with BatchMove1 do
begin
Source := Query1;
Destination := Table1;
Mode := batCopy;//这里就是动态的设计
Execute;
ShowMessage(IntToStr(MovedCount) + ' records copied');
end;
end;
end;
这样不是我要的结果
我是说几重方法在一个BACHMOVE中应用