もしかするとMySQLコミュニティーエディションでは実現できないのかもしれません

diff --git a/tool/Unit1.fmx b/tool/Unit1.fmx
index e0754d1..77f18f6 100644 (file)
--- a/tool/Unit1.fmx
+++ b/tool/Unit1.fmx
@@ -303,7 +303,7 @@ object Form2: TForm2
     Position.X = 432.000000000000000000
     Position.Y = 136.000000000000000000
     TabOrder = 23
-    Text = 'Button1'
+    Text = #38283#12367
     OnClick = Button1Click
   end
   object Label1: TLabel
@@ -320,7 +320,7 @@ object Form2: TForm2
     Position.X = 432.000000000000000000
     Position.Y = 176.000000000000000000
     TabOrder = 38
-    Text = 'Button2'
+    Text = #21021#26399#21270
     OnClick = Button2Click
   end
   object FDTable1: TFDTable
@@ -390,4 +390,10 @@ object Form2: TForm2
     Left = 456
     Top = 192
   end
+  object FDBatchMove1: TFDBatchMove
+    Mappings = <>
+    LogFileName = 'Data.log'
+    Left = 512
+    Top = 272
+  end
 end

diff --git a/tool/Unit1.pas b/tool/Unit1.pas
index 772bbf0..e237471 100644 (file)
--- a/tool/Unit1.pas
+++ b/tool/Unit1.pas
@@ -15,7 +15,7 @@ uses
   System.Bindings.Outputs, FMX.Bind.Editors, Data.Bind.Components, Data.DB,
   FMX.Controls.Presentation, FMX.Edit, FMX.Bind.Navigator, Data.Bind.DBScope,
   FireDAC.Comp.Client, FireDAC.Comp.DataSet, FMX.Objects, FMX.StdCtrls,
-  FireDAC.FMXUI.Wait, FireDAC.Comp.UI;
+  FireDAC.FMXUI.Wait, FireDAC.Comp.UI, FireDAC.Comp.BatchMove;
 
 type
   TForm2 = class(TForm)
@@ -35,6 +35,7 @@ type
     LinkPropertyToFieldBitmap: TLinkPropertyToField;
     FDQuery1: TFDQuery;
     Button2: TButton;
+    FDBatchMove1: TFDBatchMove;
     procedure Button1Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure Button2Click(Sender: TObject);

diff --git a/tool/dbtool.dproj b/tool/dbtool.dproj
index 78a8860..c3a9e60 100644 (file)
--- a/tool/dbtool.dproj
+++ b/tool/dbtool.dproj
@@ -5,7 +5,7 @@
         <FrameworkType>FMX</FrameworkType>
         <MainSource>dbtool.dpr</MainSource>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Config Condition="'$(Config)'==''">Release</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>1</TargetedPlatforms>
         <AppType>Application</AppType>