ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
Revision: 267
Committed: Fri Dec 28 10:44:23 2018 UTC (5 years, 3 months ago) by tony
File size: 104684 byte(s)
Log Message:
Fixes Merged

File Contents

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