ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
Revision: 158
Committed: Thu Mar 1 11:23:33 2018 UTC (6 years, 1 month ago) by tony
File size: 99597 byte(s)
Log Message:
Repository resync

File Contents

# Content
1 object MainForm: TMainForm
2 Left = 596
3 Height = 616
4 Top = 178
5 Width = 939
6 Caption = 'Database Administrator Demo'
7 ClientHeight = 596
8 ClientWidth = 939
9 Menu = MainMenu1
10 OnShow = FormShow
11 LCLVersion = '1.8.1.0'
12 object ToolBar1: TToolBar
13 Left = 0
14 Height = 26
15 Top = 0
16 Width = 939
17 Caption = 'ToolBar1'
18 Images = MenuImages
19 TabOrder = 0
20 object ToolButton1: TToolButton
21 Left = 1
22 Top = 2
23 Action = Backup
24 ParentShowHint = False
25 ShowCaption = False
26 ShowHint = True
27 end
28 object ToolButton2: TToolButton
29 Left = 24
30 Height = 22
31 Top = 2
32 Caption = 'ToolButton2'
33 Style = tbsSeparator
34 end
35 object ToolButton3: TToolButton
36 Left = 32
37 Top = 2
38 Action = Restore
39 ParentShowHint = False
40 ShowHint = True
41 end
42 object ToolButton4: TToolButton
43 Left = 55
44 Height = 22
45 Top = 2
46 Caption = 'ToolButton4'
47 Style = tbsDivider
48 end
49 object ToolButton5: TToolButton
50 Left = 60
51 Top = 2
52 Action = Save
53 end
54 end
55 object StatusBar1: TStatusBar
56 Left = 0
57 Height = 22
58 Top = 574
59 Width = 939
60 Panels = <>
61 end
62 object PageControl1: TPageControl
63 Left = 0
64 Height = 548
65 Top = 26
66 Width = 939
67 ActivePage = Properties
68 Align = alClient
69 MultiLine = True
70 ParentShowHint = False
71 ShowHint = True
72 TabIndex = 0
73 TabOrder = 2
74 Options = [nboMultiLine]
75 object Properties: TTabSheet
76 Caption = 'Properties'
77 ClientHeight = 516
78 ClientWidth = 933
79 OnShow = PropertiesShow
80 object Panel7: TPanel
81 Left = 0
82 Height = 516
83 Top = 0
84 Width = 933
85 Align = alClient
86 BevelOuter = bvNone
87 ClientHeight = 516
88 ClientWidth = 933
89 Color = clWindow
90 ParentColor = False
91 TabOrder = 0
92 object Label6: TLabel
93 Left = 71
94 Height = 14
95 Top = 20
96 Width = 39
97 Caption = 'Server'
98 ParentColor = False
99 end
100 object Label2: TLabel
101 Left = 15
102 Height = 14
103 Top = 52
104 Width = 95
105 Caption = 'Database Name'
106 ParentColor = False
107 end
108 object Label9: TLabel
109 Left = 19
110 Height = 14
111 Top = 83
112 Width = 91
113 Caption = 'Connect String'
114 ParentColor = False
115 end
116 object ConnectString: TEdit
117 Left = 120
118 Height = 24
119 Top = 80
120 Width = 265
121 TabOrder = 0
122 Text = 'ConnectString'
123 end
124 object Label1: TLabel
125 Left = 40
126 Height = 14
127 Top = 117
128 Width = 73
129 Caption = 'ODS Version'
130 ParentColor = False
131 end
132 object ODSVersionString: TEdit
133 Left = 120
134 Height = 24
135 Top = 112
136 Width = 266
137 ReadOnly = True
138 TabOrder = 1
139 Text = 'ODSVersionString'
140 end
141 object Label4: TLabel
142 Left = 19
143 Height = 14
144 Top = 150
145 Width = 91
146 Caption = 'Svr Version No.'
147 ParentColor = False
148 end
149 object ServerVersionNo: TEdit
150 Left = 120
151 Height = 24
152 Top = 144
153 Width = 266
154 ReadOnly = True
155 TabOrder = 2
156 Text = 'ServerVersionNo'
157 end
158 object Label5: TLabel
159 Left = 41
160 Height = 14
161 Top = 183
162 Width = 69
163 Caption = 'SQL Dialect'
164 ParentColor = False
165 end
166 object DBSQLDialect: TEdit
167 Left = 120
168 Height = 24
169 Top = 176
170 Width = 266
171 NumbersOnly = True
172 OnEditingDone = DBSQLDialectEditingDone
173 TabOrder = 3
174 Text = 'DBSQLDialect'
175 end
176 object Label24: TLabel
177 Left = 51
178 Height = 14
179 Top = 211
180 Width = 60
181 Caption = 'DB Owner'
182 ParentColor = False
183 end
184 object Label18: TLabel
185 Left = 24
186 Height = 14
187 Top = 244
188 Width = 86
189 Caption = 'Sec. Database'
190 ParentColor = False
191 end
192 object Label13: TLabel
193 Left = 28
194 Height = 14
195 Top = 277
196 Width = 83
197 Caption = 'Character Set'
198 ParentColor = False
199 end
200 object DBCharSetRO: TDBEdit
201 Left = 120
202 Height = 24
203 Top = 272
204 Width = 264
205 DataField = 'RDB$CHARACTER_SET_NAME'
206 DataSource = DBCharSetSource
207 ReadOnly = True
208 CharCase = ecNormal
209 MaxLength = 0
210 TabOrder = 5
211 end
212 object DBCharacterSet: TIBLookupComboEditBox
213 Left = 121
214 Height = 27
215 Top = 272
216 Width = 266
217 DataField = 'RDB$CHARACTER_SET_NAME'
218 DataSource = DBCharSetSource
219 KeyField = 'RDB$CHARACTER_SET_NAME'
220 ListField = 'RDB$CHARACTER_SET_NAME'
221 ListFieldIndex = 0
222 ListSource = CharSetSource
223 LookupCache = False
224 OnEditingDone = DBCharacterSetEditingDone
225 TabOrder = 4
226 AutoInsert = False
227 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
228 ItemHeight = 0
229 end
230 object DBIsReadOnly: TCheckBox
231 Left = 111
232 Height = 22
233 Top = 311
234 Width = 84
235 Caption = 'Read Only'
236 OnChange = DBIsReadOnlyChange
237 TabOrder = 6
238 end
239 object DatabaseOnline: TCheckBox
240 Left = 111
241 Height = 22
242 Top = 335
243 Width = 62
244 Caption = 'Online'
245 OnChange = DatabaseOnlineChange
246 TabOrder = 7
247 end
248 object SyncWrites: TCheckBox
249 Left = 111
250 Height = 22
251 Top = 359
252 Width = 173
253 Caption = 'Synchronous Disk Writes'
254 OnChange = SyncWritesChange
255 TabOrder = 8
256 end
257 object IsShadowChk: TCheckBox
258 Left = 111
259 Height = 22
260 Top = 383
261 Width = 132
262 Caption = 'Shadow Database'
263 OnChange = IsShadowChkChange
264 TabOrder = 9
265 end
266 object NoReserve: TCheckBox
267 Left = 111
268 Height = 22
269 Top = 407
270 Width = 239
271 Caption = 'Space Reserved for Backup Records'
272 OnChange = NoReserveChange
273 TabOrder = 10
274 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
284 object Label11: TLabel
285 Left = 435
286 Height = 14
287 Top = 26
288 Width = 93
289 Caption = 'Pages Allocated'
290 ParentColor = False
291 end
292 object AllocatedPages: TEdit
293 Left = 533
294 Height = 24
295 Top = 20
296 Width = 89
297 Alignment = taRightJustify
298 ReadOnly = True
299 TabOrder = 12
300 Text = 'AllocatedPages'
301 end
302 object Label19: TLabel
303 Left = 472
304 Height = 14
305 Top = 57
306 Width = 56
307 Caption = 'Page Size'
308 ParentColor = False
309 end
310 object Label3: TLabel
311 Left = 460
312 Height = 14
313 Top = 88
314 Width = 68
315 Caption = 'Pages Used'
316 ParentColor = False
317 end
318 object PagesUsed: TEdit
319 Left = 533
320 Height = 24
321 Top = 82
322 Width = 89
323 Alignment = taRightJustify
324 ReadOnly = True
325 TabOrder = 13
326 Text = 'PagesUsed'
327 end
328 object Label10: TLabel
329 Left = 438
330 Height = 14
331 Top = 119
332 Width = 90
333 Caption = 'Pages Available'
334 ParentColor = False
335 end
336 object PagesAvail: TEdit
337 Left = 533
338 Height = 24
339 Top = 113
340 Width = 89
341 Alignment = taRightJustify
342 ReadOnly = True
343 TabOrder = 14
344 Text = 'PagesAvail'
345 end
346 object Label12: TLabel
347 Left = 430
348 Height = 14
349 Top = 150
350 Width = 98
351 Caption = 'Current Memory'
352 ParentColor = False
353 end
354 object Edit10: TEdit
355 Left = 533
356 Height = 24
357 Top = 144
358 Width = 89
359 Alignment = taRightJustify
360 ReadOnly = True
361 TabOrder = 15
362 Text = 'Edit10'
363 end
364 object Label20: TLabel
365 Left = 632
366 Height = 14
367 Top = 57
368 Width = 33
369 Caption = 'bytes'
370 ParentColor = False
371 end
372 object Label21: TLabel
373 Left = 632
374 Height = 14
375 Top = 149
376 Width = 33
377 Caption = 'bytes'
378 ParentColor = False
379 end
380 object Label14: TLabel
381 Left = 452
382 Height = 14
383 Top = 181
384 Width = 76
385 Caption = 'Max Memory'
386 ParentColor = False
387 end
388 object Edit11: TEdit
389 Left = 533
390 Height = 24
391 Top = 175
392 Width = 89
393 Alignment = taRightJustify
394 ReadOnly = True
395 TabOrder = 16
396 Text = 'Edit11'
397 end
398 object Label22: TLabel
399 Left = 632
400 Height = 14
401 Top = 182
402 Width = 33
403 Caption = 'bytes'
404 ParentColor = False
405 end
406 object Label15: TLabel
407 Left = 447
408 Height = 14
409 Top = 212
410 Width = 81
411 Caption = 'No. of Buffers'
412 ParentColor = False
413 end
414 object PageBuffers: TEdit
415 Left = 533
416 Height = 24
417 Top = 206
418 Width = 89
419 Alignment = taRightJustify
420 NumbersOnly = True
421 OnEditingDone = PageBuffersEditingDone
422 TabOrder = 17
423 Text = 'PageBuffers'
424 end
425 object Label23: TLabel
426 Left = 430
427 Height = 14
428 Top = 245
429 Width = 100
430 Caption = 'Date DB Created'
431 ParentColor = False
432 end
433 object DBEdit1: TDBEdit
434 Left = 533
435 Height = 24
436 Top = 240
437 Width = 132
438 DataField = 'MON$CREATION_DATE'
439 DataSource = DatabaseSource
440 ReadOnly = True
441 CharCase = ecNormal
442 MaxLength = 0
443 TabOrder = 18
444 end
445 object Label16: TLabel
446 Left = 453
447 Height = 14
448 Top = 317
449 Width = 75
450 Caption = 'Linger Delay'
451 ParentColor = False
452 end
453 object LingerDelay: TEdit
454 Left = 533
455 Height = 24
456 Top = 311
457 Width = 89
458 Alignment = taRightJustify
459 NumbersOnly = True
460 OnEditingDone = LingerDelayEditingDone
461 TabOrder = 19
462 Text = 'LingerDelay'
463 end
464 object Label17: TLabel
465 Left = 632
466 Height = 14
467 Top = 317
468 Width = 49
469 Caption = 'seconds'
470 ParentColor = False
471 end
472 object Label7: TLabel
473 Left = 400
474 Height = 14
475 Top = 347
476 Width = 128
477 Caption = 'S&weep Interval set to'
478 FocusControl = SweepInterval
479 ParentColor = False
480 end
481 object SweepInterval: TEdit
482 Left = 533
483 Height = 24
484 Top = 342
485 Width = 89
486 Alignment = taRightJustify
487 NumbersOnly = True
488 OnEditingDone = SweepIntervalEditingDone
489 TabOrder = 20
490 Text = 'SweepInterval'
491 end
492 object Label8: TLabel
493 Left = 632
494 Height = 14
495 Top = 347
496 Width = 74
497 Caption = 'Transactions'
498 ParentColor = False
499 end
500 object DBEdit4: TDBEdit
501 Left = 533
502 Height = 24
503 Top = 52
504 Width = 89
505 DataField = 'MON$PAGE_SIZE'
506 DataSource = DatabaseSource
507 CharCase = ecNormal
508 MaxLength = 0
509 TabOrder = 21
510 end
511 object Edit1: TEdit
512 Left = 121
513 Height = 24
514 Top = 16
515 Width = 263
516 ParentFont = False
517 TabOrder = 22
518 Text = 'Edit1'
519 end
520 object SecDatabase: TEdit
521 Left = 121
522 Height = 24
523 Top = 241
524 Width = 263
525 ReadOnly = True
526 TabOrder = 23
527 Text = 'SecDatabase'
528 end
529 object DBOwner: TEdit
530 Left = 120
531 Height = 24
532 Top = 208
533 Width = 264
534 ReadOnly = True
535 TabOrder = 24
536 Text = 'DBOwner'
537 end
538 object DatabaseAliasName: TEdit
539 Left = 121
540 Height = 24
541 Top = 48
542 Width = 264
543 ReadOnly = True
544 TabOrder = 25
545 Text = 'DatabaseAliasName'
546 end
547 end
548 end
549 object FilesTab: TTabSheet
550 Caption = 'Files'
551 ClientHeight = 516
552 ClientWidth = 933
553 OnShow = FilesTabShow
554 object Label25: TLabel
555 Left = 16
556 Height = 14
557 Top = 16
558 Width = 129
559 Caption = 'Primary Database File'
560 ParentColor = False
561 end
562 object PrimaryDBFile: TEdit
563 Left = 16
564 Height = 24
565 Top = 32
566 Width = 474
567 Anchors = [akTop, akLeft, akRight]
568 ReadOnly = True
569 TabOrder = 0
570 Text = 'PrimaryDBFile'
571 end
572 object Label26: TLabel
573 Left = 16
574 Height = 14
575 Top = 72
576 Width = 93
577 Caption = 'Secondary Files'
578 ParentColor = False
579 end
580 object IBDynamicGrid1: TIBDynamicGrid
581 Left = 16
582 Height = 160
583 Top = 88
584 Width = 763
585 Anchors = [akTop, akLeft, akRight]
586 Color = clWindow
587 Columns = <
588 item
589 Title.Alignment = taCenter
590 Title.Caption = 'Seq'
591 Width = 40
592 FieldName = 'RDB$FILE_SEQUENCE'
593 AutoSizeColumn = False
594 InitialSortColumn = False
595 DBLookupProperties.ItemHeight = 0
596 DBLookupProperties.ItemWidth = 0
597 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
598 end
599 item
600 Title.Alignment = taCenter
601 Title.Caption = 'File Name'
602 Width = 200
603 FieldName = 'RDB$FILE_NAME'
604 AutoSizeColumn = True
605 InitialSortColumn = False
606 DBLookupProperties.ItemHeight = 0
607 DBLookupProperties.ItemWidth = 0
608 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
609 end
610 item
611 Title.Alignment = taCenter
612 Title.Caption = 'Starts'
613 Width = 80
614 FieldName = 'RDB$FILE_START'
615 AutoSizeColumn = False
616 InitialSortColumn = False
617 DBLookupProperties.ItemHeight = 0
618 DBLookupProperties.ItemWidth = 0
619 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
620 end
621 item
622 Title.Alignment = taCenter
623 Title.Caption = 'Length'
624 Width = 80
625 FieldName = 'RDB$FILE_LENGTH'
626 AutoSizeColumn = False
627 InitialSortColumn = False
628 DBLookupProperties.ItemHeight = 0
629 DBLookupProperties.ItemWidth = 0
630 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
631 end>
632 DataSource = SecDBFilesSource
633 ReadOnly = True
634 Scrollbars = ssAutoVertical
635 TabOrder = 1
636 ExpandEditorPanelBelowRow = False
637 Descending = False
638 EditorBorderStyle = bsSingle
639 DefaultPositionAtEnd = False
640 end
641 object AddFileBtn: TButton
642 Left = 795
643 Height = 25
644 Top = 88
645 Width = 91
646 Action = AddSecondary
647 Anchors = [akTop, akRight]
648 TabOrder = 2
649 end
650 object Label27: TLabel
651 Left = 16
652 Height = 14
653 Top = 264
654 Width = 77
655 Caption = 'Shadow Files'
656 ParentColor = False
657 end
658 object IBDynamicGrid2: TIBDynamicGrid
659 Left = 16
660 Height = 200
661 Top = 280
662 Width = 763
663 Anchors = [akTop, akLeft, akRight, akBottom]
664 Color = clWindow
665 Columns = <
666 item
667 Title.Alignment = taCenter
668 Title.Caption = 'Set'
669 Width = 60
670 FieldName = 'RDB$SHADOW_NUMBER'
671 AutoSizeColumn = False
672 InitialSortColumn = False
673 DBLookupProperties.ItemHeight = 0
674 DBLookupProperties.ItemWidth = 0
675 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
676 end
677 item
678 Title.Alignment = taCenter
679 Title.Caption = 'Seq No.'
680 Width = 60
681 FieldName = 'RDB$FILE_SEQUENCE'
682 AutoSizeColumn = False
683 InitialSortColumn = False
684 DBLookupProperties.ItemHeight = 0
685 DBLookupProperties.ItemWidth = 0
686 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
687 end
688 item
689 Alignment = taCenter
690 Title.Alignment = taCenter
691 Title.Caption = 'Mode'
692 Width = 50
693 FieldName = 'FileMode'
694 AutoSizeColumn = False
695 InitialSortColumn = False
696 DBLookupProperties.ItemHeight = 0
697 DBLookupProperties.ItemWidth = 0
698 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
699 end
700 item
701 Title.Alignment = taCenter
702 Title.Caption = 'File Name'
703 Width = 200
704 FieldName = 'RDB$FILE_NAME'
705 AutoSizeColumn = True
706 InitialSortColumn = False
707 DBLookupProperties.ItemHeight = 0
708 DBLookupProperties.ItemWidth = 0
709 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
710 end
711 item
712 Title.Alignment = taCenter
713 Title.Caption = 'Starts'
714 Width = 80
715 FieldName = 'RDB$FILE_START'
716 AutoSizeColumn = False
717 InitialSortColumn = False
718 DBLookupProperties.ItemHeight = 0
719 DBLookupProperties.ItemWidth = 0
720 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
721 end
722 item
723 Title.Alignment = taCenter
724 Title.Caption = 'Length'
725 Width = 80
726 FieldName = 'RDB$FILE_LENGTH'
727 AutoSizeColumn = False
728 InitialSortColumn = False
729 DBLookupProperties.ItemHeight = 0
730 DBLookupProperties.ItemWidth = 0
731 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
732 end>
733 DataSource = ShadowSource
734 ReadOnly = True
735 Scrollbars = ssAutoVertical
736 TabOrder = 3
737 ExpandEditorPanelBelowRow = False
738 Descending = False
739 EditorBorderStyle = bsSingle
740 DefaultPositionAtEnd = False
741 end
742 object AddShadowBtn: TButton
743 Left = 795
744 Height = 25
745 Top = 280
746 Width = 91
747 Action = AddShadowSet
748 Anchors = [akTop, akRight]
749 TabOrder = 4
750 end
751 object RemoveShadowBtn: TButton
752 Left = 795
753 Height = 25
754 Top = 312
755 Width = 91
756 Action = RemoveShadow
757 Anchors = [akTop, akRight]
758 TabOrder = 5
759 end
760 end
761 object AttachmentsTab: TTabSheet
762 Caption = 'Attachments'
763 ClientHeight = 516
764 ClientWidth = 933
765 OnHide = AttachmentsTabHide
766 OnShow = AttachmentsTabShow
767 object AttmtGrid: TIBDynamicGrid
768 Left = 0
769 Height = 516
770 Top = 0
771 Width = 933
772 Align = alClient
773 Color = clWindow
774 Columns = <
775 item
776 Title.Alignment = taCenter
777 Title.Caption = 'ID'
778 Width = 40
779 FieldName = 'MON$ATTACHMENT_ID'
780 AutoSizeColumn = False
781 InitialSortColumn = False
782 DBLookupProperties.ItemHeight = 0
783 DBLookupProperties.ItemWidth = 0
784 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
785 end
786 item
787 Title.Alignment = taCenter
788 Title.Caption = 'Connect Str'
789 Width = 100
790 FieldName = 'MON$ATTACHMENT_NAME'
791 AutoSizeColumn = True
792 InitialSortColumn = False
793 DBLookupProperties.ItemHeight = 0
794 DBLookupProperties.ItemWidth = 0
795 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
796 end
797 item
798 Title.Alignment = taCenter
799 Title.Caption = 'Client'
800 Width = 120
801 FieldName = 'MON$REMOTE_HOST'
802 AutoSizeColumn = False
803 InitialSortColumn = False
804 DBLookupProperties.ItemHeight = 0
805 DBLookupProperties.ItemWidth = 0
806 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
807 end
808 item
809 Title.Alignment = taCenter
810 Title.Caption = 'Client Name'
811 Width = 100
812 FieldName = 'MON$REMOTE_PROCESS'
813 AutoSizeColumn = True
814 InitialSortColumn = False
815 DBLookupProperties.ItemHeight = 0
816 DBLookupProperties.ItemWidth = 0
817 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
818 end
819 item
820 Title.Alignment = taCenter
821 Title.Caption = 'User'
822 Width = 80
823 FieldName = 'MON$USER'
824 AutoSizeColumn = False
825 InitialSortColumn = False
826 DBLookupProperties.ItemHeight = 0
827 DBLookupProperties.ItemWidth = 0
828 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
829 end
830 item
831 Title.Alignment = taCenter
832 Title.Caption = 'Role'
833 Width = 80
834 FieldName = 'MON$ROLE'
835 AutoSizeColumn = False
836 InitialSortColumn = False
837 DBLookupProperties.ItemHeight = 0
838 DBLookupProperties.ItemWidth = 0
839 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
840 end
841 item
842 Title.Alignment = taCenter
843 Title.Caption = 'IP Address'
844 Width = 100
845 FieldName = 'MON$REMOTE_ADDRESS'
846 AutoSizeColumn = False
847 InitialSortColumn = False
848 DBLookupProperties.ItemHeight = 0
849 DBLookupProperties.ItemWidth = 0
850 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
851 end
852 item
853 Alignment = taCenter
854 Title.Alignment = taCenter
855 Title.Caption = 'Protocol'
856 Width = 60
857 FieldName = 'MON$REMOTE_PROTOCOL'
858 AutoSizeColumn = False
859 InitialSortColumn = False
860 DBLookupProperties.ItemHeight = 0
861 DBLookupProperties.ItemWidth = 0
862 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
863 end
864 item
865 Title.Alignment = taCenter
866 Title.Caption = 'Char Set'
867 Width = 60
868 FieldName = 'RDB$CHARACTER_SET_NAME'
869 AutoSizeColumn = False
870 InitialSortColumn = False
871 DBLookupProperties.ItemHeight = 0
872 DBLookupProperties.ItemWidth = 0
873 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
874 end
875 item
876 Alignment = taCenter
877 Title.Alignment = taCenter
878 Title.Caption = 'State'
879 Width = 60
880 FieldName = 'MON$STATE'
881 AutoSizeColumn = False
882 InitialSortColumn = False
883 DBLookupProperties.ItemHeight = 0
884 DBLookupProperties.ItemWidth = 0
885 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
886 end>
887 DataSource = AttachSource
888 PopupMenu = AttmtPopup
889 Scrollbars = ssAutoVertical
890 TabOrder = 0
891 EditorPanel = AttDetailsPanel
892 ExpandEditorPanelBelowRow = True
893 Descending = False
894 EditorBorderStyle = bsSingle
895 DefaultPositionAtEnd = False
896 end
897 object AttDetailsPanel: TPanel
898 Left = 32
899 Height = 60
900 Top = 88
901 Width = 628
902 BevelInner = bvLowered
903 ClientHeight = 60
904 ClientWidth = 628
905 TabOrder = 1
906 object Label31: TLabel
907 Left = 21
908 Height = 14
909 Top = 14
910 Width = 63
911 Caption = 'Server PID'
912 ParentColor = False
913 end
914 object Label32: TLabel
915 Left = 15
916 Height = 14
917 Top = 36
918 Width = 69
919 Caption = 'Remote PID'
920 ParentColor = False
921 end
922 object DBEdit2: TDBEdit
923 Left = 88
924 Height = 24
925 Top = 8
926 Width = 48
927 DataField = 'MON$SERVER_PID'
928 DataSource = AttachSource
929 CharCase = ecNormal
930 MaxLength = 0
931 TabOrder = 0
932 end
933 object DBEdit3: TDBEdit
934 Left = 88
935 Height = 24
936 Top = 32
937 Width = 48
938 DataField = 'MON$REMOTE_PID'
939 DataSource = AttachSource
940 CharCase = ecNormal
941 MaxLength = 0
942 TabOrder = 1
943 end
944 object DBCheckBox1: TDBCheckBox
945 Left = 348
946 Height = 23
947 Top = 8
948 Width = 202
949 Caption = 'Garbage Collection Allowed'
950 DataField = 'MON$GARBAGE_COLLECTION'
951 DataSource = AttachSource
952 TabOrder = 2
953 ValueChecked = '1'
954 ValueUnchecked = '0'
955 end
956 object Label35: TLabel
957 Left = 352
958 Height = 14
959 Top = 36
960 Width = 72
961 Caption = 'Statistics ID'
962 ParentColor = False
963 end
964 object DBEdit7: TDBEdit
965 Left = 432
966 Height = 24
967 Top = 32
968 Width = 64
969 DataField = 'MON$STAT_ID'
970 DataSource = AttachSource
971 CharCase = ecNormal
972 MaxLength = 0
973 TabOrder = 3
974 end
975 object AttmntODS12Panel: TPanel
976 Left = 154
977 Height = 56
978 Top = 2
979 Width = 183
980 BevelOuter = bvNone
981 ClientHeight = 56
982 ClientWidth = 183
983 TabOrder = 4
984 object AuthMethLabel: TLabel
985 Left = 8
986 Height = 14
987 Top = 12
988 Width = 78
989 Caption = 'Auth Method'
990 ParentColor = False
991 end
992 object RemoteOSLabel: TLabel
993 Left = 8
994 Height = 14
995 Top = 34
996 Width = 97
997 Caption = 'Remote OS User'
998 ParentColor = False
999 end
1000 object AuthMethod: TDBEdit
1001 Left = 111
1002 Height = 24
1003 Top = 6
1004 Width = 64
1005 DataField = 'MON$AUTH_METHOD'
1006 DataSource = AttachSource
1007 CharCase = ecNormal
1008 MaxLength = 0
1009 TabOrder = 0
1010 end
1011 object RemoteOSUser: TDBEdit
1012 Left = 112
1013 Height = 24
1014 Top = 30
1015 Width = 63
1016 DataField = 'MON$REMOTE_OS_USER'
1017 DataSource = AttachSource
1018 CharCase = ecNormal
1019 MaxLength = 0
1020 TabOrder = 1
1021 end
1022 end
1023 end
1024 end
1025 object StatisticsTab: TTabSheet
1026 Caption = 'Statistics'
1027 ClientHeight = 516
1028 ClientWidth = 933
1029 OnHide = StatisticsTabHide
1030 OnShow = StatisticsTabShow
1031 object StatsOptions: TComboBox
1032 Left = 667
1033 Height = 27
1034 Top = 8
1035 Width = 228
1036 Anchors = [akTop, akRight]
1037 ItemHeight = 0
1038 ItemIndex = 0
1039 Items.Strings = (
1040 'Header Only'
1041 'Performance and Operational'
1042 'Header and Data'
1043 'Header, Data and Indexes'
1044 'All'
1045 )
1046 OnCloseUp = StatsOptionsCloseUp
1047 TabOrder = 0
1048 Text = 'Header Only'
1049 end
1050 object Label28: TLabel
1051 Left = 8
1052 Height = 14
1053 Top = 24
1054 Width = 115
1055 Caption = 'Database Statistics'
1056 ParentColor = False
1057 end
1058 object StatsMemo: TMemo
1059 Left = 8
1060 Height = 423
1061 Top = 40
1062 Width = 883
1063 Anchors = [akTop, akLeft, akRight, akBottom]
1064 Lines.Strings = (
1065 'Memo1'
1066 )
1067 ScrollBars = ssAutoBoth
1068 TabOrder = 1
1069 end
1070 end
1071 object SchemaTab: TTabSheet
1072 Caption = 'Schema'
1073 ClientHeight = 516
1074 ClientWidth = 933
1075 OnShow = SchemaTabShow
1076 inline SynEdit1: TSynEdit
1077 Left = 0
1078 Height = 495
1079 Top = 0
1080 Width = 933
1081 Align = alTop
1082 Anchors = [akTop, akLeft, akRight, akBottom]
1083 Font.Height = -11
1084 Font.Name = 'DejaVu Sans Mono'
1085 Font.Pitch = fpFixed
1086 Font.Quality = fqNonAntialiased
1087 ParentColor = False
1088 ParentFont = False
1089 TabOrder = 0
1090 Gutter.Width = 55
1091 Gutter.MouseActions = <>
1092 RightGutter.Width = 0
1093 RightGutter.MouseActions = <>
1094 Highlighter = SynSQLSyn1
1095 Keystrokes = <
1096 item
1097 Command = ecUp
1098 ShortCut = 38
1099 end
1100 item
1101 Command = ecSelUp
1102 ShortCut = 8230
1103 end
1104 item
1105 Command = ecScrollUp
1106 ShortCut = 16422
1107 end
1108 item
1109 Command = ecDown
1110 ShortCut = 40
1111 end
1112 item
1113 Command = ecSelDown
1114 ShortCut = 8232
1115 end
1116 item
1117 Command = ecScrollDown
1118 ShortCut = 16424
1119 end
1120 item
1121 Command = ecLeft
1122 ShortCut = 37
1123 end
1124 item
1125 Command = ecSelLeft
1126 ShortCut = 8229
1127 end
1128 item
1129 Command = ecWordLeft
1130 ShortCut = 16421
1131 end
1132 item
1133 Command = ecSelWordLeft
1134 ShortCut = 24613
1135 end
1136 item
1137 Command = ecRight
1138 ShortCut = 39
1139 end
1140 item
1141 Command = ecSelRight
1142 ShortCut = 8231
1143 end
1144 item
1145 Command = ecWordRight
1146 ShortCut = 16423
1147 end
1148 item
1149 Command = ecSelWordRight
1150 ShortCut = 24615
1151 end
1152 item
1153 Command = ecPageDown
1154 ShortCut = 34
1155 end
1156 item
1157 Command = ecSelPageDown
1158 ShortCut = 8226
1159 end
1160 item
1161 Command = ecPageBottom
1162 ShortCut = 16418
1163 end
1164 item
1165 Command = ecSelPageBottom
1166 ShortCut = 24610
1167 end
1168 item
1169 Command = ecPageUp
1170 ShortCut = 33
1171 end
1172 item
1173 Command = ecSelPageUp
1174 ShortCut = 8225
1175 end
1176 item
1177 Command = ecPageTop
1178 ShortCut = 16417
1179 end
1180 item
1181 Command = ecSelPageTop
1182 ShortCut = 24609
1183 end
1184 item
1185 Command = ecLineStart
1186 ShortCut = 36
1187 end
1188 item
1189 Command = ecSelLineStart
1190 ShortCut = 8228
1191 end
1192 item
1193 Command = ecEditorTop
1194 ShortCut = 16420
1195 end
1196 item
1197 Command = ecSelEditorTop
1198 ShortCut = 24612
1199 end
1200 item
1201 Command = ecLineEnd
1202 ShortCut = 35
1203 end
1204 item
1205 Command = ecSelLineEnd
1206 ShortCut = 8227
1207 end
1208 item
1209 Command = ecEditorBottom
1210 ShortCut = 16419
1211 end
1212 item
1213 Command = ecSelEditorBottom
1214 ShortCut = 24611
1215 end
1216 item
1217 Command = ecToggleMode
1218 ShortCut = 45
1219 end
1220 item
1221 Command = ecCopy
1222 ShortCut = 16429
1223 end
1224 item
1225 Command = ecPaste
1226 ShortCut = 8237
1227 end
1228 item
1229 Command = ecDeleteChar
1230 ShortCut = 46
1231 end
1232 item
1233 Command = ecCut
1234 ShortCut = 8238
1235 end
1236 item
1237 Command = ecDeleteLastChar
1238 ShortCut = 8
1239 end
1240 item
1241 Command = ecDeleteLastChar
1242 ShortCut = 8200
1243 end
1244 item
1245 Command = ecDeleteLastWord
1246 ShortCut = 16392
1247 end
1248 item
1249 Command = ecUndo
1250 ShortCut = 32776
1251 end
1252 item
1253 Command = ecRedo
1254 ShortCut = 40968
1255 end
1256 item
1257 Command = ecLineBreak
1258 ShortCut = 13
1259 end
1260 item
1261 Command = ecSelectAll
1262 ShortCut = 16449
1263 end
1264 item
1265 Command = ecCopy
1266 ShortCut = 16451
1267 end
1268 item
1269 Command = ecBlockIndent
1270 ShortCut = 24649
1271 end
1272 item
1273 Command = ecLineBreak
1274 ShortCut = 16461
1275 end
1276 item
1277 Command = ecInsertLine
1278 ShortCut = 16462
1279 end
1280 item
1281 Command = ecDeleteWord
1282 ShortCut = 16468
1283 end
1284 item
1285 Command = ecBlockUnindent
1286 ShortCut = 24661
1287 end
1288 item
1289 Command = ecPaste
1290 ShortCut = 16470
1291 end
1292 item
1293 Command = ecCut
1294 ShortCut = 16472
1295 end
1296 item
1297 Command = ecDeleteLine
1298 ShortCut = 16473
1299 end
1300 item
1301 Command = ecDeleteEOL
1302 ShortCut = 24665
1303 end
1304 item
1305 Command = ecUndo
1306 ShortCut = 16474
1307 end
1308 item
1309 Command = ecRedo
1310 ShortCut = 24666
1311 end
1312 item
1313 Command = ecGotoMarker0
1314 ShortCut = 16432
1315 end
1316 item
1317 Command = ecGotoMarker1
1318 ShortCut = 16433
1319 end
1320 item
1321 Command = ecGotoMarker2
1322 ShortCut = 16434
1323 end
1324 item
1325 Command = ecGotoMarker3
1326 ShortCut = 16435
1327 end
1328 item
1329 Command = ecGotoMarker4
1330 ShortCut = 16436
1331 end
1332 item
1333 Command = ecGotoMarker5
1334 ShortCut = 16437
1335 end
1336 item
1337 Command = ecGotoMarker6
1338 ShortCut = 16438
1339 end
1340 item
1341 Command = ecGotoMarker7
1342 ShortCut = 16439
1343 end
1344 item
1345 Command = ecGotoMarker8
1346 ShortCut = 16440
1347 end
1348 item
1349 Command = ecGotoMarker9
1350 ShortCut = 16441
1351 end
1352 item
1353 Command = ecSetMarker0
1354 ShortCut = 24624
1355 end
1356 item
1357 Command = ecSetMarker1
1358 ShortCut = 24625
1359 end
1360 item
1361 Command = ecSetMarker2
1362 ShortCut = 24626
1363 end
1364 item
1365 Command = ecSetMarker3
1366 ShortCut = 24627
1367 end
1368 item
1369 Command = ecSetMarker4
1370 ShortCut = 24628
1371 end
1372 item
1373 Command = ecSetMarker5
1374 ShortCut = 24629
1375 end
1376 item
1377 Command = ecSetMarker6
1378 ShortCut = 24630
1379 end
1380 item
1381 Command = ecSetMarker7
1382 ShortCut = 24631
1383 end
1384 item
1385 Command = ecSetMarker8
1386 ShortCut = 24632
1387 end
1388 item
1389 Command = ecSetMarker9
1390 ShortCut = 24633
1391 end
1392 item
1393 Command = EcFoldLevel1
1394 ShortCut = 41009
1395 end
1396 item
1397 Command = EcFoldLevel2
1398 ShortCut = 41010
1399 end
1400 item
1401 Command = EcFoldLevel3
1402 ShortCut = 41011
1403 end
1404 item
1405 Command = EcFoldLevel4
1406 ShortCut = 41012
1407 end
1408 item
1409 Command = EcFoldLevel5
1410 ShortCut = 41013
1411 end
1412 item
1413 Command = EcFoldLevel6
1414 ShortCut = 41014
1415 end
1416 item
1417 Command = EcFoldLevel7
1418 ShortCut = 41015
1419 end
1420 item
1421 Command = EcFoldLevel8
1422 ShortCut = 41016
1423 end
1424 item
1425 Command = EcFoldLevel9
1426 ShortCut = 41017
1427 end
1428 item
1429 Command = EcFoldLevel0
1430 ShortCut = 41008
1431 end
1432 item
1433 Command = EcFoldCurrent
1434 ShortCut = 41005
1435 end
1436 item
1437 Command = EcUnFoldCurrent
1438 ShortCut = 41003
1439 end
1440 item
1441 Command = EcToggleMarkupWord
1442 ShortCut = 32845
1443 end
1444 item
1445 Command = ecNormalSelect
1446 ShortCut = 24654
1447 end
1448 item
1449 Command = ecColumnSelect
1450 ShortCut = 24643
1451 end
1452 item
1453 Command = ecLineSelect
1454 ShortCut = 24652
1455 end
1456 item
1457 Command = ecTab
1458 ShortCut = 9
1459 end
1460 item
1461 Command = ecShiftTab
1462 ShortCut = 8201
1463 end
1464 item
1465 Command = ecMatchBracket
1466 ShortCut = 24642
1467 end
1468 item
1469 Command = ecColSelUp
1470 ShortCut = 40998
1471 end
1472 item
1473 Command = ecColSelDown
1474 ShortCut = 41000
1475 end
1476 item
1477 Command = ecColSelLeft
1478 ShortCut = 40997
1479 end
1480 item
1481 Command = ecColSelRight
1482 ShortCut = 40999
1483 end
1484 item
1485 Command = ecColSelPageDown
1486 ShortCut = 40994
1487 end
1488 item
1489 Command = ecColSelPageBottom
1490 ShortCut = 57378
1491 end
1492 item
1493 Command = ecColSelPageUp
1494 ShortCut = 40993
1495 end
1496 item
1497 Command = ecColSelPageTop
1498 ShortCut = 57377
1499 end
1500 item
1501 Command = ecColSelLineStart
1502 ShortCut = 40996
1503 end
1504 item
1505 Command = ecColSelLineEnd
1506 ShortCut = 40995
1507 end
1508 item
1509 Command = ecColSelEditorTop
1510 ShortCut = 57380
1511 end
1512 item
1513 Command = ecColSelEditorBottom
1514 ShortCut = 57379
1515 end>
1516 MouseActions = <>
1517 MouseTextActions = <>
1518 MouseSelActions = <>
1519 Lines.Strings = (
1520 'SynEdit1'
1521 )
1522 VisibleSpecialChars = [vscSpace, vscTabAtLast]
1523 ReadOnly = True
1524 SelectedColor.BackPriority = 50
1525 SelectedColor.ForePriority = 50
1526 SelectedColor.FramePriority = 50
1527 SelectedColor.BoldPriority = 50
1528 SelectedColor.ItalicPriority = 50
1529 SelectedColor.UnderlinePriority = 50
1530 SelectedColor.StrikeOutPriority = 50
1531 BracketHighlightStyle = sbhsBoth
1532 BracketMatchColor.Background = clNone
1533 BracketMatchColor.Foreground = clNone
1534 BracketMatchColor.Style = [fsBold]
1535 FoldedCodeColor.Background = clNone
1536 FoldedCodeColor.Foreground = clGray
1537 FoldedCodeColor.FrameColor = clGray
1538 MouseLinkColor.Background = clNone
1539 MouseLinkColor.Foreground = clBlue
1540 LineHighlightColor.Background = clNone
1541 LineHighlightColor.Foreground = clNone
1542 inline SynLeftGutterPartList1: TSynGutterPartList
1543 object SynGutterMarks1: TSynGutterMarks
1544 Width = 24
1545 MouseActions = <>
1546 end
1547 object SynGutterLineNumber1: TSynGutterLineNumber
1548 Width = 15
1549 MouseActions = <>
1550 MarkupInfo.Background = clBtnFace
1551 MarkupInfo.Foreground = clNone
1552 DigitCount = 2
1553 ShowOnlyLineNumbersMultiplesOf = 1
1554 ZeroStart = False
1555 LeadingZeros = False
1556 end
1557 object SynGutterChanges1: TSynGutterChanges
1558 Width = 4
1559 MouseActions = <>
1560 ModifiedColor = 59900
1561 SavedColor = clGreen
1562 end
1563 object SynGutterSeparator1: TSynGutterSeparator
1564 Width = 2
1565 MouseActions = <>
1566 MarkupInfo.Background = clWhite
1567 MarkupInfo.Foreground = clGray
1568 end
1569 object SynGutterCodeFolding1: TSynGutterCodeFolding
1570 MouseActions = <>
1571 MarkupInfo.Background = clNone
1572 MarkupInfo.Foreground = clGray
1573 MouseActionsExpanded = <>
1574 MouseActionsCollapsed = <>
1575 end
1576 end
1577 end
1578 object IncludeUserGrants: TCheckBox
1579 Left = 0
1580 Height = 22
1581 Top = 494
1582 Width = 166
1583 Anchors = [akLeft, akBottom]
1584 Caption = 'Include Grants to Users'
1585 OnChange = SchemaTabShow
1586 TabOrder = 1
1587 end
1588 end
1589 object ServerTab: TTabSheet
1590 Caption = 'Server'
1591 ClientHeight = 516
1592 ClientWidth = 933
1593 OnHide = ServerTabHide
1594 OnShow = ServerTabShow
1595 object Panel1: TPanel
1596 Left = 0
1597 Height = 516
1598 Top = 0
1599 Width = 370
1600 Align = alLeft
1601 BevelOuter = bvNone
1602 ClientHeight = 516
1603 ClientWidth = 370
1604 TabOrder = 0
1605 object Label29: TLabel
1606 Left = 5
1607 Height = 14
1608 Top = 8
1609 Width = 60
1610 Caption = 'Properties'
1611 ParentColor = False
1612 end
1613 object ServerPropMemo: TMemo
1614 Left = 8
1615 Height = 481
1616 Top = 26
1617 Width = 353
1618 Anchors = [akTop, akLeft, akRight, akBottom]
1619 Lines.Strings = (
1620 'ServerPropMemo'
1621 )
1622 ScrollBars = ssAutoBoth
1623 TabOrder = 0
1624 end
1625 end
1626 object Splitter1: TSplitter
1627 Left = 370
1628 Height = 516
1629 Top = 0
1630 Width = 5
1631 end
1632 object Panel2: TPanel
1633 Left = 375
1634 Height = 516
1635 Top = 0
1636 Width = 558
1637 Align = alClient
1638 BevelOuter = bvNone
1639 ClientHeight = 516
1640 ClientWidth = 558
1641 TabOrder = 2
1642 object Label30: TLabel
1643 Left = 8
1644 Height = 14
1645 Top = 8
1646 Width = 65
1647 Caption = 'Server Log'
1648 ParentColor = False
1649 end
1650 object ServerLog: TMemo
1651 Left = 8
1652 Height = 481
1653 Top = 26
1654 Width = 540
1655 Anchors = [akTop, akLeft, akRight, akBottom]
1656 Lines.Strings = (
1657 'ServerLog'
1658 )
1659 ScrollBars = ssAutoBoth
1660 TabOrder = 0
1661 end
1662 end
1663 end
1664 object UserManagerTab: TTabSheet
1665 Caption = 'User Manager'
1666 ClientHeight = 516
1667 ClientWidth = 933
1668 OnHide = UserManagerTabHide
1669 OnShow = UserManagerTabShow
1670 object Panel4: TPanel
1671 Left = 0
1672 Height = 516
1673 Top = 0
1674 Width = 739
1675 Align = alLeft
1676 ClientHeight = 516
1677 ClientWidth = 739
1678 TabOrder = 0
1679 object UserManagerGrid: TIBDynamicGrid
1680 Left = 1
1681 Height = 514
1682 Top = 1
1683 Width = 737
1684 Align = alClient
1685 Color = clWindow
1686 Columns = <
1687 item
1688 ReadOnly = True
1689 Title.Alignment = taCenter
1690 Title.Caption = 'User Name'
1691 Width = 120
1692 FieldName = 'USERNAME'
1693 AutoSizeColumn = False
1694 InitialSortColumn = False
1695 DBLookupProperties.ItemHeight = 0
1696 DBLookupProperties.ItemWidth = 0
1697 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1698 end
1699 item
1700 Title.Alignment = taCenter
1701 Title.Caption = 'First Name'
1702 Width = 80
1703 FieldName = 'SEC$FIRST_NAME'
1704 AutoSizeColumn = True
1705 InitialSortColumn = False
1706 DBLookupProperties.ItemHeight = 0
1707 DBLookupProperties.ItemWidth = 0
1708 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1709 end
1710 item
1711 Title.Alignment = taCenter
1712 Title.Caption = 'Middle Name'
1713 Width = 85
1714 FieldName = 'SEC$MIDDLE_NAME'
1715 AutoSizeColumn = False
1716 InitialSortColumn = False
1717 DBLookupProperties.ItemHeight = 0
1718 DBLookupProperties.ItemWidth = 0
1719 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1720 end
1721 item
1722 Title.Alignment = taCenter
1723 Title.Caption = 'Last Name'
1724 Width = 80
1725 FieldName = 'SEC$LAST_NAME'
1726 AutoSizeColumn = True
1727 InitialSortColumn = False
1728 DBLookupProperties.ItemHeight = 0
1729 DBLookupProperties.ItemWidth = 0
1730 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1731 end
1732 item
1733 Alignment = taCenter
1734 Title.Alignment = taCenter
1735 Title.Caption = 'Active'
1736 Width = 55
1737 FieldName = 'SEC$ACTIVE'
1738 AutoSizeColumn = False
1739 InitialSortColumn = False
1740 DBLookupProperties.ItemHeight = 0
1741 DBLookupProperties.ItemWidth = 0
1742 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1743 end
1744 item
1745 Alignment = taCenter
1746 Title.Alignment = taCenter
1747 Title.Caption = 'Admin'
1748 Width = 55
1749 FieldName = 'SEC$ADMIN'
1750 AutoSizeColumn = False
1751 InitialSortColumn = False
1752 DBLookupProperties.ItemHeight = 0
1753 DBLookupProperties.ItemWidth = 0
1754 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1755 end
1756 item
1757 Title.Alignment = taCenter
1758 Title.Caption = 'DB Creator'
1759 Width = 70
1760 FieldName = 'DBCREATOR'
1761 AutoSizeColumn = False
1762 InitialSortColumn = False
1763 DBLookupProperties.ItemHeight = 0
1764 DBLookupProperties.ItemWidth = 0
1765 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1766 end
1767 item
1768 Alignment = taCenter
1769 ReadOnly = True
1770 Title.Alignment = taCenter
1771 Title.Caption = 'Logged In'
1772 Width = 70
1773 FieldName = 'LOGGEDIN'
1774 AutoSizeColumn = False
1775 InitialSortColumn = False
1776 DBLookupProperties.ItemHeight = 0
1777 DBLookupProperties.ItemWidth = 0
1778 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1779 end
1780 item
1781 ButtonStyle = cbsPickList
1782 PickList.Strings = (
1783 'Srp'
1784 'Legacy_UserManager'
1785 )
1786 Title.Alignment = taCenter
1787 Title.Caption = 'User Manager'
1788 Width = 100
1789 FieldName = 'SEC$PLUGIN'
1790 AutoSizeColumn = False
1791 InitialSortColumn = False
1792 DBLookupProperties.ItemHeight = 0
1793 DBLookupProperties.ItemWidth = 0
1794 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1795 end
1796 item
1797 Title.Alignment = taCenter
1798 Title.Caption = 'UID'
1799 Width = 40
1800 FieldName = 'USERID'
1801 AutoSizeColumn = False
1802 InitialSortColumn = False
1803 DBLookupProperties.ItemHeight = 0
1804 DBLookupProperties.ItemWidth = 0
1805 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1806 end
1807 item
1808 Title.Alignment = taCenter
1809 Title.Caption = 'GID'
1810 Width = 40
1811 FieldName = 'GROUPID'
1812 AutoSizeColumn = False
1813 InitialSortColumn = False
1814 DBLookupProperties.ItemHeight = 0
1815 DBLookupProperties.ItemWidth = 0
1816 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1817 end>
1818 DataSource = UserListSource
1819 PopupMenu = UserPopup
1820 Scrollbars = ssAutoVertical
1821 TabOrder = 0
1822 ExpandEditorPanelBelowRow = False
1823 Descending = False
1824 EditorBorderStyle = bsSingle
1825 DefaultPositionAtEnd = False
1826 IndexFieldNames = 'USERNAME'
1827 end
1828 end
1829 object Splitter2: TSplitter
1830 Left = 739
1831 Height = 516
1832 Top = 0
1833 Width = 5
1834 end
1835 object Panel3: TPanel
1836 Left = 744
1837 Height = 516
1838 Top = 0
1839 Width = 189
1840 Align = alClient
1841 BevelOuter = bvNone
1842 ClientHeight = 516
1843 ClientWidth = 189
1844 TabOrder = 2
1845 object IBDynamicGrid4: TIBDynamicGrid
1846 Left = 0
1847 Height = 161
1848 Top = 50
1849 Width = 189
1850 Align = alTop
1851 Color = clWindow
1852 Columns = <
1853 item
1854 ButtonStyle = cbsCheckboxColumn
1855 Title.Caption = ''
1856 Width = 30
1857 FieldName = 'GRANTED'
1858 AutoSizeColumn = False
1859 InitialSortColumn = False
1860 DBLookupProperties.ItemHeight = 0
1861 DBLookupProperties.ItemWidth = 0
1862 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1863 end
1864 item
1865 Title.Alignment = taCenter
1866 Title.Caption = 'Role'
1867 Width = 70
1868 FieldName = 'RDB$ROLE_NAME'
1869 AutoSizeColumn = True
1870 InitialSortColumn = False
1871 DBLookupProperties.ItemHeight = 0
1872 DBLookupProperties.ItemWidth = 0
1873 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1874 end>
1875 DataSource = RoleSource
1876 Options = [dgEditing, dgIndicator, dgColumnResize, dgColumnMove, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
1877 Scrollbars = ssAutoVertical
1878 TabOrder = 0
1879 ExpandEditorPanelBelowRow = False
1880 Descending = False
1881 EditorBorderStyle = bsSingle
1882 DefaultPositionAtEnd = False
1883 end
1884 object Panel5: TPanel
1885 Left = 0
1886 Height = 61
1887 Top = 455
1888 Width = 189
1889 Align = alBottom
1890 BevelInner = bvLowered
1891 BevelOuter = bvLowered
1892 ClientHeight = 61
1893 ClientWidth = 189
1894 TabOrder = 1
1895 object Button1: TButton
1896 Left = 16
1897 Height = 28
1898 Top = 16
1899 Width = 162
1900 Action = SaveChanges
1901 Anchors = [akTop, akLeft, akRight]
1902 TabOrder = 0
1903 end
1904 end
1905 object Panel6: TPanel
1906 Left = 0
1907 Height = 50
1908 Top = 0
1909 Width = 189
1910 Align = alTop
1911 BevelInner = bvLowered
1912 BevelOuter = bvLowered
1913 ClientHeight = 50
1914 ClientWidth = 189
1915 TabOrder = 2
1916 object DBText1: TDBText
1917 Left = 10
1918 Height = 14
1919 Top = 30
1920 Width = 49
1921 DataField = 'USERNAME'
1922 DataSource = UserListSource
1923 ParentColor = False
1924 end
1925 object Label36: TLabel
1926 Left = 10
1927 Height = 14
1928 Top = 10
1929 Width = 104
1930 Caption = 'Roles Assigned to'
1931 ParentColor = False
1932 end
1933 end
1934 object Splitter3: TSplitter
1935 Cursor = crVSplit
1936 Left = 0
1937 Height = 5
1938 Top = 211
1939 Width = 189
1940 Align = alTop
1941 ResizeAnchor = akTop
1942 end
1943 object TagsHeader: TPanel
1944 Left = 0
1945 Height = 26
1946 Top = 216
1947 Width = 189
1948 Align = alTop
1949 BevelInner = bvRaised
1950 Caption = 'Tags'
1951 TabOrder = 4
1952 end
1953 object TagsGrid: TIBDynamicGrid
1954 Left = 0
1955 Height = 208
1956 Top = 242
1957 Width = 189
1958 Align = alClient
1959 Color = clWindow
1960 Columns = <
1961 item
1962 Title.Alignment = taCenter
1963 Title.Caption = 'Key'
1964 Width = 60
1965 FieldName = 'SEC$KEY'
1966 AutoSizeColumn = False
1967 InitialSortColumn = False
1968 DBLookupProperties.ItemHeight = 0
1969 DBLookupProperties.ItemWidth = 0
1970 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1971 end
1972 item
1973 Title.Alignment = taCenter
1974 Title.Caption = 'Value'
1975 Width = 60
1976 FieldName = 'SEC$VALUE'
1977 AutoSizeColumn = True
1978 InitialSortColumn = False
1979 DBLookupProperties.ItemHeight = 0
1980 DBLookupProperties.ItemWidth = 0
1981 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1982 end>
1983 DataSource = UserTagsSource
1984 PopupMenu = UserTagPopup
1985 Scrollbars = ssAutoVertical
1986 TabOrder = 5
1987 ExpandEditorPanelBelowRow = False
1988 Descending = False
1989 EditorBorderStyle = bsSingle
1990 DefaultPositionAtEnd = False
1991 end
1992 object Splitter4: TSplitter
1993 Cursor = crVSplit
1994 Left = 0
1995 Height = 5
1996 Top = 450
1997 Width = 189
1998 Align = alBottom
1999 ResizeAnchor = akBottom
2000 end
2001 end
2002 end
2003 object AccessRightsTab: TTabSheet
2004 Caption = 'Access Rights'
2005 ClientHeight = 516
2006 ClientWidth = 933
2007 OnHide = AccessRightsTabHide
2008 OnShow = AccessRightsTabShow
2009 object AccessRightsTreeView: TIBTreeView
2010 Left = 0
2011 Height = 516
2012 Top = 0
2013 Width = 300
2014 Align = alLeft
2015 TextField = 'DisplayName'
2016 DataSource = AccessRightsSource
2017 Images = MenuImages
2018 HasChildField = 'CHILDCOUNT'
2019 ImageIndexField = 'ImageIndex'
2020 SelectedIndexField = 'ImageIndex'
2021 KeyField = 'ID'
2022 ParentField = 'PARENT'
2023 PopupMenu = AccessRightsPopup
2024 TabOrder = 0
2025 OnSelectionChanged = AccessRightsTreeViewSelectionChanged
2026 end
2027 object Splitter5: TSplitter
2028 Left = 300
2029 Height = 516
2030 Top = 0
2031 Width = 5
2032 end
2033 object SubjectAccessRightsGrid: TIBDynamicGrid
2034 Left = 305
2035 Height = 516
2036 Top = 0
2037 Width = 628
2038 Align = alClient
2039 Color = clWindow
2040 Columns = <
2041 item
2042 Title.Alignment = taCenter
2043 Title.Caption = 'Type'
2044 Width = 100
2045 FieldName = 'OBJECT_TYPE_NAME'
2046 AutoSizeColumn = False
2047 InitialSortColumn = False
2048 DBLookupProperties.ItemHeight = 0
2049 DBLookupProperties.ItemWidth = 0
2050 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2051 end
2052 item
2053 Title.Alignment = taCenter
2054 Title.Caption = 'Object'
2055 Width = 150
2056 FieldName = 'OBJECT_NAME'
2057 AutoSizeColumn = True
2058 InitialSortColumn = True
2059 DBLookupProperties.ItemHeight = 0
2060 DBLookupProperties.ItemWidth = 0
2061 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2062 end
2063 item
2064 Title.Alignment = taCenter
2065 Title.Caption = 'Granted'
2066 Width = 80
2067 FieldName = 'GRANTED_PRIVILEGES'
2068 AutoSizeColumn = False
2069 InitialSortColumn = False
2070 DBLookupProperties.ItemHeight = 0
2071 DBLookupProperties.ItemWidth = 0
2072 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2073 end
2074 item
2075 Title.Alignment = taCenter
2076 Title.Caption = 'Granted By'
2077 Width = 80
2078 FieldName = 'GRANTEDBY'
2079 AutoSizeColumn = False
2080 InitialSortColumn = False
2081 DBLookupProperties.ItemHeight = 0
2082 DBLookupProperties.ItemWidth = 0
2083 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2084 end
2085 item
2086 ButtonStyle = cbsCheckboxColumn
2087 Title.Caption = 'Grant Opt'
2088 Width = 64
2089 FieldName = 'GRANT_OPTION'
2090 AutoSizeColumn = False
2091 InitialSortColumn = False
2092 DBLookupProperties.ItemHeight = 0
2093 DBLookupProperties.ItemWidth = 0
2094 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2095 end>
2096 DataSource = SubjectAccessRightsSource
2097 Scrollbars = ssAutoVertical
2098 TabOrder = 2
2099 EditorPanel = UpdateColsPanel
2100 ExpandEditorPanelBelowRow = True
2101 Descending = False
2102 EditorBorderStyle = bsSingle
2103 DefaultPositionAtEnd = False
2104 end
2105 end
2106 object MappingsTab: TTabSheet
2107 Caption = 'Auth Mappings'
2108 ClientHeight = 516
2109 ClientWidth = 933
2110 OnHide = MappingsTabHide
2111 OnShow = MappingsTabShow
2112 object IBDynamicGrid5: TIBDynamicGrid
2113 Left = 0
2114 Height = 516
2115 Top = 0
2116 Width = 933
2117 Align = alClient
2118 Color = clWindow
2119 Columns = <
2120 item
2121 Title.Alignment = taCenter
2122 Title.Caption = 'Name'
2123 Width = 200
2124 FieldName = 'RDB$MAP_NAME'
2125 AutoSizeColumn = False
2126 InitialSortColumn = False
2127 DBLookupProperties.ItemHeight = 0
2128 DBLookupProperties.ItemWidth = 0
2129 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2130 end
2131 item
2132 Title.Alignment = taCenter
2133 Title.Caption = 'Type'
2134 Width = 60
2135 FieldName = 'MAPTYPE'
2136 AutoSizeColumn = False
2137 InitialSortColumn = False
2138 DBLookupProperties.ItemHeight = 0
2139 DBLookupProperties.ItemWidth = 0
2140 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2141 end
2142 item
2143 Title.Alignment = taCenter
2144 Title.Caption = 'Using'
2145 Width = 150
2146 FieldName = 'MAP_USING'
2147 AutoSizeColumn = False
2148 InitialSortColumn = False
2149 DBLookupProperties.ItemHeight = 0
2150 DBLookupProperties.ItemWidth = 0
2151 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2152 end
2153 item
2154 Title.Alignment = taCenter
2155 Title.Caption = 'Database'
2156 Width = 150
2157 FieldName = 'RDB$MAP_DB'
2158 AutoSizeColumn = False
2159 InitialSortColumn = False
2160 DBLookupProperties.ItemHeight = 0
2161 DBLookupProperties.ItemWidth = 0
2162 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2163 end
2164 item
2165 Title.Alignment = taCenter
2166 Title.Caption = 'Mapping From'
2167 Width = 150
2168 FieldName = 'MAP_FROM'
2169 AutoSizeColumn = False
2170 InitialSortColumn = False
2171 DBLookupProperties.ItemHeight = 0
2172 DBLookupProperties.ItemWidth = 0
2173 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2174 end
2175 item
2176 Title.Alignment = taCenter
2177 Title.Caption = 'Mapping To'
2178 Width = 150
2179 FieldName = 'MAP_TO'
2180 AutoSizeColumn = False
2181 InitialSortColumn = False
2182 DBLookupProperties.ItemHeight = 0
2183 DBLookupProperties.ItemWidth = 0
2184 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2185 end
2186 item
2187 Title.Alignment = taCenter
2188 Title.Caption = 'Description'
2189 Width = 80
2190 FieldName = 'RDB$DESCRIPTION'
2191 AutoSizeColumn = True
2192 InitialSortColumn = False
2193 DBLookupProperties.ItemHeight = 0
2194 DBLookupProperties.ItemWidth = 0
2195 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2196 end>
2197 DataSource = AuthMapSource
2198 Scrollbars = ssAutoVertical
2199 TabOrder = 0
2200 ExpandEditorPanelBelowRow = False
2201 Descending = False
2202 EditorBorderStyle = bsSingle
2203 DefaultPositionAtEnd = False
2204 end
2205 end
2206 object RepairTab: TTabSheet
2207 Caption = 'Database Repair'
2208 ClientHeight = 516
2209 ClientWidth = 933
2210 OnHide = RepairTabHide
2211 OnShow = RepairTabShow
2212 object SelectRepairAction: TComboBox
2213 Left = 656
2214 Height = 27
2215 Top = 8
2216 Width = 200
2217 Anchors = [akTop, akRight]
2218 ItemHeight = 0
2219 ItemIndex = 0
2220 Items.Strings = (
2221 'Database Sweep'
2222 'Online Validation'
2223 'Database Validation'
2224 'Kill Shadows'
2225 )
2226 OnCloseUp = SelectRepairActionCloseUp
2227 TabOrder = 0
2228 Text = 'Database Sweep'
2229 end
2230 object Button2: TButton
2231 Left = 864
2232 Height = 25
2233 Top = 9
2234 Width = 35
2235 Action = RunRepair
2236 Anchors = [akTop, akRight]
2237 TabOrder = 1
2238 end
2239 object ValidateOptions: TPageControl
2240 Left = 6
2241 Height = 108
2242 Top = 7
2243 Width = 322
2244 ActivePage = RepairOptionsTab
2245 ShowTabs = False
2246 TabIndex = 1
2247 TabOrder = 2
2248 object ValidateOptionsTab: TTabSheet
2249 Caption = 'ValidateOptionsTab'
2250 ClientHeight = 104
2251 ClientWidth = 318
2252 object Label33: TLabel
2253 Left = 5
2254 Height = 14
2255 Top = 9
2256 Width = 108
2257 Caption = 'Validation Options'
2258 ParentColor = False
2259 end
2260 object RecordFragments: TCheckBox
2261 Left = 32
2262 Height = 22
2263 Top = 29
2264 Width = 184
2265 Caption = 'Validate Record Fragments'
2266 Checked = True
2267 State = cbChecked
2268 TabOrder = 0
2269 end
2270 object ReadOnlyValidation: TCheckBox
2271 Left = 32
2272 Height = 22
2273 Top = 51
2274 Width = 146
2275 Caption = 'Read Only Validation'
2276 TabOrder = 1
2277 end
2278 object IgnoreChecksums: TCheckBox
2279 Left = 32
2280 Height = 22
2281 Top = 73
2282 Width = 136
2283 Caption = 'Ignore Checksums'
2284 TabOrder = 2
2285 end
2286 end
2287 object RepairOptionsTab: TTabSheet
2288 Caption = 'RepairOptionsTab'
2289 ClientHeight = 104
2290 ClientWidth = 318
2291 object Label34: TLabel
2292 Left = 10
2293 Height = 40
2294 Top = 8
2295 Width = 294
2296 AutoSize = False
2297 Caption = 'If errors have been reported, you should now select the repair options and click on repair'
2298 ParentColor = False
2299 WordWrap = True
2300 end
2301 object ValidateRepairRecordFragments: TCheckBox
2302 Left = 16
2303 Height = 22
2304 Top = 48
2305 Width = 184
2306 Caption = 'Validate Record Fragments'
2307 Checked = True
2308 State = cbChecked
2309 TabOrder = 0
2310 end
2311 object IgnoreChecksumsOnRepair: TCheckBox
2312 Left = 16
2313 Height = 22
2314 Top = 71
2315 Width = 170
2316 Caption = 'Ignore Checksum Errors'
2317 TabOrder = 1
2318 end
2319 object Button7: TButton
2320 Left = 231
2321 Height = 25
2322 Top = 70
2323 Width = 75
2324 Action = Phase2Repair
2325 TabOrder = 2
2326 end
2327 end
2328 end
2329 object Panel8: TPanel
2330 Left = 10
2331 Height = 381
2332 Top = 123
2333 Width = 890
2334 Anchors = [akTop, akLeft, akRight, akBottom]
2335 BevelOuter = bvNone
2336 Caption = 'ValidationPanel'
2337 ClientHeight = 381
2338 ClientWidth = 890
2339 TabOrder = 3
2340 object DBTablesPanel: TPanel
2341 Left = 0
2342 Height = 381
2343 Top = 0
2344 Width = 170
2345 Align = alLeft
2346 BevelOuter = bvNone
2347 ClientHeight = 381
2348 ClientWidth = 170
2349 TabOrder = 0
2350 object Alltables: TRadioButton
2351 Left = 9
2352 Height = 22
2353 Top = 32
2354 Width = 78
2355 Caption = 'All Tables'
2356 Checked = True
2357 OnChange = SelectedTablesOnlyChange
2358 TabOrder = 0
2359 TabStop = True
2360 end
2361 object SelectedTablesOnly: TRadioButton
2362 Left = 9
2363 Height = 22
2364 Top = 56
2365 Width = 147
2366 Caption = 'Selected Tables Only'
2367 OnChange = SelectedTablesOnlyChange
2368 TabOrder = 1
2369 end
2370 object SelectedTablesGrid: TIBDynamicGrid
2371 Left = 0
2372 Height = 268
2373 Top = 90
2374 Width = 170
2375 Anchors = [akTop, akLeft, akRight, akBottom]
2376 Color = clWindow
2377 Columns = <
2378 item
2379 ButtonStyle = cbsCheckboxColumn
2380 Title.Caption = 'SELECTED'
2381 Width = 30
2382 FieldName = 'SELECTED'
2383 AutoSizeColumn = False
2384 InitialSortColumn = False
2385 DBLookupProperties.ItemHeight = 0
2386 DBLookupProperties.ItemWidth = 0
2387 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2388 end
2389 item
2390 Title.Caption = 'RDB$RELATION_NAME'
2391 Width = 80
2392 FieldName = 'RDB$RELATION_NAME'
2393 AutoSizeColumn = True
2394 InitialSortColumn = True
2395 DBLookupProperties.ItemHeight = 0
2396 DBLookupProperties.ItemWidth = 0
2397 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2398 end>
2399 DataSource = DBTablesSource
2400 FixedCols = 0
2401 Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
2402 Scrollbars = ssAutoVertical
2403 TabOrder = 2
2404 ExpandEditorPanelBelowRow = False
2405 Descending = False
2406 EditorBorderStyle = bsSingle
2407 DefaultPositionAtEnd = False
2408 end
2409 object Label40: TLabel
2410 Left = 9
2411 Height = 14
2412 Top = 7
2413 Width = 47
2414 Caption = 'Validate'
2415 ParentColor = False
2416 end
2417 object SelectAllTables: TCheckBox
2418 Left = 0
2419 Height = 22
2420 Top = 360
2421 Width = 134
2422 Anchors = [akLeft, akBottom]
2423 Caption = 'Select/Deselect All'
2424 OnChange = SelectAllTablesChange
2425 TabOrder = 3
2426 end
2427 end
2428 object DBTablesSplitter: TSplitter
2429 Left = 170
2430 Height = 381
2431 Top = 0
2432 Width = 5
2433 end
2434 object Panel9: TPanel
2435 Left = 175
2436 Height = 381
2437 Top = 0
2438 Width = 715
2439 Align = alClient
2440 BevelOuter = bvNone
2441 ClientHeight = 381
2442 ClientWidth = 715
2443 TabOrder = 2
2444 object Label37: TLabel
2445 Left = 0
2446 Height = 14
2447 Top = 8
2448 Width = 101
2449 Caption = 'Validation Report'
2450 ParentColor = False
2451 end
2452 object ValidationReport: TMemo
2453 Left = 0
2454 Height = 357
2455 Top = 24
2456 Width = 715
2457 Align = alBottom
2458 Anchors = [akTop, akLeft, akRight, akBottom]
2459 Lines.Strings = (
2460 'ValidationReport'
2461 )
2462 ScrollBars = ssAutoBoth
2463 TabOrder = 0
2464 end
2465 end
2466 end
2467 end
2468 object LimboTab: TTabSheet
2469 Caption = 'Limbo Transactions'
2470 ClientHeight = 516
2471 ClientWidth = 933
2472 OnHide = LimboTabHide
2473 OnShow = LimboTabShow
2474 object Label38: TLabel
2475 Left = 12
2476 Height = 14
2477 Top = 8
2478 Width = 74
2479 Caption = 'Transactions'
2480 ParentColor = False
2481 end
2482 object IBDynamicGrid3: TIBDynamicGrid
2483 Left = 13
2484 Height = 242
2485 Top = 24
2486 Width = 909
2487 Anchors = [akTop, akLeft, akRight]
2488 Color = clWindow
2489 Columns = <
2490 item
2491 ReadOnly = True
2492 Title.Alignment = taCenter
2493 Title.Caption = 'ID'
2494 Width = 60
2495 FieldName = 'TransactionID'
2496 AutoSizeColumn = False
2497 InitialSortColumn = False
2498 DBLookupProperties.ItemHeight = 0
2499 DBLookupProperties.ItemWidth = 0
2500 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2501 end
2502 item
2503 ReadOnly = True
2504 Title.Alignment = taCenter
2505 Title.Caption = 'Type'
2506 Width = 80
2507 FieldName = 'TransactionType'
2508 AutoSizeColumn = False
2509 InitialSortColumn = False
2510 DBLookupProperties.ItemHeight = 0
2511 DBLookupProperties.ItemWidth = 0
2512 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2513 end
2514 item
2515 ReadOnly = True
2516 Title.Alignment = taCenter
2517 Title.Caption = 'Host Site'
2518 Width = 100
2519 FieldName = 'HostSite'
2520 AutoSizeColumn = False
2521 InitialSortColumn = False
2522 DBLookupProperties.ItemHeight = 0
2523 DBLookupProperties.ItemWidth = 0
2524 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2525 end
2526 item
2527 ReadOnly = True
2528 Title.Alignment = taCenter
2529 Title.Caption = 'Remote Site'
2530 Width = 100
2531 FieldName = 'RemoteSite'
2532 AutoSizeColumn = False
2533 InitialSortColumn = False
2534 DBLookupProperties.ItemHeight = 0
2535 DBLookupProperties.ItemWidth = 0
2536 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2537 end
2538 item
2539 ReadOnly = True
2540 Title.Alignment = taCenter
2541 Title.Caption = 'Database Path'
2542 Width = 150
2543 FieldName = 'DatabasePath'
2544 AutoSizeColumn = True
2545 InitialSortColumn = False
2546 DBLookupProperties.ItemHeight = 0
2547 DBLookupProperties.ItemWidth = 0
2548 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2549 end
2550 item
2551 ReadOnly = True
2552 Title.Alignment = taCenter
2553 Title.Caption = 'State'
2554 Width = 80
2555 FieldName = 'State'
2556 AutoSizeColumn = False
2557 InitialSortColumn = False
2558 DBLookupProperties.ItemHeight = 0
2559 DBLookupProperties.ItemWidth = 0
2560 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2561 end
2562 item
2563 ReadOnly = True
2564 Title.Alignment = taCenter
2565 Title.Caption = 'Rec. Action'
2566 Width = 100
2567 FieldName = 'RecommendedAction'
2568 AutoSizeColumn = False
2569 InitialSortColumn = False
2570 DBLookupProperties.ItemHeight = 0
2571 DBLookupProperties.ItemWidth = 0
2572 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2573 end
2574 item
2575 PickList.Strings = (
2576 'Commit'
2577 'Rollback'
2578 )
2579 Title.Alignment = taCenter
2580 Title.Caption = 'Req. Action'
2581 Width = 100
2582 FieldName = 'RequestedAction'
2583 AutoSizeColumn = False
2584 InitialSortColumn = False
2585 DBLookupProperties.ItemHeight = 0
2586 DBLookupProperties.ItemWidth = 0
2587 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2588 end>
2589 DataSource = LimboListSource
2590 Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
2591 Scrollbars = ssAutoVertical
2592 TabOrder = 0
2593 ExpandEditorPanelBelowRow = False
2594 Descending = False
2595 EditorBorderStyle = bsSingle
2596 DefaultPositionAtEnd = False
2597 end
2598 object Button3: TButton
2599 Left = 16
2600 Height = 25
2601 Top = 482
2602 Width = 100
2603 Action = CommitAll
2604 Anchors = [akLeft, akBottom]
2605 TabOrder = 1
2606 end
2607 object Button4: TButton
2608 Left = 128
2609 Height = 25
2610 Top = 482
2611 Width = 100
2612 Action = RollbackAll
2613 Anchors = [akLeft, akBottom]
2614 TabOrder = 2
2615 end
2616 object Button5: TButton
2617 Left = 233
2618 Height = 25
2619 Top = 482
2620 Width = 127
2621 Action = Commit2Phase
2622 Anchors = [akLeft, akBottom]
2623 TabOrder = 3
2624 end
2625 object Button6: TButton
2626 Left = 368
2627 Height = 25
2628 Top = 482
2629 Width = 144
2630 Action = ApplySelected
2631 Anchors = [akLeft, akBottom]
2632 TabOrder = 4
2633 end
2634 object Label39: TLabel
2635 Left = 17
2636 Height = 14
2637 Top = 280
2638 Width = 104
2639 Caption = 'Resolution Report'
2640 ParentColor = False
2641 end
2642 object LimboReport: TMemo
2643 Left = 16
2644 Height = 178
2645 Top = 296
2646 Width = 906
2647 Anchors = [akTop, akLeft, akRight, akBottom]
2648 Lines.Strings = (
2649 'LimboReport'
2650 )
2651 TabOrder = 5
2652 end
2653 end
2654 end
2655 object UpdateColsPanel: TPanel
2656 Left = 328
2657 Height = 64
2658 Top = 128
2659 Width = 544
2660 BevelOuter = bvNone
2661 BorderStyle = bsSingle
2662 ClientHeight = 62
2663 ClientWidth = 542
2664 TabOrder = 3
2665 object Label41: TLabel
2666 Left = 32
2667 Height = 14
2668 Top = 8
2669 Width = 100
2670 Caption = 'Update Columns'
2671 ParentColor = False
2672 end
2673 object DBEdit5: TDBEdit
2674 Left = 144
2675 Height = 24
2676 Top = 4
2677 Width = 388
2678 DataField = 'UPDATE_COLUMNS'
2679 DataSource = SubjectAccessRightsSource
2680 Anchors = [akTop, akLeft, akRight]
2681 CharCase = ecNormal
2682 MaxLength = 0
2683 TabOrder = 0
2684 end
2685 object Label42: TLabel
2686 Left = 8
2687 Height = 14
2688 Top = 40
2689 Width = 123
2690 Caption = 'Referenced Columns'
2691 ParentColor = False
2692 end
2693 object DBEdit6: TDBEdit
2694 Left = 144
2695 Height = 24
2696 Top = 35
2697 Width = 388
2698 DataField = 'REFERENCE_COLUMNS'
2699 DataSource = SubjectAccessRightsSource
2700 Anchors = [akTop, akLeft, akRight]
2701 CharCase = ecNormal
2702 MaxLength = 0
2703 TabOrder = 1
2704 end
2705 end
2706 object MainMenu1: TMainMenu
2707 left = 712
2708 top = 64
2709 object MenuItem1: TMenuItem
2710 Caption = 'File'
2711 object MenuItem6: TMenuItem
2712 Action = OpenDatabase
2713 end
2714 object MenuItem8: TMenuItem
2715 Action = Save
2716 end
2717 object MenuItem7: TMenuItem
2718 Caption = '-'
2719 end
2720 object MenuItem3: TMenuItem
2721 Action = Backup
2722 end
2723 object MenuItem5: TMenuItem
2724 Action = Restore
2725 end
2726 object MenuItem10: TMenuItem
2727 Caption = '-'
2728 end
2729 object MenuItem9: TMenuItem
2730 Action = DropDatabase
2731 end
2732 object MenuItem4: TMenuItem
2733 Caption = '-'
2734 end
2735 object MenuItem2: TMenuItem
2736 Action = Quit
2737 end
2738 end
2739 end
2740 object ActionList1: TActionList
2741 Images = MenuImages
2742 left = 712
2743 top = 128
2744 object Quit: TAction
2745 Category = 'General'
2746 Caption = 'Exit'
2747 end
2748 object Backup: TAction
2749 Category = 'General'
2750 Caption = 'Backup'
2751 Hint = 'Backup Database to Archive File'
2752 ImageIndex = 1
2753 OnExecute = BackupExecute
2754 end
2755 object Restore: TAction
2756 Category = 'General'
2757 Caption = 'Restore'
2758 Hint = 'Restore Database From Archive'
2759 ImageIndex = 0
2760 OnExecute = RestoreExecute
2761 end
2762 object OpenDatabase: TAction
2763 Category = 'General'
2764 Caption = 'Open Database'
2765 OnExecute = OpenDatabaseExecute
2766 end
2767 object AddSecondary: TAction
2768 Category = 'files'
2769 Caption = 'Add'
2770 OnExecute = AddSecondaryExecute
2771 end
2772 object AddShadowSet: TAction
2773 Category = 'files'
2774 Caption = 'Add Set'
2775 OnExecute = AddShadowSetExecute
2776 end
2777 object RemoveShadow: TAction
2778 Category = 'files'
2779 Caption = 'Remove Set'
2780 OnExecute = RemoveShadowExecute
2781 OnUpdate = RemoveShadowUpdate
2782 end
2783 object Save: TAction
2784 Category = 'General'
2785 Caption = 'Save'
2786 Hint = 'Save to File'
2787 ImageIndex = 2
2788 OnExecute = SaveExecute
2789 OnUpdate = SaveUpdate
2790 end
2791 object DropDatabase: TAction
2792 Category = 'General'
2793 Caption = 'Drop Database'
2794 OnExecute = DropDatabaseExecute
2795 OnUpdate = DropDatabaseUpdate
2796 end
2797 object AddUser: TAction
2798 Category = 'Users'
2799 Caption = 'Add New User'
2800 OnExecute = AddUserExecute
2801 OnUpdate = AddUserUpdate
2802 end
2803 object ChgPassword: TAction
2804 Category = 'Users'
2805 Caption = 'Change Password'
2806 OnExecute = ChgPasswordExecute
2807 OnUpdate = ChgPasswordUpdate
2808 end
2809 object DeleteUser: TAction
2810 Category = 'Users'
2811 Caption = 'Delete'
2812 OnExecute = DeleteUserExecute
2813 OnUpdate = DeleteUserUpdate
2814 end
2815 object SaveChanges: TAction
2816 Category = 'Users'
2817 Caption = 'Save Changes'
2818 OnExecute = SaveChangesExecute
2819 OnUpdate = SaveChangesUpdate
2820 end
2821 object AddTag: TAction
2822 Category = 'Tags'
2823 Caption = 'Add Tag'
2824 OnExecute = AddTagExecute
2825 OnUpdate = AddTagUpdate
2826 end
2827 object DeleteTag: TAction
2828 Category = 'Tags'
2829 Caption = 'Delete'
2830 OnExecute = DeleteTagExecute
2831 OnUpdate = DeleteTagUpdate
2832 end
2833 object ToggleAutoRefresh: TAction
2834 Category = 'Attachments'
2835 Caption = 'Auto Refresh'
2836 OnExecute = ToggleAutoRefreshExecute
2837 OnUpdate = ToggleAutoRefreshUpdate
2838 end
2839 object DisconnectAttachment: TAction
2840 Category = 'Attachments'
2841 Caption = 'Disconnect'
2842 OnExecute = DisconnectAttachmentExecute
2843 OnUpdate = DisconnectAttachmentUpdate
2844 end
2845 object RunRepair: TAction
2846 Category = 'Repair'
2847 Caption = 'Run'
2848 OnExecute = RunRepairExecute
2849 end
2850 object CommitAll: TAction
2851 Category = 'Limbo'
2852 Caption = 'Commit All'
2853 OnExecute = CommitAllExecute
2854 OnUpdate = CommitAllUpdate
2855 end
2856 object RollbackAll: TAction
2857 Category = 'Limbo'
2858 Caption = 'Rollback All'
2859 OnExecute = RollbackAllExecute
2860 OnUpdate = CommitAllUpdate
2861 end
2862 object Commit2Phase: TAction
2863 Category = 'Limbo'
2864 Caption = 'Commit 2 Phase All'
2865 OnExecute = Commit2PhaseExecute
2866 OnUpdate = CommitAllUpdate
2867 end
2868 object ApplySelected: TAction
2869 Category = 'Limbo'
2870 Caption = 'Apply Selected Action'
2871 OnExecute = ApplySelectedExecute
2872 OnUpdate = CommitAllUpdate
2873 end
2874 object Phase2Repair: TAction
2875 Category = 'Repair'
2876 Caption = 'Repair'
2877 OnExecute = RunRepairExecute
2878 end
2879 object RevokeAll: TAction
2880 Category = 'AccessRights'
2881 Caption = 'Revoke All'
2882 OnExecute = RevokeAllExecute
2883 OnUpdate = RevokeAllUpdate
2884 end
2885 end
2886 object MenuImages: TImageList
2887 left = 704
2888 top = 184
2889 Bitmap = {
2890 4C69050000001000000010000000000000000000000000000000000000000000
2891 0000000000000000000000000000000000000000000000000000000000FF0000
2892 00FF000000FF000000FF000000FF000000000000000000000000000000000000
2893 00000000000000000000000084FF0000000000000000000000FF848400FFFFFF
2894 00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
2895 00000000000000000000000084FF000084FF00000000000000FF848400FF8484
2896 00FFFFFF00FF000000FFFFFF00FF000000000000000000000000000000000000
2897 0000000084FF000084FF000084FF000084FF000084FF000000FF848400FFFFFF
2898 00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
2899 0000000084FF00000000000084FF000084FF00000000000000FF848400FF8484
2900 00FFFFFF00FF000000FFFFFF00FF000000000000000000000000000000000000
2901 0000000084FF00000000000084FF0000000000000000000000FF848400FFFFFF
2902 00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
2903 0000000084FF0000000000000000000000000000000000000000000000FF0000
2904 00FF000000FF000000FF000000FF000000000000000000000000000000000000
2905 0000000084FF0000000000000000000000000000000000000000000000000000
2906 00000000000000000000000000000000000000000000000000FF000000FF0000
2907 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
2908 00FF000000FF000000FF000000FF00000000000000FF00000000000000008484
2909 84FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000FFC6C6C6FFC6C6C6FFC6C6
2910 C6FF848484FF000000000000000000000000000000FF848484FF848484FF0000
2911 00FF000000FF000000FF848484FFC6C6C6FFC6C6C6FF848484FF000000FF0000
2912 00FF000000FF848484FFC6C6C6FF00000000000000FF848484FF000000FF8484
2913 84FF0000000000000000000000FFC6C6C6FF848484FF000000FF848484FF0000
2914 000000000000000000FF848484FF00000000000000FF848484FF000000FF0000
2915 0000000000FF00000000000000FFC6C6C6FFC6C6C6FF000000FF000000000000
2916 00FF00000000000000FF848484FF00000000000000FF848484FF000000FF8484
2917 84FF00000000848484FF000000FFC6C6C6FFC6C6C6FF000000FF848484FF0000
2918 0000848484FF000000FF848484FF00000000000000FF848484FF848484FF0000
2919 00FF000000FF000000FF848484FF848484FF848484FF848484FF000000FF0000
2920 00FF000000FF000000FF848484FF00000000000000FF848484FFC6C6C6FFC6C6
2921 C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF00000000C6C6C6FF848484FF8484
2922 84FF848484FF848484FFC6C6C6FF000000000000000000000000000000000000
2923 0000000000000000000000000000000000000000000000000000000000FF0000
2924 00FF000000FF000000FF000000FF000000000000000000000000000000000000
2925 00000000000000000000000000000000000000000000000000FF848400FFFFFF
2926 00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
2927 00000000000000000000000000000000000000000000000000FF848400FF8484
2928 00FFFFFF00FF000000FFFFFF00FF000000000000000000000000000000000000
2929 0000000084FF000084FF000084FF000084FF000084FF000000FF848400FFFFFF
2930 00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
2931 0000000084FF00000000000000000000000000000000000000FF848400FF8484
2932 00FFFFFF00FF000000FFFFFF00FF000000000000000000000000000084FF0000
2933 84FF000084FF000084FF000084FF0000000000000000000000FF848400FFFFFF
2934 00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
2935 84FF000084FF000084FF00000000000000000000000000000000000000FF0000
2936 00FF000000FF000000FF000000FF000000000000000000000000000000000000
2937 0000000084FF0000000000000000000000000000000000000000000000000000
2938 00000000000000000000000000000000000000000000000000FF000000FF0000
2939 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
2940 00FF000000FF000000FF000000FF00000000000000FF00000000000000008484
2941 84FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000FFC6C6C6FFC6C6C6FFC6C6
2942 C6FF848484FF000000000000000000000000000000FF848484FF848484FF0000
2943 00FF000000FF000000FF848484FFC6C6C6FFC6C6C6FF848484FF000000FF0000
2944 00FF000000FF848484FFC6C6C6FF00000000000000FF848484FF000000FF8484
2945 84FF0000000000000000000000FFC6C6C6FF848484FF000000FF848484FF0000
2946 000000000000000000FF848484FF00000000000000FF848484FF000000FF0000
2947 0000000000FF00000000000000FFC6C6C6FFC6C6C6FF000000FF000000000000
2948 00FF00000000000000FF848484FF00000000000000FF848484FF000000FF8484
2949 84FF00000000848484FF000000FFC6C6C6FFC6C6C6FF000000FF848484FF0000
2950 0000848484FF000000FF848484FF00000000000000FF848484FF848484FF0000
2951 00FF000000FF000000FF848484FF848484FF848484FF848484FF000000FF0000
2952 00FF000000FF000000FF848484FF00000000000000FF848484FFC6C6C6FFC6C6
2953 C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF00000000C6C6C6FF848484FF8484
2954 84FF848484FF848484FFC6C6C6FFA46534FF5959F3FF5959F3FF5959F3FF5959
2955 F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959
2956 F3FF5959F3FFA46534FF00000000A46534FF5959F3FF5959F3FF5959F3FF5959
2957 F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959
2958 F3FF5959F3FFA46534FF00000000A46534FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2959 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2960 FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFF2929EFFFFFFFFFFF2929
2961 EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2962 FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFFFFFFFFFF2929EFFFFFFF
2963 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2964 FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFFFFFFFFFF2929EFFFFFFF
2965 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2966 FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFFFFFFFFFF2929EFFFFFFF
2967 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2968 FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFF2929EFFFFFFFFFFF2929
2969 EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2970 FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2971 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2972 FFFFFFFFFFFFA46534FF00000000A46534FFA46534FFA46534FFA46534FFA465
2973 34FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA465
2974 34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFB6BD
2975 BAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
2976 34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFA465
2977 34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
2978 34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFA465
2979 34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
2980 34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFA465
2981 34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
2982 34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFA465
2983 34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
2984 34FFA46534FFA46534FF00000000A4653455A46534FFA46534FFB6BDBAFFB6BD
2985 BAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
2986 34FFA46534FFA46534FF0000000000000000959493099898973D9C9C9B67A3A3
2987 A293B1B1B0C2CECFCEDCE0E1E0E9CBCBC7EAB9B7B3DEB0AFA9C4AEADA896B0AE
2988 AA6AACABA6409A99980A00000000A1A1A048A2A3A2FFA1A19FFF9E9E9CFF9C9D
2989 9AFF9C9C9BFFA6A7A6FFDBDCDCFFC5C4BDFFAEAAA1FFA7A49BFFA7A59CFFABAA
2990 A4FFB4B3AFFFB9B8B4FFADACA84C9C9C9BABBCBDBCFFC0C1C0FFC2C2C1FFC3C3
2991 C2FFC8C8C7FFD7D8D8FFEAEAEAFFBBB8B1FFA9A69CFFA5A197FFA09C93FFA09C
2992 93FFA7A49CFFB2B0AAFFA09E99AC8C8C8AABA2A2A0FFBDBEBDFFCCCECDFFD5D5
2993 D5FFDEDFDFFFE9E9EAFFDEDEDBFFC8C6C2FFB7B5AFFFACAAA3FFA7A59EFFA8A7
2994 A1FFB1AFACFFA8A6A3FF8E8B84AB8D8D8CABA2A2A0FFBFC1C0FFE0E0E0FFFBFD
2995 FDFFECEDECFFD7D7D4FFC4C4BFFFB4B3ADFFA4A29AFF9C9990FFA6A39DFFAEAE
2996 AAFFB9B8B7FFA9A8A5FF8F8C86AB8D806E99A3A4A1FFC0C1C1FFDFE0E0FFF8FA
2997 F9FFEAEBEBFFD9D9D7FFC8C8C3FFB7B5B0FFA6A49DFF9D9A92FFA6A39EFFAEAE
2998 AAFFB9B8B8FFAAA9A7FF8F826F9E8E8C899B615443FF837053FFBDA987FFE5D9
2999 C3FFE6E3D8FFDDDDDAFFD9DBD9FFD3D3D1FFB7B7B2FFB8B3A9FFBEB3A1FFBEAD
3000 93FF9F8E75FFA8A196FFBAB6B1B28F8F8DAB989A99FF898987FF72706DFF6762
3001 5BFF655D52FF685E50FF857C70FF8C8579FF898275FFABA69EFF908B84FF9C98
3002 95FFA9A8A4FFB5B4B2FFC7C6C3CD8D8D8BABA3A2A0FFC1C3C2FFDADCDCFFE8E9
3003 E9FFDFE0DFFFDEDFDEFFCFD0CDFFC0BFBBFFB2B1ABFFAAA7A1FFABABA5FF7EB3
3004 79FFB8B9B8FFAAA9A6FF8F8C85AB8C8B88ABA2A3A1FFBFC1C0FFDEDFDFFFF7F9
3005 F8FFEAEAE9FFD9D9D6FFC8C8C3FFB7B6B1FFA6A49DFF9E9B93FF6BB161FF56AF
3006 49FF65B35BFFA7A7A3FF8F8B84AB8C7C678F9E8868FFC3C3BFFFE3E9F0FFFEFF
3007 FFFFEDEEEFFFDADBD9FFC9C8C3FFB8B6B0FFA5A49CFF6BB061FF55B148FF50B0
3008 43FF50B144FF67AF5EFF98826E968F908FAB767571FF615748FF655844FF7969
3009 50FF8C7859FF967F5EFF99825CFF977F5AFF6EAB60FF3FA432FF269816FF228F
3010 15FF28981DFF32A528FF489D43C78D8D8BABA4A4A2FFB9BAB9FFB9BAB9FFAFB1
3011 B2FF9DA1A4FF969A9EFF878C90FF7C7F82FF7B7479FF63975BFF1E8D11FF2178
3012 18FF2B8625FF899C84FF99898FA88C8C8BACA2A2A0FFBFC1C0FFDEDFDFFFF9FB
3013 FBFFEEEFEEFFDDDDD9FFCAC9C5FFB8B7B1FFA7A39DFF6FA565FF259619FF2B85
3014 24FF389534FF88A183FF918C87AB91918F49A0A1A0FFC1C2C1FFE0E0E0FFF7F9
3015 F8FFE9EAE9FFD9D9D6FFC8C8C3FFB6B5B0FFA7A49DFF71A667FF2EA723FF3CAC
3016 36FF4FBC4DFF8CA588FF97908F5B00000000999B9B0AAEB0AF40CBCCCC6CDEE0
3017 DF94D9D9D8B7CCCDCAD0BFBFBBD7B1B0ACD8A4A29CD372A06AC333A32BB643AE
3018 3EB552BC52B658A6593E00000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3019 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006360
3020 F80AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007774FF1F7774
3021 FF2BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00625FF82B5D5B
3022 F76F5956F53EFFFFFF00FFFFFF00FFFFFF00FFFFFF007774FF1F7A77FFFF7976
3023 FEFF726FFD2BFFFFFF00FFFFFF00FFFFFF00FFFFFF00615EF82B6461F8FF6A68
3024 F9FF5451F3A84F4DF229FFFFFF00FFFFFF007774FF1F7A77FFFF817EFFFF817E
3025 FEFF7471FDFF6C69FB2BFFFFFF00FFFFFF00605DF72B625FF8FF6F6DFBFF7E7C
3026 FFFF625FF8FF4A47F06F4542EE02FFFFFF007673FF087471FEFD7D7AFEFF8A87
3027 FFFF7C79FDFF6C69FBFF6361F92B5F5CF72B615EF8FF6E6CFAFF7D7AFFFF615F
3028 F7FF4946F0FC4441EE05FFFFFF00FFFFFF00FFFFFF00716EFD086E6BFCFC7774
3029 FDFF8682FFFF7673FCFF6462F8FF605DF7FF6D6AFAFF7B79FFFF605DF7FF4845
3030 EFFC4341EE08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006967FB086663
3031 F9FC706DFBFF807EFFFF7E7BFFFF7C79FFFF7977FFFF5E5CF7FF4744EFFC4240
3032 EE08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00615E
3033 F8085D5AF6FD7D79FFFF5E5BFFFF5B58FFFF7674FFFF4643EFFD413FED08FFFF
3034 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005C59
3035 F62B5D5BF7FF7976FFFF5956FFFF5754FFFF7270FFFF4846F0FF3C39EB2BFFFF
3036 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005B58F62B5C5A
3037 F6FF6764FAFF7472FFFF7370FFFF706EFFFF6E6CFFFF5755F7FF3F3DEEFF3230
3038 E82BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005A57F52B5B59F6FF6663
3039 FAFF7471FFFF5A58F6FF4341EEFC3E3CECFD504DF4FF6867FFFF504EF5FF3634
3040 EBFF2A27E52BFFFFFF00FFFFFF00FFFFFF005956F52B5B58F6FF6562FAFF7170
3041 FFFF5956F6FF4240EEFC3E3BEC083937EB083532E9FC4745F2FF6362FFFF4A48
3042 F4FF2F2DE9FF2220E32BFFFFFF00FFFFFF005451F3415856F5FF6361FAFF5855
3043 F6FF413FEDFC3D3AEC08FFFFFF00FFFFFF00302DE7082C2AE6FC413FF1FF4C4A
3044 F6FF312FEAFF1F1DE241FFFFFF00FFFFFF00FFFFFF004A47F0414F4CF2FF403E
3045 EDFD3C39EB08FFFFFF00FFFFFF00FFFFFF00FFFFFF002725E5082422E4FC312F
3046 EAFF1F1DE241FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003F3DED413B38
3047 EB08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00211FE3081E1C
3048 E241FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3049 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3050 FF00FFFFFF00FFFFFF00FFFFFF00
3051 }
3052 end
3053 object CharSetSource: TDataSource
3054 DataSet = DatabaseData.CharSetLookup
3055 left = 552
3056 top = 240
3057 end
3058 object SecDBFilesSource: TDataSource
3059 DataSet = DatabaseData.DBSecFiles
3060 left = 552
3061 top = 376
3062 end
3063 object DBCharSetSource: TDataSource
3064 DataSet = DatabaseData.DBCharSet
3065 left = 552
3066 top = 304
3067 end
3068 object DatabaseSource: TDataSource
3069 DataSet = DatabaseData.DatabaseQuery
3070 left = 560
3071 top = 448
3072 end
3073 object IBDatabaseInfo: TIBDatabaseInfo
3074 Database = DatabaseData.IBDatabase1
3075 left = 712
3076 top = 240
3077 end
3078 object AttmtSource: TDataSource
3079 DataSet = DatabaseData.AttmtQuery
3080 left = 416
3081 top = 448
3082 end
3083 object ShadowSource: TDataSource
3084 DataSet = DatabaseData.ShadowFiles
3085 left = 424
3086 top = 400
3087 end
3088 object SynSQLSyn1: TSynSQLSyn
3089 DefaultFilter = 'SQL Files (*.sql)|*.sql'
3090 Enabled = False
3091 CommentAttri.Foreground = clGreen
3092 KeyAttri.Foreground = clBlue
3093 NumberAttri.Foreground = clRed
3094 SQLDialect = sqlSybase
3095 left = 712
3096 top = 352
3097 end
3098 object IBExtract1: TIBExtract
3099 Database = DatabaseData.IBDatabase1
3100 Transaction = DatabaseData.CurrentTransaction
3101 ShowSystem = False
3102 left = 712
3103 top = 296
3104 end
3105 object SQlSaveDialog: TSaveDialog
3106 DefaultExt = '.sql'
3107 Filter = 'SQLFiles (*.sql)|*.sql|All Files|*.*'
3108 Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
3109 left = 712
3110 top = 472
3111 end
3112 object SaveDialog: TSaveDialog
3113 DefaultExt = '.txt'
3114 Filter = 'Text Files (*.txt)|*.txt|All Files |*.*'
3115 Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
3116 left = 712
3117 top = 416
3118 end
3119 object UserListSource: TDataSource
3120 DataSet = DatabaseData.UserList
3121 left = 416
3122 top = 328
3123 end
3124 object RoleSource: TDataSource
3125 DataSet = DatabaseData.RoleNameList
3126 left = 416
3127 top = 272
3128 end
3129 object UserTagsSource: TDataSource
3130 DataSet = DatabaseData.UserTags
3131 left = 416
3132 top = 224
3133 end
3134 object UserPopup: TPopupMenu
3135 left = 840
3136 top = 296
3137 object MenuItem11: TMenuItem
3138 Action = AddUser
3139 end
3140 object MenuItem12: TMenuItem
3141 Action = ChgPassword
3142 end
3143 object MenuItem13: TMenuItem
3144 Caption = '-'
3145 end
3146 object MenuItem14: TMenuItem
3147 Action = DeleteUser
3148 end
3149 end
3150 object UserTagPopup: TPopupMenu
3151 left = 845
3152 top = 346
3153 object MenuItem15: TMenuItem
3154 Action = AddTag
3155 end
3156 object MenuItem16: TMenuItem
3157 Action = DeleteTag
3158 end
3159 end
3160 object AttachSource: TDataSource
3161 DataSet = DatabaseData.Attachments
3162 left = 552
3163 top = 112
3164 end
3165 object AttmtTimer: TTimer
3166 Enabled = False
3167 Interval = 5000
3168 OnTimer = AttmtTimerTimer
3169 left = 792
3170 top = 64
3171 end
3172 object AttmtPopup: TPopupMenu
3173 left = 840
3174 top = 240
3175 object MenuItem17: TMenuItem
3176 Action = ToggleAutoRefresh
3177 end
3178 object MenuItem18: TMenuItem
3179 Action = DisconnectAttachment
3180 end
3181 end
3182 object LimboListSource: TDataSource
3183 DataSet = DatabaseData.InLimboList
3184 left = 552
3185 top = 176
3186 end
3187 object DBTablesSource: TDataSource
3188 DataSet = DatabaseData.DBTables
3189 left = 304
3190 top = 224
3191 end
3192 object AuthMapSource: TDataSource
3193 DataSet = DatabaseData.AuthMappings
3194 left = 303
3195 top = 286
3196 end
3197 object SubjectAccessRightsSource: TDataSource
3198 DataSet = DatabaseData.SubjectAccessRights
3199 OnDataChange = SubjectAccessRightsSourceDataChange
3200 left = 297
3201 top = 429
3202 end
3203 object AccessRightsPopup: TPopupMenu
3204 left = 845
3205 top = 415
3206 object MenuItem19: TMenuItem
3207 Action = RevokeAll
3208 end
3209 end
3210 object AccessRightsSource: TDataSource
3211 DataSet = DatabaseData.AccessRights
3212 left = 288
3213 top = 360
3214 end
3215 end