ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.lfm

Comparing ibx/trunk/examples/DBAdmin/MainFormUnit.lfm (file contents):
Revision 158 by tony, Thu Mar 1 11:23:33 2018 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

#	Line 1 | Line 1
1		object MainForm: TMainForm
2	<	Left = 596
3	<	Height = 616
4	<	Top = 178
5	<	Width = 939
2	>	Left = 648
3	>	Height = 619
4	>	Top = 231
5	>	Width = 976
6		Caption = 'Database Administrator Demo'
7	<	ClientHeight = 596
8	<	ClientWidth = 939
7	>	ClientHeight = 598
8	>	ClientWidth = 976
9		Menu = MainMenu1
10	+	OnClose = FormClose
11		OnShow = FormShow
12	<	LCLVersion = '1.8.1.0'
12	>	LCLVersion = '2.0.11.0'
13		object ToolBar1: TToolBar
14		Left = 0
15		Height = 26
16		Top = 0
17	<	Width = 939
17	>	Width = 976
18		Caption = 'ToolBar1'
19		Images = MenuImages
20		TabOrder = 0
#	Line 51 | Line 52 | object MainForm: TMainForm
52		Top = 2
53		Action = Save
54		end
55	+	object ToolButton6: TToolButton
56	+	Left = 83
57	+	Height = 22
58	+	Top = 2
59	+	Caption = 'ToolButton6'
60	+	Style = tbsSeparator
61	+	end
62	+	object ToolButton7: TToolButton
63	+	Left = 91
64	+	Top = 2
65	+	Action = RunScript
66	+	end
67		end
68		object StatusBar1: TStatusBar
69		Left = 0
70		Height = 22
71	<	Top = 574
72	<	Width = 939
71	>	Top = 576
72	>	Width = 976
73		Panels = <>
74		end
75		object PageControl1: TPageControl
76		Left = 0
77	<	Height = 548
77	>	Height = 550
78		Top = 26
79	<	Width = 939
80	<	ActivePage = Properties
79	>	Width = 976
80	>	ActivePage = UserManagerTab
81		Align = alClient
82		MultiLine = True
83		ParentShowHint = False
84		ShowHint = True
85	<	TabIndex = 0
85	>	TabIndex = 6
86		TabOrder = 2
87		Options = [nboMultiLine]
88		object Properties: TTabSheet
89		Caption = 'Properties'
90	<	ClientHeight = 516
91	<	ClientWidth = 933
90	>	ClientHeight = 517
91	>	ClientWidth = 970
92		OnShow = PropertiesShow
93		object Panel7: TPanel
94		Left = 0
95	<	Height = 516
95	>	Height = 517
96		Top = 0
97	<	Width = 933
97	>	Width = 970
98		Align = alClient
99		BevelOuter = bvNone
100	<	ClientHeight = 516
101	<	ClientWidth = 933
100	>	ClientHeight = 517
101	>	ClientWidth = 970
102		Color = clWindow
103		ParentColor = False
104		TabOrder = 0
105		object Label6: TLabel
106		Left = 71
107	<	Height = 14
107	>	Height = 13
108		Top = 20
109		Width = 39
110		Caption = 'Server'
#	Line 99 | Line 112 | object MainForm: TMainForm
112		end
113		object Label2: TLabel
114		Left = 15
115	<	Height = 14
115	>	Height = 13
116		Top = 52
117		Width = 95
118		Caption = 'Database Name'
#	Line 107 | Line 120 | object MainForm: TMainForm
120		end
121		object Label9: TLabel
122		Left = 19
123	<	Height = 14
123	>	Height = 13
124		Top = 83
125		Width = 91
126		Caption = 'Connect String'
#	Line 123 | Line 136 | object MainForm: TMainForm
136		end
137		object Label1: TLabel
138		Left = 40
139	<	Height = 14
139	>	Height = 13
140		Top = 117
141		Width = 73
142		Caption = 'ODS Version'
#	Line 140 | Line 153 | object MainForm: TMainForm
153		end
154		object Label4: TLabel
155		Left = 19
156	<	Height = 14
156	>	Height = 13
157		Top = 150
158		Width = 91
159		Caption = 'Svr Version No.'
#	Line 156 | Line 169 | object MainForm: TMainForm
169		Text = 'ServerVersionNo'
170		end
171		object Label5: TLabel
172	<	Left = 41
173	<	Height = 14
174	<	Top = 183
172	>	Left = 789
173	>	Height = 13
174	>	Top = 23
175		Width = 69
176		Caption = 'SQL Dialect'
177		ParentColor = False
178		end
179		object DBSQLDialect: TEdit
180	<	Left = 120
180	>	Left = 865
181		Height = 24
182	<	Top = 176
183	<	Width = 266
182	>	Top = 16
183	>	Width = 89
184	>	Alignment = taRightJustify
185		NumbersOnly = True
186		OnEditingDone = DBSQLDialectEditingDone
187		TabOrder = 3
#	Line 175 | Line 189 | object MainForm: TMainForm
189		end
190		object Label24: TLabel
191		Left = 51
192	<	Height = 14
192	>	Height = 13
193		Top = 211
194		Width = 60
195		Caption = 'DB Owner'
#	Line 183 | Line 197 | object MainForm: TMainForm
197		end
198		object Label18: TLabel
199		Left = 24
200	<	Height = 14
200	>	Height = 13
201		Top = 244
202		Width = 86
203		Caption = 'Sec. Database'
#	Line 191 | Line 205 | object MainForm: TMainForm
205		end
206		object Label13: TLabel
207		Left = 28
208	<	Height = 14
208	>	Height = 13
209		Top = 277
210		Width = 83
211		Caption = 'Character Set'
#	Line 231 | Line 245 | object MainForm: TMainForm
245		Left = 111
246		Height = 22
247		Top = 311
248	<	Width = 84
248	>	Width = 85
249		Caption = 'Read Only'
250		OnChange = DBIsReadOnlyChange
251		TabOrder = 6
#	Line 267 | Line 281 | object MainForm: TMainForm
281		Left = 111
282		Height = 22
283		Top = 407
284	<	Width = 239
284	>	Width = 241
285		Caption = 'Space Reserved for Backup Records'
286		OnChange = NoReserveChange
287		TabOrder = 10
288		end
275	–	object AutoAdmin: TCheckBox
276	–	Left = 112
277	–	Height = 22
278	–	Top = 432
279	–	Width = 151
280	–	Caption = 'Auto Admin Mapping'
281	–	OnChange = AutoAdminChange
282	–	TabOrder = 11
283	–	end
289		object Label11: TLabel
290	<	Left = 435
291	<	Height = 14
292	<	Top = 26
293	<	Width = 93
290	>	Left = 764
291	>	Height = 13
292	>	Top = 52
293	>	Width = 94
294	>	Anchors = [akTop, akRight]
295		Caption = 'Pages Allocated'
296		ParentColor = False
297		end
298		object AllocatedPages: TEdit
299	<	Left = 533
299	>	Left = 865
300		Height = 24
301	<	Top = 20
301	>	Top = 48
302		Width = 89
303		Alignment = taRightJustify
304	+	Anchors = [akTop, akRight]
305		ReadOnly = True
306	<	TabOrder = 12
306	>	TabOrder = 11
307		Text = 'AllocatedPages'
308		end
309		object Label19: TLabel
310		Left = 472
311	<	Height = 14
312	<	Top = 57
313	<	Width = 56
311	>	Height = 13
312	>	Top = 22
313	>	Width = 57
314		Caption = 'Page Size'
315		ParentColor = False
316		end
317		object Label3: TLabel
318	<	Left = 460
319	<	Height = 14
320	<	Top = 88
321	<	Width = 68
318	>	Left = 790
319	>	Height = 13
320	>	Top = 85
321	>	Width = 69
322	>	Anchors = [akTop, akRight]
323		Caption = 'Pages Used'
324		ParentColor = False
325		end
326		object PagesUsed: TEdit
327	<	Left = 533
327	>	Left = 865
328		Height = 24
329	<	Top = 82
329	>	Top = 80
330		Width = 89
331		Alignment = taRightJustify
332	+	Anchors = [akTop, akRight]
333		ReadOnly = True
334	<	TabOrder = 13
334	>	TabOrder = 12
335		Text = 'PagesUsed'
336		end
337		object Label10: TLabel
338	<	Left = 438
339	<	Height = 14
340	<	Top = 119
341	<	Width = 90
338	>	Left = 767
339	>	Height = 13
340	>	Top = 118
341	>	Width = 92
342	>	Anchors = [akTop, akRight]
343		Caption = 'Pages Available'
344		ParentColor = False
345		end
346		object PagesAvail: TEdit
347	<	Left = 533
347	>	Left = 865
348		Height = 24
349	<	Top = 113
349	>	Top = 112
350		Width = 89
351		Alignment = taRightJustify
352	+	Anchors = [akTop, akRight]
353		ReadOnly = True
354	<	TabOrder = 14
354	>	TabOrder = 13
355		Text = 'PagesAvail'
356		end
357		object Label12: TLabel
358	<	Left = 430
359	<	Height = 14
360	<	Top = 150
358	>	Left = 432
359	>	Height = 13
360	>	Top = 52
361		Width = 98
362		Caption = 'Current Memory'
363		ParentColor = False
364		end
365		object Edit10: TEdit
366	<	Left = 533
366	>	Left = 535
367		Height = 24
368	<	Top = 144
368	>	Top = 48
369		Width = 89
370		Alignment = taRightJustify
371		ReadOnly = True
372	<	TabOrder = 15
372	>	TabOrder = 14
373		Text = 'Edit10'
374		end
375		object Label20: TLabel
376		Left = 632
377	<	Height = 14
378	<	Top = 57
377	>	Height = 13
378	>	Top = 22
379		Width = 33
380		Caption = 'bytes'
381		ParentColor = False
382		end
383		object Label21: TLabel
384	<	Left = 632
385	<	Height = 14
386	<	Top = 149
384	>	Left = 634
385	>	Height = 13
386	>	Top = 57
387		Width = 33
388		Caption = 'bytes'
389		ParentColor = False
390		end
391		object Label14: TLabel
392	<	Left = 452
393	<	Height = 14
394	<	Top = 181
392	>	Left = 454
393	>	Height = 13
394	>	Top = 85
395		Width = 76
396		Caption = 'Max Memory'
397		ParentColor = False
398		end
399		object Edit11: TEdit
400	<	Left = 533
400	>	Left = 536
401		Height = 24
402	<	Top = 175
402	>	Top = 80
403		Width = 89
404		Alignment = taRightJustify
405		ReadOnly = True
406	<	TabOrder = 16
406	>	TabOrder = 15
407		Text = 'Edit11'
408		end
409		object Label22: TLabel
410	<	Left = 632
411	<	Height = 14
412	<	Top = 182
410	>	Left = 635
411	>	Height = 13
412	>	Top = 85
413		Width = 33
414		Caption = 'bytes'
415		ParentColor = False
416		end
417		object Label15: TLabel
418	<	Left = 447
419	<	Height = 14
420	<	Top = 212
418	>	Left = 778
419	>	Height = 13
420	>	Top = 150
421		Width = 81
422	+	Anchors = [akTop, akRight]
423		Caption = 'No. of Buffers'
424		ParentColor = False
425		end
426		object PageBuffers: TEdit
427	<	Left = 533
427	>	Left = 865
428		Height = 24
429	<	Top = 206
429	>	Top = 141
430		Width = 89
431		Alignment = taRightJustify
432	+	Anchors = [akTop, akRight]
433		NumbersOnly = True
434		OnEditingDone = PageBuffersEditingDone
435	<	TabOrder = 17
435	>	TabOrder = 16
436		Text = 'PageBuffers'
437		end
438	<	object Label23: TLabel
439	<	Left = 430
440	<	Height = 14
441	<	Top = 245
438	>	object DateDBCreatedLabel: TLabel
439	>	Left = 8
440	>	Height = 13
441	>	Top = 180
442		Width = 100
443	+	Anchors = [akTop, akRight]
444		Caption = 'Date DB Created'
445		ParentColor = False
446		end
433	–	object DBEdit1: TDBEdit
434	–	Left = 533
435	–	Height = 24
436	–	Top = 240
437	–	Width = 132
438	–	DataField = 'MON$CREATION_DATE'
439	–	DataSource = DatabaseSource
440	–	ReadOnly = True
441	–	CharCase = ecNormal
442	–	MaxLength = 0
443	–	TabOrder = 18
444	–	end
447		object Label16: TLabel
448	<	Left = 453
449	<	Height = 14
450	<	Top = 317
448	>	Left = 456
449	>	Height = 13
450	>	Top = 117
451		Width = 75
452		Caption = 'Linger Delay'
453		ParentColor = False
454		end
455		object LingerDelay: TEdit
456	<	Left = 533
456	>	Left = 536
457		Height = 24
458	<	Top = 311
458	>	Top = 112
459		Width = 89
460		Alignment = taRightJustify
461		NumbersOnly = True
462		OnEditingDone = LingerDelayEditingDone
463	<	TabOrder = 19
463	>	TabOrder = 17
464		Text = 'LingerDelay'
465		end
466		object Label17: TLabel
467		Left = 632
468	<	Height = 14
469	<	Top = 317
468	>	Height = 13
469	>	Top = 118
470		Width = 49
471		Caption = 'seconds'
472		ParentColor = False
473		end
474		object Label7: TLabel
475	<	Left = 400
476	<	Height = 14
477	<	Top = 347
475	>	Left = 402
476	>	Height = 13
477	>	Top = 151
478		Width = 128
479		Caption = 'S&weep Interval set to'
480		FocusControl = SweepInterval
481		ParentColor = False
482		end
483		object SweepInterval: TEdit
484	<	Left = 533
484	>	Left = 535
485		Height = 24
486	<	Top = 342
486	>	Top = 144
487		Width = 89
488		Alignment = taRightJustify
489		NumbersOnly = True
490		OnEditingDone = SweepIntervalEditingDone
491	<	TabOrder = 20
491	>	TabOrder = 18
492		Text = 'SweepInterval'
493		end
494		object Label8: TLabel
495		Left = 632
496	<	Height = 14
497	<	Top = 347
498	<	Width = 74
496	>	Height = 13
497	>	Top = 151
498	>	Width = 75
499		Caption = 'Transactions'
500		ParentColor = False
501		end
502		object DBEdit4: TDBEdit
503	<	Left = 533
503	>	Left = 536
504		Height = 24
505	<	Top = 52
505	>	Top = 16
506		Width = 89
507		DataField = 'MON$PAGE_SIZE'
508		DataSource = DatabaseSource
509		CharCase = ecNormal
510		MaxLength = 0
511	<	TabOrder = 21
511	>	TabOrder = 19
512		end
513		object Edit1: TEdit
514		Left = 121
#	Line 514 | Line 516 | object MainForm: TMainForm
516		Top = 16
517		Width = 263
518		ParentFont = False
519	<	TabOrder = 22
519	>	TabOrder = 20
520		Text = 'Edit1'
521		end
522		object SecDatabase: TEdit
#	Line 523 | Line 525 | object MainForm: TMainForm
525		Top = 241
526		Width = 263
527		ReadOnly = True
528	<	TabOrder = 23
528	>	TabOrder = 21
529		Text = 'SecDatabase'
530		end
531		object DBOwner: TEdit
#	Line 532 | Line 534 | object MainForm: TMainForm
534		Top = 208
535		Width = 264
536		ReadOnly = True
537	<	TabOrder = 24
537	>	TabOrder = 22
538		Text = 'DBOwner'
539		end
540		object DatabaseAliasName: TEdit
#	Line 541 | Line 543 | object MainForm: TMainForm
543		Top = 48
544		Width = 264
545		ReadOnly = True
546	<	TabOrder = 25
546	>	TabOrder = 23
547		Text = 'DatabaseAliasName'
548		end
549	+	object Label43: TLabel
550	+	Left = 400
551	+	Height = 13
552	+	Top = 398
553	+	Width = 65
554	+	Caption = 'Comments'
555	+	ParentColor = False
556	+	end
557	+	object DBComments: TMemo
558	+	Left = 400
559	+	Height = 80
560	+	Top = 414
561	+	Width = 549
562	+	Anchors = [akTop, akLeft, akRight, akBottom]
563	+	Lines.Strings = (
564	+	'DBComments'
565	+	)
566	+	OnEditingDone = DBCommentsEditingDone
567	+	ScrollBars = ssAutoVertical
568	+	TabOrder = 24
569	+	end
570	+	object ClientLibrary: TLabel
571	+	Left = 873
572	+	Height = 13
573	+	Top = 503
574	+	Width = 76
575	+	Alignment = taRightJustify
576	+	Anchors = [akRight, akBottom]
577	+	Caption = 'ClientLibrary'
578	+	ParentColor = False
579	+	end
580	+	object Label44: TLabel
581	+	Left = 402
582	+	Height = 13
583	+	Top = 272
584	+	Width = 203
585	+	Caption = 'Client/Server Version and Protocol'
586	+	ParentColor = False
587	+	end
588	+	object ClientServerVersion: TMemo
589	+	Left = 400
590	+	Height = 104
591	+	Top = 288
592	+	Width = 548
593	+	Anchors = [akTop, akLeft, akRight]
594	+	Font.Height = -11
595	+	ParentFont = False
596	+	ScrollBars = ssAutoVertical
597	+	TabOrder = 25
598	+	end
599	+	object DBDateCreated: TEdit
600	+	Left = 121
601	+	Height = 24
602	+	Top = 176
603	+	Width = 263
604	+	TabOrder = 26
605	+	Text = 'DBDateCreated'
606	+	end
607		end
608		end
609		object FilesTab: TTabSheet
610		Caption = 'Files'
611	<	ClientHeight = 516
612	<	ClientWidth = 933
611	>	ClientHeight = 517
612	>	ClientWidth = 970
613		OnShow = FilesTabShow
614		object Label25: TLabel
615		Left = 16
616	<	Height = 14
616	>	Height = 15
617		Top = 16
618		Width = 129
619		Caption = 'Primary Database File'
#	Line 561 | Line 621 | object MainForm: TMainForm
621		end
622		object PrimaryDBFile: TEdit
623		Left = 16
624	<	Height = 24
624	>	Height = 25
625		Top = 32
626	<	Width = 474
626	>	Width = 553
627		Anchors = [akTop, akLeft, akRight]
628		ReadOnly = True
629		TabOrder = 0
#	Line 571 | Line 631 | object MainForm: TMainForm
631		end
632		object Label26: TLabel
633		Left = 16
634	<	Height = 14
634	>	Height = 15
635		Top = 72
636		Width = 93
637		Caption = 'Secondary Files'
#	Line 581 | Line 641 | object MainForm: TMainForm
641		Left = 16
642		Height = 160
643		Top = 88
644	<	Width = 763
644	>	Width = 842
645		Anchors = [akTop, akLeft, akRight]
646		Color = clWindow
647		Columns = <
#	Line 639 | Line 699 | object MainForm: TMainForm
699		DefaultPositionAtEnd = False
700		end
701		object AddFileBtn: TButton
702	<	Left = 795
702	>	Left = 874
703		Height = 25
704		Top = 88
705		Width = 91
#	Line 649 | Line 709 | object MainForm: TMainForm
709		end
710		object Label27: TLabel
711		Left = 16
712	<	Height = 14
712	>	Height = 15
713		Top = 264
714		Width = 77
715		Caption = 'Shadow Files'
#	Line 657 | Line 717 | object MainForm: TMainForm
717		end
718		object IBDynamicGrid2: TIBDynamicGrid
719		Left = 16
720	<	Height = 200
720	>	Height = 197
721		Top = 280
722	<	Width = 763
722	>	Width = 842
723		Anchors = [akTop, akLeft, akRight, akBottom]
724		Color = clWindow
725		Columns = <
#	Line 740 | Line 800 | object MainForm: TMainForm
800		DefaultPositionAtEnd = False
801		end
802		object AddShadowBtn: TButton
803	<	Left = 795
803	>	Left = 874
804		Height = 25
805		Top = 280
806		Width = 91
#	Line 749 | Line 809 | object MainForm: TMainForm
809		TabOrder = 4
810		end
811		object RemoveShadowBtn: TButton
812	<	Left = 795
812	>	Left = 874
813		Height = 25
814		Top = 312
815		Width = 91
#	Line 760 | Line 820 | object MainForm: TMainForm
820		end
821		object AttachmentsTab: TTabSheet
822		Caption = 'Attachments'
823	<	ClientHeight = 516
824	<	ClientWidth = 933
823	>	ClientHeight = 517
824	>	ClientWidth = 970
825		OnHide = AttachmentsTabHide
826		OnShow = AttachmentsTabShow
827		object AttmtGrid: TIBDynamicGrid
828		Left = 0
829	<	Height = 516
829	>	Height = 519
830		Top = 0
831	<	Width = 933
831	>	Width = 970
832		Align = alClient
833		Color = clWindow
834		Columns = <
835		item
836	+	ReadOnly = True
837		Title.Alignment = taCenter
838		Title.Caption = 'ID'
839		Width = 40
#	Line 784 | Line 845 | object MainForm: TMainForm
845		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
846		end
847		item
848	+	ReadOnly = True
849		Title.Alignment = taCenter
850		Title.Caption = 'Connect Str'
851		Width = 100
#	Line 795 | Line 857 | object MainForm: TMainForm
857		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
858		end
859		item
860	+	ReadOnly = True
861		Title.Alignment = taCenter
862		Title.Caption = 'Client'
863		Width = 120
#	Line 806 | Line 869 | object MainForm: TMainForm
869		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
870		end
871		item
872	+	ReadOnly = True
873		Title.Alignment = taCenter
874		Title.Caption = 'Client Name'
875		Width = 100
#	Line 817 | Line 881 | object MainForm: TMainForm
881		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
882		end
883		item
884	+	ReadOnly = True
885		Title.Alignment = taCenter
886		Title.Caption = 'User'
887		Width = 80
#	Line 828 | Line 893 | object MainForm: TMainForm
893		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
894		end
895		item
896	+	ReadOnly = True
897		Title.Alignment = taCenter
898		Title.Caption = 'Role'
899		Width = 80
#	Line 839 | Line 905 | object MainForm: TMainForm
905		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
906		end
907		item
908	+	ReadOnly = True
909		Title.Alignment = taCenter
910		Title.Caption = 'IP Address'
911		Width = 100
#	Line 851 | Line 918 | object MainForm: TMainForm
918		end
919		item
920		Alignment = taCenter
921	+	ReadOnly = True
922		Title.Alignment = taCenter
923		Title.Caption = 'Protocol'
924		Width = 60
#	Line 862 | Line 930 | object MainForm: TMainForm
930		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
931		end
932		item
933	+	ReadOnly = True
934		Title.Alignment = taCenter
935		Title.Caption = 'Char Set'
936		Width = 60
#	Line 874 | Line 943 | object MainForm: TMainForm
943		end
944		item
945		Alignment = taCenter
946	+	ReadOnly = True
947		Title.Alignment = taCenter
948		Title.Caption = 'State'
949		Width = 60
#	Line 885 | Line 955 | object MainForm: TMainForm
955		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
956		end>
957		DataSource = AttachSource
958	+	Options = [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
959		PopupMenu = AttmtPopup
960		Scrollbars = ssAutoVertical
961		TabOrder = 0
#	Line 926 | Line 997 | object MainForm: TMainForm
997		Width = 48
998		DataField = 'MON$SERVER_PID'
999		DataSource = AttachSource
1000	+	ReadOnly = True
1001		CharCase = ecNormal
1002		MaxLength = 0
1003		TabOrder = 0
#	Line 937 | Line 1009 | object MainForm: TMainForm
1009		Width = 48
1010		DataField = 'MON$REMOTE_PID'
1011		DataSource = AttachSource
1012	+	ReadOnly = True
1013		CharCase = ecNormal
1014		MaxLength = 0
1015		TabOrder = 1
#	Line 949 | Line 1022 | object MainForm: TMainForm
1022		Caption = 'Garbage Collection Allowed'
1023		DataField = 'MON$GARBAGE_COLLECTION'
1024		DataSource = AttachSource
1025	+	ReadOnly = True
1026		TabOrder = 2
1027		ValueChecked = '1'
1028		ValueUnchecked = '0'
#	Line 968 | Line 1042 | object MainForm: TMainForm
1042		Width = 64
1043		DataField = 'MON$STAT_ID'
1044		DataSource = AttachSource
1045	+	ReadOnly = True
1046		CharCase = ecNormal
1047		MaxLength = 0
1048		TabOrder = 3
#	Line 1024 | Line 1099 | object MainForm: TMainForm
1099		end
1100		object StatisticsTab: TTabSheet
1101		Caption = 'Statistics'
1102	<	ClientHeight = 516
1103	<	ClientWidth = 933
1102	>	ClientHeight = 517
1103	>	ClientWidth = 970
1104		OnHide = StatisticsTabHide
1105		OnShow = StatisticsTabShow
1106		object StatsOptions: TComboBox
1107	<	Left = 667
1107	>	Left = 732
1108		Height = 27
1109		Top = 8
1110		Width = 228
#	Line 1057 | Line 1132 | object MainForm: TMainForm
1132		end
1133		object StatsMemo: TMemo
1134		Left = 8
1135	<	Height = 423
1135	>	Height = 464
1136		Top = 40
1137	<	Width = 883
1137	>	Width = 952
1138		Anchors = [akTop, akLeft, akRight, akBottom]
1139		Lines.Strings = (
1140		'Memo1'
#	Line 1070 | Line 1145 | object MainForm: TMainForm
1145		end
1146		object SchemaTab: TTabSheet
1147		Caption = 'Schema'
1148	<	ClientHeight = 516
1149	<	ClientWidth = 933
1148	>	ClientHeight = 517
1149	>	ClientWidth = 970
1150		OnShow = SchemaTabShow
1151		inline SynEdit1: TSynEdit
1152		Left = 0
1153		Height = 495
1154		Top = 0
1155	<	Width = 933
1155	>	Width = 970
1156		Align = alTop
1157		Anchors = [akTop, akLeft, akRight, akBottom]
1158		Font.Height = -11
#	Line 1588 | Line 1663 | object MainForm: TMainForm
1663		end
1664		object ServerTab: TTabSheet
1665		Caption = 'Server'
1666	<	ClientHeight = 516
1667	<	ClientWidth = 933
1666	>	ClientHeight = 517
1667	>	ClientWidth = 970
1668		OnHide = ServerTabHide
1669		OnShow = ServerTabShow
1670		object Panel1: TPanel
1671		Left = 0
1672	<	Height = 516
1672	>	Height = 519
1673		Top = 0
1674	<	Width = 370
1674	>	Width = 491
1675		Align = alLeft
1676		BevelOuter = bvNone
1677	<	ClientHeight = 516
1678	<	ClientWidth = 370
1677	>	ClientHeight = 519
1678	>	ClientWidth = 491
1679		TabOrder = 0
1680		object Label29: TLabel
1681		Left = 5
#	Line 1610 | Line 1685 | object MainForm: TMainForm
1685		Caption = 'Properties'
1686		ParentColor = False
1687		end
1688	<	object ServerPropMemo: TMemo
1688	>	object Label53: TLabel
1689		Left = 8
1690	<	Height = 481
1691	<	Top = 26
1692	<	Width = 353
1693	<	Anchors = [akTop, akLeft, akRight, akBottom]
1690	>	Height = 14
1691	>	Top = 296
1692	>	Width = 98
1693	>	Caption = 'Open Databases'
1694	>	ParentColor = False
1695	>	end
1696	>	object OpenDatabasesList: TMemo
1697	>	Left = 8
1698	>	Height = 90
1699	>	Top = 312
1700	>	Width = 480
1701	>	Anchors = [akTop, akLeft, akRight]
1702		Lines.Strings = (
1703	<	'ServerPropMemo'
1703	>	''
1704		)
1705	<	ScrollBars = ssAutoBoth
1705	>	ScrollBars = ssAutoVertical
1706		TabOrder = 0
1707		end
1708	+	object ConfigDataLabel: TLabel
1709	+	Left = 8
1710	+	Height = 14
1711	+	Top = 408
1712	+	Width = 71
1713	+	Caption = 'Config Data'
1714	+	ParentColor = False
1715	+	end
1716	+	object ConfigDataGrid: TIBDynamicGrid
1717	+	Left = 8
1718	+	Height = 85
1719	+	Top = 424
1720	+	Width = 480
1721	+	Anchors = [akTop, akLeft, akRight, akBottom]
1722	+	Color = clWindow
1723	+	Columns = <
1724	+	item
1725	+	Title.Alignment = taCenter
1726	+	Title.Caption = 'Description'
1727	+	Width = 100
1728	+	FieldName = 'ParamDescription'
1729	+	AutoSizeColumn = True
1730	+	InitialSortColumn = False
1731	+	DBLookupProperties.ItemHeight = 0
1732	+	DBLookupProperties.ItemWidth = 0
1733	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1734	+	end
1735	+	item
1736	+	Title.Alignment = taCenter
1737	+	Title.Caption = 'Value'
1738	+	Width = 60
1739	+	FieldName = 'ParamValue'
1740	+	AutoSizeColumn = False
1741	+	InitialSortColumn = False
1742	+	DBLookupProperties.ItemHeight = 0
1743	+	DBLookupProperties.ItemWidth = 0
1744	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1745	+	end>
1746	+	DataSource = ConfigDataSource
1747	+	Scrollbars = ssAutoVertical
1748	+	TabOrder = 1
1749	+	ExpandEditorPanelBelowRow = False
1750	+	Descending = False
1751	+	EditorBorderStyle = bsSingle
1752	+	DefaultPositionAtEnd = False
1753	+	end
1754	+	object Panel10: TPanel
1755	+	Left = 6
1756	+	Height = 264
1757	+	Top = 24
1758	+	Width = 482
1759	+	Anchors = [akTop, akLeft, akRight]
1760	+	BevelInner = bvLowered
1761	+	BevelOuter = bvLowered
1762	+	ClientHeight = 264
1763	+	ClientWidth = 482
1764	+	Color = clWindow
1765	+	ParentColor = False
1766	+	TabOrder = 2
1767	+	object Label45: TLabel
1768	+	Left = 8
1769	+	Height = 14
1770	+	Top = 48
1771	+	Width = 90
1772	+	Caption = 'Server Version:'
1773	+	ParentColor = False
1774	+	end
1775	+	object Label46: TLabel
1776	+	Left = 8
1777	+	Height = 14
1778	+	Top = 102
1779	+	Width = 143
1780	+	Caption = 'Server Implementation:'
1781	+	ParentColor = False
1782	+	end
1783	+	object Label47: TLabel
1784	+	Left = 8
1785	+	Height = 14
1786	+	Top = 75
1787	+	Width = 95
1788	+	Caption = 'Service Version:'
1789	+	ParentColor = False
1790	+	end
1791	+	object Label48: TLabel
1792	+	Left = 8
1793	+	Height = 14
1794	+	Top = 129
1795	+	Width = 107
1796	+	Caption = 'Firebird Directory:'
1797	+	ParentColor = False
1798	+	end
1799	+	object Label49: TLabel
1800	+	Left = 8
1801	+	Height = 14
1802	+	Top = 156
1803	+	Width = 113
1804	+	Caption = 'Lock File Directory:'
1805	+	ParentColor = False
1806	+	end
1807	+	object Label50: TLabel
1808	+	Left = 8
1809	+	Height = 14
1810	+	Top = 183
1811	+	Width = 114
1812	+	Caption = 'Security Database:'
1813	+	ParentColor = False
1814	+	end
1815	+	object Edit2: TEdit
1816	+	Left = 160
1817	+	Height = 24
1818	+	Top = 44
1819	+	Width = 312
1820	+	Anchors = [akTop, akLeft, akRight]
1821	+	ReadOnly = True
1822	+	TabOrder = 0
1823	+	Text = 'Edit2'
1824	+	end
1825	+	object Edit3: TEdit
1826	+	Left = 160
1827	+	Height = 24
1828	+	Top = 71
1829	+	Width = 312
1830	+	Anchors = [akTop, akLeft, akRight]
1831	+	ReadOnly = True
1832	+	TabOrder = 1
1833	+	Text = 'Edit3'
1834	+	end
1835	+	object Edit4: TEdit
1836	+	Left = 160
1837	+	Height = 24
1838	+	Top = 98
1839	+	Width = 312
1840	+	Anchors = [akTop, akLeft, akRight]
1841	+	ReadOnly = True
1842	+	TabOrder = 2
1843	+	Text = 'Edit4'
1844	+	end
1845	+	object Edit5: TEdit
1846	+	Left = 160
1847	+	Height = 24
1848	+	Top = 125
1849	+	Width = 312
1850	+	Anchors = [akTop, akLeft, akRight]
1851	+	ReadOnly = True
1852	+	TabOrder = 3
1853	+	Text = 'Edit5'
1854	+	end
1855	+	object Edit6: TEdit
1856	+	Left = 160
1857	+	Height = 24
1858	+	Top = 152
1859	+	Width = 312
1860	+	Anchors = [akTop, akLeft, akRight]
1861	+	ReadOnly = True
1862	+	TabOrder = 4
1863	+	Text = 'Edit6'
1864	+	end
1865	+	object Edit7: TEdit
1866	+	Left = 160
1867	+	Height = 24
1868	+	Top = 179
1869	+	Width = 312
1870	+	Anchors = [akTop, akLeft, akRight]
1871	+	ReadOnly = True
1872	+	TabOrder = 5
1873	+	Text = 'Edit7'
1874	+	end
1875	+	object Label51: TLabel
1876	+	Left = 8
1877	+	Height = 14
1878	+	Top = 21
1879	+	Width = 78
1880	+	Caption = 'Server Name'
1881	+	ParentColor = False
1882	+	end
1883	+	object Edit8: TEdit
1884	+	Left = 160
1885	+	Height = 24
1886	+	Top = 16
1887	+	Width = 312
1888	+	Anchors = [akTop, akLeft, akRight]
1889	+	ReadOnly = True
1890	+	TabOrder = 6
1891	+	Text = 'Edit8'
1892	+	end
1893	+	object Label52: TLabel
1894	+	Left = 8
1895	+	Height = 14
1896	+	Top = 212
1897	+	Width = 142
1898	+	Caption = 'Messages File Directory:'
1899	+	ParentColor = False
1900	+	end
1901	+	object Edit9: TEdit
1902	+	Left = 160
1903	+	Height = 24
1904	+	Top = 208
1905	+	Width = 312
1906	+	Anchors = [akTop, akLeft, akRight]
1907	+	ReadOnly = True
1908	+	TabOrder = 7
1909	+	Text = 'Edit9'
1910	+	end
1911	+	object Edit12: TEdit
1912	+	Left = 160
1913	+	Height = 24
1914	+	Top = 236
1915	+	Width = 312
1916	+	ReadOnly = True
1917	+	TabOrder = 8
1918	+	Text = 'Edit12'
1919	+	end
1920	+	object Label54: TLabel
1921	+	Left = 8
1922	+	Height = 14
1923	+	Top = 240
1924	+	Width = 117
1925	+	Caption = 'No. of Attachments'
1926	+	ParentColor = False
1927	+	end
1928	+	end
1929		end
1930		object Splitter1: TSplitter
1931	<	Left = 370
1932	<	Height = 516
1931	>	Left = 491
1932	>	Height = 519
1933		Top = 0
1934		Width = 5
1935		end
1936		object Panel2: TPanel
1937	<	Left = 375
1938	<	Height = 516
1937	>	Left = 496
1938	>	Height = 519
1939		Top = 0
1940	<	Width = 558
1940	>	Width = 474
1941		Align = alClient
1942		BevelOuter = bvNone
1943	<	ClientHeight = 516
1944	<	ClientWidth = 558
1943	>	ClientHeight = 519
1944	>	ClientWidth = 474
1945		TabOrder = 2
1946		object Label30: TLabel
1947		Left = 8
#	Line 1649 | Line 1953 | object MainForm: TMainForm
1953		end
1954		object ServerLog: TMemo
1955		Left = 8
1956	<	Height = 481
1956	>	Height = 484
1957		Top = 26
1958	<	Width = 540
1958	>	Width = 456
1959		Anchors = [akTop, akLeft, akRight, akBottom]
1960		Lines.Strings = (
1961		'ServerLog'
#	Line 1663 | Line 1967 | object MainForm: TMainForm
1967		end
1968		object UserManagerTab: TTabSheet
1969		Caption = 'User Manager'
1970	<	ClientHeight = 516
1971	<	ClientWidth = 933
1970	>	ClientHeight = 517
1971	>	ClientWidth = 970
1972		OnHide = UserManagerTabHide
1973		OnShow = UserManagerTabShow
1974		object Panel4: TPanel
1975		Left = 0
1976	<	Height = 516
1976	>	Height = 517
1977		Top = 0
1978	<	Width = 739
1978	>	Width = 827
1979		Align = alLeft
1980	<	ClientHeight = 516
1981	<	ClientWidth = 739
1980	>	ClientHeight = 517
1981	>	ClientWidth = 827
1982		TabOrder = 0
1983		object UserManagerGrid: TIBDynamicGrid
1984		Left = 1
1985	<	Height = 514
1985	>	Height = 515
1986		Top = 1
1987	<	Width = 737
1987	>	Width = 825
1988		Align = alClient
1989		Color = clWindow
1990		Columns = <
#	Line 1689 | Line 1993 | object MainForm: TMainForm
1993		Title.Alignment = taCenter
1994		Title.Caption = 'User Name'
1995		Width = 120
1996	<	FieldName = 'USERNAME'
1996	>	FieldName = 'SEC$USER_NAME'
1997		AutoSizeColumn = False
1998		InitialSortColumn = False
1999		DBLookupProperties.ItemHeight = 0
#	Line 1823 | Line 2127 | object MainForm: TMainForm
2127		Descending = False
2128		EditorBorderStyle = bsSingle
2129		DefaultPositionAtEnd = False
2130	<	IndexFieldNames = 'USERNAME'
2130	>	IndexFieldNames = 'SEC$USER_NAME'
2131		end
2132		end
2133		object Splitter2: TSplitter
2134	<	Left = 739
2135	<	Height = 516
2134	>	Left = 827
2135	>	Height = 517
2136		Top = 0
2137		Width = 5
2138		end
2139		object Panel3: TPanel
2140	<	Left = 744
2141	<	Height = 516
2140	>	Left = 832
2141	>	Height = 517
2142		Top = 0
2143	<	Width = 189
2143	>	Width = 138
2144		Align = alClient
2145		BevelOuter = bvNone
2146	<	ClientHeight = 516
2147	<	ClientWidth = 189
2146	>	ClientHeight = 517
2147	>	ClientWidth = 138
2148		TabOrder = 2
2149	<	object IBDynamicGrid4: TIBDynamicGrid
2149	>	object RolesGrid: TIBDynamicGrid
2150		Left = 0
2151		Height = 161
2152		Top = 50
2153	<	Width = 189
2153	>	Width = 138
2154		Align = alTop
2155		Color = clWindow
2156		Columns = <
#	Line 1884 | Line 2188 | object MainForm: TMainForm
2188		object Panel5: TPanel
2189		Left = 0
2190		Height = 61
2191	<	Top = 455
2192	<	Width = 189
2191	>	Top = 456
2192	>	Width = 138
2193		Align = alBottom
2194		BevelInner = bvLowered
2195		BevelOuter = bvLowered
2196		ClientHeight = 61
2197	<	ClientWidth = 189
2197	>	ClientWidth = 138
2198		TabOrder = 1
2199		object Button1: TButton
2200		Left = 16
2201		Height = 28
2202		Top = 16
2203	<	Width = 162
2203	>	Width = 111
2204		Action = SaveChanges
2205		Anchors = [akTop, akLeft, akRight]
2206		TabOrder = 0
2207		end
2208		end
2209	<	object Panel6: TPanel
2209	>	object RolesHeaderPanel: TPanel
2210		Left = 0
2211		Height = 50
2212		Top = 0
2213	<	Width = 189
2213	>	Width = 138
2214		Align = alTop
2215		BevelInner = bvLowered
2216		BevelOuter = bvLowered
2217		ClientHeight = 50
2218	<	ClientWidth = 189
2218	>	ClientWidth = 138
2219		TabOrder = 2
2220		object DBText1: TDBText
2221		Left = 10
2222	<	Height = 14
2222	>	Height = 13
2223		Top = 30
2224		Width = 49
2225	<	DataField = 'USERNAME'
2225	>	DataField = 'SEC$USER_NAME'
2226		DataSource = UserListSource
2227		ParentColor = False
2228		end
2229		object Label36: TLabel
2230		Left = 10
2231	<	Height = 14
2231	>	Height = 13
2232		Top = 10
2233	<	Width = 104
2233	>	Width = 105
2234		Caption = 'Roles Assigned to'
2235		ParentColor = False
2236		end
#	Line 1936 | Line 2240 | object MainForm: TMainForm
2240		Left = 0
2241		Height = 5
2242		Top = 211
2243	<	Width = 189
2243	>	Width = 138
2244		Align = alTop
2245		ResizeAnchor = akTop
2246		end
#	Line 1944 | Line 2248 | object MainForm: TMainForm
2248		Left = 0
2249		Height = 26
2250		Top = 216
2251	<	Width = 189
2251	>	Width = 138
2252		Align = alTop
2253		BevelInner = bvRaised
2254		Caption = 'Tags'
#	Line 1952 | Line 2256 | object MainForm: TMainForm
2256		end
2257		object TagsGrid: TIBDynamicGrid
2258		Left = 0
2259	<	Height = 208
2259	>	Height = 209
2260		Top = 242
2261	<	Width = 189
2261	>	Width = 138
2262		Align = alClient
2263		Color = clWindow
2264		Columns = <
#	Line 1993 | Line 2297 | object MainForm: TMainForm
2297		Cursor = crVSplit
2298		Left = 0
2299		Height = 5
2300	<	Top = 450
2301	<	Width = 189
2300	>	Top = 451
2301	>	Width = 138
2302		Align = alBottom
2303		ResizeAnchor = akBottom
2304		end
#	Line 2002 | Line 2306 | object MainForm: TMainForm
2306		end
2307		object AccessRightsTab: TTabSheet
2308		Caption = 'Access Rights'
2309	<	ClientHeight = 516
2310	<	ClientWidth = 933
2309	>	ClientHeight = 517
2310	>	ClientWidth = 970
2311		OnHide = AccessRightsTabHide
2312		OnShow = AccessRightsTabShow
2313		object AccessRightsTreeView: TIBTreeView
2314		Left = 0
2315	<	Height = 516
2315	>	Height = 519
2316		Top = 0
2317		Width = 300
2318		Align = alLeft
#	Line 2021 | Line 2325 | object MainForm: TMainForm
2325		KeyField = 'ID'
2326		ParentField = 'PARENT'
2327		PopupMenu = AccessRightsPopup
2328	+	ReadOnly = True
2329		TabOrder = 0
2330		OnSelectionChanged = AccessRightsTreeViewSelectionChanged
2331	+	Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
2332		end
2333		object Splitter5: TSplitter
2334		Left = 300
2335	<	Height = 516
2335	>	Height = 519
2336		Top = 0
2337		Width = 5
2338		end
2339		object SubjectAccessRightsGrid: TIBDynamicGrid
2340		Left = 305
2341	<	Height = 516
2341	>	Height = 519
2342		Top = 0
2343	<	Width = 628
2343	>	Width = 665
2344		Align = alClient
2345		Color = clWindow
2346		Columns = <
#	Line 2085 | Line 2391 | object MainForm: TMainForm
2391		item
2392		ButtonStyle = cbsCheckboxColumn
2393		Title.Caption = 'Grant Opt'
2394	<	Width = 64
2394	>	Width = 80
2395		FieldName = 'GRANT_OPTION'
2396		AutoSizeColumn = False
2397		InitialSortColumn = False
#	Line 2105 | Line 2411 | object MainForm: TMainForm
2411		end
2412		object MappingsTab: TTabSheet
2413		Caption = 'Auth Mappings'
2414	<	ClientHeight = 516
2415	<	ClientWidth = 933
2414	>	ClientHeight = 517
2415	>	ClientWidth = 970
2416		OnHide = MappingsTabHide
2417		OnShow = MappingsTabShow
2418		object IBDynamicGrid5: TIBDynamicGrid
2419		Left = 0
2420	<	Height = 516
2421	<	Top = 0
2422	<	Width = 933
2423	<	Align = alClient
2420	>	Height = 492
2421	>	Top = 24
2422	>	Width = 973
2423	>	Anchors = [akTop, akLeft, akRight, akBottom]
2424		Color = clWindow
2425		Columns = <
2426		item
#	Line 2153 | Line 2459 | object MainForm: TMainForm
2459		item
2460		Title.Alignment = taCenter
2461		Title.Caption = 'Database'
2462	<	Width = 150
2462	>	Width = 120
2463		FieldName = 'RDB$MAP_DB'
2464		AutoSizeColumn = False
2465		InitialSortColumn = False
#	Line 2164 | Line 2470 | object MainForm: TMainForm
2470		item
2471		Title.Alignment = taCenter
2472		Title.Caption = 'Mapping From'
2473	<	Width = 150
2473	>	Width = 120
2474		FieldName = 'MAP_FROM'
2475		AutoSizeColumn = False
2476		InitialSortColumn = False
#	Line 2175 | Line 2481 | object MainForm: TMainForm
2481		item
2482		Title.Alignment = taCenter
2483		Title.Caption = 'Mapping To'
2484	<	Width = 150
2484	>	Width = 120
2485		FieldName = 'MAP_TO'
2486		AutoSizeColumn = False
2487		InitialSortColumn = False
#	Line 2202 | Line 2508 | object MainForm: TMainForm
2508		EditorBorderStyle = bsSingle
2509		DefaultPositionAtEnd = False
2510		end
2511	+	object AutoAdmin: TCheckBox
2512	+	Left = 816
2513	+	Height = 22
2514	+	Top = 2
2515	+	Width = 151
2516	+	Anchors = [akTop, akRight]
2517	+	Caption = 'Auto Admin Mapping'
2518	+	OnChange = AutoAdminChange
2519	+	TabOrder = 1
2520	+	end
2521		end
2522		object RepairTab: TTabSheet
2523		Caption = 'Database Repair'
2524	<	ClientHeight = 516
2525	<	ClientWidth = 933
2524	>	ClientHeight = 517
2525	>	ClientWidth = 970
2526		OnHide = RepairTabHide
2527		OnShow = RepairTabShow
2528		object SelectRepairAction: TComboBox
2529	<	Left = 656
2529	>	Left = 712
2530		Height = 27
2531		Top = 8
2532		Width = 200
#	Line 2228 | Line 2544 | object MainForm: TMainForm
2544		Text = 'Database Sweep'
2545		end
2546		object Button2: TButton
2547	<	Left = 864
2547	>	Left = 920
2548		Height = 25
2549		Top = 9
2550		Width = 35
#	Line 2328 | Line 2644 | object MainForm: TMainForm
2644		end
2645		object Panel8: TPanel
2646		Left = 10
2647	<	Height = 381
2647	>	Height = 384
2648		Top = 123
2649	<	Width = 890
2649	>	Width = 950
2650		Anchors = [akTop, akLeft, akRight, akBottom]
2651		BevelOuter = bvNone
2652		Caption = 'ValidationPanel'
2653	<	ClientHeight = 381
2654	<	ClientWidth = 890
2653	>	ClientHeight = 384
2654	>	ClientWidth = 950
2655		TabOrder = 3
2656		object DBTablesPanel: TPanel
2657		Left = 0
2658	<	Height = 381
2658	>	Height = 384
2659		Top = 0
2660		Width = 170
2661		Align = alLeft
2662		BevelOuter = bvNone
2663	<	ClientHeight = 381
2663	>	ClientHeight = 384
2664		ClientWidth = 170
2665		TabOrder = 0
2666		object Alltables: TRadioButton
#	Line 2369 | Line 2685 | object MainForm: TMainForm
2685		end
2686		object SelectedTablesGrid: TIBDynamicGrid
2687		Left = 0
2688	<	Height = 268
2688	>	Height = 271
2689		Top = 90
2690		Width = 170
2691		Anchors = [akTop, akLeft, akRight, akBottom]
#	Line 2417 | Line 2733 | object MainForm: TMainForm
2733		object SelectAllTables: TCheckBox
2734		Left = 0
2735		Height = 22
2736	<	Top = 360
2736	>	Top = 363
2737		Width = 134
2738		Anchors = [akLeft, akBottom]
2739		Caption = 'Select/Deselect All'
#	Line 2427 | Line 2743 | object MainForm: TMainForm
2743		end
2744		object DBTablesSplitter: TSplitter
2745		Left = 170
2746	<	Height = 381
2746	>	Height = 384
2747		Top = 0
2748		Width = 5
2749		end
2750		object Panel9: TPanel
2751		Left = 175
2752	<	Height = 381
2752	>	Height = 384
2753		Top = 0
2754	<	Width = 715
2754	>	Width = 775
2755		Align = alClient
2756		BevelOuter = bvNone
2757	<	ClientHeight = 381
2758	<	ClientWidth = 715
2757	>	ClientHeight = 384
2758	>	ClientWidth = 775
2759		TabOrder = 2
2760		object Label37: TLabel
2761		Left = 0
#	Line 2451 | Line 2767 | object MainForm: TMainForm
2767		end
2768		object ValidationReport: TMemo
2769		Left = 0
2770	<	Height = 357
2771	<	Top = 24
2772	<	Width = 715
2770	>	Height = 359
2771	>	Top = 25
2772	>	Width = 775
2773		Align = alBottom
2774		Anchors = [akTop, akLeft, akRight, akBottom]
2775		Lines.Strings = (
#	Line 2467 | Line 2783 | object MainForm: TMainForm
2783		end
2784		object LimboTab: TTabSheet
2785		Caption = 'Limbo Transactions'
2786	<	ClientHeight = 516
2787	<	ClientWidth = 933
2786	>	ClientHeight = 517
2787	>	ClientWidth = 970
2788		OnHide = LimboTabHide
2789		OnShow = LimboTabShow
2790		object Label38: TLabel
#	Line 2483 | Line 2799 | object MainForm: TMainForm
2799		Left = 13
2800		Height = 242
2801		Top = 24
2802	<	Width = 909
2802	>	Width = 947
2803		Anchors = [akTop, akLeft, akRight]
2804		Color = clWindow
2805		Columns = <
#	Line 2643 | Line 2959 | object MainForm: TMainForm
2959		Left = 16
2960		Height = 178
2961		Top = 296
2962	<	Width = 906
2962	>	Width = 947
2963		Anchors = [akTop, akLeft, akRight, akBottom]
2964		Lines.Strings = (
2965		'LimboReport'
#	Line 2653 | Line 2969 | object MainForm: TMainForm
2969		end
2970		end
2971		object UpdateColsPanel: TPanel
2972	<	Left = 328
2972	>	Left = 40
2973		Height = 64
2974	<	Top = 128
2974	>	Top = 488
2975		Width = 544
2976		BevelOuter = bvNone
2977		BorderStyle = bsSingle
#	Line 2664 | Line 2980 | object MainForm: TMainForm
2980		TabOrder = 3
2981		object Label41: TLabel
2982		Left = 32
2983	<	Height = 14
2983	>	Height = 13
2984		Top = 8
2985		Width = 100
2986		Caption = 'Update Columns'
#	Line 2674 | Line 2990 | object MainForm: TMainForm
2990		Left = 144
2991		Height = 24
2992		Top = 4
2993	<	Width = 388
2993	>	Width = 386
2994		DataField = 'UPDATE_COLUMNS'
2995		DataSource = SubjectAccessRightsSource
2996		Anchors = [akTop, akLeft, akRight]
#	Line 2683 | Line 2999 | object MainForm: TMainForm
2999		TabOrder = 0
3000		end
3001		object Label42: TLabel
3002	<	Left = 8
3003	<	Height = 14
3004	<	Top = 40
3005	<	Width = 123
3002	>	Left = 9
3003	>	Height = 13
3004	>	Top = 35
3005	>	Width = 124
3006		Caption = 'Referenced Columns'
3007		ParentColor = False
3008		end
#	Line 2694 | Line 3010 | object MainForm: TMainForm
3010		Left = 144
3011		Height = 24
3012		Top = 35
3013	<	Width = 388
3013	>	Width = 386
3014		DataField = 'REFERENCE_COLUMNS'
3015		DataSource = SubjectAccessRightsSource
3016		Anchors = [akTop, akLeft, akRight]
#	Line 2704 | Line 3020 | object MainForm: TMainForm
3020		end
3021		end
3022		object MainMenu1: TMainMenu
3023	<	left = 712
3024	<	top = 64
3023	>	Left = 720
3024	>	Top = 80
3025		object MenuItem1: TMenuItem
3026		Caption = 'File'
3027		object MenuItem6: TMenuItem
#	Line 2723 | Line 3039 | object MainForm: TMainForm
3039		object MenuItem5: TMenuItem
3040		Action = Restore
3041		end
3042	+	object MenuItem21: TMenuItem
3043	+	Caption = '-'
3044	+	end
3045	+	object MenuItem20: TMenuItem
3046	+	Action = RunScript
3047	+	end
3048		object MenuItem10: TMenuItem
3049		Caption = '-'
3050		end
#	Line 2739 | Line 3061 | object MainForm: TMainForm
3061		end
3062		object ActionList1: TActionList
3063		Images = MenuImages
3064	<	left = 712
3065	<	top = 128
3064	>	Left = 712
3065	>	Top = 128
3066		object Quit: TAction
3067		Category = 'General'
3068		Caption = 'Exit'
3069	+	OnExecute = QuitExecute
3070		end
3071		object Backup: TAction
3072		Category = 'General'
#	Line 2882 | Line 3205 | object MainForm: TMainForm
3205		OnExecute = RevokeAllExecute
3206		OnUpdate = RevokeAllUpdate
3207		end
3208	+	object RunScript: TAction
3209	+	Category = 'General'
3210	+	Caption = 'Run SQL Script'
3211	+	Hint = 'Run SQL Script'
3212	+	ImageIndex = 5
3213	+	OnExecute = RunScriptExecute
3214	+	end
3215		end
3216		object MenuImages: TImageList
3217	<	left = 704
3218	<	top = 184
3217	>	Left = 704
3218	>	Top = 184
3219		Bitmap = {
3220	<	4C69050000001000000010000000000000000000000000000000000000000000
3220	>	4C69060000001000000010000000000000000000000000000000000000000000
3221		0000000000000000000000000000000000000000000000000000000000FF0000
3222		00FF000000FF000000FF000000FF000000000000000000000000000000000000
3223		00000000000000000000000084FF0000000000000000000000FF848400FFFFFF
#	Line 3047 | Line 3377 | object MainForm: TMainForm
3377		EB08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00211FE3081E1C
3378		E241FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3379		FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3380	<	FF00FFFFFF00FFFFFF00FFFFFF00
3380	>	FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3381	>	FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00858A88FF858A88FF858A
3382	>	88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3383	>	FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00808080026A6E6CFFECEEEEFF6A6E
3384	>	6CFF80808002FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3385	>	FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF01414342FEF2F3F2FFFEFEFEFFF2F3
3386	>	F2FF414342FEFFFFFF01FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3387	>	FF00FFFFFF00FFFFFF00858A88FF6A6E6CFFF1F1F1FFACADADFB717473FAACAD
3388	>	ADFBF1F1F1FF6A6E6CFF858A88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3389	>	FF00FFFFFF00FFFFFF00858A88FFECEEEEFFFEFEFEFF717573FBFFFFFF017175
3390	>	73FBFEFEFEFFECEEEEFF858A88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3391	>	FF00FFFFFF00FFFFFF00858A88FF6A6E6CFFF1F1F1FFACADADFB717473FAACAD
3392	>	ADFBF1F1F1FF6A6E6CFF858A88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3393	>	FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF01414342FEF2F3F2FFFEFEFEFFF2F3
3394	>	F2FF414342FEFFFFFF01FFFFFF00FFFFFF00FFFFFF00FFFFFF00858A88FF858A
3395	>	88FF858A88FFFFFFFF00FFFFFF00545856FF535755FF6A6E6CFFECEEEEFF6A6E
3396	>	6CFF535755FF545856FFFFFFFF00FFFFFF00FFFFFF00808080026A6E6CFFECEE
3397	>	EEFF6A6E6CFF80808002535755FFCECFCFFFE0E2E2FF858A88FF858A88FF858A
3398	>	88FFE0E2E2FFCECFCFFF535755FFFFFFFF00FFFFFF01414342FEF2F3F2FFFEFE
3399	>	FEFFF2F3F2FF414342FE535755FEE0E1E1FFF8F8F8FFFBFCFCFFF7F7F7FFFBFC
3400	>	FCFFF8F8F8FFE0E1E1FF535755FE858A88FF6A6E6CFFF1F1F1FFACADADFB7174
3401	>	73FAACADADFBF1F1F1FF6A6E6CFF858A88FFFBFBFBFF9DA09FF6535755FD9DA0
3402	>	9FF6FBFBFBFFABAEAEFA565B58B7858A88FFECEEEEFFFEFEFEFF717573FBFFFF
3403	>	FF01717573FBFEFEFEFFECEEEEFF858A88FFF7F7F7FF535755FF000000015357
3404	>	55FFF7F7F7FFC4C5C5FF00000001858A88FF6A6E6CFFF1F1F1FFACADADFB7174
3405	>	73FAACADADFBF1F1F1FF6A6E6CFF858A88FFFBFBFBFF9DA09FF6535755FD9DA0
3406	>	9FF6FBFBFBFFABAEAEFA565B58B7FFFFFF00FFFFFF01414342FEF2F3F2FFFEFE
3407	>	FEFFF2F3F2FF414342FE535755FEE0E1E1FFF8F8F8FFFBFCFCFFF7F7F7FFFBFC
3408	>	FCFFF8F8F8FFE0E1E1FF535755FEFFFFFF00FFFFFF00FFFFFF016A6E6CFFECEE
3409	>	EEFF6A6E6CFFFFFFFF01535755FFCECFCFFFE0E2E2FFADB0AFFBC6C8C7FCADB0
3410	>	AFFBE0E2E2FFCECFCFFF535755FFFFFFFF00FFFFFF00FFFFFF00858A88FF858A
3411	>	88FF858A88FFFFFFFF00FFFFFF00545856FF535755FF575B58B300000001575B
3412	>	58B3535755FF545856FF00000001
3413		}
3414		end
3415		object CharSetSource: TDataSource
3416	<	DataSet = DatabaseData.CharSetLookup
3417	<	left = 552
3418	<	top = 240
3416	>	DataSet = DBDataModule.CharSetLookup
3417	>	Left = 552
3418	>	Top = 240
3419		end
3420		object SecDBFilesSource: TDataSource
3421	<	DataSet = DatabaseData.DBSecFiles
3422	<	left = 552
3423	<	top = 376
3421	>	DataSet = DBDataModule.DBSecFiles
3422	>	Left = 552
3423	>	Top = 376
3424		end
3425		object DBCharSetSource: TDataSource
3426	<	DataSet = DatabaseData.DBCharSet
3427	<	left = 552
3428	<	top = 304
3426	>	DataSet = DBDataModule.DBCharSet
3427	>	Left = 552
3428	>	Top = 304
3429		end
3430		object DatabaseSource: TDataSource
3431	<	DataSet = DatabaseData.DatabaseQuery
3432	<	left = 560
3433	<	top = 448
3431	>	DataSet = DBDataModule.DatabaseQuery
3432	>	Left = 560
3433	>	Top = 448
3434		end
3435		object IBDatabaseInfo: TIBDatabaseInfo
3436	<	Database = DatabaseData.IBDatabase1
3437	<	left = 712
3438	<	top = 240
3436	>	Database = DBDataModule.IBDatabase1
3437	>	Left = 712
3438	>	Top = 240
3439		end
3440		object AttmtSource: TDataSource
3441	<	DataSet = DatabaseData.AttmtQuery
3442	<	left = 416
3443	<	top = 448
3441	>	DataSet = DBDataModule.AttmtQuery
3442	>	Left = 416
3443	>	Top = 448
3444		end
3445		object ShadowSource: TDataSource
3446	<	DataSet = DatabaseData.ShadowFiles
3447	<	left = 424
3448	<	top = 400
3446	>	DataSet = DBDataModule.ShadowFiles
3447	>	Left = 464
3448	>	Top = 512
3449		end
3450		object SynSQLSyn1: TSynSQLSyn
3451		DefaultFilter = 'SQL Files (*.sql)|*.sql'
#	Line 3092 | Line 3454 | object MainForm: TMainForm
3454		KeyAttri.Foreground = clBlue
3455		NumberAttri.Foreground = clRed
3456		SQLDialect = sqlSybase
3457	<	left = 712
3458	<	top = 352
3457	>	Left = 712
3458	>	Top = 352
3459		end
3460		object IBExtract1: TIBExtract
3461	<	Database = DatabaseData.IBDatabase1
3462	<	Transaction = DatabaseData.CurrentTransaction
3461	>	Database = DBDataModule.IBDatabase1
3462	>	Transaction = DBDataModule.CurrentTransaction
3463		ShowSystem = False
3464	<	left = 712
3465	<	top = 296
3464	>	AlwaysQuoteIdentifiers = False
3465	>	CaseSensitiveObjectNames = False
3466	>	Left = 712
3467	>	Top = 296
3468		end
3469		object SQlSaveDialog: TSaveDialog
3470		DefaultExt = '.sql'
3471		Filter = 'SQLFiles (*.sql)|*.sql|All Files|*.*'
3472		Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
3473	<	left = 712
3474	<	top = 472
3473	>	Left = 712
3474	>	Top = 472
3475		end
3476		object SaveDialog: TSaveDialog
3477		DefaultExt = '.txt'
3478		Filter = 'Text Files (*.txt)|*.txt|All Files |*.*'
3479		Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
3480	<	left = 712
3481	<	top = 416
3480	>	Left = 712
3481	>	Top = 416
3482		end
3483		object UserListSource: TDataSource
3484	<	DataSet = DatabaseData.UserList
3485	<	left = 416
3486	<	top = 328
3484	>	DataSet = DBDataModule.UserList
3485	>	Left = 416
3486	>	Top = 360
3487		end
3488		object RoleSource: TDataSource
3489	<	DataSet = DatabaseData.RoleNameList
3490	<	left = 416
3491	<	top = 272
3489	>	DataSet = DBDataModule.RoleNameList
3490	>	Left = 416
3491	>	Top = 272
3492		end
3493		object UserTagsSource: TDataSource
3494	<	DataSet = DatabaseData.UserTags
3495	<	left = 416
3496	<	top = 224
3494	>	DataSet = DBDataModule.UserTags
3495	>	Left = 416
3496	>	Top = 224
3497		end
3498		object UserPopup: TPopupMenu
3499	<	left = 840
3500	<	top = 296
3499	>	Left = 840
3500	>	Top = 296
3501		object MenuItem11: TMenuItem
3502		Action = AddUser
3503		end
#	Line 3148 | Line 3512 | object MainForm: TMainForm
3512		end
3513		end
3514		object UserTagPopup: TPopupMenu
3515	<	left = 845
3516	<	top = 346
3515	>	Left = 845
3516	>	Top = 346
3517		object MenuItem15: TMenuItem
3518		Action = AddTag
3519		end
#	Line 3158 | Line 3522 | object MainForm: TMainForm
3522		end
3523		end
3524		object AttachSource: TDataSource
3525	<	DataSet = DatabaseData.Attachments
3526	<	left = 552
3527	<	top = 112
3525	>	DataSet = DBDataModule.Attachments
3526	>	Left = 552
3527	>	Top = 112
3528		end
3529		object AttmtTimer: TTimer
3530		Enabled = False
3531		Interval = 5000
3532		OnTimer = AttmtTimerTimer
3533	<	left = 792
3534	<	top = 64
3533	>	Left = 792
3534	>	Top = 80
3535		end
3536		object AttmtPopup: TPopupMenu
3537	<	left = 840
3538	<	top = 240
3537	>	Left = 840
3538	>	Top = 240
3539		object MenuItem17: TMenuItem
3540		Action = ToggleAutoRefresh
3541		end
#	Line 3180 | Line 3544 | object MainForm: TMainForm
3544		end
3545		end
3546		object LimboListSource: TDataSource
3547	<	DataSet = DatabaseData.InLimboList
3548	<	left = 552
3549	<	top = 176
3547	>	DataSet = DBDataModule.InLimboList
3548	>	Left = 552
3549	>	Top = 176
3550		end
3551		object DBTablesSource: TDataSource
3552	<	DataSet = DatabaseData.DBTables
3553	<	left = 304
3554	<	top = 224
3552	>	DataSet = DBDataModule.DBTables
3553	>	Left = 304
3554	>	Top = 224
3555		end
3556		object AuthMapSource: TDataSource
3557	<	DataSet = DatabaseData.AuthMappings
3558	<	left = 303
3559	<	top = 286
3557	>	DataSet = DBDataModule.AuthMappings
3558	>	Left = 303
3559	>	Top = 286
3560		end
3561		object SubjectAccessRightsSource: TDataSource
3562	<	DataSet = DatabaseData.SubjectAccessRights
3562	>	DataSet = DBDataModule.SubjectAccessRights
3563		OnDataChange = SubjectAccessRightsSourceDataChange
3564	<	left = 297
3565	<	top = 429
3564	>	Left = 297
3565	>	Top = 429
3566		end
3567		object AccessRightsPopup: TPopupMenu
3568	<	left = 845
3569	<	top = 415
3568	>	Left = 845
3569	>	Top = 415
3570		object MenuItem19: TMenuItem
3571		Action = RevokeAll
3572		end
3573		end
3574		object AccessRightsSource: TDataSource
3575	<	DataSet = DatabaseData.AccessRights
3576	<	left = 288
3577	<	top = 360
3575	>	DataSet = DBDataModule.AccessRights
3576	>	Left = 288
3577	>	Top = 360
3578	>	end
3579	>	object ConfigDataSource: TDataSource
3580	>	DataSet = DBDataModule.ConfigDataset
3581	>	Left = 288
3582	>	Top = 504
3583		end
3584		end

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines