ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
Revision: 315
Committed: Thu Feb 25 11:56:36 2021 UTC (3 years, 1 month ago) by tony
File size: 111505 byte(s)
Log Message:
Updated for IBX 4 release

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