1 object DataModule1: TDataModule1
5 object FDTable1: TFDTable
7 IndexFieldNames = 'DBNUM'
8 Connection = FDConnection1
9 UpdateOptions.UpdateTableName = 'DBNAME'
13 object FDTable1DBNUM: TIntegerField
18 object FDTable1DATABASE: TWideStringField
19 FieldName = 'DATABASE'
25 object FDConnection1: TFDConnection
28 'OpenMode=OpenOrCreate'
29 'Database=C:\Users\yamat\Documents\GitHub\newbbs\MYDATA.IB'
37 object FDTable2: TFDTable
39 IndexFieldNames = 'DBNUM;NUMBER'
40 MasterSource = DataSource1
41 MasterFields = 'DBNUM'
42 Connection = FDConnection1
43 FetchOptions.AssignedValues = [evLiveWindowParanoic]
44 FetchOptions.LiveWindowParanoic = True
45 UpdateOptions.UpdateTableName = 'ARTICLE'
49 object FDTable2DBNUM: TIntegerField
52 ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
55 object FDTable2NUMBER: TIntegerField
58 ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
61 object FDTable2TITLE: TWideStringField
66 object FDTable2NAME: TWideStringField
71 object FDTable2COMMENT: TWideMemoField
76 object FDTable2RAW: TWideMemoField
81 object FDTable2DATE: TDateField
85 object FDTable2PASS: TWideStringField
92 object FDTable3: TFDTable
94 Connection = FDConnection1
95 UpdateOptions.UpdateTableName = 'SETTING'
99 object FDTable3TITLE: TWideStringField
104 object FDTable3TITLE2: TWideStringField
109 object FDTable3MENTE: TBooleanField
113 object FDTable3INFO: TIntegerField
117 object FDTable3COUNT: TIntegerField
121 object FDTable3PASSWORD: TWideStringField
122 FieldName = 'PASSWORD'
123 Origin = '"PASSWORD"'
127 object FDTable3TCNT: TIntegerField
132 object FDGUIxWaitCursor1: TFDGUIxWaitCursor
137 object DataSource1: TDataSource
142 object FDTable4: TFDTable
144 Connection = FDConnection1
145 UpdateOptions.UpdateTableName = 'REQ'
149 object FDTable4ID: TIntegerField
154 object FDTable4DBNAME: TIntegerField
158 object FDTable4POSNUM: TIntegerField
162 object FDTable4DATE: TDateField
167 object FDTable4REQUEST: TWideMemoField
168 FieldName = 'REQUEST'
170 BlobType = ftWideMemo
173 object FDTable5: TFDTable
175 IndexFieldNames = 'ID'
176 Connection = FDConnection1
177 UpdateOptions.UpdateTableName = 'IMAGES'
181 object FDTable5ID: TIntegerField
186 object FDTable5NAME: TWideStringField
192 object FDTable5SOURCE: TBlobField
197 object FDQuery1: TFDQuery
198 Connection = FDConnection1
200 'select "DATABASE", title, name, "DATE" from'
201 ' dbname inner join article on dbname.dbnum = article.dbnum'
202 ' where number = 1 order by "DATE";')