ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
Revision: 210
Committed: Wed Mar 14 15:03:38 2018 UTC (6 years, 1 month ago) by tony
File size: 100289 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 = AttachmentsTab
69 Align = alClient
70 MultiLine = True
71 ParentShowHint = False
72 ShowHint = True
73 TabIndex = 2
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 = 519
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 TabOrder = 0
2032 OnSelectionChanged = AccessRightsTreeViewSelectionChanged
2033 end
2034 object Splitter5: TSplitter
2035 Left = 300
2036 Height = 519
2037 Top = 0
2038 Width = 5
2039 end
2040 object SubjectAccessRightsGrid: TIBDynamicGrid
2041 Left = 305
2042 Height = 519
2043 Top = 0
2044 Width = 626
2045 Align = alClient
2046 Color = clWindow
2047 Columns = <
2048 item
2049 Title.Alignment = taCenter
2050 Title.Caption = 'Type'
2051 Width = 100
2052 FieldName = 'OBJECT_TYPE_NAME'
2053 AutoSizeColumn = False
2054 InitialSortColumn = False
2055 DBLookupProperties.ItemHeight = 0
2056 DBLookupProperties.ItemWidth = 0
2057 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2058 end
2059 item
2060 Title.Alignment = taCenter
2061 Title.Caption = 'Object'
2062 Width = 150
2063 FieldName = 'OBJECT_NAME'
2064 AutoSizeColumn = True
2065 InitialSortColumn = True
2066 DBLookupProperties.ItemHeight = 0
2067 DBLookupProperties.ItemWidth = 0
2068 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2069 end
2070 item
2071 Title.Alignment = taCenter
2072 Title.Caption = 'Granted'
2073 Width = 80
2074 FieldName = 'GRANTED_PRIVILEGES'
2075 AutoSizeColumn = False
2076 InitialSortColumn = False
2077 DBLookupProperties.ItemHeight = 0
2078 DBLookupProperties.ItemWidth = 0
2079 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2080 end
2081 item
2082 Title.Alignment = taCenter
2083 Title.Caption = 'Granted By'
2084 Width = 80
2085 FieldName = 'GRANTEDBY'
2086 AutoSizeColumn = False
2087 InitialSortColumn = False
2088 DBLookupProperties.ItemHeight = 0
2089 DBLookupProperties.ItemWidth = 0
2090 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2091 end
2092 item
2093 ButtonStyle = cbsCheckboxColumn
2094 Title.Caption = 'Grant Opt'
2095 Width = 64
2096 FieldName = 'GRANT_OPTION'
2097 AutoSizeColumn = False
2098 InitialSortColumn = False
2099 DBLookupProperties.ItemHeight = 0
2100 DBLookupProperties.ItemWidth = 0
2101 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2102 end>
2103 DataSource = SubjectAccessRightsSource
2104 Scrollbars = ssAutoVertical
2105 TabOrder = 2
2106 EditorPanel = UpdateColsPanel
2107 ExpandEditorPanelBelowRow = True
2108 Descending = False
2109 EditorBorderStyle = bsSingle
2110 DefaultPositionAtEnd = False
2111 end
2112 end
2113 object MappingsTab: TTabSheet
2114 Caption = 'Auth Mappings'
2115 ClientHeight = 516
2116 ClientWidth = 933
2117 OnHide = MappingsTabHide
2118 OnShow = MappingsTabShow
2119 object IBDynamicGrid5: TIBDynamicGrid
2120 Left = 0
2121 Height = 492
2122 Top = 24
2123 Width = 933
2124 Anchors = [akTop, akLeft, akRight, akBottom]
2125 Color = clWindow
2126 Columns = <
2127 item
2128 Title.Alignment = taCenter
2129 Title.Caption = 'Name'
2130 Width = 200
2131 FieldName = 'RDB$MAP_NAME'
2132 AutoSizeColumn = False
2133 InitialSortColumn = False
2134 DBLookupProperties.ItemHeight = 0
2135 DBLookupProperties.ItemWidth = 0
2136 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2137 end
2138 item
2139 Title.Alignment = taCenter
2140 Title.Caption = 'Type'
2141 Width = 60
2142 FieldName = 'MAPTYPE'
2143 AutoSizeColumn = False
2144 InitialSortColumn = False
2145 DBLookupProperties.ItemHeight = 0
2146 DBLookupProperties.ItemWidth = 0
2147 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2148 end
2149 item
2150 Title.Alignment = taCenter
2151 Title.Caption = 'Using'
2152 Width = 150
2153 FieldName = 'MAP_USING'
2154 AutoSizeColumn = False
2155 InitialSortColumn = False
2156 DBLookupProperties.ItemHeight = 0
2157 DBLookupProperties.ItemWidth = 0
2158 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2159 end
2160 item
2161 Title.Alignment = taCenter
2162 Title.Caption = 'Database'
2163 Width = 150
2164 FieldName = 'RDB$MAP_DB'
2165 AutoSizeColumn = False
2166 InitialSortColumn = False
2167 DBLookupProperties.ItemHeight = 0
2168 DBLookupProperties.ItemWidth = 0
2169 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2170 end
2171 item
2172 Title.Alignment = taCenter
2173 Title.Caption = 'Mapping From'
2174 Width = 150
2175 FieldName = 'MAP_FROM'
2176 AutoSizeColumn = False
2177 InitialSortColumn = False
2178 DBLookupProperties.ItemHeight = 0
2179 DBLookupProperties.ItemWidth = 0
2180 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2181 end
2182 item
2183 Title.Alignment = taCenter
2184 Title.Caption = 'Mapping To'
2185 Width = 150
2186 FieldName = 'MAP_TO'
2187 AutoSizeColumn = False
2188 InitialSortColumn = False
2189 DBLookupProperties.ItemHeight = 0
2190 DBLookupProperties.ItemWidth = 0
2191 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2192 end
2193 item
2194 Title.Alignment = taCenter
2195 Title.Caption = 'Description'
2196 Width = 80
2197 FieldName = 'RDB$DESCRIPTION'
2198 AutoSizeColumn = True
2199 InitialSortColumn = False
2200 DBLookupProperties.ItemHeight = 0
2201 DBLookupProperties.ItemWidth = 0
2202 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2203 end>
2204 DataSource = AuthMapSource
2205 Scrollbars = ssAutoVertical
2206 TabOrder = 0
2207 ExpandEditorPanelBelowRow = False
2208 Descending = False
2209 EditorBorderStyle = bsSingle
2210 DefaultPositionAtEnd = False
2211 end
2212 object AutoAdmin: TCheckBox
2213 Left = 776
2214 Height = 22
2215 Top = 2
2216 Width = 151
2217 Anchors = [akTop, akRight]
2218 Caption = 'Auto Admin Mapping'
2219 OnChange = AutoAdminChange
2220 TabOrder = 1
2221 end
2222 end
2223 object RepairTab: TTabSheet
2224 Caption = 'Database Repair'
2225 ClientHeight = 516
2226 ClientWidth = 933
2227 OnHide = RepairTabHide
2228 OnShow = RepairTabShow
2229 object SelectRepairAction: TComboBox
2230 Left = 654
2231 Height = 23
2232 Top = 8
2233 Width = 200
2234 Anchors = [akTop, akRight]
2235 ItemHeight = 0
2236 ItemIndex = 0
2237 Items.Strings = (
2238 'Database Sweep'
2239 'Online Validation'
2240 'Database Validation'
2241 'Kill Shadows'
2242 )
2243 OnCloseUp = SelectRepairActionCloseUp
2244 TabOrder = 0
2245 Text = 'Database Sweep'
2246 end
2247 object Button2: TButton
2248 Left = 862
2249 Height = 25
2250 Top = 9
2251 Width = 35
2252 Action = RunRepair
2253 Anchors = [akTop, akRight]
2254 TabOrder = 1
2255 end
2256 object ValidateOptions: TPageControl
2257 Left = 6
2258 Height = 108
2259 Top = 7
2260 Width = 322
2261 ActivePage = RepairOptionsTab
2262 ShowTabs = False
2263 TabIndex = 1
2264 TabOrder = 2
2265 object ValidateOptionsTab: TTabSheet
2266 Caption = 'ValidateOptionsTab'
2267 ClientHeight = 104
2268 ClientWidth = 318
2269 object Label33: TLabel
2270 Left = 5
2271 Height = 14
2272 Top = 9
2273 Width = 108
2274 Caption = 'Validation Options'
2275 ParentColor = False
2276 end
2277 object RecordFragments: TCheckBox
2278 Left = 32
2279 Height = 22
2280 Top = 29
2281 Width = 184
2282 Caption = 'Validate Record Fragments'
2283 Checked = True
2284 State = cbChecked
2285 TabOrder = 0
2286 end
2287 object ReadOnlyValidation: TCheckBox
2288 Left = 32
2289 Height = 22
2290 Top = 51
2291 Width = 146
2292 Caption = 'Read Only Validation'
2293 TabOrder = 1
2294 end
2295 object IgnoreChecksums: TCheckBox
2296 Left = 32
2297 Height = 22
2298 Top = 73
2299 Width = 136
2300 Caption = 'Ignore Checksums'
2301 TabOrder = 2
2302 end
2303 end
2304 object RepairOptionsTab: TTabSheet
2305 Caption = 'RepairOptionsTab'
2306 ClientHeight = 104
2307 ClientWidth = 318
2308 object Label34: TLabel
2309 Left = 10
2310 Height = 40
2311 Top = 8
2312 Width = 294
2313 AutoSize = False
2314 Caption = 'If errors have been reported, you should now select the repair options and click on repair'
2315 ParentColor = False
2316 WordWrap = True
2317 end
2318 object ValidateRepairRecordFragments: TCheckBox
2319 Left = 16
2320 Height = 19
2321 Top = 48
2322 Width = 161
2323 Caption = 'Validate Record Fragments'
2324 Checked = True
2325 State = cbChecked
2326 TabOrder = 0
2327 end
2328 object IgnoreChecksumsOnRepair: TCheckBox
2329 Left = 16
2330 Height = 19
2331 Top = 71
2332 Width = 146
2333 Caption = 'Ignore Checksum Errors'
2334 TabOrder = 1
2335 end
2336 object Button7: TButton
2337 Left = 231
2338 Height = 25
2339 Top = 70
2340 Width = 75
2341 Action = Phase2Repair
2342 TabOrder = 2
2343 end
2344 end
2345 end
2346 object Panel8: TPanel
2347 Left = 10
2348 Height = 384
2349 Top = 123
2350 Width = 888
2351 Anchors = [akTop, akLeft, akRight, akBottom]
2352 BevelOuter = bvNone
2353 Caption = 'ValidationPanel'
2354 ClientHeight = 384
2355 ClientWidth = 888
2356 TabOrder = 3
2357 object DBTablesPanel: TPanel
2358 Left = 0
2359 Height = 384
2360 Top = 0
2361 Width = 170
2362 Align = alLeft
2363 BevelOuter = bvNone
2364 ClientHeight = 384
2365 ClientWidth = 170
2366 TabOrder = 0
2367 object Alltables: TRadioButton
2368 Left = 9
2369 Height = 19
2370 Top = 32
2371 Width = 71
2372 Caption = 'All Tables'
2373 Checked = True
2374 OnChange = SelectedTablesOnlyChange
2375 TabOrder = 0
2376 TabStop = True
2377 end
2378 object SelectedTablesOnly: TRadioButton
2379 Left = 9
2380 Height = 19
2381 Top = 56
2382 Width = 129
2383 Caption = 'Selected Tables Only'
2384 OnChange = SelectedTablesOnlyChange
2385 TabOrder = 1
2386 end
2387 object SelectedTablesGrid: TIBDynamicGrid
2388 Left = 0
2389 Height = 271
2390 Top = 90
2391 Width = 170
2392 Anchors = [akTop, akLeft, akRight, akBottom]
2393 Color = clWindow
2394 Columns = <
2395 item
2396 ButtonStyle = cbsCheckboxColumn
2397 Title.Caption = 'SELECTED'
2398 Width = 30
2399 FieldName = 'SELECTED'
2400 AutoSizeColumn = False
2401 InitialSortColumn = False
2402 DBLookupProperties.ItemHeight = 0
2403 DBLookupProperties.ItemWidth = 0
2404 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2405 end
2406 item
2407 Title.Caption = 'RDB$RELATION_NAME'
2408 Width = 80
2409 FieldName = 'RDB$RELATION_NAME'
2410 AutoSizeColumn = True
2411 InitialSortColumn = True
2412 DBLookupProperties.ItemHeight = 0
2413 DBLookupProperties.ItemWidth = 0
2414 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2415 end>
2416 DataSource = DBTablesSource
2417 FixedCols = 0
2418 Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
2419 Scrollbars = ssAutoVertical
2420 TabOrder = 2
2421 ExpandEditorPanelBelowRow = False
2422 Descending = False
2423 EditorBorderStyle = bsSingle
2424 DefaultPositionAtEnd = False
2425 end
2426 object Label40: TLabel
2427 Left = 9
2428 Height = 15
2429 Top = 7
2430 Width = 42
2431 Caption = 'Validate'
2432 ParentColor = False
2433 end
2434 object SelectAllTables: TCheckBox
2435 Left = 0
2436 Height = 19
2437 Top = 366
2438 Width = 117
2439 Anchors = [akLeft, akBottom]
2440 Caption = 'Select/Deselect All'
2441 OnChange = SelectAllTablesChange
2442 TabOrder = 3
2443 end
2444 end
2445 object DBTablesSplitter: TSplitter
2446 Left = 170
2447 Height = 384
2448 Top = 0
2449 Width = 5
2450 end
2451 object Panel9: TPanel
2452 Left = 175
2453 Height = 384
2454 Top = 0
2455 Width = 713
2456 Align = alClient
2457 BevelOuter = bvNone
2458 ClientHeight = 384
2459 ClientWidth = 713
2460 TabOrder = 2
2461 object Label37: TLabel
2462 Left = 0
2463 Height = 15
2464 Top = 8
2465 Width = 91
2466 Caption = 'Validation Report'
2467 ParentColor = False
2468 end
2469 object ValidationReport: TMemo
2470 Left = 0
2471 Height = 360
2472 Top = 24
2473 Width = 713
2474 Align = alBottom
2475 Anchors = [akTop, akLeft, akRight, akBottom]
2476 Lines.Strings = (
2477 'ValidationReport'
2478 )
2479 ScrollBars = ssAutoBoth
2480 TabOrder = 0
2481 end
2482 end
2483 end
2484 end
2485 object LimboTab: TTabSheet
2486 Caption = 'Limbo Transactions'
2487 ClientHeight = 516
2488 ClientWidth = 933
2489 OnHide = LimboTabHide
2490 OnShow = LimboTabShow
2491 object Label38: TLabel
2492 Left = 12
2493 Height = 14
2494 Top = 8
2495 Width = 74
2496 Caption = 'Transactions'
2497 ParentColor = False
2498 end
2499 object IBDynamicGrid3: TIBDynamicGrid
2500 Left = 13
2501 Height = 242
2502 Top = 24
2503 Width = 909
2504 Anchors = [akTop, akLeft, akRight]
2505 Color = clWindow
2506 Columns = <
2507 item
2508 ReadOnly = True
2509 Title.Alignment = taCenter
2510 Title.Caption = 'ID'
2511 Width = 60
2512 FieldName = 'TransactionID'
2513 AutoSizeColumn = False
2514 InitialSortColumn = False
2515 DBLookupProperties.ItemHeight = 0
2516 DBLookupProperties.ItemWidth = 0
2517 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2518 end
2519 item
2520 ReadOnly = True
2521 Title.Alignment = taCenter
2522 Title.Caption = 'Type'
2523 Width = 80
2524 FieldName = 'TransactionType'
2525 AutoSizeColumn = False
2526 InitialSortColumn = False
2527 DBLookupProperties.ItemHeight = 0
2528 DBLookupProperties.ItemWidth = 0
2529 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2530 end
2531 item
2532 ReadOnly = True
2533 Title.Alignment = taCenter
2534 Title.Caption = 'Host Site'
2535 Width = 100
2536 FieldName = 'HostSite'
2537 AutoSizeColumn = False
2538 InitialSortColumn = False
2539 DBLookupProperties.ItemHeight = 0
2540 DBLookupProperties.ItemWidth = 0
2541 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2542 end
2543 item
2544 ReadOnly = True
2545 Title.Alignment = taCenter
2546 Title.Caption = 'Remote Site'
2547 Width = 100
2548 FieldName = 'RemoteSite'
2549 AutoSizeColumn = False
2550 InitialSortColumn = False
2551 DBLookupProperties.ItemHeight = 0
2552 DBLookupProperties.ItemWidth = 0
2553 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2554 end
2555 item
2556 ReadOnly = True
2557 Title.Alignment = taCenter
2558 Title.Caption = 'Database Path'
2559 Width = 150
2560 FieldName = 'DatabasePath'
2561 AutoSizeColumn = True
2562 InitialSortColumn = False
2563 DBLookupProperties.ItemHeight = 0
2564 DBLookupProperties.ItemWidth = 0
2565 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2566 end
2567 item
2568 ReadOnly = True
2569 Title.Alignment = taCenter
2570 Title.Caption = 'State'
2571 Width = 80
2572 FieldName = 'State'
2573 AutoSizeColumn = False
2574 InitialSortColumn = False
2575 DBLookupProperties.ItemHeight = 0
2576 DBLookupProperties.ItemWidth = 0
2577 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2578 end
2579 item
2580 ReadOnly = True
2581 Title.Alignment = taCenter
2582 Title.Caption = 'Rec. Action'
2583 Width = 100
2584 FieldName = 'RecommendedAction'
2585 AutoSizeColumn = False
2586 InitialSortColumn = False
2587 DBLookupProperties.ItemHeight = 0
2588 DBLookupProperties.ItemWidth = 0
2589 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2590 end
2591 item
2592 PickList.Strings = (
2593 'Commit'
2594 'Rollback'
2595 )
2596 Title.Alignment = taCenter
2597 Title.Caption = 'Req. Action'
2598 Width = 100
2599 FieldName = 'RequestedAction'
2600 AutoSizeColumn = False
2601 InitialSortColumn = False
2602 DBLookupProperties.ItemHeight = 0
2603 DBLookupProperties.ItemWidth = 0
2604 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
2605 end>
2606 DataSource = LimboListSource
2607 Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
2608 Scrollbars = ssAutoVertical
2609 TabOrder = 0
2610 ExpandEditorPanelBelowRow = False
2611 Descending = False
2612 EditorBorderStyle = bsSingle
2613 DefaultPositionAtEnd = False
2614 end
2615 object Button3: TButton
2616 Left = 16
2617 Height = 25
2618 Top = 482
2619 Width = 100
2620 Action = CommitAll
2621 Anchors = [akLeft, akBottom]
2622 TabOrder = 1
2623 end
2624 object Button4: TButton
2625 Left = 128
2626 Height = 25
2627 Top = 482
2628 Width = 100
2629 Action = RollbackAll
2630 Anchors = [akLeft, akBottom]
2631 TabOrder = 2
2632 end
2633 object Button5: TButton
2634 Left = 233
2635 Height = 25
2636 Top = 482
2637 Width = 127
2638 Action = Commit2Phase
2639 Anchors = [akLeft, akBottom]
2640 TabOrder = 3
2641 end
2642 object Button6: TButton
2643 Left = 368
2644 Height = 25
2645 Top = 482
2646 Width = 144
2647 Action = ApplySelected
2648 Anchors = [akLeft, akBottom]
2649 TabOrder = 4
2650 end
2651 object Label39: TLabel
2652 Left = 17
2653 Height = 14
2654 Top = 280
2655 Width = 104
2656 Caption = 'Resolution Report'
2657 ParentColor = False
2658 end
2659 object LimboReport: TMemo
2660 Left = 16
2661 Height = 178
2662 Top = 296
2663 Width = 906
2664 Anchors = [akTop, akLeft, akRight, akBottom]
2665 Lines.Strings = (
2666 'LimboReport'
2667 )
2668 TabOrder = 5
2669 end
2670 end
2671 end
2672 object UpdateColsPanel: TPanel
2673 Left = 328
2674 Height = 64
2675 Top = 128
2676 Width = 544
2677 BevelOuter = bvNone
2678 BorderStyle = bsSingle
2679 ClientHeight = 62
2680 ClientWidth = 542
2681 TabOrder = 3
2682 object Label41: TLabel
2683 Left = 32
2684 Height = 14
2685 Top = 8
2686 Width = 100
2687 Caption = 'Update Columns'
2688 ParentColor = False
2689 end
2690 object DBEdit5: TDBEdit
2691 Left = 144
2692 Height = 24
2693 Top = 4
2694 Width = 388
2695 DataField = 'UPDATE_COLUMNS'
2696 DataSource = SubjectAccessRightsSource
2697 Anchors = [akTop, akLeft, akRight]
2698 CharCase = ecNormal
2699 MaxLength = 0
2700 TabOrder = 0
2701 end
2702 object Label42: TLabel
2703 Left = 8
2704 Height = 14
2705 Top = 40
2706 Width = 123
2707 Caption = 'Referenced Columns'
2708 ParentColor = False
2709 end
2710 object DBEdit6: TDBEdit
2711 Left = 144
2712 Height = 24
2713 Top = 35
2714 Width = 388
2715 DataField = 'REFERENCE_COLUMNS'
2716 DataSource = SubjectAccessRightsSource
2717 Anchors = [akTop, akLeft, akRight]
2718 CharCase = ecNormal
2719 MaxLength = 0
2720 TabOrder = 1
2721 end
2722 end
2723 object MainMenu1: TMainMenu
2724 left = 712
2725 top = 64
2726 object MenuItem1: TMenuItem
2727 Caption = 'File'
2728 object MenuItem6: TMenuItem
2729 Action = OpenDatabase
2730 end
2731 object MenuItem8: TMenuItem
2732 Action = Save
2733 end
2734 object MenuItem7: TMenuItem
2735 Caption = '-'
2736 end
2737 object MenuItem3: TMenuItem
2738 Action = Backup
2739 end
2740 object MenuItem5: TMenuItem
2741 Action = Restore
2742 end
2743 object MenuItem10: TMenuItem
2744 Caption = '-'
2745 end
2746 object MenuItem9: TMenuItem
2747 Action = DropDatabase
2748 end
2749 object MenuItem4: TMenuItem
2750 Caption = '-'
2751 end
2752 object MenuItem2: TMenuItem
2753 Action = Quit
2754 end
2755 end
2756 end
2757 object ActionList1: TActionList
2758 Images = MenuImages
2759 left = 712
2760 top = 128
2761 object Quit: TAction
2762 Category = 'General'
2763 Caption = 'Exit'
2764 OnExecute = QuitExecute
2765 end
2766 object Backup: TAction
2767 Category = 'General'
2768 Caption = 'Backup'
2769 Hint = 'Backup Database to Archive File'
2770 ImageIndex = 1
2771 OnExecute = BackupExecute
2772 end
2773 object Restore: TAction
2774 Category = 'General'
2775 Caption = 'Restore'
2776 Hint = 'Restore Database From Archive'
2777 ImageIndex = 0
2778 OnExecute = RestoreExecute
2779 end
2780 object OpenDatabase: TAction
2781 Category = 'General'
2782 Caption = 'Open Database'
2783 OnExecute = OpenDatabaseExecute
2784 end
2785 object AddSecondary: TAction
2786 Category = 'files'
2787 Caption = 'Add'
2788 OnExecute = AddSecondaryExecute
2789 end
2790 object AddShadowSet: TAction
2791 Category = 'files'
2792 Caption = 'Add Set'
2793 OnExecute = AddShadowSetExecute
2794 end
2795 object RemoveShadow: TAction
2796 Category = 'files'
2797 Caption = 'Remove Set'
2798 OnExecute = RemoveShadowExecute
2799 OnUpdate = RemoveShadowUpdate
2800 end
2801 object Save: TAction
2802 Category = 'General'
2803 Caption = 'Save'
2804 Hint = 'Save to File'
2805 ImageIndex = 2
2806 OnExecute = SaveExecute
2807 OnUpdate = SaveUpdate
2808 end
2809 object DropDatabase: TAction
2810 Category = 'General'
2811 Caption = 'Drop Database'
2812 OnExecute = DropDatabaseExecute
2813 OnUpdate = DropDatabaseUpdate
2814 end
2815 object AddUser: TAction
2816 Category = 'Users'
2817 Caption = 'Add New User'
2818 OnExecute = AddUserExecute
2819 OnUpdate = AddUserUpdate
2820 end
2821 object ChgPassword: TAction
2822 Category = 'Users'
2823 Caption = 'Change Password'
2824 OnExecute = ChgPasswordExecute
2825 OnUpdate = ChgPasswordUpdate
2826 end
2827 object DeleteUser: TAction
2828 Category = 'Users'
2829 Caption = 'Delete'
2830 OnExecute = DeleteUserExecute
2831 OnUpdate = DeleteUserUpdate
2832 end
2833 object SaveChanges: TAction
2834 Category = 'Users'
2835 Caption = 'Save Changes'
2836 OnExecute = SaveChangesExecute
2837 OnUpdate = SaveChangesUpdate
2838 end
2839 object AddTag: TAction
2840 Category = 'Tags'
2841 Caption = 'Add Tag'
2842 OnExecute = AddTagExecute
2843 OnUpdate = AddTagUpdate
2844 end
2845 object DeleteTag: TAction
2846 Category = 'Tags'
2847 Caption = 'Delete'
2848 OnExecute = DeleteTagExecute
2849 OnUpdate = DeleteTagUpdate
2850 end
2851 object ToggleAutoRefresh: TAction
2852 Category = 'Attachments'
2853 Caption = 'Auto Refresh'
2854 OnExecute = ToggleAutoRefreshExecute
2855 OnUpdate = ToggleAutoRefreshUpdate
2856 end
2857 object DisconnectAttachment: TAction
2858 Category = 'Attachments'
2859 Caption = 'Disconnect'
2860 OnExecute = DisconnectAttachmentExecute
2861 OnUpdate = DisconnectAttachmentUpdate
2862 end
2863 object RunRepair: TAction
2864 Category = 'Repair'
2865 Caption = 'Run'
2866 OnExecute = RunRepairExecute
2867 end
2868 object CommitAll: TAction
2869 Category = 'Limbo'
2870 Caption = 'Commit All'
2871 OnExecute = CommitAllExecute
2872 OnUpdate = CommitAllUpdate
2873 end
2874 object RollbackAll: TAction
2875 Category = 'Limbo'
2876 Caption = 'Rollback All'
2877 OnExecute = RollbackAllExecute
2878 OnUpdate = CommitAllUpdate
2879 end
2880 object Commit2Phase: TAction
2881 Category = 'Limbo'
2882 Caption = 'Commit 2 Phase All'
2883 OnExecute = Commit2PhaseExecute
2884 OnUpdate = CommitAllUpdate
2885 end
2886 object ApplySelected: TAction
2887 Category = 'Limbo'
2888 Caption = 'Apply Selected Action'
2889 OnExecute = ApplySelectedExecute
2890 OnUpdate = CommitAllUpdate
2891 end
2892 object Phase2Repair: TAction
2893 Category = 'Repair'
2894 Caption = 'Repair'
2895 OnExecute = RunRepairExecute
2896 end
2897 object RevokeAll: TAction
2898 Category = 'AccessRights'
2899 Caption = 'Revoke All'
2900 OnExecute = RevokeAllExecute
2901 OnUpdate = RevokeAllUpdate
2902 end
2903 end
2904 object MenuImages: TImageList
2905 left = 704
2906 top = 184
2907 Bitmap = {
2908 4C69050000001000000010000000000000000000000000000000000000000000
2909 0000000000000000000000000000000000000000000000000000000000FF0000
2910 00FF000000FF000000FF000000FF000000000000000000000000000000000000
2911 00000000000000000000000084FF0000000000000000000000FF848400FFFFFF
2912 00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
2913 00000000000000000000000084FF000084FF00000000000000FF848400FF8484
2914 00FFFFFF00FF000000FFFFFF00FF000000000000000000000000000000000000
2915 0000000084FF000084FF000084FF000084FF000084FF000000FF848400FFFFFF
2916 00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
2917 0000000084FF00000000000084FF000084FF00000000000000FF848400FF8484
2918 00FFFFFF00FF000000FFFFFF00FF000000000000000000000000000000000000
2919 0000000084FF00000000000084FF0000000000000000000000FF848400FFFFFF
2920 00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
2921 0000000084FF0000000000000000000000000000000000000000000000FF0000
2922 00FF000000FF000000FF000000FF000000000000000000000000000000000000
2923 0000000084FF0000000000000000000000000000000000000000000000000000
2924 00000000000000000000000000000000000000000000000000FF000000FF0000
2925 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
2926 00FF000000FF000000FF000000FF00000000000000FF00000000000000008484
2927 84FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000FFC6C6C6FFC6C6C6FFC6C6
2928 C6FF848484FF000000000000000000000000000000FF848484FF848484FF0000
2929 00FF000000FF000000FF848484FFC6C6C6FFC6C6C6FF848484FF000000FF0000
2930 00FF000000FF848484FFC6C6C6FF00000000000000FF848484FF000000FF8484
2931 84FF0000000000000000000000FFC6C6C6FF848484FF000000FF848484FF0000
2932 000000000000000000FF848484FF00000000000000FF848484FF000000FF0000
2933 0000000000FF00000000000000FFC6C6C6FFC6C6C6FF000000FF000000000000
2934 00FF00000000000000FF848484FF00000000000000FF848484FF000000FF8484
2935 84FF00000000848484FF000000FFC6C6C6FFC6C6C6FF000000FF848484FF0000
2936 0000848484FF000000FF848484FF00000000000000FF848484FF848484FF0000
2937 00FF000000FF000000FF848484FF848484FF848484FF848484FF000000FF0000
2938 00FF000000FF000000FF848484FF00000000000000FF848484FFC6C6C6FFC6C6
2939 C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF00000000C6C6C6FF848484FF8484
2940 84FF848484FF848484FFC6C6C6FF000000000000000000000000000000000000
2941 0000000000000000000000000000000000000000000000000000000000FF0000
2942 00FF000000FF000000FF000000FF000000000000000000000000000000000000
2943 00000000000000000000000000000000000000000000000000FF848400FFFFFF
2944 00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
2945 00000000000000000000000000000000000000000000000000FF848400FF8484
2946 00FFFFFF00FF000000FFFFFF00FF000000000000000000000000000000000000
2947 0000000084FF000084FF000084FF000084FF000084FF000000FF848400FFFFFF
2948 00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
2949 0000000084FF00000000000000000000000000000000000000FF848400FF8484
2950 00FFFFFF00FF000000FFFFFF00FF000000000000000000000000000084FF0000
2951 84FF000084FF000084FF000084FF0000000000000000000000FF848400FFFFFF
2952 00FF000000FFFFFF00FFFFFF00FF000000000000000000000000000000000000
2953 84FF000084FF000084FF00000000000000000000000000000000000000FF0000
2954 00FF000000FF000000FF000000FF000000000000000000000000000000000000
2955 0000000084FF0000000000000000000000000000000000000000000000000000
2956 00000000000000000000000000000000000000000000000000FF000000FF0000
2957 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
2958 00FF000000FF000000FF000000FF00000000000000FF00000000000000008484
2959 84FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000FFC6C6C6FFC6C6C6FFC6C6
2960 C6FF848484FF000000000000000000000000000000FF848484FF848484FF0000
2961 00FF000000FF000000FF848484FFC6C6C6FFC6C6C6FF848484FF000000FF0000
2962 00FF000000FF848484FFC6C6C6FF00000000000000FF848484FF000000FF8484
2963 84FF0000000000000000000000FFC6C6C6FF848484FF000000FF848484FF0000
2964 000000000000000000FF848484FF00000000000000FF848484FF000000FF0000
2965 0000000000FF00000000000000FFC6C6C6FFC6C6C6FF000000FF000000000000
2966 00FF00000000000000FF848484FF00000000000000FF848484FF000000FF8484
2967 84FF00000000848484FF000000FFC6C6C6FFC6C6C6FF000000FF848484FF0000
2968 0000848484FF000000FF848484FF00000000000000FF848484FF848484FF0000
2969 00FF000000FF000000FF848484FF848484FF848484FF848484FF000000FF0000
2970 00FF000000FF000000FF848484FF00000000000000FF848484FFC6C6C6FFC6C6
2971 C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF00000000C6C6C6FF848484FF8484
2972 84FF848484FF848484FFC6C6C6FFA46534FF5959F3FF5959F3FF5959F3FF5959
2973 F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959
2974 F3FF5959F3FFA46534FF00000000A46534FF5959F3FF5959F3FF5959F3FF5959
2975 F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959
2976 F3FF5959F3FFA46534FF00000000A46534FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2977 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2978 FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFF2929EFFFFFFFFFFF2929
2979 EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2980 FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFFFFFFFFFF2929EFFFFFFF
2981 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2982 FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFFFFFFFFFF2929EFFFFFFF
2983 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2984 FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFFFFFFFFFF2929EFFFFFFF
2985 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2986 FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFF2929EFFFFFFFFFFF2929
2987 EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2988 FFFFFFFFFFFFA46534FF00000000A46534FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2989 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2990 FFFFFFFFFFFFA46534FF00000000A46534FFA46534FFA46534FFA46534FFA465
2991 34FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA465
2992 34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFB6BD
2993 BAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
2994 34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFA465
2995 34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
2996 34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFA465
2997 34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
2998 34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFA465
2999 34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
3000 34FFA46534FFA46534FF00000000A46534FFA46534FFA46534FFB6BDBAFFA465
3001 34FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
3002 34FFA46534FFA46534FF00000000A4653455A46534FFA46534FFB6BDBAFFB6BD
3003 BAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFA46534FFA46534FFA465
3004 34FFA46534FFA46534FF0000000000000000959493099898973D9C9C9B67A3A3
3005 A293B1B1B0C2CECFCEDCE0E1E0E9CBCBC7EAB9B7B3DEB0AFA9C4AEADA896B0AE
3006 AA6AACABA6409A99980A00000000A1A1A048A2A3A2FFA1A19FFF9E9E9CFF9C9D
3007 9AFF9C9C9BFFA6A7A6FFDBDCDCFFC5C4BDFFAEAAA1FFA7A49BFFA7A59CFFABAA
3008 A4FFB4B3AFFFB9B8B4FFADACA84C9C9C9BABBCBDBCFFC0C1C0FFC2C2C1FFC3C3
3009 C2FFC8C8C7FFD7D8D8FFEAEAEAFFBBB8B1FFA9A69CFFA5A197FFA09C93FFA09C
3010 93FFA7A49CFFB2B0AAFFA09E99AC8C8C8AABA2A2A0FFBDBEBDFFCCCECDFFD5D5
3011 D5FFDEDFDFFFE9E9EAFFDEDEDBFFC8C6C2FFB7B5AFFFACAAA3FFA7A59EFFA8A7
3012 A1FFB1AFACFFA8A6A3FF8E8B84AB8D8D8CABA2A2A0FFBFC1C0FFE0E0E0FFFBFD
3013 FDFFECEDECFFD7D7D4FFC4C4BFFFB4B3ADFFA4A29AFF9C9990FFA6A39DFFAEAE
3014 AAFFB9B8B7FFA9A8A5FF8F8C86AB8D806E99A3A4A1FFC0C1C1FFDFE0E0FFF8FA
3015 F9FFEAEBEBFFD9D9D7FFC8C8C3FFB7B5B0FFA6A49DFF9D9A92FFA6A39EFFAEAE
3016 AAFFB9B8B8FFAAA9A7FF8F826F9E8E8C899B615443FF837053FFBDA987FFE5D9
3017 C3FFE6E3D8FFDDDDDAFFD9DBD9FFD3D3D1FFB7B7B2FFB8B3A9FFBEB3A1FFBEAD
3018 93FF9F8E75FFA8A196FFBAB6B1B28F8F8DAB989A99FF898987FF72706DFF6762
3019 5BFF655D52FF685E50FF857C70FF8C8579FF898275FFABA69EFF908B84FF9C98
3020 95FFA9A8A4FFB5B4B2FFC7C6C3CD8D8D8BABA3A2A0FFC1C3C2FFDADCDCFFE8E9
3021 E9FFDFE0DFFFDEDFDEFFCFD0CDFFC0BFBBFFB2B1ABFFAAA7A1FFABABA5FF7EB3
3022 79FFB8B9B8FFAAA9A6FF8F8C85AB8C8B88ABA2A3A1FFBFC1C0FFDEDFDFFFF7F9
3023 F8FFEAEAE9FFD9D9D6FFC8C8C3FFB7B6B1FFA6A49DFF9E9B93FF6BB161FF56AF
3024 49FF65B35BFFA7A7A3FF8F8B84AB8C7C678F9E8868FFC3C3BFFFE3E9F0FFFEFF
3025 FFFFEDEEEFFFDADBD9FFC9C8C3FFB8B6B0FFA5A49CFF6BB061FF55B148FF50B0
3026 43FF50B144FF67AF5EFF98826E968F908FAB767571FF615748FF655844FF7969
3027 50FF8C7859FF967F5EFF99825CFF977F5AFF6EAB60FF3FA432FF269816FF228F
3028 15FF28981DFF32A528FF489D43C78D8D8BABA4A4A2FFB9BAB9FFB9BAB9FFAFB1
3029 B2FF9DA1A4FF969A9EFF878C90FF7C7F82FF7B7479FF63975BFF1E8D11FF2178
3030 18FF2B8625FF899C84FF99898FA88C8C8BACA2A2A0FFBFC1C0FFDEDFDFFFF9FB
3031 FBFFEEEFEEFFDDDDD9FFCAC9C5FFB8B7B1FFA7A39DFF6FA565FF259619FF2B85
3032 24FF389534FF88A183FF918C87AB91918F49A0A1A0FFC1C2C1FFE0E0E0FFF7F9
3033 F8FFE9EAE9FFD9D9D6FFC8C8C3FFB6B5B0FFA7A49DFF71A667FF2EA723FF3CAC
3034 36FF4FBC4DFF8CA588FF97908F5B00000000999B9B0AAEB0AF40CBCCCC6CDEE0
3035 DF94D9D9D8B7CCCDCAD0BFBFBBD7B1B0ACD8A4A29CD372A06AC333A32BB643AE
3036 3EB552BC52B658A6593E00000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3037 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006360
3038 F80AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007774FF1F7774
3039 FF2BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00625FF82B5D5B
3040 F76F5956F53EFFFFFF00FFFFFF00FFFFFF00FFFFFF007774FF1F7A77FFFF7976
3041 FEFF726FFD2BFFFFFF00FFFFFF00FFFFFF00FFFFFF00615EF82B6461F8FF6A68
3042 F9FF5451F3A84F4DF229FFFFFF00FFFFFF007774FF1F7A77FFFF817EFFFF817E
3043 FEFF7471FDFF6C69FB2BFFFFFF00FFFFFF00605DF72B625FF8FF6F6DFBFF7E7C
3044 FFFF625FF8FF4A47F06F4542EE02FFFFFF007673FF087471FEFD7D7AFEFF8A87
3045 FFFF7C79FDFF6C69FBFF6361F92B5F5CF72B615EF8FF6E6CFAFF7D7AFFFF615F
3046 F7FF4946F0FC4441EE05FFFFFF00FFFFFF00FFFFFF00716EFD086E6BFCFC7774
3047 FDFF8682FFFF7673FCFF6462F8FF605DF7FF6D6AFAFF7B79FFFF605DF7FF4845
3048 EFFC4341EE08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006967FB086663
3049 F9FC706DFBFF807EFFFF7E7BFFFF7C79FFFF7977FFFF5E5CF7FF4744EFFC4240
3050 EE08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00615E
3051 F8085D5AF6FD7D79FFFF5E5BFFFF5B58FFFF7674FFFF4643EFFD413FED08FFFF
3052 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005C59
3053 F62B5D5BF7FF7976FFFF5956FFFF5754FFFF7270FFFF4846F0FF3C39EB2BFFFF
3054 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005B58F62B5C5A
3055 F6FF6764FAFF7472FFFF7370FFFF706EFFFF6E6CFFFF5755F7FF3F3DEEFF3230
3056 E82BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005A57F52B5B59F6FF6663
3057 FAFF7471FFFF5A58F6FF4341EEFC3E3CECFD504DF4FF6867FFFF504EF5FF3634
3058 EBFF2A27E52BFFFFFF00FFFFFF00FFFFFF005956F52B5B58F6FF6562FAFF7170
3059 FFFF5956F6FF4240EEFC3E3BEC083937EB083532E9FC4745F2FF6362FFFF4A48
3060 F4FF2F2DE9FF2220E32BFFFFFF00FFFFFF005451F3415856F5FF6361FAFF5855
3061 F6FF413FEDFC3D3AEC08FFFFFF00FFFFFF00302DE7082C2AE6FC413FF1FF4C4A
3062 F6FF312FEAFF1F1DE241FFFFFF00FFFFFF00FFFFFF004A47F0414F4CF2FF403E
3063 EDFD3C39EB08FFFFFF00FFFFFF00FFFFFF00FFFFFF002725E5082422E4FC312F
3064 EAFF1F1DE241FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003F3DED413B38
3065 EB08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00211FE3081E1C
3066 E241FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3067 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3068 FF00FFFFFF00FFFFFF00FFFFFF00
3069 }
3070 end
3071 object CharSetSource: TDataSource
3072 DataSet = DatabaseData.CharSetLookup
3073 left = 552
3074 top = 240
3075 end
3076 object SecDBFilesSource: TDataSource
3077 DataSet = DatabaseData.DBSecFiles
3078 left = 552
3079 top = 376
3080 end
3081 object DBCharSetSource: TDataSource
3082 DataSet = DatabaseData.DBCharSet
3083 left = 552
3084 top = 304
3085 end
3086 object DatabaseSource: TDataSource
3087 DataSet = DatabaseData.DatabaseQuery
3088 left = 560
3089 top = 448
3090 end
3091 object IBDatabaseInfo: TIBDatabaseInfo
3092 Database = DatabaseData.IBDatabase1
3093 left = 712
3094 top = 240
3095 end
3096 object AttmtSource: TDataSource
3097 DataSet = DatabaseData.AttmtQuery
3098 left = 416
3099 top = 448
3100 end
3101 object ShadowSource: TDataSource
3102 DataSet = DatabaseData.ShadowFiles
3103 left = 424
3104 top = 400
3105 end
3106 object SynSQLSyn1: TSynSQLSyn
3107 DefaultFilter = 'SQL Files (*.sql)|*.sql'
3108 Enabled = False
3109 CommentAttri.Foreground = clGreen
3110 KeyAttri.Foreground = clBlue
3111 NumberAttri.Foreground = clRed
3112 SQLDialect = sqlSybase
3113 left = 712
3114 top = 352
3115 end
3116 object IBExtract1: TIBExtract
3117 Database = DatabaseData.IBDatabase1
3118 Transaction = DatabaseData.CurrentTransaction
3119 ShowSystem = False
3120 AlwaysQuoteIdentifiers = False
3121 left = 712
3122 top = 296
3123 end
3124 object SQlSaveDialog: TSaveDialog
3125 DefaultExt = '.sql'
3126 Filter = 'SQLFiles (*.sql)|*.sql|All Files|*.*'
3127 Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
3128 left = 712
3129 top = 472
3130 end
3131 object SaveDialog: TSaveDialog
3132 DefaultExt = '.txt'
3133 Filter = 'Text Files (*.txt)|*.txt|All Files |*.*'
3134 Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
3135 left = 712
3136 top = 416
3137 end
3138 object UserListSource: TDataSource
3139 DataSet = DatabaseData.UserList
3140 left = 416
3141 top = 328
3142 end
3143 object RoleSource: TDataSource
3144 DataSet = DatabaseData.RoleNameList
3145 left = 416
3146 top = 272
3147 end
3148 object UserTagsSource: TDataSource
3149 DataSet = DatabaseData.UserTags
3150 left = 416
3151 top = 224
3152 end
3153 object UserPopup: TPopupMenu
3154 left = 840
3155 top = 296
3156 object MenuItem11: TMenuItem
3157 Action = AddUser
3158 end
3159 object MenuItem12: TMenuItem
3160 Action = ChgPassword
3161 end
3162 object MenuItem13: TMenuItem
3163 Caption = '-'
3164 end
3165 object MenuItem14: TMenuItem
3166 Action = DeleteUser
3167 end
3168 end
3169 object UserTagPopup: TPopupMenu
3170 left = 845
3171 top = 346
3172 object MenuItem15: TMenuItem
3173 Action = AddTag
3174 end
3175 object MenuItem16: TMenuItem
3176 Action = DeleteTag
3177 end
3178 end
3179 object AttachSource: TDataSource
3180 DataSet = DatabaseData.Attachments
3181 left = 552
3182 top = 112
3183 end
3184 object AttmtTimer: TTimer
3185 Enabled = False
3186 Interval = 5000
3187 OnTimer = AttmtTimerTimer
3188 left = 792
3189 top = 64
3190 end
3191 object AttmtPopup: TPopupMenu
3192 left = 840
3193 top = 240
3194 object MenuItem17: TMenuItem
3195 Action = ToggleAutoRefresh
3196 end
3197 object MenuItem18: TMenuItem
3198 Action = DisconnectAttachment
3199 end
3200 end
3201 object LimboListSource: TDataSource
3202 DataSet = DatabaseData.InLimboList
3203 left = 552
3204 top = 176
3205 end
3206 object DBTablesSource: TDataSource
3207 DataSet = DatabaseData.DBTables
3208 left = 304
3209 top = 224
3210 end
3211 object AuthMapSource: TDataSource
3212 DataSet = DatabaseData.AuthMappings
3213 left = 303
3214 top = 286
3215 end
3216 object SubjectAccessRightsSource: TDataSource
3217 DataSet = DatabaseData.SubjectAccessRights
3218 OnDataChange = SubjectAccessRightsSourceDataChange
3219 left = 297
3220 top = 429
3221 end
3222 object AccessRightsPopup: TPopupMenu
3223 left = 845
3224 top = 415
3225 object MenuItem19: TMenuItem
3226 Action = RevokeAll
3227 end
3228 end
3229 object AccessRightsSource: TDataSource
3230 DataSet = DatabaseData.AccessRights
3231 left = 288
3232 top = 360
3233 end
3234 end