实例——拷贝数据库表.txt

冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。系统会自动删除debug和release目录

procedure TForm1. BatchMoveBtnClick(Sender: TObject)；
begin
  if Source_Query.Active = False then
    Exit；
    //如果不能获取活动的查询数据集，则终止传送操作
  if SaveDialog1.Execute then
    begin
      Destination_Table.TableName := SaveDialog1.FileName；
      //从对话框中输入将要保存的目的表的表名
      with BatchMove1 do
        begin
          Source := Source_Query；
          //指定源表，此处为查询组件的名字
          Destination := Destination_Table；
          //指定目的表，此处为在对话框中输入目的表的名字
          Mode := batCopy；
          //指定批处理的方式，此处为完整的拷贝
          Execute；
          //调用TBatchMove组件的Execute方法，完成实际的拷贝操作
          ShowMessage('已传送'+IntToStr(MovedCount) + '个记录')；
          //显示实际拷贝的记录数
        End；
     End；
  End；