ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
Revision: 272
Committed: Mon Feb 4 13:34:37 2019 UTC (5 years, 2 months ago) by tony
File size: 111671 byte(s)
Log Message:
Fixes merged

File Contents

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