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 210 by tony, Wed Mar 14 15:03:38 2018 UTC

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

Diff Legend

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