ボタンの機能説明

[newbbs/newbbs.git] / Unit1.dfm

diff --git a/Unit1.dfm b/Unit1.dfm
index 7fca0d8..2652d34 100644 (file)
--- a/Unit1.dfm
+++ b/Unit1.dfm
@@ -23,12 +23,7 @@ object DataModule1: TDataModule1
   end
   object FDConnection1: TFDConnection
     Params.Strings = (
-      'Password=kainushi'
-      'CharacterSet=utf8'
-      'User_Name=masasi'
-      'Database=kainushi'
-      'Server=localhost'
-      'DriverID=MySQL')
+      'ConnectionDef=test_server')
     Connected = True
     Left = 144
     Top = 24
@@ -103,9 +98,10 @@ object DataModule1: TDataModule1
       Origin = 'TITLE2'
       Size = 320
     end
-    object FDTable3MENTE: TBooleanField
-      FieldName = 'MENTE'
-      Origin = 'MENTE'
+    object FDTable3mente: TBooleanField
+      FieldKind = fkCalculated
+      FieldName = 'mente'
+      Calculated = True
     end
     object FDTable3INFO: TIntegerField
       FieldName = 'INFO'
@@ -124,11 +120,6 @@ object DataModule1: TDataModule1
       Size = 300
     end
   end
-  object FDGUIxWaitCursor1: TFDGUIxWaitCursor
-    Provider = 'Forms'
-    Left = 48
-    Top = 24
-  end
   object DataSource1: TDataSource
     DataSet = FDTable1
     Left = 32
@@ -165,28 +156,6 @@ object DataModule1: TDataModule1
       BlobType = ftWideMemo
     end
   end
-  object FDTable5: TFDTable
-    IndexFieldNames = 'ID'
-    Connection = FDConnection1
-    UpdateOptions.UpdateTableName = 'images'
-    TableName = 'images'
-    Left = 224
-    Top = 144
-    object FDTable5ID: TIntegerField
-      FieldName = 'ID'
-      Origin = 'ID'
-      Required = True
-    end
-    object FDTable5NAME: TWideStringField
-      FieldName = 'NAME'
-      Origin = 'NAME'
-      FixedChar = True
-    end
-    object FDTable5SOURCE: TBlobField
-      FieldName = 'SOURCE'
-      Origin = 'SOURCE'
-    end
-  end
   object FDQuery1: TFDQuery
     Connection = FDConnection1
     SQL.Strings = (
@@ -195,4 +164,12 @@ object DataModule1: TDataModule1
     Left = 136
     Top = 152
   end
+  object FDTable5: TFDTable
+    Active = True
+    Connection = FDConnection1
+    UpdateOptions.UpdateTableName = 'IMAGES'
+    TableName = 'IMAGES'
+    Left = 224
+    Top = 152
+  end
 end