pngファイルはリソースで読む

[newbbs/newbbs.git] / Unit1.dfm

diff --git a/Unit1.dfm b/Unit1.dfm
index d3580d6..e1c1bb2 100644 (file)
--- a/Unit1.dfm
+++ b/Unit1.dfm
@@ -3,11 +3,10 @@ object DataModule1: TDataModule1
   Height = 231
   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
@@ -17,33 +16,32 @@ object DataModule1: TDataModule1
     end
     object FDTable1DATABASE: TWideStringField
       FieldName = 'DATABASE'
-      Origin = '"DATABASE"'
+      Origin = 'DATABASE'
       Required = True
       Size = 80
     end
   end
   object FDConnection1: TFDConnection
     Params.Strings = (
-      'CharacterSet=UTF8'
-      'OpenMode=OpenOrCreate'
-      'Database=C:\Users\yamat\Documents\GitHub\newbbs\MYDATA.IB'
-      'User_Name=sysdba'
-      'Password=masterkey'
-      'DriverID=IB')
+      'Password=kainushi'
+      'CharacterSet=utf8'
+      'User_Name=masasi'
+      'Database=kainushi'
+      'Server=localhost'
+      'DriverID=MySQL')
     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 +88,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
@@ -116,18 +113,14 @@ object DataModule1: TDataModule1
     end
     object FDTable3COUNT: TIntegerField
       FieldName = 'COUNT'
-      Origin = '"COUNT"'
+      Origin = 'COUNT'
     end
     object FDTable3PASSWORD: TWideStringField
       FieldName = 'PASSWORD'
-      Origin = '"PASSWORD"'
+      Origin = 'PASSWORD'
       Required = True
       Size = 80
     end
-    object FDTable3TCNT: TIntegerField
-      FieldName = 'TCNT'
-      Origin = 'TCNT'
-    end
   end
   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
     Provider = 'Forms'
@@ -140,10 +133,9 @@ object DataModule1: TDataModule1
     Top = 152
   end
   object FDTable4: TFDTable
-    Active = True
     Connection = FDConnection1
-    UpdateOptions.UpdateTableName = 'REQ'
-    TableName = 'REQ'
+    UpdateOptions.UpdateTableName = 'req'
+    TableName = 'req'
     Left = 224
     Top = 88
     object FDTable4ID: TIntegerField
@@ -161,7 +153,7 @@ object DataModule1: TDataModule1
     end
     object FDTable4DATE: TDateField
       FieldName = 'DATE'
-      Origin = '"DATE"'
+      Origin = 'DATE'
       Required = True
     end
     object FDTable4REQUEST: TWideMemoField
@@ -171,11 +163,10 @@ object DataModule1: TDataModule1
     end
   end
   object FDTable5: TFDTable
-    Active = True
     IndexFieldNames = 'ID'
     Connection = FDConnection1
-    UpdateOptions.UpdateTableName = 'IMAGES'
-    TableName = 'IMAGES'
+    UpdateOptions.UpdateTableName = 'images'
+    TableName = 'images'
     Left = 224
     Top = 144
     object FDTable5ID: TIntegerField
@@ -187,7 +178,6 @@ object DataModule1: TDataModule1
       FieldName = 'NAME'
       Origin = 'NAME'
       FixedChar = True
-      Size = 400
     end
     object FDTable5SOURCE: TBlobField
       FieldName = 'SOURCE'
@@ -197,9 +187,8 @@ object DataModule1: TDataModule1
   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";')
+      'select dbnum,number,title,date from article'
+      ' where number = 1 order by date;')
     Left = 160
     Top = 144
   end