ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
Revision: 231
Committed: Mon Apr 16 08:32:21 2018 UTC (5 years, 11 months ago) by tony
File size: 103889 byte(s)
Log Message:
Fixes merged

File Contents

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