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 209 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 229 by tony, Tue Apr 10 13:32:36 2018 UTC

# Line 57 | Line 57 | object DatabaseData: TDatabaseData
57      BeforeClose = DatabaseQueryBeforeClose
58      BufferChunks = 1000
59      CachedUpdates = False
60 +    EnableStatistics = False
61      GenerateParamNames = False
62      GeneratorField.ApplyOnEvent = gaeOnNewRecord
63 +    MasterDetailDelay = 0
64      SQL.Strings = (
65        'SELECT * FROM RDB$DATABASE, MON$DATABASE'
66      )
# Line 76 | Line 78 | object DatabaseData: TDatabaseData
78      AutoCommit = acCommitRetaining
79      BufferChunks = 1000
80      CachedUpdates = False
81 +    EnableStatistics = False
82      GenerateParamNames = False
83      GeneratorField.ApplyOnEvent = gaeOnNewRecord
84 +    MasterDetailDelay = 0
85      SQL.Strings = (
86        'Select Trim(A.RDB$CHARACTER_SET_NAME)   as RDB$CHARACTER_SET_NAME'
87        ' From RDB$DATABASE A'
# Line 95 | Line 99 | object DatabaseData: TDatabaseData
99      OnCalcFields = ShadowFilesCalcFields
100      BufferChunks = 1000
101      CachedUpdates = False
102 +    EnableStatistics = False
103      GenerateParamNames = False
104      GeneratorField.ApplyOnEvent = gaeOnNewRecord
105 +    MasterDetailDelay = 0
106      SQL.Strings = (
107        'Select * From RDB$Files Where RDB$Shadow_Number <> 0 '
108        'Order by RDB$Shadow_Number, RDB$FILE_SEQUENCE'
# Line 181 | Line 187 | object DatabaseData: TDatabaseData
187      Transaction = CurrentTransaction
188      BufferChunks = 1000
189      CachedUpdates = False
190 +    EnableStatistics = False
191      GenerateParamNames = False
192      GeneratorField.ApplyOnEvent = gaeOnNewRecord
193 +    MasterDetailDelay = 0
194      SQL.Strings = (
195        'Select count(*) as Mappings'
196        'From SEC$GLOBAL_AUTH_MAPPING A'
# Line 199 | Line 207 | object DatabaseData: TDatabaseData
207      Transaction = CurrentTransaction
208      BufferChunks = 1000
209      CachedUpdates = False
210 +    EnableStatistics = False
211      GenerateParamNames = False
212      GeneratorField.ApplyOnEvent = gaeOnNewRecord
213 +    MasterDetailDelay = 0
214      SQL.Strings = (
215        'Select trim(A.RDB$CHARACTER_SET_NAME) as RDB$CHARACTER_SET_NAME'
216        ' From'
# Line 218 | Line 228 | object DatabaseData: TDatabaseData
228      Transaction = CurrentTransaction
229      BufferChunks = 1000
230      CachedUpdates = False
231 +    EnableStatistics = False
232      GenerateParamNames = False
233      GeneratorField.ApplyOnEvent = gaeOnNewRecord
234 +    MasterDetailDelay = 0
235      SQL.Strings = (
236        'Select * From RDB$Files Where RDB$Shadow_Number is null or RDB$Shadow_Number = 0 '
237        'Order by RDB$FILE_SEQUENCE'
# Line 249 | Line 261 | object DatabaseData: TDatabaseData
261      Transaction = CurrentTransaction
262      BufferChunks = 1000
263      CachedUpdates = False
264 +    EnableStatistics = False
265      GenerateParamNames = False
266      GeneratorField.ApplyOnEvent = gaeOnNewRecord
267 +    MasterDetailDelay = 0
268      SQL.Strings = (
269        'Select * from MON$ATTACHMENTS'
270        'Where MON$ATTACHMENT_ID = CURRENT_CONNECTION'
# Line 266 | Line 280 | object DatabaseData: TDatabaseData
280      Transaction = CurrentTransaction
281      BufferChunks = 1000
282      CachedUpdates = False
283 +    EnableStatistics = False
284      GenerateParamNames = False
285      GeneratorField.ApplyOnEvent = gaeOnNewRecord
286 +    MasterDetailDelay = 0
287      SQL.Strings = (
288        'SELECT r.RDB$RELATION_ID,'
289        '    trim(r.RDB$RELATION_NAME) as RDB$RELATION_NAME'
# Line 289 | Line 305 | object DatabaseData: TDatabaseData
305      BeforeClose = UserListBeforeClose
306      BufferChunks = 1000
307      CachedUpdates = False
308 +    EnableStatistics = False
309      GenerateParamNames = False
310      GeneratorField.ApplyOnEvent = gaeOnNewRecord
311 +    MasterDetailDelay = 0
312      SQL.Strings = (
313        'Select A.SEC$DESCRIPTION, A.SEC$PLUGIN, A.SEC$ADMIN,'
314        'A.SEC$ACTIVE, Trim(A.SEC$USER_NAME) as SEC$USER_NAME, A.SEC$MIDDLE_NAME,'
# Line 465 | Line 483 | object DatabaseData: TDatabaseData
483      BufferChunks = 1000
484      CachedUpdates = False
485      DataSource = UserListSource
486 +    EnableStatistics = False
487      GenerateParamNames = False
488      GeneratorField.ApplyOnEvent = gaeOnNewRecord
489 +    MasterDetailDelay = 0
490      SQL.Strings = (
491        'SELECT r.RDB$ROLE_NAME, r.RDB$OWNER_NAME, r.RDB$DESCRIPTION, r.RDB$SYSTEM_FLAG, '
492        'P.RDB$USER,RDB$PRIVILEGE,   cast(:SEC$USER_NAME as VARCHAR(32)) as SEC$USER_NAME,'
# Line 524 | Line 544 | object DatabaseData: TDatabaseData
544      BufferChunks = 1000
545      CachedUpdates = False
546      DataSource = UserListSource
547 +    EnableStatistics = False
548      GenerateParamNames = False
549      GeneratorField.ApplyOnEvent = gaeOnNewRecord
550 +    MasterDetailDelay = 0
551      SQL.Strings = (
552        'Select a.SEC$USER_NAME, A.SEC$KEY, A.SEC$VALUE'
553        'From'
# Line 574 | Line 596 | object DatabaseData: TDatabaseData
596      BeforeOpen = AttachmentsBeforeOpen
597      BufferChunks = 1000
598      CachedUpdates = False
599 +    EnableStatistics = False
600      GenerateParamNames = False
601      GeneratorField.ApplyOnEvent = gaeOnNewRecord
602 +    MasterDetailDelay = 0
603      SQL.Strings = (
604        'SELECT *'
605        'FROM MON$ATTACHMENTS r'
# Line 912 | Line 936 | object DatabaseData: TDatabaseData
936      Transaction = CurrentTransaction
937      BufferChunks = 1000
938      CachedUpdates = False
939 +    EnableStatistics = False
940      GenerateParamNames = False
941      GeneratorField.ApplyOnEvent = gaeOnNewRecord
942 +    MasterDetailDelay = 0
943      SQL.Strings = (
944        'Select Trim(A.RDB$RELATION_NAME) as RDB$RELATION_NAME, 1 as Selected'
945        ' From RDB$RELATIONS A'
# Line 940 | Line 966 | object DatabaseData: TDatabaseData
966      Transaction = CurrentTransaction
967      BufferChunks = 1000
968      CachedUpdates = False
969 +    EnableStatistics = False
970      GenerateParamNames = False
971      GeneratorField.ApplyOnEvent = gaeOnNewRecord
972 +    MasterDetailDelay = 0
973      SQL.Strings = (
974        'SELECT r.RDB$DB_KEY, cast(''Local'' as VarChar(6)) as MAPTYPE, r.RDB$MAP_NAME,'
975        '    Case'
# Line 994 | Line 1022 | object DatabaseData: TDatabaseData
1022      OnCalcFields = AccessRightsCalcFields
1023      BufferChunks = 1000
1024      CachedUpdates = False
1025 +    EnableStatistics = False
1026      GenerateParamNames = False
1027      GeneratorField.ApplyOnEvent = gaeOnNewRecord
1028 +    MasterDetailDelay = 0
1029      SQL.Strings = (
1030        'with recursive AccessRight as ('
1031        'Select UP.RDB$USER as SUBJECT_NAME,'
# Line 1125 | Line 1155 | object DatabaseData: TDatabaseData
1155      BeforeOpen = SubjectAccessRightsBeforeOpen
1156      BufferChunks = 1000
1157      CachedUpdates = False
1158 +    EnableStatistics = False
1159      GenerateParamNames = False
1160      GeneratorField.ApplyOnEvent = gaeOnNewRecord
1161 +    MasterDetailDelay = 0
1162      SQL.Strings = (
1163        'Select UP.RDB$USER as SUBJECT_NAME,'
1164        '  UP.RDB$USER_TYPE as SUBJECT_TYPE,'
# Line 1312 | Line 1344 | object DatabaseData: TDatabaseData
1344      AfterOpen = LegacyUserListAfterOpen
1345      BeforeClose = LegacyUserListBeforeClose
1346      AfterInsert = UserListAfterInsert
1347 +    AfterPost = LegacyUserListAfterPost
1348      Source = IBSecurityService1
1349      left = 167
1350      top = 438

Diff Legend

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