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