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

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 28 行

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；