依然調べたのを忘れてしまい

[newbbs/newbbs.git] / Unit1.pas

diff --git a/Unit1.pas b/Unit1.pas
index 4fe3d8b..617a4c9 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -9,36 +9,42 @@ uses
   FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.SQLite,
   FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, Data.DB, FireDAC.Comp.Client,
   FireDAC.Comp.DataSet, FireDAC.Phys.IB, FireDAC.Phys.IBLiteDef,
-  FireDAC.VCLUI.Wait, FireDAC.Comp.UI;
+  FireDAC.VCLUI.Wait, FireDAC.Comp.UI, FireDAC.Phys.MySQL, FireDAC.Phys.MySQLDef,
+  FireDAC.Phys.IBDef, Data.FMTBcd, Data.DBXInterBase, Data.SqlExpr,
+  FireDAC.Phys.FB, FireDAC.Phys.FBDef;
 
 type
   TDataModule1 = class(TDataModule)
     FDTable1: TFDTable;
     FDConnection1: TFDConnection;
     FDTable2: TFDTable;
-    FDTable2NUMBER: TIntegerField;
-    FDTable2TITLE: TStringField;
-    FDTable2NAME: TStringField;
-    FDTable2COMMENT: TWideMemoField;
-    FDTable2RAW: TWideMemoField;
     FDTable3: TFDTable;
-    FDGUIxWaitCursor1: TFDGUIxWaitCursor;
     DataSource1: TDataSource;
-    FDTable2DBNUM: TIntegerField;
-    FDTable2DATE: TDateField;
-    FDTable1DATABASE: TWideStringField;
     FDTable1DBNUM: TIntegerField;
-    FDQuery1: TFDQuery;
     FDTable4: TFDTable;
-    FDTable3TITLE: TWideStringField;
-    FDTable3TITLE2: TWideStringField;
-    FDTable3MENTE: TBooleanField;
-    FDTable3INFO: TIntegerField;
     FDTable4DBNAME: TIntegerField;
     FDTable4POSNUM: TIntegerField;
     FDTable4DATE: TDateField;
     FDTable4REQUEST: TWideMemoField;
+    FDTable2DBNUM: TIntegerField;
+    FDTable2NUMBER: TIntegerField;
+    FDTable2TITLE: TWideStringField;
+    FDTable2NAME: TWideStringField;
+    FDTable2COMMENT: TWideMemoField;
+    FDTable2RAW: TWideMemoField;
+    FDTable2DATE: TDateField;
+    FDTable3TITLE: TWideStringField;
+    FDTable3TITLE2: TWideStringField;
+    FDTable3INFO: TIntegerField;
     FDTable3COUNT: TIntegerField;
+    FDTable4ID: TIntegerField;
+    FDTable2PASS: TWideStringField;
+    FDTable1DATABASE: TWideStringField;
+    FDTable3password: TWideStringField;
+    FDTable3ng: TWideStringField;
+    FDQuery1: TFDQuery;
+    FDTable3mente: TBooleanField;
+    FDTable5: TFDTable;
   private
     { Private \90é\8c¾ }
   public