ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm
Revision: 229
Committed: Tue Apr 10 13:32:36 2018 UTC (6 years ago) by tony
File size: 101046 byte(s)
Log Message: 
Fixes Merged

File Contents

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