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