object DataModule1: TDataModule1
OldCreateOrder = False
- Height = 230
+ 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
end
object FDTable1DATABASE: TWideStringField
FieldName = 'DATABASE'
- Origin = '"DATABASE"'
+ Origin = 'DATABASE'
Required = True
Size = 80
end
end
object FDConnection1: TFDConnection
Params.Strings = (
- 'Database=C:\Users\yamat\Documents\GitHub\newbbs\MYDATA.IB'
- 'CharacterSet=UTF8'
- 'User_Name=sysdba'
- 'Password=masterkey'
- 'OpenMode=OpenOrCreate'
- 'DriverID=IBLite')
+ '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
end
object FDTable2DATE: TDateField
FieldName = 'DATE'
- Origin = '"DATE"'
+ Origin = 'DATE'
end
- object FDTable2PASS: TIntegerField
+ object FDTable2PASS: TWideStringField
FieldName = 'PASS'
Origin = 'PASS'
+ FixedChar = True
+ Size = 40
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
end
object FDTable3COUNT: TIntegerField
FieldName = 'COUNT'
- Origin = '"COUNT"'
+ Origin = 'COUNT'
+ end
+ object FDTable3PASSWORD: TWideStringField
+ FieldName = 'PASSWORD'
+ Origin = 'PASSWORD'
+ Required = True
+ Size = 80
end
end
object FDGUIxWaitCursor1: TFDGUIxWaitCursor
Left = 64
Top = 152
end
- object FDQuery1: TFDQuery
- Connection = FDConnection1
- Left = 160
- 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
+ FieldName = 'ID'
+ Origin = 'ID'
+ Required = True
+ end
object FDTable4DBNAME: TIntegerField
FieldName = 'DBNAME'
Origin = 'DBNAME'
end
object FDTable4DATE: TDateField
FieldName = 'DATE'
- Origin = '"DATE"'
+ Origin = 'DATE'
Required = True
end
object FDTable4REQUEST: TWideMemoField
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 = (
+ 'select dbnum,number,title,date from article'
+ ' where number = 1 order by date;')
+ Left = 160
+ Top = 144
+ end
end