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