ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
Revision: 229
Committed: Tue Apr 10 13:32:36 2018 UTC (6 years ago) by tony
File size: 101046 byte(s)
Log Message:
Fixes Merged

File Contents

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