ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
Revision: 158
Committed: Thu Mar 1 11:23:33 2018 UTC (6 years, 1 month ago) by tony
File size: 99597 byte(s)
Log Message:
Repository resync

File Contents

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