ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
Revision: 267
Committed: Fri Dec 28 10:44:23 2018 UTC (5 years, 3 months ago) by tony
File size: 104684 byte(s)
Log Message:
Fixes Merged

File Contents

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