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
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
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
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'
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
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