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 314 by tony, Mon Feb 4 13:39:00 2019 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

# Line 5 | Line 5 | object DBDataModule: TDBDataModule
5    VerticalOffset = 395
6    Width = 730
7    object IBDatabase1: TIBDatabase
8 <    Connected = True
8 >    Connected = False
9      AfterConnect = IBDatabase1AfterConnect
10      AfterDisconnect = IBDatabase1AfterDisconnect
11      BeforeDisconnect = IBDatabase1BeforeDisconnect
# Line 22 | Line 22 | object DBDataModule: TDBDataModule
22      IdleTimer = 0
23      TraceFlags = []
24      UseDefaultSystemCodePage = False
25 <    left = 40
26 <    top = 24
25 >    Left = 40
26 >    Top = 24
27    end
28    object CurrentTransaction: TIBTransaction
29      Active = False
# Line 34 | Line 34 | object DBDataModule: TDBDataModule
34        'nowait'
35      )
36      AfterTransactionEnd = CurrentTransactionAfterTransactionEnd
37 <    left = 168
38 <    top = 24
37 >    Left = 168
38 >    Top = 24
39    end
40    object ExecDDL: TIBSQL
41      Database = IBDatabase1
# Line 47 | Line 47 | object DBDataModule: TDBDataModule
47        ''
48      )
49      Transaction = CurrentTransaction
50 <    left = 152
51 <    top = 208
50 >    Left = 152
51 >    Top = 208
52    end
53    object DatabaseQuery: TIBQuery
54      AllowAutoActivateTransaction = False
# Line 67 | Line 67 | object DBDataModule: TDBDataModule
67        'SELECT * FROM RDB$DATABASE, MON$DATABASE'
68      )
69      Params = <>
70 +    SQLFiltered = False
71      DataSetCloseAction = dcSaveChanges
72 <    left = 288
73 <    top = 24
72 >    TZTextOption = tzOffset
73 >    DefaultTZDate = 43831
74 >    Left = 288
75 >    Top = 24
76    end
77    object DBCharSet: TIBQuery
78      AllowAutoActivateTransaction = False
# Line 91 | Line 94 | object DBDataModule: TDBDataModule
94      )
95      Params = <>
96      UpdateObject = UpdateCharSet
97 +    SQLFiltered = False
98      DataSetCloseAction = dcSaveChanges
99 <    left = 424
100 <    top = 32
99 >    TZTextOption = tzOffset
100 >    DefaultTZDate = 43831
101 >    Left = 424
102 >    Top = 32
103    end
104    object ShadowFiles: TIBQuery
105      AllowAutoActivateTransaction = False
# Line 112 | Line 118 | object DBDataModule: TDBDataModule
118        'Order by RDB$Shadow_Number, RDB$FILE_SEQUENCE'
119      )
120      Params = <>
121 +    SQLFiltered = False
122      DataSetCloseAction = dcDiscardChanges
123 <    left = 32
124 <    top = 208
123 >    TZTextOption = tzOffset
124 >    DefaultTZDate = 43831
125 >    Left = 32
126 >    Top = 208
127      object ShadowFilesRDBFILE_NAME: TIBStringField
128        FieldKind = fkData
129        FieldName = 'RDB$FILE_NAME'
# Line 202 | Line 211 | object DBDataModule: TDBDataModule
211        'Where SEC$MAP_NAME = ''AutoAdminImplementationMapping'''
212      )
213      Params = <>
214 +    SQLFiltered = False
215      DataSetCloseAction = dcDiscardChanges
216 <    left = 288
217 <    top = 112
216 >    TZTextOption = tzOffset
217 >    DefaultTZDate = 43831
218 >    Left = 288
219 >    Top = 112
220    end
221    object CharSetLookup: TIBQuery
222      AllowAutoActivateTransaction = False
# Line 224 | Line 236 | object DBDataModule: TDBDataModule
236        ''
237      )
238      Params = <>
239 +    SQLFiltered = False
240      DataSetCloseAction = dcDiscardChanges
241 <    left = 160
242 <    top = 104
241 >    TZTextOption = tzOffset
242 >    DefaultTZDate = 43831
243 >    Left = 160
244 >    Top = 104
245    end
246    object DBSecFiles: TIBQuery
247      AllowAutoActivateTransaction = False
# Line 244 | Line 259 | object DBDataModule: TDBDataModule
259        'Order by RDB$FILE_SEQUENCE'
260      )
261      Params = <>
262 +    SQLFiltered = False
263      DataSetCloseAction = dcDiscardChanges
264 <    left = 32
265 <    top = 104
264 >    TZTextOption = tzOffset
265 >    DefaultTZDate = 43831
266 >    Left = 32
267 >    Top = 104
268    end
269    object UpdateCharSet: TIBUpdate
270      RefreshSQL.Strings = (
# Line 254 | Line 272 | object DBDataModule: TDBDataModule
272        ' From RDB$DATABASE A'
273      )
274      OnApplyUpdates = UpdateCharSetApplyUpdates
275 <    left = 424
276 <    top = 104
275 >    Left = 424
276 >    Top = 104
277    end
278    object IBDatabaseInfo: TIBDatabaseInfo
279      Database = IBDatabase1
280 <    left = 280
281 <    top = 200
280 >    Left = 280
281 >    Top = 200
282    end
283    object AttmtQuery: TIBQuery
284      AllowAutoActivateTransaction = False
# Line 278 | Line 296 | object DBDataModule: TDBDataModule
296        'Where MON$ATTACHMENT_ID = CURRENT_CONNECTION'
297      )
298      Params = <>
299 +    SQLFiltered = False
300      DataSetCloseAction = dcDiscardChanges
301 <    left = 544
302 <    top = 112
301 >    TZTextOption = tzOffset
302 >    DefaultTZDate = 43831
303 >    Left = 544
304 >    Top = 112
305    end
306    object TableNameLookup: TIBQuery
307      AllowAutoActivateTransaction = False
# Line 299 | Line 320 | object DBDataModule: TDBDataModule
320        'FROM RDB$RELATIONS r'
321      )
322      Params = <>
323 +    SQLFiltered = False
324      DataSetCloseAction = dcDiscardChanges
325 <    left = 288
326 <    top = 283
325 >    TZTextOption = tzOffset
326 >    DefaultTZDate = 43831
327 >    Left = 288
328 >    Top = 283
329    end
330    object UserList: TIBQuery
331      AllowAutoActivateTransaction = False
# Line 336 | Line 360 | object DBDataModule: TDBDataModule
360      )
361      Params = <>
362      UpdateObject = UpdateUsers
363 +    SQLFiltered = False
364      DataSetCloseAction = dcSaveChanges
365 <    left = 416
366 <    top = 352
365 >    TZTextOption = tzOffset
366 >    DefaultTZDate = 43831
367 >    Left = 416
368 >    Top = 352
369      object UserListSECPLUGIN: TIBStringField
370        FieldKind = fkData
371        FieldName = 'SEC$PLUGIN'
# Line 482 | Line 509 | object DBDataModule: TDBDataModule
509        'Where  A.SEC$USER_NAME = :SEC$USER_NAME'
510      )
511      OnApplyUpdates = UpdateUsersApplyUpdates
512 <    left = 544
513 <    top = 360
512 >    Left = 544
513 >    Top = 360
514    end
515    object RoleNameList: TIBQuery
516      AllowAutoActivateTransaction = False
# Line 516 | Line 543 | object DBDataModule: TDBDataModule
543          ParamType = ptInput
544        end>
545      UpdateObject = UpdateUserRoles
546 +    SQLFiltered = False
547      DataSetCloseAction = dcSaveChanges
548 <    left = 424
549 <    top = 280
548 >    TZTextOption = tzOffset
549 >    DefaultTZDate = 43831
550 >    Left = 424
551 >    Top = 280
552      ParamData = <    
553        item
554          DataType = ftUnknown
# Line 539 | Line 569 | object DBDataModule: TDBDataModule
569        'Where  r.RDB$ROLE_NAME = :RDB$ROLE_NAME'
570      )
571      OnApplyUpdates = UpdateUserRolesApplyUpdates
572 <    left = 544
573 <    top = 288
572 >    Left = 544
573 >    Top = 288
574    end
575    object ApplicationProperties1: TApplicationProperties
576      OnException = ApplicationProperties1Exception
577 <    left = 528
578 <    top = 32
577 >    Left = 528
578 >    Top = 32
579    end
580    object UserTags: TIBQuery
581      AllowAutoActivateTransaction = False
# Line 573 | Line 603 | object DBDataModule: TDBDataModule
603          ParamType = ptInput
604        end>
605      UpdateObject = TagsUpdate
606 +    SQLFiltered = False
607      DataSetCloseAction = dcSaveChanges
608 <    left = 424
609 <    top = 192
608 >    TZTextOption = tzOffset
609 >    DefaultTZDate = 43831
610 >    Left = 424
611 >    Top = 192
612      ParamData = <    
613        item
614          DataType = ftUnknown
# Line 591 | Line 624 | object DBDataModule: TDBDataModule
624        '  and A.SEC$KEY = :SEC$KEY'
625      )
626      OnApplyUpdates = TagsUpdateApplyUpdates
627 <    left = 536
628 <    top = 200
627 >    Left = 536
628 >    Top = 200
629    end
630    object UserListSource: TDataSource
631      DataSet = UserList
632 <    left = 304
633 <    top = 360
632 >    Left = 304
633 >    Top = 360
634    end
635    object Attachments: TIBQuery
636      AllowAutoActivateTransaction = False
# Line 621 | Line 654 | object DBDataModule: TDBDataModule
654      )
655      Params = <>
656      UpdateObject = AttUpdate
657 +    SQLFiltered = False
658      DataSetCloseAction = dcDiscardChanges
659 <    left = 280
660 <    top = 433
659 >    TZTextOption = tzOffset
660 >    DefaultTZDate = 43831
661 >    Left = 280
662 >    Top = 433
663      object AttachmentsMONATTACHMENT_ID: TIBLargeIntField
664        FieldKind = fkData
665        FieldName = 'MON$ATTACHMENT_ID'
# Line 927 | Line 963 | object DBDataModule: TDBDataModule
963    end
964    object AttUpdate: TIBUpdate
965      OnApplyUpdates = AttUpdateApplyUpdates
966 <    left = 376
967 <    top = 432
966 >    Left = 376
967 >    Top = 432
968    end
969    object AdminUserQuery: TIBSQL
970      Database = IBDatabase1
# Line 941 | Line 977 | object DBDataModule: TDBDataModule
977        'Where SEC$USER_NAME = CURRENT_USER'
978      )
979      Transaction = CurrentTransaction
980 <    left = 424
981 <    top = 496
980 >    Left = 424
981 >    Top = 496
982    end
983    object DBTables: TIBQuery
984      AllowAutoActivateTransaction = False
# Line 963 | Line 999 | object DBDataModule: TDBDataModule
999      )
1000      Params = <>
1001      UpdateObject = DBTablesUpdate
1002 +    SQLFiltered = False
1003      DataSetCloseAction = dcDiscardChanges
1004 <    left = 520
1005 <    top = 488
1004 >    TZTextOption = tzOffset
1005 >    DefaultTZDate = 43831
1006 >    Left = 520
1007 >    Top = 488
1008    end
1009    object DBTablesUpdate: TIBUpdate
1010      RefreshSQL.Strings = (
1011        ''
1012      )
1013      OnApplyUpdates = DBTablesUpdateApplyUpdates
1014 <    left = 592
1015 <    top = 480
1014 >    Left = 592
1015 >    Top = 480
1016    end
1017    object AuthMappings: TIBQuery
1018      AllowAutoActivateTransaction = False
# Line 1027 | Line 1066 | object DBDataModule: TDBDataModule
1066        ''
1067      )
1068      Params = <>
1069 +    SQLFiltered = False
1070      DataSetCloseAction = dcDiscardChanges
1071 <    left = 657
1072 <    top = 118
1071 >    TZTextOption = tzOffset
1072 >    DefaultTZDate = 43831
1073 >    Left = 657
1074 >    Top = 118
1075    end
1076    object AccessRights: TIBQuery
1077      AllowAutoActivateTransaction = False
# Line 1080 | Line 1122 | object DBDataModule: TDBDataModule
1122        'From ('
1123        'Select A.ID as ID, Trim(A.SUBJECT_NAME )as SUBJECT_NAME, A.SUBJECT_TYPE as SUBJECT_TYPE,'
1124        '       case When A.Parent is NULL then Trim(T.RDB$TYPE_NAME) || A.SUBJECT_TYPE Else A.Parent End as Parent,'
1125 <      '       sum(A.ChildCount) as ChildCount'
1125 >      '       cast (sum(A.ChildCount) as Integer) as ChildCount'
1126        '       from AccessRights A'
1127        '       JOIN RDB$TYPES T On T.RDB$TYPE = A.SUBJECT_TYPE and RDB$FIELD_NAME = ''RDB$OBJECT_TYPE'''
1128        '       Group By A.ID, A.SUBJECT_NAME, A.SUBJECT_TYPE, A.Parent, T.RDB$TYPE_NAME'
# Line 1094 | Line 1136 | object DBDataModule: TDBDataModule
1136        ''
1137      )
1138      Params = <>
1139 +    SQLFiltered = False
1140      DataSetCloseAction = dcDiscardChanges
1141 <    left = 648
1142 <    top = 264
1141 >    TZTextOption = tzOffset
1142 >    DefaultTZDate = 43831
1143 >    Left = 648
1144 >    Top = 264
1145      object AccessRightsID: TIBStringField
1146        FieldKind = fkData
1147        FieldName = 'ID'
# Line 1136 | Line 1181 | object DBDataModule: TDBDataModule
1181        Required = False
1182        Size = 37
1183      end
1184 <    object AccessRightsCHILDCOUNT: TIBLargeIntField
1185 <      FieldKind = fkData
1186 <      FieldName = 'CHILDCOUNT'
1184 >    object AccessRightsImageIndex: TLongintField
1185 >      FieldKind = fkCalculated
1186 >      FieldName = 'ImageIndex'
1187        Index = 4
1188        LookupCache = False
1189        ProviderFlags = [pfInUpdate, pfInWhere]
1190        ReadOnly = False
1191        Required = False
1192      end
1193 <    object AccessRightsImageIndex: TLongintField
1193 >    object AccessRightsDisplayName: TStringField
1194        FieldKind = fkCalculated
1195 <      FieldName = 'ImageIndex'
1195 >      FieldName = 'DisplayName'
1196        Index = 5
1197        LookupCache = False
1198        ProviderFlags = [pfInUpdate, pfInWhere]
1199        ReadOnly = False
1200        Required = False
1201 +      Size = 64
1202      end
1203 <    object AccessRightsDisplayName: TStringField
1204 <      FieldKind = fkCalculated
1205 <      FieldName = 'DisplayName'
1203 >    object AccessRightsCHILDCOUNT: TIBIntegerField
1204 >      FieldKind = fkData
1205 >      FieldName = 'CHILDCOUNT'
1206        Index = 6
1207        LookupCache = False
1208        ProviderFlags = [pfInUpdate, pfInWhere]
1209        ReadOnly = False
1210        Required = False
1165 –      Size = 64
1211      end
1212    end
1213    object SubjectAccessRights: TIBQuery
# Line 1226 | Line 1271 | object DBDataModule: TDBDataModule
1271          Name = 'ID'
1272          ParamType = ptInput
1273        end>
1274 +    SQLFiltered = False
1275      DataSetCloseAction = dcDiscardChanges
1276 <    left = 648
1277 <    top = 336
1276 >    TZTextOption = tzOffset
1277 >    DefaultTZDate = 43831
1278 >    Left = 648
1279 >    Top = 336
1280      ParamData = <    
1281        item
1282          DataType = ftUnknown
# Line 1244 | Line 1292 | object DBDataModule: TDBDataModule
1292        'sql_role_name=RDB$ADMIN'
1293      )
1294      TraceFlags = []
1295 <    left = 640
1296 <    top = 48
1295 >    Left = 640
1296 >    Top = 48
1297    end
1298    object IBStatisticalService1: TIBXStatisticalService
1299      ServicesConnection = IBXServicesConnection1
1300      TraceFlags = []
1301      Options = [HeaderPages]
1302 <    left = 48
1303 <    top = 287
1302 >    Left = 48
1303 >    Top = 287
1304    end
1305    object IBConfigService1: TIBXConfigService
1306      ServicesConnection = IBXServicesConnection1
1307      TraceFlags = []
1308 <    left = 168
1309 <    top = 283
1308 >    Left = 168
1309 >    Top = 283
1310    end
1311    object IBServerProperties1: TIBXServerProperties
1312      ServicesConnection = IBXServicesConnection1
1313      TraceFlags = []
1314 <    left = 40
1315 <    top = 365
1314 >    Left = 40
1315 >    Top = 365
1316    end
1317    object IBLogService1: TIBXLogService
1318      ServicesConnection = IBXServicesConnection1
1319      TraceFlags = []
1320 <    left = 168
1321 <    top = 365
1320 >    Left = 168
1321 >    Top = 365
1322    end
1323    object IBSecurityService1: TIBXSecurityService
1324      ServicesConnection = IBXServicesConnection1
# Line 1278 | Line 1326 | object DBDataModule: TDBDataModule
1326      UserID = 0
1327      GroupID = 0
1328      AdminRole = False
1329 <    left = 36
1330 <    top = 437
1329 >    Left = 36
1330 >    Top = 437
1331    end
1332    object IBValidationService1: TIBXValidationService
1333      ServicesConnection = IBXServicesConnection1
1334      TraceFlags = []
1335      OnGetNextLine = IBValidationService1GetNextLine
1336      Options = [ValidateFull]
1337 <    left = 632
1338 <    top = 416
1337 >    Left = 632
1338 >    Top = 416
1339    end
1340    object IBOnlineValidationService1: TIBXOnlineValidationService
1341      ServicesConnection = IBXServicesConnection1
1342      TraceFlags = []
1343      OnGetNextLine = IBValidationService1GetNextLine
1344 <    left = 40
1345 <    top = 503
1344 >    Left = 40
1345 >    Top = 503
1346    end
1347    object LegacyUserList: TIBXServicesUserList
1348      FieldDefs = <    
# Line 1365 | Line 1413 | object DBDataModule: TDBDataModule
1413      AfterInsert = UserListAfterInsert
1414      AfterPost = LegacyUserListAfterPost
1415      Source = IBSecurityService1
1416 <    left = 167
1417 <    top = 438
1416 >    Left = 167
1417 >    Top = 438
1418    end
1419    object InLimboList: TIBXServicesLimboTransactionsList
1420      FieldDefs = <    
# Line 1418 | Line 1466 | object DBDataModule: TDBDataModule
1466          Size = 32
1467        end>
1468      Source = IBLimboTrans
1469 <    left = 296
1470 <    top = 496
1469 >    Left = 296
1470 >    Top = 496
1471    end
1472    object IBLimboTrans: TIBXLimboTransactionResolutionService
1473      ServicesConnection = IBXServicesConnection1
1474      TraceFlags = []
1475      GlobalAction = CommitGlobal
1476 <    left = 176
1477 <    top = 496
1476 >    Left = 176
1477 >    Top = 496
1478    end
1479    object ConfigDataset: TMemDataset
1480      FieldDefs = <    
# Line 1440 | Line 1488 | object DBDataModule: TDBDataModule
1488          DataType = ftInteger
1489        end>
1490      AfterClose = ConfigDatasetAfterClose
1491 <    left = 528
1492 <    top = 424
1491 >    Left = 528
1492 >    Top = 424
1493    end
1494   end

Diff Legend

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