From: yamat0jp <terukohietori@gmail.com>
Date: Wed, 8 Jan 2020 05:10:23 +0000 (+0900)
Subject: もしかするとMySQLコミュニティーエディションでは実現できないのかもしれません
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=ab6cbc06dca9aeae627669639cf59f3a185f008c;p=newbbs%2Fnewbbs.git

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

diff --git a/tool/Unit1.fmx b/tool/Unit1.fmx
index e0754d1..77f18f6 100644
--- 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
--- 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
--- 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>