ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/DataModule.lfm
(Generate patch)

Comparing ibx/trunk/examples/DBAdmin/DataModule.lfm (file contents):
Revision 271 by tony, Fri Jan 18 11:10:37 2019 UTC vs.
Revision 272 by tony, Mon Feb 4 13:34:37 2019 UTC

# Line 1 | Line 1
1 < object DatabaseData: TDatabaseData
1 > object DBDataModule: TDBDataModule
2    OldCreateOrder = False
3    Height = 552
4 <  HorizontalOffset = 645
5 <  VerticalOffset = 400
4 >  HorizontalOffset = 767
5 >  VerticalOffset = 395
6    Width = 730
7    object IBDatabase1: TIBDatabase
8      Connected = False
# Line 39 | Line 39 | object DatabaseData: TDatabaseData
39    end
40    object ExecDDL: TIBSQL
41      Database = IBDatabase1
42 +    CaseSensitiveParameterNames = False
43      GenerateParamNames = False
44      UniqueParamNames = False
45      ParamCheck = True
# Line 57 | Line 58 | object DatabaseData: TDatabaseData
58      BeforeClose = DatabaseQueryBeforeClose
59      BufferChunks = 1000
60      CachedUpdates = False
61 +    CaseSensitiveParameterNames = False
62      EnableStatistics = False
63      GenerateParamNames = False
64      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 68 | Line 70 | object DatabaseData: TDatabaseData
70      DataSetCloseAction = dcSaveChanges
71      left = 288
72      top = 24
73 +    object DatabaseQueryRDBDESCRIPTION: TIBMemoField
74 +      FieldKind = fkData
75 +      FieldName = 'RDB$DESCRIPTION'
76 +      Index = 0
77 +      LookupCache = False
78 +      ProviderFlags = [pfInUpdate, pfInWhere]
79 +      ReadOnly = False
80 +      Required = False
81 +      BlobType = ftMemo
82 +      Size = 8
83 +      Transliterate = False
84 +      DisplayTextAsClassName = False
85 +    end
86 +    object DatabaseQueryRDBRELATION_ID: TIBSmallintField
87 +      FieldKind = fkData
88 +      FieldName = 'RDB$RELATION_ID'
89 +      Index = 1
90 +      LookupCache = False
91 +      ProviderFlags = [pfInUpdate, pfInWhere]
92 +      ReadOnly = False
93 +      Required = False
94 +    end
95 +    object DatabaseQueryRDBSECURITY_CLASS: TIBStringField
96 +      FieldKind = fkData
97 +      FieldName = 'RDB$SECURITY_CLASS'
98 +      Index = 2
99 +      LookupCache = False
100 +      ProviderFlags = [pfInUpdate, pfInWhere]
101 +      ReadOnly = False
102 +      Required = False
103 +      Size = 31
104 +    end
105 +    object DatabaseQueryRDBCHARACTER_SET_NAME: TIBStringField
106 +      FieldKind = fkData
107 +      FieldName = 'RDB$CHARACTER_SET_NAME'
108 +      Index = 3
109 +      LookupCache = False
110 +      ProviderFlags = [pfInUpdate, pfInWhere]
111 +      ReadOnly = False
112 +      Required = False
113 +      Size = 31
114 +    end
115 +    object DatabaseQueryRDBLINGER: TIBIntegerField
116 +      FieldKind = fkData
117 +      FieldName = 'RDB$LINGER'
118 +      Index = 4
119 +      LookupCache = False
120 +      ProviderFlags = [pfInUpdate, pfInWhere]
121 +      ReadOnly = False
122 +      Required = False
123 +    end
124 +    object DatabaseQueryMONDATABASE_NAME: TIBStringField
125 +      FieldKind = fkData
126 +      FieldName = 'MON$DATABASE_NAME'
127 +      Index = 5
128 +      LookupCache = False
129 +      ProviderFlags = [pfInUpdate, pfInWhere]
130 +      ReadOnly = False
131 +      Required = False
132 +      Size = 255
133 +    end
134 +    object DatabaseQueryMONPAGE_SIZE: TIBSmallintField
135 +      FieldKind = fkData
136 +      FieldName = 'MON$PAGE_SIZE'
137 +      Index = 6
138 +      LookupCache = False
139 +      ProviderFlags = [pfInUpdate, pfInWhere]
140 +      ReadOnly = False
141 +      Required = False
142 +    end
143 +    object DatabaseQueryMONODS_MAJOR: TIBSmallintField
144 +      FieldKind = fkData
145 +      FieldName = 'MON$ODS_MAJOR'
146 +      Index = 7
147 +      LookupCache = False
148 +      ProviderFlags = [pfInUpdate, pfInWhere]
149 +      ReadOnly = False
150 +      Required = False
151 +    end
152 +    object DatabaseQueryMONODS_MINOR: TIBSmallintField
153 +      FieldKind = fkData
154 +      FieldName = 'MON$ODS_MINOR'
155 +      Index = 8
156 +      LookupCache = False
157 +      ProviderFlags = [pfInUpdate, pfInWhere]
158 +      ReadOnly = False
159 +      Required = False
160 +    end
161 +    object DatabaseQueryMONOLDEST_TRANSACTION: TIBLargeIntField
162 +      FieldKind = fkData
163 +      FieldName = 'MON$OLDEST_TRANSACTION'
164 +      Index = 9
165 +      LookupCache = False
166 +      ProviderFlags = [pfInUpdate, pfInWhere]
167 +      ReadOnly = False
168 +      Required = False
169 +    end
170 +    object DatabaseQueryMONOLDEST_ACTIVE: TIBLargeIntField
171 +      FieldKind = fkData
172 +      FieldName = 'MON$OLDEST_ACTIVE'
173 +      Index = 10
174 +      LookupCache = False
175 +      ProviderFlags = [pfInUpdate, pfInWhere]
176 +      ReadOnly = False
177 +      Required = False
178 +    end
179 +    object DatabaseQueryMONOLDEST_SNAPSHOT: TIBLargeIntField
180 +      FieldKind = fkData
181 +      FieldName = 'MON$OLDEST_SNAPSHOT'
182 +      Index = 11
183 +      LookupCache = False
184 +      ProviderFlags = [pfInUpdate, pfInWhere]
185 +      ReadOnly = False
186 +      Required = False
187 +    end
188 +    object DatabaseQueryMONNEXT_TRANSACTION: TIBLargeIntField
189 +      FieldKind = fkData
190 +      FieldName = 'MON$NEXT_TRANSACTION'
191 +      Index = 12
192 +      LookupCache = False
193 +      ProviderFlags = [pfInUpdate, pfInWhere]
194 +      ReadOnly = False
195 +      Required = False
196 +    end
197 +    object DatabaseQueryMONPAGE_BUFFERS: TIBIntegerField
198 +      FieldKind = fkData
199 +      FieldName = 'MON$PAGE_BUFFERS'
200 +      Index = 13
201 +      LookupCache = False
202 +      ProviderFlags = [pfInUpdate, pfInWhere]
203 +      ReadOnly = False
204 +      Required = False
205 +    end
206 +    object DatabaseQueryMONSQL_DIALECT: TIBSmallintField
207 +      FieldKind = fkData
208 +      FieldName = 'MON$SQL_DIALECT'
209 +      Index = 14
210 +      LookupCache = False
211 +      ProviderFlags = [pfInUpdate, pfInWhere]
212 +      ReadOnly = False
213 +      Required = False
214 +    end
215 +    object DatabaseQueryMONSHUTDOWN_MODE: TIBSmallintField
216 +      FieldKind = fkData
217 +      FieldName = 'MON$SHUTDOWN_MODE'
218 +      Index = 15
219 +      LookupCache = False
220 +      ProviderFlags = [pfInUpdate, pfInWhere]
221 +      ReadOnly = False
222 +      Required = False
223 +    end
224 +    object DatabaseQueryMONSWEEP_INTERVAL: TIBIntegerField
225 +      FieldKind = fkData
226 +      FieldName = 'MON$SWEEP_INTERVAL'
227 +      Index = 16
228 +      LookupCache = False
229 +      ProviderFlags = [pfInUpdate, pfInWhere]
230 +      ReadOnly = False
231 +      Required = False
232 +    end
233 +    object DatabaseQueryMONREAD_ONLY: TIBSmallintField
234 +      FieldKind = fkData
235 +      FieldName = 'MON$READ_ONLY'
236 +      Index = 17
237 +      LookupCache = False
238 +      ProviderFlags = [pfInUpdate, pfInWhere]
239 +      ReadOnly = False
240 +      Required = False
241 +    end
242 +    object DatabaseQueryMONFORCED_WRITES: TIBSmallintField
243 +      FieldKind = fkData
244 +      FieldName = 'MON$FORCED_WRITES'
245 +      Index = 18
246 +      LookupCache = False
247 +      ProviderFlags = [pfInUpdate, pfInWhere]
248 +      ReadOnly = False
249 +      Required = False
250 +    end
251 +    object DatabaseQueryMONRESERVE_SPACE: TIBSmallintField
252 +      FieldKind = fkData
253 +      FieldName = 'MON$RESERVE_SPACE'
254 +      Index = 19
255 +      LookupCache = False
256 +      ProviderFlags = [pfInUpdate, pfInWhere]
257 +      ReadOnly = False
258 +      Required = False
259 +    end
260 +    object DatabaseQueryMONCREATION_DATE: TDateTimeField
261 +      FieldKind = fkData
262 +      FieldName = 'MON$CREATION_DATE'
263 +      Index = 20
264 +      LookupCache = False
265 +      ProviderFlags = [pfInUpdate, pfInWhere]
266 +      ReadOnly = False
267 +      Required = False
268 +      OnGetText = DatabaseQueryMONCREATION_DATEGetText
269 +    end
270 +    object DatabaseQueryMONPAGES: TIBLargeIntField
271 +      FieldKind = fkData
272 +      FieldName = 'MON$PAGES'
273 +      Index = 21
274 +      LookupCache = False
275 +      ProviderFlags = [pfInUpdate, pfInWhere]
276 +      ReadOnly = False
277 +      Required = False
278 +    end
279 +    object DatabaseQueryMONSTAT_ID: TIBIntegerField
280 +      FieldKind = fkData
281 +      FieldName = 'MON$STAT_ID'
282 +      Index = 22
283 +      LookupCache = False
284 +      ProviderFlags = [pfInUpdate, pfInWhere]
285 +      ReadOnly = False
286 +      Required = False
287 +    end
288 +    object DatabaseQueryMONBACKUP_STATE: TIBSmallintField
289 +      FieldKind = fkData
290 +      FieldName = 'MON$BACKUP_STATE'
291 +      Index = 23
292 +      LookupCache = False
293 +      ProviderFlags = [pfInUpdate, pfInWhere]
294 +      ReadOnly = False
295 +      Required = False
296 +    end
297 +    object DatabaseQueryMONCRYPT_PAGE: TIBLargeIntField
298 +      FieldKind = fkData
299 +      FieldName = 'MON$CRYPT_PAGE'
300 +      Index = 24
301 +      LookupCache = False
302 +      ProviderFlags = [pfInUpdate, pfInWhere]
303 +      ReadOnly = False
304 +      Required = False
305 +    end
306 +    object DatabaseQueryMONOWNER: TIBStringField
307 +      FieldKind = fkData
308 +      FieldName = 'MON$OWNER'
309 +      Index = 25
310 +      LookupCache = False
311 +      ProviderFlags = [pfInUpdate, pfInWhere]
312 +      ReadOnly = False
313 +      Required = False
314 +      Size = 31
315 +    end
316 +    object DatabaseQueryMONSEC_DATABASE: TIBStringField
317 +      FieldKind = fkData
318 +      FieldName = 'MON$SEC_DATABASE'
319 +      Index = 26
320 +      LookupCache = False
321 +      ProviderFlags = [pfInUpdate, pfInWhere]
322 +      ReadOnly = False
323 +      Required = True
324 +      Size = 7
325 +    end
326    end
327    object DBCharSet: TIBQuery
328      AllowAutoActivateTransaction = False
# Line 78 | Line 333 | object DatabaseData: TDatabaseData
333      AutoCommit = acCommitRetaining
334      BufferChunks = 1000
335      CachedUpdates = False
336 +    CaseSensitiveParameterNames = False
337      EnableStatistics = False
338      GenerateParamNames = False
339      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 99 | Line 355 | object DatabaseData: TDatabaseData
355      OnCalcFields = ShadowFilesCalcFields
356      BufferChunks = 1000
357      CachedUpdates = False
358 +    CaseSensitiveParameterNames = False
359      EnableStatistics = False
360      GenerateParamNames = False
361      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 187 | Line 444 | object DatabaseData: TDatabaseData
444      Transaction = CurrentTransaction
445      BufferChunks = 1000
446      CachedUpdates = False
447 +    CaseSensitiveParameterNames = False
448      EnableStatistics = False
449      GenerateParamNames = False
450      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 207 | Line 465 | object DatabaseData: TDatabaseData
465      Transaction = CurrentTransaction
466      BufferChunks = 1000
467      CachedUpdates = False
468 +    CaseSensitiveParameterNames = False
469      EnableStatistics = False
470      GenerateParamNames = False
471      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 228 | Line 487 | object DatabaseData: TDatabaseData
487      Transaction = CurrentTransaction
488      BufferChunks = 1000
489      CachedUpdates = False
490 +    CaseSensitiveParameterNames = False
491      EnableStatistics = False
492      GenerateParamNames = False
493      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 261 | Line 521 | object DatabaseData: TDatabaseData
521      Transaction = CurrentTransaction
522      BufferChunks = 1000
523      CachedUpdates = False
524 +    CaseSensitiveParameterNames = False
525      EnableStatistics = False
526      GenerateParamNames = False
527      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 280 | Line 541 | object DatabaseData: TDatabaseData
541      Transaction = CurrentTransaction
542      BufferChunks = 1000
543      CachedUpdates = False
544 +    CaseSensitiveParameterNames = False
545      EnableStatistics = False
546      GenerateParamNames = False
547      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 305 | Line 567 | object DatabaseData: TDatabaseData
567      BeforeClose = UserListBeforeClose
568      BufferChunks = 1000
569      CachedUpdates = False
570 +    CaseSensitiveParameterNames = False
571      EnableStatistics = False
572      GenerateParamNames = False
573      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 482 | Line 745 | object DatabaseData: TDatabaseData
745      AutoCommit = acCommitRetaining
746      BufferChunks = 1000
747      CachedUpdates = False
748 +    CaseSensitiveParameterNames = False
749      DataSource = UserListSource
750      EnableStatistics = False
751      GenerateParamNames = False
# Line 543 | Line 807 | object DatabaseData: TDatabaseData
807      AfterInsert = UserTagsAfterInsert
808      BufferChunks = 1000
809      CachedUpdates = False
810 +    CaseSensitiveParameterNames = False
811      DataSource = UserListSource
812      EnableStatistics = False
813      GenerateParamNames = False
# Line 596 | Line 861 | object DatabaseData: TDatabaseData
861      BeforeOpen = AttachmentsBeforeOpen
862      BufferChunks = 1000
863      CachedUpdates = False
864 +    CaseSensitiveParameterNames = False
865      EnableStatistics = False
866      GenerateParamNames = False
867      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 919 | Line 1185 | object DatabaseData: TDatabaseData
1185    end
1186    object AdminUserQuery: TIBSQL
1187      Database = IBDatabase1
1188 +    CaseSensitiveParameterNames = False
1189      GenerateParamNames = False
1190      UniqueParamNames = False
1191      ParamCheck = True
# Line 936 | Line 1203 | object DatabaseData: TDatabaseData
1203      Transaction = CurrentTransaction
1204      BufferChunks = 1000
1205      CachedUpdates = False
1206 +    CaseSensitiveParameterNames = False
1207      EnableStatistics = False
1208      GenerateParamNames = False
1209      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 966 | Line 1234 | object DatabaseData: TDatabaseData
1234      Transaction = CurrentTransaction
1235      BufferChunks = 1000
1236      CachedUpdates = False
1237 +    CaseSensitiveParameterNames = False
1238      EnableStatistics = False
1239      GenerateParamNames = False
1240      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 1022 | Line 1291 | object DatabaseData: TDatabaseData
1291      OnCalcFields = AccessRightsCalcFields
1292      BufferChunks = 1000
1293      CachedUpdates = False
1294 +    CaseSensitiveParameterNames = False
1295      EnableStatistics = False
1296      GenerateParamNames = False
1297      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 1155 | Line 1425 | object DatabaseData: TDatabaseData
1425      BeforeOpen = SubjectAccessRightsBeforeOpen
1426      BufferChunks = 1000
1427      CachedUpdates = False
1428 +    CaseSensitiveParameterNames = False
1429      EnableStatistics = False
1430      GenerateParamNames = False
1431      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 1220 | Line 1491 | object DatabaseData: TDatabaseData
1491    end
1492    object IBXServicesConnection1: TIBXServicesConnection
1493      Connected = False
1494 +    AfterConnect = IBXServicesConnection1AfterConnect
1495      OnLogin = IBXServicesConnection1Login
1496      Params.Strings = (
1497        'sql_role_name=RDB$ADMIN'
# Line 1409 | Line 1681 | object DatabaseData: TDatabaseData
1681      left = 176
1682      top = 496
1683    end
1684 +  object ConfigDataset: TMemDataset
1685 +    FieldDefs = <    
1686 +      item
1687 +        Name = 'ParamDescription'
1688 +        DataType = ftString
1689 +        Size = 256
1690 +      end    
1691 +      item
1692 +        Name = 'ParamValue'
1693 +        DataType = ftInteger
1694 +      end>
1695 +    AfterClose = ConfigDatasetAfterClose
1696 +    left = 528
1697 +    top = 424
1698 +  end
1699   end

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines