ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
Revision: 263
Committed: Thu Dec 6 15:55:01 2018 UTC (5 years, 4 months ago) by tony
File size: 104088 byte(s)
Log Message: 
Release 2.3.2 committed

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