1 |
|
object MainForm: TMainForm |
2 |
< |
Left = 596 |
2 |
> |
Left = 648 |
3 |
|
Height = 616 |
4 |
< |
Top = 178 |
4 |
> |
Top = 231 |
5 |
|
Width = 939 |
6 |
|
Caption = 'Database Administrator Demo' |
7 |
|
ClientHeight = 596 |
8 |
|
ClientWidth = 939 |
9 |
|
Menu = MainMenu1 |
10 |
+ |
OnClose = FormClose |
11 |
|
OnShow = FormShow |
12 |
< |
LCLVersion = '1.8.1.0' |
12 |
> |
LCLVersion = '1.8.3.0' |
13 |
|
object ToolBar1: TToolBar |
14 |
|
Left = 0 |
15 |
|
Height = 26 |
273 |
|
OnChange = NoReserveChange |
274 |
|
TabOrder = 10 |
275 |
|
end |
275 |
– |
object AutoAdmin: TCheckBox |
276 |
– |
Left = 112 |
277 |
– |
Height = 22 |
278 |
– |
Top = 432 |
279 |
– |
Width = 151 |
280 |
– |
Caption = 'Auto Admin Mapping' |
281 |
– |
OnChange = AutoAdminChange |
282 |
– |
TabOrder = 11 |
283 |
– |
end |
276 |
|
object Label11: TLabel |
277 |
|
Left = 435 |
278 |
|
Height = 14 |
288 |
|
Width = 89 |
289 |
|
Alignment = taRightJustify |
290 |
|
ReadOnly = True |
291 |
< |
TabOrder = 12 |
291 |
> |
TabOrder = 11 |
292 |
|
Text = 'AllocatedPages' |
293 |
|
end |
294 |
|
object Label19: TLabel |
314 |
|
Width = 89 |
315 |
|
Alignment = taRightJustify |
316 |
|
ReadOnly = True |
317 |
< |
TabOrder = 13 |
317 |
> |
TabOrder = 12 |
318 |
|
Text = 'PagesUsed' |
319 |
|
end |
320 |
|
object Label10: TLabel |
332 |
|
Width = 89 |
333 |
|
Alignment = taRightJustify |
334 |
|
ReadOnly = True |
335 |
< |
TabOrder = 14 |
335 |
> |
TabOrder = 13 |
336 |
|
Text = 'PagesAvail' |
337 |
|
end |
338 |
|
object Label12: TLabel |
350 |
|
Width = 89 |
351 |
|
Alignment = taRightJustify |
352 |
|
ReadOnly = True |
353 |
< |
TabOrder = 15 |
353 |
> |
TabOrder = 14 |
354 |
|
Text = 'Edit10' |
355 |
|
end |
356 |
|
object Label20: TLabel |
384 |
|
Width = 89 |
385 |
|
Alignment = taRightJustify |
386 |
|
ReadOnly = True |
387 |
< |
TabOrder = 16 |
387 |
> |
TabOrder = 15 |
388 |
|
Text = 'Edit11' |
389 |
|
end |
390 |
|
object Label22: TLabel |
411 |
|
Alignment = taRightJustify |
412 |
|
NumbersOnly = True |
413 |
|
OnEditingDone = PageBuffersEditingDone |
414 |
< |
TabOrder = 17 |
414 |
> |
TabOrder = 16 |
415 |
|
Text = 'PageBuffers' |
416 |
|
end |
417 |
|
object Label23: TLabel |
432 |
|
ReadOnly = True |
433 |
|
CharCase = ecNormal |
434 |
|
MaxLength = 0 |
435 |
< |
TabOrder = 18 |
435 |
> |
TabOrder = 17 |
436 |
|
end |
437 |
|
object Label16: TLabel |
438 |
|
Left = 453 |
450 |
|
Alignment = taRightJustify |
451 |
|
NumbersOnly = True |
452 |
|
OnEditingDone = LingerDelayEditingDone |
453 |
< |
TabOrder = 19 |
453 |
> |
TabOrder = 18 |
454 |
|
Text = 'LingerDelay' |
455 |
|
end |
456 |
|
object Label17: TLabel |
478 |
|
Alignment = taRightJustify |
479 |
|
NumbersOnly = True |
480 |
|
OnEditingDone = SweepIntervalEditingDone |
481 |
< |
TabOrder = 20 |
481 |
> |
TabOrder = 19 |
482 |
|
Text = 'SweepInterval' |
483 |
|
end |
484 |
|
object Label8: TLabel |
498 |
|
DataSource = DatabaseSource |
499 |
|
CharCase = ecNormal |
500 |
|
MaxLength = 0 |
501 |
< |
TabOrder = 21 |
501 |
> |
TabOrder = 20 |
502 |
|
end |
503 |
|
object Edit1: TEdit |
504 |
|
Left = 121 |
506 |
|
Top = 16 |
507 |
|
Width = 263 |
508 |
|
ParentFont = False |
509 |
< |
TabOrder = 22 |
509 |
> |
TabOrder = 21 |
510 |
|
Text = 'Edit1' |
511 |
|
end |
512 |
|
object SecDatabase: TEdit |
515 |
|
Top = 241 |
516 |
|
Width = 263 |
517 |
|
ReadOnly = True |
518 |
< |
TabOrder = 23 |
518 |
> |
TabOrder = 22 |
519 |
|
Text = 'SecDatabase' |
520 |
|
end |
521 |
|
object DBOwner: TEdit |
524 |
|
Top = 208 |
525 |
|
Width = 264 |
526 |
|
ReadOnly = True |
527 |
< |
TabOrder = 24 |
527 |
> |
TabOrder = 23 |
528 |
|
Text = 'DBOwner' |
529 |
|
end |
530 |
|
object DatabaseAliasName: TEdit |
533 |
|
Top = 48 |
534 |
|
Width = 264 |
535 |
|
ReadOnly = True |
536 |
< |
TabOrder = 25 |
536 |
> |
TabOrder = 24 |
537 |
|
Text = 'DatabaseAliasName' |
538 |
|
end |
539 |
|
end |
1022 |
|
OnShow = StatisticsTabShow |
1023 |
|
object StatsOptions: TComboBox |
1024 |
|
Left = 667 |
1025 |
< |
Height = 27 |
1025 |
> |
Height = 23 |
1026 |
|
Top = 8 |
1027 |
|
Width = 228 |
1028 |
|
Anchors = [akTop, akRight] |
1681 |
|
Title.Alignment = taCenter |
1682 |
|
Title.Caption = 'User Name' |
1683 |
|
Width = 120 |
1684 |
< |
FieldName = 'USERNAME' |
1684 |
> |
FieldName = 'SEC$USER_NAME' |
1685 |
|
AutoSizeColumn = False |
1686 |
|
InitialSortColumn = False |
1687 |
|
DBLookupProperties.ItemHeight = 0 |
1815 |
|
Descending = False |
1816 |
|
EditorBorderStyle = bsSingle |
1817 |
|
DefaultPositionAtEnd = False |
1818 |
< |
IndexFieldNames = 'USERNAME' |
1818 |
> |
IndexFieldNames = 'SEC$USER_NAME' |
1819 |
|
end |
1820 |
|
end |
1821 |
|
object Splitter2: TSplitter |
1910 |
|
Height = 14 |
1911 |
|
Top = 30 |
1912 |
|
Width = 49 |
1913 |
< |
DataField = 'USERNAME' |
1913 |
> |
DataField = 'SEC$USER_NAME' |
1914 |
|
DataSource = UserListSource |
1915 |
|
ParentColor = False |
1916 |
|
end |
2000 |
|
OnShow = AccessRightsTabShow |
2001 |
|
object AccessRightsTreeView: TIBTreeView |
2002 |
|
Left = 0 |
2003 |
< |
Height = 516 |
2003 |
> |
Height = 519 |
2004 |
|
Top = 0 |
2005 |
|
Width = 300 |
2006 |
|
Align = alLeft |
2018 |
|
end |
2019 |
|
object Splitter5: TSplitter |
2020 |
|
Left = 300 |
2021 |
< |
Height = 516 |
2021 |
> |
Height = 519 |
2022 |
|
Top = 0 |
2023 |
|
Width = 5 |
2024 |
|
end |
2025 |
|
object SubjectAccessRightsGrid: TIBDynamicGrid |
2026 |
|
Left = 305 |
2027 |
< |
Height = 516 |
2027 |
> |
Height = 519 |
2028 |
|
Top = 0 |
2029 |
< |
Width = 628 |
2029 |
> |
Width = 626 |
2030 |
|
Align = alClient |
2031 |
|
Color = clWindow |
2032 |
|
Columns = < |
2103 |
|
OnShow = MappingsTabShow |
2104 |
|
object IBDynamicGrid5: TIBDynamicGrid |
2105 |
|
Left = 0 |
2106 |
< |
Height = 516 |
2107 |
< |
Top = 0 |
2106 |
> |
Height = 492 |
2107 |
> |
Top = 24 |
2108 |
|
Width = 933 |
2109 |
< |
Align = alClient |
2109 |
> |
Anchors = [akTop, akLeft, akRight, akBottom] |
2110 |
|
Color = clWindow |
2111 |
|
Columns = < |
2112 |
|
item |
2194 |
|
EditorBorderStyle = bsSingle |
2195 |
|
DefaultPositionAtEnd = False |
2196 |
|
end |
2197 |
+ |
object AutoAdmin: TCheckBox |
2198 |
+ |
Left = 776 |
2199 |
+ |
Height = 22 |
2200 |
+ |
Top = 2 |
2201 |
+ |
Width = 151 |
2202 |
+ |
Anchors = [akTop, akRight] |
2203 |
+ |
Caption = 'Auto Admin Mapping' |
2204 |
+ |
OnChange = AutoAdminChange |
2205 |
+ |
TabOrder = 1 |
2206 |
+ |
end |
2207 |
|
end |
2208 |
|
object RepairTab: TTabSheet |
2209 |
|
Caption = 'Database Repair' |
2212 |
|
OnHide = RepairTabHide |
2213 |
|
OnShow = RepairTabShow |
2214 |
|
object SelectRepairAction: TComboBox |
2215 |
< |
Left = 656 |
2216 |
< |
Height = 27 |
2215 |
> |
Left = 654 |
2216 |
> |
Height = 23 |
2217 |
|
Top = 8 |
2218 |
|
Width = 200 |
2219 |
|
Anchors = [akTop, akRight] |
2230 |
|
Text = 'Database Sweep' |
2231 |
|
end |
2232 |
|
object Button2: TButton |
2233 |
< |
Left = 864 |
2233 |
> |
Left = 862 |
2234 |
|
Height = 25 |
2235 |
|
Top = 9 |
2236 |
|
Width = 35 |
2302 |
|
end |
2303 |
|
object ValidateRepairRecordFragments: TCheckBox |
2304 |
|
Left = 16 |
2305 |
< |
Height = 22 |
2305 |
> |
Height = 19 |
2306 |
|
Top = 48 |
2307 |
< |
Width = 184 |
2307 |
> |
Width = 161 |
2308 |
|
Caption = 'Validate Record Fragments' |
2309 |
|
Checked = True |
2310 |
|
State = cbChecked |
2312 |
|
end |
2313 |
|
object IgnoreChecksumsOnRepair: TCheckBox |
2314 |
|
Left = 16 |
2315 |
< |
Height = 22 |
2315 |
> |
Height = 19 |
2316 |
|
Top = 71 |
2317 |
< |
Width = 170 |
2317 |
> |
Width = 146 |
2318 |
|
Caption = 'Ignore Checksum Errors' |
2319 |
|
TabOrder = 1 |
2320 |
|
end |
2330 |
|
end |
2331 |
|
object Panel8: TPanel |
2332 |
|
Left = 10 |
2333 |
< |
Height = 381 |
2333 |
> |
Height = 384 |
2334 |
|
Top = 123 |
2335 |
< |
Width = 890 |
2335 |
> |
Width = 888 |
2336 |
|
Anchors = [akTop, akLeft, akRight, akBottom] |
2337 |
|
BevelOuter = bvNone |
2338 |
|
Caption = 'ValidationPanel' |
2339 |
< |
ClientHeight = 381 |
2340 |
< |
ClientWidth = 890 |
2339 |
> |
ClientHeight = 384 |
2340 |
> |
ClientWidth = 888 |
2341 |
|
TabOrder = 3 |
2342 |
|
object DBTablesPanel: TPanel |
2343 |
|
Left = 0 |
2344 |
< |
Height = 381 |
2344 |
> |
Height = 384 |
2345 |
|
Top = 0 |
2346 |
|
Width = 170 |
2347 |
|
Align = alLeft |
2348 |
|
BevelOuter = bvNone |
2349 |
< |
ClientHeight = 381 |
2349 |
> |
ClientHeight = 384 |
2350 |
|
ClientWidth = 170 |
2351 |
|
TabOrder = 0 |
2352 |
|
object Alltables: TRadioButton |
2353 |
|
Left = 9 |
2354 |
< |
Height = 22 |
2354 |
> |
Height = 19 |
2355 |
|
Top = 32 |
2356 |
< |
Width = 78 |
2356 |
> |
Width = 71 |
2357 |
|
Caption = 'All Tables' |
2358 |
|
Checked = True |
2359 |
|
OnChange = SelectedTablesOnlyChange |
2362 |
|
end |
2363 |
|
object SelectedTablesOnly: TRadioButton |
2364 |
|
Left = 9 |
2365 |
< |
Height = 22 |
2365 |
> |
Height = 19 |
2366 |
|
Top = 56 |
2367 |
< |
Width = 147 |
2367 |
> |
Width = 129 |
2368 |
|
Caption = 'Selected Tables Only' |
2369 |
|
OnChange = SelectedTablesOnlyChange |
2370 |
|
TabOrder = 1 |
2371 |
|
end |
2372 |
|
object SelectedTablesGrid: TIBDynamicGrid |
2373 |
|
Left = 0 |
2374 |
< |
Height = 268 |
2374 |
> |
Height = 271 |
2375 |
|
Top = 90 |
2376 |
|
Width = 170 |
2377 |
|
Anchors = [akTop, akLeft, akRight, akBottom] |
2410 |
|
end |
2411 |
|
object Label40: TLabel |
2412 |
|
Left = 9 |
2413 |
< |
Height = 14 |
2413 |
> |
Height = 15 |
2414 |
|
Top = 7 |
2415 |
< |
Width = 47 |
2415 |
> |
Width = 42 |
2416 |
|
Caption = 'Validate' |
2417 |
|
ParentColor = False |
2418 |
|
end |
2419 |
|
object SelectAllTables: TCheckBox |
2420 |
|
Left = 0 |
2421 |
< |
Height = 22 |
2422 |
< |
Top = 360 |
2423 |
< |
Width = 134 |
2421 |
> |
Height = 19 |
2422 |
> |
Top = 366 |
2423 |
> |
Width = 117 |
2424 |
|
Anchors = [akLeft, akBottom] |
2425 |
|
Caption = 'Select/Deselect All' |
2426 |
|
OnChange = SelectAllTablesChange |
2429 |
|
end |
2430 |
|
object DBTablesSplitter: TSplitter |
2431 |
|
Left = 170 |
2432 |
< |
Height = 381 |
2432 |
> |
Height = 384 |
2433 |
|
Top = 0 |
2434 |
|
Width = 5 |
2435 |
|
end |
2436 |
|
object Panel9: TPanel |
2437 |
|
Left = 175 |
2438 |
< |
Height = 381 |
2438 |
> |
Height = 384 |
2439 |
|
Top = 0 |
2440 |
< |
Width = 715 |
2440 |
> |
Width = 713 |
2441 |
|
Align = alClient |
2442 |
|
BevelOuter = bvNone |
2443 |
< |
ClientHeight = 381 |
2444 |
< |
ClientWidth = 715 |
2443 |
> |
ClientHeight = 384 |
2444 |
> |
ClientWidth = 713 |
2445 |
|
TabOrder = 2 |
2446 |
|
object Label37: TLabel |
2447 |
|
Left = 0 |
2448 |
< |
Height = 14 |
2448 |
> |
Height = 15 |
2449 |
|
Top = 8 |
2450 |
< |
Width = 101 |
2450 |
> |
Width = 91 |
2451 |
|
Caption = 'Validation Report' |
2452 |
|
ParentColor = False |
2453 |
|
end |
2454 |
|
object ValidationReport: TMemo |
2455 |
|
Left = 0 |
2456 |
< |
Height = 357 |
2456 |
> |
Height = 360 |
2457 |
|
Top = 24 |
2458 |
< |
Width = 715 |
2458 |
> |
Width = 713 |
2459 |
|
Align = alBottom |
2460 |
|
Anchors = [akTop, akLeft, akRight, akBottom] |
2461 |
|
Lines.Strings = ( |
2746 |
|
object Quit: TAction |
2747 |
|
Category = 'General' |
2748 |
|
Caption = 'Exit' |
2749 |
+ |
OnExecute = QuitExecute |
2750 |
|
end |
2751 |
|
object Backup: TAction |
2752 |
|
Category = 'General' |
3102 |
|
Database = DatabaseData.IBDatabase1 |
3103 |
|
Transaction = DatabaseData.CurrentTransaction |
3104 |
|
ShowSystem = False |
3105 |
+ |
AlwaysQuoteIdentifiers = False |
3106 |
|
left = 712 |
3107 |
|
top = 296 |
3108 |
|
end |