1 object DataModule1: TDataModule1
5 object FDTable1: TFDTable
6 IndexFieldNames = 'DBNUM'
7 Connection = FDConnection1
8 UpdateOptions.UpdateTableName = 'dbname'
12 object FDTable1DBNUM: TIntegerField
17 object FDTable1DATABASE: TWideStringField
18 FieldName = 'DATABASE'
24 object FDConnection1: TFDConnection
36 object FDTable2: TFDTable
37 IndexFieldNames = 'DBNUM;NUMBER'
38 MasterSource = DataSource1
39 MasterFields = 'DBNUM'
40 Connection = FDConnection1
41 FetchOptions.AssignedValues = [evLiveWindowParanoic]
42 FetchOptions.LiveWindowParanoic = True
43 UpdateOptions.UpdateTableName = 'article'
47 object FDTable2DBNUM: TIntegerField
50 ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
53 object FDTable2NUMBER: TIntegerField
56 ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
59 object FDTable2TITLE: TWideStringField
64 object FDTable2NAME: TWideStringField
69 object FDTable2COMMENT: TWideMemoField
74 object FDTable2RAW: TWideMemoField
79 object FDTable2DATE: TDateField
83 object FDTable2PASS: TWideStringField
90 object FDTable3: TFDTable
91 Connection = FDConnection1
92 UpdateOptions.UpdateTableName = 'setting'
96 object FDTable3TITLE: TWideStringField
101 object FDTable3TITLE2: TWideStringField
106 object FDTable3MENTE: TBooleanField
110 object FDTable3INFO: TIntegerField
114 object FDTable3COUNT: TIntegerField
118 object FDTable3PASSWORD: TWideStringField
119 FieldName = 'PASSWORD'
125 object FDGUIxWaitCursor1: TFDGUIxWaitCursor
130 object DataSource1: TDataSource
135 object FDTable4: TFDTable
136 Connection = FDConnection1
137 UpdateOptions.UpdateTableName = 'req'
141 object FDTable4ID: TIntegerField
146 object FDTable4DBNAME: TIntegerField
150 object FDTable4POSNUM: TIntegerField
154 object FDTable4DATE: TDateField
159 object FDTable4REQUEST: TWideMemoField
160 FieldName = 'REQUEST'
162 BlobType = ftWideMemo
165 object FDTable5: TFDTable
166 IndexFieldNames = 'ID'
167 Connection = FDConnection1
168 UpdateOptions.UpdateTableName = 'images'
172 object FDTable5ID: TIntegerField
177 object FDTable5NAME: TWideStringField
182 object FDTable5SOURCE: TBlobField
187 object FDQuery1: TFDQuery
188 Connection = FDConnection1
190 'select dbnum,number,title,date from article'
191 ' where number = 1 order by date;')