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