ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
Revision: 225
Committed: Tue Apr 3 09:09:05 2018 UTC (6 years ago) by tony
File size: 100471 byte(s)
Log Message:
Fixes Merged

File Contents

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