X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=Unit1.dfm;h=2652d34e6b0c6d11be35450b34df8e2f28ecfb83;hb=refs%2Fheads%2Fmaster;hp=9340309eda4ff80119a62732617f9b775e530f32;hpb=23b14efe5f9e99de720cd9a9a4df741828f13b3c;p=newbbs%2Fnewbbs.git

diff --git a/Unit1.dfm b/Unit1.dfm
index 9340309..2652d34 100644
--- a/Unit1.dfm
+++ b/Unit1.dfm
@@ -1,13 +1,12 @@
 object DataModule1: TDataModule1
   OldCreateOrder = False
-  Height = 231
+  Height = 226
   Width = 302
   object FDTable1: TFDTable
-    Active = True
     IndexFieldNames = 'DBNUM'
     Connection = FDConnection1
-    UpdateOptions.UpdateTableName = 'DBNAME'
-    TableName = 'DBNAME'
+    UpdateOptions.UpdateTableName = 'dbname'
+    TableName = 'dbname'
     Left = 32
     Top = 88
     object FDTable1DBNUM: TIntegerField
@@ -24,26 +23,20 @@ object DataModule1: TDataModule1
   end
   object FDConnection1: TFDConnection
     Params.Strings = (
-      'Password=admin'
-      'CharacterSet=utf8'
-      'User_Name=kainushi'
-      'Database=kainushi'
-      'Server=localhost'
-      'DriverID=MySQL')
+      'ConnectionDef=test_server')
     Connected = True
     Left = 144
     Top = 24
   end
   object FDTable2: TFDTable
-    Active = True
     IndexFieldNames = 'DBNUM;NUMBER'
     MasterSource = DataSource1
     MasterFields = 'DBNUM'
     Connection = FDConnection1
     FetchOptions.AssignedValues = [evLiveWindowParanoic]
     FetchOptions.LiveWindowParanoic = True
-    UpdateOptions.UpdateTableName = 'ARTICLE'
-    TableName = 'ARTICLE'
+    UpdateOptions.UpdateTableName = 'article'
+    TableName = 'article'
     Left = 96
     Top = 88
     object FDTable2DBNUM: TIntegerField
@@ -90,10 +83,9 @@ object DataModule1: TDataModule1
     end
   end
   object FDTable3: TFDTable
-    Active = True
     Connection = FDConnection1
-    UpdateOptions.UpdateTableName = 'SETTING'
-    TableName = 'SETTING'
+    UpdateOptions.UpdateTableName = 'setting'
+    TableName = 'setting'
     Left = 160
     Top = 88
     object FDTable3TITLE: TWideStringField
@@ -106,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'
@@ -118,32 +111,25 @@ object DataModule1: TDataModule1
       FieldName = 'COUNT'
       Origin = 'COUNT'
     end
-    object FDTable3PASSWORD: TWideStringField
-      FieldName = 'PASSWORD'
-      Origin = 'PASSWORD'
-      Required = True
-      Size = 80
+    object FDTable3password: TWideStringField
+      FieldName = 'password'
+      Size = 100
     end
-    object FDTable3TCNT: TIntegerField
-      FieldName = 'TCNT'
-      Origin = 'TCNT'
+    object FDTable3ng: TWideStringField
+      FieldName = 'ng'
+      Size = 300
     end
   end
-  object FDGUIxWaitCursor1: TFDGUIxWaitCursor
-    Provider = 'Forms'
-    Left = 48
-    Top = 24
-  end
   object DataSource1: TDataSource
     DataSet = FDTable1
-    Left = 64
+    Left = 32
     Top = 152
   end
   object FDTable4: TFDTable
-    Active = True
+    IndexFieldNames = 'ID'
     Connection = FDConnection1
-    UpdateOptions.UpdateTableName = 'REQ'
-    TableName = 'REQ'
+    UpdateOptions.UpdateTableName = 'req'
+    TableName = 'req'
     Left = 224
     Top = 88
     object FDTable4ID: TIntegerField
@@ -170,37 +156,20 @@ object DataModule1: TDataModule1
       BlobType = ftWideMemo
     end
   end
+  object FDQuery1: TFDQuery
+    Connection = FDConnection1
+    SQL.Strings = (
+      'select dbnum,number,title from article'
+      ' where number = 1;')
+    Left = 136
+    Top = 152
+  end
   object FDTable5: TFDTable
     Active = True
-    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
-      Size = 400
-    end
-    object FDTable5SOURCE: TBlobField
-      FieldName = 'SOURCE'
-      Origin = 'SOURCE'
-    end
-  end
-  object FDQuery1: TFDQuery
-    Connection = FDConnection1
-    SQL.Strings = (
-      'select "database", title, name, date from'
-      ' dbname inner join article on dbname.dbnum = article.dbnum'
-      ' where number = 1 order by date;')
-    Left = 160
-    Top = 144
+    Top = 152
   end
 end