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 267 by tony, Fri Dec 28 10:44:23 2018 UTC vs.
Revision 272 by tony, Mon Feb 4 13:34:37 2019 UTC

#	Line 1 | Line 1
1		object MainForm: TMainForm
2		Left = 648
3	<	Height = 616
3	>	Height = 619
4		Top = 231
5	<	Width = 939
5	>	Width = 976
6		Caption = 'Database Administrator Demo'
7	<	ClientHeight = 596
8	<	ClientWidth = 939
7	>	ClientHeight = 599
8	>	ClientWidth = 976
9		Menu = MainMenu1
10		OnClose = FormClose
11		OnShow = FormShow
12	<	LCLVersion = '2.0.0.2'
12	>	LCLVersion = '2.0.0.3'
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 68 | Line 68 | object MainForm: TMainForm
68		object StatusBar1: TStatusBar
69		Left = 0
70		Height = 22
71	<	Top = 574
72	<	Width = 939
71	>	Top = 577
72	>	Width = 976
73		Panels = <>
74		end
75		object PageControl1: TPageControl
76		Left = 0
77	<	Height = 548
77	>	Height = 551
78		Top = 26
79	<	Width = 939
80	<	ActivePage = Properties
79	>	Width = 976
80	>	ActivePage = AccessRightsTab
81		Align = alClient
82		MultiLine = True
83		ParentShowHint = False
84		ShowHint = True
85	<	TabIndex = 0
85	>	TabIndex = 7
86		TabOrder = 2
87		Options = [nboMultiLine]
88		object Properties: TTabSheet
89		Caption = 'Properties'
90	<	ClientHeight = 516
91	<	ClientWidth = 933
90	>	ClientHeight = 519
91	>	ClientWidth = 970
92		OnShow = PropertiesShow
93		object Panel7: TPanel
94		Left = 0
95	<	Height = 516
95	>	Height = 519
96		Top = 0
97	<	Width = 933
97	>	Width = 970
98		Align = alClient
99		BevelOuter = bvNone
100	<	ClientHeight = 516
101	<	ClientWidth = 933
100	>	ClientHeight = 519
101	>	ClientWidth = 970
102		Color = clWindow
103		ParentColor = False
104		TabOrder = 0
#	Line 169 | Line 169 | object MainForm: TMainForm
169		Text = 'ServerVersionNo'
170		end
171		object Label5: TLabel
172	<	Left = 41
172	>	Left = 789
173		Height = 14
174	<	Top = 183
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 286 | Line 287 | object MainForm: TMainForm
287		TabOrder = 10
288		end
289		object Label11: TLabel
290	<	Left = 728
290	>	Left = 765
291		Height = 14
292	<	Top = 22
292	>	Top = 52
293		Width = 93
294	+	Anchors = [akTop, akRight]
295		Caption = 'Pages Allocated'
296		ParentColor = False
297		end
298		object AllocatedPages: TEdit
299	<	Left = 826
299	>	Left = 865
300		Height = 24
301	<	Top = 16
301	>	Top = 48
302		Width = 89
303		Alignment = taRightJustify
304	+	Anchors = [akTop, akRight]
305		ReadOnly = True
306		TabOrder = 11
307		Text = 'AllocatedPages'
#	Line 312 | Line 315 | object MainForm: TMainForm
315		ParentColor = False
316		end
317		object Label3: TLabel
318	<	Left = 752
318	>	Left = 791
319		Height = 14
320	<	Top = 52
320	>	Top = 85
321		Width = 68
322	+	Anchors = [akTop, akRight]
323		Caption = 'Pages Used'
324		ParentColor = False
325		end
326		object PagesUsed: TEdit
327	<	Left = 826
327	>	Left = 865
328		Height = 24
329	<	Top = 48
329	>	Top = 80
330		Width = 89
331		Alignment = taRightJustify
332	+	Anchors = [akTop, akRight]
333		ReadOnly = True
334		TabOrder = 12
335		Text = 'PagesUsed'
336		end
337		object Label10: TLabel
338	<	Left = 730
338	>	Left = 769
339		Height = 14
340	<	Top = 85
340	>	Top = 118
341		Width = 90
342	+	Anchors = [akTop, akRight]
343		Caption = 'Pages Available'
344		ParentColor = False
345		end
346		object PagesAvail: TEdit
347	<	Left = 826
347	>	Left = 865
348		Height = 24
349	<	Top = 80
349	>	Top = 112
350		Width = 89
351		Alignment = taRightJustify
352	+	Anchors = [akTop, akRight]
353		ReadOnly = True
354		TabOrder = 13
355		Text = 'PagesAvail'
#	Line 408 | Line 415 | object MainForm: TMainForm
415		ParentColor = False
416		end
417		object Label15: TLabel
418	<	Left = 740
418	>	Left = 778
419		Height = 14
420	<	Top = 117
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 = 826
427	>	Left = 865
428		Height = 24
429	<	Top = 112
429	>	Top = 141
430		Width = 89
431		Alignment = taRightJustify
432	+	Anchors = [akTop, akRight]
433		NumbersOnly = True
434		OnEditingDone = PageBuffersEditingDone
435		TabOrder = 16
436		Text = 'PageBuffers'
437		end
438	<	object Label23: TLabel
439	<	Left = 680
438	>	object DateDBCreatedLabel: TLabel
439	>	Left = 8
440		Height = 14
441	<	Top = 317
441	>	Top = 180
442		Width = 100
443		Anchors = [akTop, akRight]
444		Caption = 'Date DB Created'
445		ParentColor = False
446		end
447	<	object DBEdit1: TDBEdit
448	<	Left = 784
447	>	object DateDbCreated: TDBEdit
448	>	Left = 120
449		Height = 24
450	<	Top = 312
451	<	Width = 132
450	>	Top = 176
451	>	Width = 265
452		DataField = 'MON$CREATION_DATE'
453		DataSource = DatabaseSource
454		ReadOnly = True
455	<	Anchors = [akTop, akRight]
455	>	Alignment = taRightJustify
456		CharCase = ecNormal
457		MaxLength = 0
458		TabOrder = 17
459		end
460		object Label16: TLabel
461	<	Left = 453
461	>	Left = 456
462		Height = 14
463	<	Top = 120
463	>	Top = 117
464		Width = 75
465		Caption = 'Linger Delay'
466		ParentColor = False
#	Line 551 | Line 560 | object MainForm: TMainForm
560		Text = 'DatabaseAliasName'
561		end
562		object Label43: TLabel
563	<	Left = 403
563	>	Left = 400
564		Height = 14
565	<	Top = 328
565	>	Top = 398
566		Width = 65
567		Caption = 'Comments'
568		ParentColor = False
569		end
570		object DBComments: TMemo
571	<	Left = 403
572	<	Height = 85
573	<	Top = 344
574	<	Width = 512
571	>	Left = 400
572	>	Height = 82
573	>	Top = 414
574	>	Width = 549
575		Anchors = [akTop, akLeft, akRight, akBottom]
576		Lines.Strings = (
577		'DBComments'
#	Line 572 | Line 581 | object MainForm: TMainForm
581		TabOrder = 25
582		end
583		object ClientLibrary: TLabel
584	<	Left = 112
584	>	Left = 873
585		Height = 14
586	<	Top = 464
586	>	Top = 504
587		Width = 76
588	+	Alignment = taRightJustify
589	+	Anchors = [akRight, akBottom]
590		Caption = 'ClientLibrary'
591		ParentColor = False
592		end
593		object Label44: TLabel
594	<	Left = 403
594	>	Left = 402
595		Height = 14
596	<	Top = 183
596	>	Top = 272
597		Width = 203
598		Caption = 'Client/Server Version and Protocol'
599		ParentColor = False
600		end
601		object ClientServerVersion: TMemo
602	<	Left = 403
602	>	Left = 400
603		Height = 104
604	<	Top = 200
605	<	Width = 511
604	>	Top = 288
605	>	Width = 548
606		Anchors = [akTop, akLeft, akRight]
607		Font.Height = -11
608		ParentFont = False
#	Line 602 | Line 613 | object MainForm: TMainForm
613		end
614		object FilesTab: TTabSheet
615		Caption = 'Files'
616	<	ClientHeight = 516
617	<	ClientWidth = 933
616	>	ClientHeight = 519
617	>	ClientWidth = 970
618		OnShow = FilesTabShow
619		object Label25: TLabel
620		Left = 16
#	Line 617 | Line 628 | object MainForm: TMainForm
628		Left = 16
629		Height = 24
630		Top = 32
631	<	Width = 474
631	>	Width = 553
632		Anchors = [akTop, akLeft, akRight]
633		ReadOnly = True
634		TabOrder = 0
#	Line 635 | Line 646 | object MainForm: TMainForm
646		Left = 16
647		Height = 160
648		Top = 88
649	<	Width = 763
649	>	Width = 842
650		Anchors = [akTop, akLeft, akRight]
651		Color = clWindow
652		Columns = <
#	Line 693 | Line 704 | object MainForm: TMainForm
704		DefaultPositionAtEnd = False
705		end
706		object AddFileBtn: TButton
707	<	Left = 795
707	>	Left = 874
708		Height = 25
709		Top = 88
710		Width = 91
#	Line 713 | Line 724 | object MainForm: TMainForm
724		Left = 16
725		Height = 200
726		Top = 280
727	<	Width = 763
727	>	Width = 842
728		Anchors = [akTop, akLeft, akRight, akBottom]
729		Color = clWindow
730		Columns = <
#	Line 794 | Line 805 | object MainForm: TMainForm
805		DefaultPositionAtEnd = False
806		end
807		object AddShadowBtn: TButton
808	<	Left = 795
808	>	Left = 874
809		Height = 25
810		Top = 280
811		Width = 91
#	Line 803 | Line 814 | object MainForm: TMainForm
814		TabOrder = 4
815		end
816		object RemoveShadowBtn: TButton
817	<	Left = 795
817	>	Left = 874
818		Height = 25
819		Top = 312
820		Width = 91
#	Line 814 | Line 825 | object MainForm: TMainForm
825		end
826		object AttachmentsTab: TTabSheet
827		Caption = 'Attachments'
828	<	ClientHeight = 516
829	<	ClientWidth = 933
828	>	ClientHeight = 519
829	>	ClientWidth = 970
830		OnHide = AttachmentsTabHide
831		OnShow = AttachmentsTabShow
832		object AttmtGrid: TIBDynamicGrid
833		Left = 0
834	<	Height = 516
834	>	Height = 519
835		Top = 0
836	<	Width = 933
836	>	Width = 970
837		Align = alClient
838		Color = clWindow
839		Columns = <
#	Line 1093 | Line 1104 | object MainForm: TMainForm
1104		end
1105		object StatisticsTab: TTabSheet
1106		Caption = 'Statistics'
1107	<	ClientHeight = 516
1108	<	ClientWidth = 933
1107	>	ClientHeight = 519
1108	>	ClientWidth = 970
1109		OnHide = StatisticsTabHide
1110		OnShow = StatisticsTabShow
1111		object StatsOptions: TComboBox
1112	<	Left = 667
1112	>	Left = 732
1113		Height = 27
1114		Top = 8
1115		Width = 228
#	Line 1126 | Line 1137 | object MainForm: TMainForm
1137		end
1138		object StatsMemo: TMemo
1139		Left = 8
1140	<	Height = 423
1140	>	Height = 464
1141		Top = 40
1142	<	Width = 883
1142	>	Width = 952
1143		Anchors = [akTop, akLeft, akRight, akBottom]
1144		Lines.Strings = (
1145		'Memo1'
#	Line 1139 | Line 1150 | object MainForm: TMainForm
1150		end
1151		object SchemaTab: TTabSheet
1152		Caption = 'Schema'
1153	<	ClientHeight = 516
1154	<	ClientWidth = 933
1153	>	ClientHeight = 519
1154	>	ClientWidth = 970
1155		OnShow = SchemaTabShow
1156		inline SynEdit1: TSynEdit
1157		Left = 0
1158		Height = 495
1159		Top = 0
1160	<	Width = 933
1160	>	Width = 970
1161		Align = alTop
1162		Anchors = [akTop, akLeft, akRight, akBottom]
1163		Font.Height = -11
#	Line 1657 | Line 1668 | object MainForm: TMainForm
1668		end
1669		object ServerTab: TTabSheet
1670		Caption = 'Server'
1671	<	ClientHeight = 516
1672	<	ClientWidth = 933
1671	>	ClientHeight = 519
1672	>	ClientWidth = 970
1673		OnHide = ServerTabHide
1674		OnShow = ServerTabShow
1675		object Panel1: TPanel
1676		Left = 0
1677	<	Height = 516
1677	>	Height = 519
1678		Top = 0
1679	<	Width = 370
1679	>	Width = 491
1680		Align = alLeft
1681		BevelOuter = bvNone
1682	<	ClientHeight = 516
1683	<	ClientWidth = 370
1682	>	ClientHeight = 519
1683	>	ClientWidth = 491
1684		TabOrder = 0
1685		object Label29: TLabel
1686		Left = 5
#	Line 1679 | Line 1690 | object MainForm: TMainForm
1690		Caption = 'Properties'
1691		ParentColor = False
1692		end
1693	<	object ServerPropMemo: TMemo
1693	>	object Label53: TLabel
1694		Left = 8
1695	<	Height = 481
1696	<	Top = 26
1697	<	Width = 353
1698	<	Anchors = [akTop, akLeft, akRight, akBottom]
1695	>	Height = 14
1696	>	Top = 296
1697	>	Width = 98
1698	>	Caption = 'Open Databases'
1699	>	ParentColor = False
1700	>	end
1701	>	object OpenDatabasesList: TMemo
1702	>	Left = 8
1703	>	Height = 90
1704	>	Top = 312
1705	>	Width = 480
1706	>	Anchors = [akTop, akLeft, akRight]
1707		Lines.Strings = (
1708	<	'ServerPropMemo'
1708	>	''
1709		)
1710	<	ScrollBars = ssAutoBoth
1710	>	ScrollBars = ssAutoVertical
1711		TabOrder = 0
1712		end
1713	+	object ConfigDataLabel: TLabel
1714	+	Left = 8
1715	+	Height = 14
1716	+	Top = 408
1717	+	Width = 71
1718	+	Caption = 'Config Data'
1719	+	ParentColor = False
1720	+	end
1721	+	object ConfigDataGrid: TIBDynamicGrid
1722	+	Left = 8
1723	+	Height = 85
1724	+	Top = 424
1725	+	Width = 480
1726	+	Anchors = [akTop, akLeft, akRight, akBottom]
1727	+	Color = clWindow
1728	+	Columns = <
1729	+	item
1730	+	Title.Alignment = taCenter
1731	+	Title.Caption = 'Description'
1732	+	Width = 100
1733	+	FieldName = 'ParamDescription'
1734	+	AutoSizeColumn = True
1735	+	InitialSortColumn = False
1736	+	DBLookupProperties.ItemHeight = 0
1737	+	DBLookupProperties.ItemWidth = 0
1738	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1739	+	end
1740	+	item
1741	+	Title.Alignment = taCenter
1742	+	Title.Caption = 'Value'
1743	+	Width = 60
1744	+	FieldName = 'ParamValue'
1745	+	AutoSizeColumn = False
1746	+	InitialSortColumn = False
1747	+	DBLookupProperties.ItemHeight = 0
1748	+	DBLookupProperties.ItemWidth = 0
1749	+	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
1750	+	end>
1751	+	DataSource = ConfigDataSource
1752	+	Scrollbars = ssAutoVertical
1753	+	TabOrder = 1
1754	+	ExpandEditorPanelBelowRow = False
1755	+	Descending = False
1756	+	EditorBorderStyle = bsSingle
1757	+	DefaultPositionAtEnd = False
1758	+	end
1759	+	object Panel10: TPanel
1760	+	Left = 6
1761	+	Height = 264
1762	+	Top = 24
1763	+	Width = 482
1764	+	Anchors = [akTop, akLeft, akRight]
1765	+	BevelInner = bvLowered
1766	+	BevelOuter = bvLowered
1767	+	ClientHeight = 264
1768	+	ClientWidth = 482
1769	+	Color = clWindow
1770	+	ParentColor = False
1771	+	TabOrder = 2
1772	+	object Label45: TLabel
1773	+	Left = 8
1774	+	Height = 14
1775	+	Top = 48
1776	+	Width = 90
1777	+	Caption = 'Server Version:'
1778	+	ParentColor = False
1779	+	end
1780	+	object Label46: TLabel
1781	+	Left = 8
1782	+	Height = 14
1783	+	Top = 102
1784	+	Width = 143
1785	+	Caption = 'Server Implementation:'
1786	+	ParentColor = False
1787	+	end
1788	+	object Label47: TLabel
1789	+	Left = 8
1790	+	Height = 14
1791	+	Top = 75
1792	+	Width = 95
1793	+	Caption = 'Service Version:'
1794	+	ParentColor = False
1795	+	end
1796	+	object Label48: TLabel
1797	+	Left = 8
1798	+	Height = 14
1799	+	Top = 129
1800	+	Width = 107
1801	+	Caption = 'Firebird Directory:'
1802	+	ParentColor = False
1803	+	end
1804	+	object Label49: TLabel
1805	+	Left = 8
1806	+	Height = 14
1807	+	Top = 156
1808	+	Width = 113
1809	+	Caption = 'Lock File Directory:'
1810	+	ParentColor = False
1811	+	end
1812	+	object Label50: TLabel
1813	+	Left = 8
1814	+	Height = 14
1815	+	Top = 183
1816	+	Width = 114
1817	+	Caption = 'Security Database:'
1818	+	ParentColor = False
1819	+	end
1820	+	object Edit2: TEdit
1821	+	Left = 160
1822	+	Height = 24
1823	+	Top = 44
1824	+	Width = 312
1825	+	Anchors = [akTop, akLeft, akRight]
1826	+	ReadOnly = True
1827	+	TabOrder = 0
1828	+	Text = 'Edit2'
1829	+	end
1830	+	object Edit3: TEdit
1831	+	Left = 160
1832	+	Height = 24
1833	+	Top = 71
1834	+	Width = 312
1835	+	Anchors = [akTop, akLeft, akRight]
1836	+	ReadOnly = True
1837	+	TabOrder = 1
1838	+	Text = 'Edit3'
1839	+	end
1840	+	object Edit4: TEdit
1841	+	Left = 160
1842	+	Height = 24
1843	+	Top = 98
1844	+	Width = 312
1845	+	Anchors = [akTop, akLeft, akRight]
1846	+	ReadOnly = True
1847	+	TabOrder = 2
1848	+	Text = 'Edit4'
1849	+	end
1850	+	object Edit5: TEdit
1851	+	Left = 160
1852	+	Height = 24
1853	+	Top = 125
1854	+	Width = 312
1855	+	Anchors = [akTop, akLeft, akRight]
1856	+	ReadOnly = True
1857	+	TabOrder = 3
1858	+	Text = 'Edit5'
1859	+	end
1860	+	object Edit6: TEdit
1861	+	Left = 160
1862	+	Height = 24
1863	+	Top = 152
1864	+	Width = 312
1865	+	Anchors = [akTop, akLeft, akRight]
1866	+	ReadOnly = True
1867	+	TabOrder = 4
1868	+	Text = 'Edit6'
1869	+	end
1870	+	object Edit7: TEdit
1871	+	Left = 160
1872	+	Height = 24
1873	+	Top = 179
1874	+	Width = 312
1875	+	Anchors = [akTop, akLeft, akRight]
1876	+	ReadOnly = True
1877	+	TabOrder = 5
1878	+	Text = 'Edit7'
1879	+	end
1880	+	object Label51: TLabel
1881	+	Left = 8
1882	+	Height = 14
1883	+	Top = 21
1884	+	Width = 78
1885	+	Caption = 'Server Name'
1886	+	ParentColor = False
1887	+	end
1888	+	object Edit8: TEdit
1889	+	Left = 160
1890	+	Height = 24
1891	+	Top = 16
1892	+	Width = 312
1893	+	Anchors = [akTop, akLeft, akRight]
1894	+	ReadOnly = True
1895	+	TabOrder = 6
1896	+	Text = 'Edit8'
1897	+	end
1898	+	object Label52: TLabel
1899	+	Left = 8
1900	+	Height = 14
1901	+	Top = 212
1902	+	Width = 142
1903	+	Caption = 'Messages File Directory:'
1904	+	ParentColor = False
1905	+	end
1906	+	object Edit9: TEdit
1907	+	Left = 160
1908	+	Height = 24
1909	+	Top = 208
1910	+	Width = 312
1911	+	Anchors = [akTop, akLeft, akRight]
1912	+	ReadOnly = True
1913	+	TabOrder = 7
1914	+	Text = 'Edit9'
1915	+	end
1916	+	object Edit12: TEdit
1917	+	Left = 160
1918	+	Height = 24
1919	+	Top = 236
1920	+	Width = 312
1921	+	ReadOnly = True
1922	+	TabOrder = 8
1923	+	Text = 'Edit12'
1924	+	end
1925	+	object Label54: TLabel
1926	+	Left = 8
1927	+	Height = 14
1928	+	Top = 240
1929	+	Width = 117
1930	+	Caption = 'No. of Attachments'
1931	+	ParentColor = False
1932	+	end
1933	+	end
1934		end
1935		object Splitter1: TSplitter
1936	<	Left = 370
1937	<	Height = 516
1936	>	Left = 491
1937	>	Height = 519
1938		Top = 0
1939		Width = 5
1940		end
1941		object Panel2: TPanel
1942	<	Left = 375
1943	<	Height = 516
1942	>	Left = 496
1943	>	Height = 519
1944		Top = 0
1945	<	Width = 558
1945	>	Width = 474
1946		Align = alClient
1947		BevelOuter = bvNone
1948	<	ClientHeight = 516
1949	<	ClientWidth = 558
1948	>	ClientHeight = 519
1949	>	ClientWidth = 474
1950		TabOrder = 2
1951		object Label30: TLabel
1952		Left = 8
#	Line 1718 | Line 1958 | object MainForm: TMainForm
1958		end
1959		object ServerLog: TMemo
1960		Left = 8
1961	<	Height = 481
1961	>	Height = 484
1962		Top = 26
1963	<	Width = 540
1963	>	Width = 456
1964		Anchors = [akTop, akLeft, akRight, akBottom]
1965		Lines.Strings = (
1966		'ServerLog'
#	Line 1732 | Line 1972 | object MainForm: TMainForm
1972		end
1973		object UserManagerTab: TTabSheet
1974		Caption = 'User Manager'
1975	<	ClientHeight = 516
1976	<	ClientWidth = 933
1975	>	ClientHeight = 519
1976	>	ClientWidth = 970
1977		OnHide = UserManagerTabHide
1978		OnShow = UserManagerTabShow
1979		object Panel4: TPanel
1980		Left = 0
1981	<	Height = 516
1981	>	Height = 519
1982		Top = 0
1983	<	Width = 739
1983	>	Width = 827
1984		Align = alLeft
1985	<	ClientHeight = 516
1986	<	ClientWidth = 739
1985	>	ClientHeight = 519
1986	>	ClientWidth = 827
1987		TabOrder = 0
1988		object UserManagerGrid: TIBDynamicGrid
1989		Left = 1
1990	<	Height = 514
1990	>	Height = 517
1991		Top = 1
1992	<	Width = 737
1992	>	Width = 825
1993		Align = alClient
1994		Color = clWindow
1995		Columns = <
#	Line 1896 | Line 2136 | object MainForm: TMainForm
2136		end
2137		end
2138		object Splitter2: TSplitter
2139	<	Left = 739
2140	<	Height = 516
2139	>	Left = 827
2140	>	Height = 519
2141		Top = 0
2142		Width = 5
2143		end
2144		object Panel3: TPanel
2145	<	Left = 744
2146	<	Height = 516
2145	>	Left = 832
2146	>	Height = 519
2147		Top = 0
2148	<	Width = 189
2148	>	Width = 138
2149		Align = alClient
2150		BevelOuter = bvNone
2151	<	ClientHeight = 516
2152	<	ClientWidth = 189
2151	>	ClientHeight = 519
2152	>	ClientWidth = 138
2153		TabOrder = 2
2154	<	object IBDynamicGrid4: TIBDynamicGrid
2154	>	object RolesGrid: TIBDynamicGrid
2155		Left = 0
2156		Height = 161
2157		Top = 50
2158	<	Width = 189
2158	>	Width = 138
2159		Align = alTop
2160		Color = clWindow
2161		Columns = <
#	Line 1953 | Line 2193 | object MainForm: TMainForm
2193		object Panel5: TPanel
2194		Left = 0
2195		Height = 61
2196	<	Top = 455
2197	<	Width = 189
2196	>	Top = 458
2197	>	Width = 138
2198		Align = alBottom
2199		BevelInner = bvLowered
2200		BevelOuter = bvLowered
2201		ClientHeight = 61
2202	<	ClientWidth = 189
2202	>	ClientWidth = 138
2203		TabOrder = 1
2204		object Button1: TButton
2205		Left = 16
2206		Height = 28
2207		Top = 16
2208	<	Width = 162
2208	>	Width = 111
2209		Action = SaveChanges
2210		Anchors = [akTop, akLeft, akRight]
2211		TabOrder = 0
2212		end
2213		end
2214	<	object Panel6: TPanel
2214	>	object RolesHeaderPanel: TPanel
2215		Left = 0
2216		Height = 50
2217		Top = 0
2218	<	Width = 189
2218	>	Width = 138
2219		Align = alTop
2220		BevelInner = bvLowered
2221		BevelOuter = bvLowered
2222		ClientHeight = 50
2223	<	ClientWidth = 189
2223	>	ClientWidth = 138
2224		TabOrder = 2
2225		object DBText1: TDBText
2226		Left = 10
#	Line 2005 | Line 2245 | object MainForm: TMainForm
2245		Left = 0
2246		Height = 5
2247		Top = 211
2248	<	Width = 189
2248	>	Width = 138
2249		Align = alTop
2250		ResizeAnchor = akTop
2251		end
#	Line 2013 | Line 2253 | object MainForm: TMainForm
2253		Left = 0
2254		Height = 26
2255		Top = 216
2256	<	Width = 189
2256	>	Width = 138
2257		Align = alTop
2258		BevelInner = bvRaised
2259		Caption = 'Tags'
#	Line 2021 | Line 2261 | object MainForm: TMainForm
2261		end
2262		object TagsGrid: TIBDynamicGrid
2263		Left = 0
2264	<	Height = 208
2264	>	Height = 211
2265		Top = 242
2266	<	Width = 189
2266	>	Width = 138
2267		Align = alClient
2268		Color = clWindow
2269		Columns = <
#	Line 2062 | Line 2302 | object MainForm: TMainForm
2302		Cursor = crVSplit
2303		Left = 0
2304		Height = 5
2305	<	Top = 450
2306	<	Width = 189
2305	>	Top = 453
2306	>	Width = 138
2307		Align = alBottom
2308		ResizeAnchor = akBottom
2309		end
#	Line 2071 | Line 2311 | object MainForm: TMainForm
2311		end
2312		object AccessRightsTab: TTabSheet
2313		Caption = 'Access Rights'
2314	<	ClientHeight = 516
2315	<	ClientWidth = 933
2314	>	ClientHeight = 519
2315	>	ClientWidth = 970
2316		OnHide = AccessRightsTabHide
2317		OnShow = AccessRightsTabShow
2318		object AccessRightsTreeView: TIBTreeView
2319		Left = 0
2320	<	Height = 516
2320	>	Height = 519
2321		Top = 0
2322		Width = 300
2323		Align = alLeft
#	Line 2097 | Line 2337 | object MainForm: TMainForm
2337		end
2338		object Splitter5: TSplitter
2339		Left = 300
2340	<	Height = 516
2340	>	Height = 519
2341		Top = 0
2342		Width = 5
2343		end
2344		object SubjectAccessRightsGrid: TIBDynamicGrid
2345		Left = 305
2346	<	Height = 516
2346	>	Height = 519
2347		Top = 0
2348	<	Width = 628
2348	>	Width = 665
2349		Align = alClient
2350		Color = clWindow
2351		Columns = <
#	Line 2156 | Line 2396 | object MainForm: TMainForm
2396		item
2397		ButtonStyle = cbsCheckboxColumn
2398		Title.Caption = 'Grant Opt'
2399	<	Width = 64
2399	>	Width = 80
2400		FieldName = 'GRANT_OPTION'
2401		AutoSizeColumn = False
2402		InitialSortColumn = False
#	Line 2176 | Line 2416 | object MainForm: TMainForm
2416		end
2417		object MappingsTab: TTabSheet
2418		Caption = 'Auth Mappings'
2419	<	ClientHeight = 516
2420	<	ClientWidth = 933
2419	>	ClientHeight = 519
2420	>	ClientWidth = 970
2421		OnHide = MappingsTabHide
2422		OnShow = MappingsTabShow
2423		object IBDynamicGrid5: TIBDynamicGrid
2424		Left = 0
2425		Height = 492
2426		Top = 24
2427	<	Width = 933
2427	>	Width = 973
2428		Anchors = [akTop, akLeft, akRight, akBottom]
2429		Color = clWindow
2430		Columns = <
#	Line 2274 | Line 2514 | object MainForm: TMainForm
2514		DefaultPositionAtEnd = False
2515		end
2516		object AutoAdmin: TCheckBox
2517	<	Left = 776
2517	>	Left = 816
2518		Height = 22
2519		Top = 2
2520		Width = 151
#	Line 2286 | Line 2526 | object MainForm: TMainForm
2526		end
2527		object RepairTab: TTabSheet
2528		Caption = 'Database Repair'
2529	<	ClientHeight = 516
2530	<	ClientWidth = 933
2529	>	ClientHeight = 519
2530	>	ClientWidth = 970
2531		OnHide = RepairTabHide
2532		OnShow = RepairTabShow
2533		object SelectRepairAction: TComboBox
2534	<	Left = 654
2534	>	Left = 712
2535		Height = 27
2536		Top = 8
2537		Width = 200
#	Line 2309 | Line 2549 | object MainForm: TMainForm
2549		Text = 'Database Sweep'
2550		end
2551		object Button2: TButton
2552	<	Left = 862
2552	>	Left = 920
2553		Height = 25
2554		Top = 9
2555		Width = 35
#	Line 2411 | Line 2651 | object MainForm: TMainForm
2651		Left = 10
2652		Height = 384
2653		Top = 123
2654	<	Width = 888
2654	>	Width = 950
2655		Anchors = [akTop, akLeft, akRight, akBottom]
2656		BevelOuter = bvNone
2657		Caption = 'ValidationPanel'
2658		ClientHeight = 384
2659	<	ClientWidth = 888
2659	>	ClientWidth = 950
2660		TabOrder = 3
2661		object DBTablesPanel: TPanel
2662		Left = 0
#	Line 2516 | Line 2756 | object MainForm: TMainForm
2756		Left = 175
2757		Height = 384
2758		Top = 0
2759	<	Width = 713
2759	>	Width = 775
2760		Align = alClient
2761		BevelOuter = bvNone
2762		ClientHeight = 384
2763	<	ClientWidth = 713
2763	>	ClientWidth = 775
2764		TabOrder = 2
2765		object Label37: TLabel
2766		Left = 0
#	Line 2532 | Line 2772 | object MainForm: TMainForm
2772		end
2773		object ValidationReport: TMemo
2774		Left = 0
2775	<	Height = 360
2776	<	Top = 24
2777	<	Width = 713
2775	>	Height = 359
2776	>	Top = 25
2777	>	Width = 775
2778		Align = alBottom
2779		Anchors = [akTop, akLeft, akRight, akBottom]
2780		Lines.Strings = (
#	Line 2548 | Line 2788 | object MainForm: TMainForm
2788		end
2789		object LimboTab: TTabSheet
2790		Caption = 'Limbo Transactions'
2791	<	ClientHeight = 516
2792	<	ClientWidth = 933
2791	>	ClientHeight = 519
2792	>	ClientWidth = 970
2793		OnHide = LimboTabHide
2794		OnShow = LimboTabShow
2795		object Label38: TLabel
#	Line 2564 | Line 2804 | object MainForm: TMainForm
2804		Left = 13
2805		Height = 242
2806		Top = 24
2807	<	Width = 909
2807	>	Width = 947
2808		Anchors = [akTop, akLeft, akRight]
2809		Color = clWindow
2810		Columns = <
#	Line 2724 | Line 2964 | object MainForm: TMainForm
2964		Left = 16
2965		Height = 178
2966		Top = 296
2967	<	Width = 906
2967	>	Width = 947
2968		Anchors = [akTop, akLeft, akRight, akBottom]
2969		Lines.Strings = (
2970		'LimboReport'
#	Line 2755 | Line 2995 | object MainForm: TMainForm
2995		Left = 144
2996		Height = 24
2997		Top = 4
2998	<	Width = 388
2998	>	Width = 386
2999		DataField = 'UPDATE_COLUMNS'
3000		DataSource = SubjectAccessRightsSource
3001		Anchors = [akTop, akLeft, akRight]
#	Line 2764 | Line 3004 | object MainForm: TMainForm
3004		TabOrder = 0
3005		end
3006		object Label42: TLabel
3007	<	Left = 8
3007	>	Left = 9
3008		Height = 14
3009	<	Top = 40
3009	>	Top = 35
3010		Width = 123
3011		Caption = 'Referenced Columns'
3012		ParentColor = False
#	Line 2775 | Line 3015 | object MainForm: TMainForm
3015		Left = 144
3016		Height = 24
3017		Top = 35
3018	<	Width = 388
3018	>	Width = 386
3019		DataField = 'REFERENCE_COLUMNS'
3020		DataSource = SubjectAccessRightsSource
3021		Anchors = [akTop, akLeft, akRight]
#	Line 2785 | Line 3025 | object MainForm: TMainForm
3025		end
3026		end
3027		object MainMenu1: TMainMenu
3028	<	left = 712
3029	<	top = 64
3028	>	left = 720
3029	>	top = 80
3030		object MenuItem1: TMenuItem
3031		Caption = 'File'
3032		object MenuItem6: TMenuItem
#	Line 3178 | Line 3418 | object MainForm: TMainForm
3418		}
3419		end
3420		object CharSetSource: TDataSource
3421	<	DataSet = DatabaseData.CharSetLookup
3421	>	DataSet = DBDataModule.CharSetLookup
3422		left = 552
3423		top = 240
3424		end
3425		object SecDBFilesSource: TDataSource
3426	<	DataSet = DatabaseData.DBSecFiles
3426	>	DataSet = DBDataModule.DBSecFiles
3427		left = 552
3428		top = 376
3429		end
3430		object DBCharSetSource: TDataSource
3431	<	DataSet = DatabaseData.DBCharSet
3431	>	DataSet = DBDataModule.DBCharSet
3432		left = 552
3433		top = 304
3434		end
3435		object DatabaseSource: TDataSource
3436	<	DataSet = DatabaseData.DatabaseQuery
3436	>	DataSet = DBDataModule.DatabaseQuery
3437		left = 560
3438		top = 448
3439		end
3440		object IBDatabaseInfo: TIBDatabaseInfo
3441	<	Database = DatabaseData.IBDatabase1
3441	>	Database = DBDataModule.IBDatabase1
3442		left = 712
3443		top = 240
3444		end
3445		object AttmtSource: TDataSource
3446	<	DataSet = DatabaseData.AttmtQuery
3446	>	DataSet = DBDataModule.AttmtQuery
3447		left = 416
3448		top = 448
3449		end
3450		object ShadowSource: TDataSource
3451	<	DataSet = DatabaseData.ShadowFiles
3451	>	DataSet = DBDataModule.ShadowFiles
3452		left = 464
3453		top = 512
3454		end
#	Line 3223 | Line 3463 | object MainForm: TMainForm
3463		top = 352
3464		end
3465		object IBExtract1: TIBExtract
3466	<	Database = DatabaseData.IBDatabase1
3467	<	Transaction = DatabaseData.CurrentTransaction
3466	>	Database = DBDataModule.IBDatabase1
3467	>	Transaction = DBDataModule.CurrentTransaction
3468		ShowSystem = False
3469		AlwaysQuoteIdentifiers = False
3470		CaseSensitiveObjectNames = False
#	Line 3246 | Line 3486 | object MainForm: TMainForm
3486		top = 416
3487		end
3488		object UserListSource: TDataSource
3489	<	DataSet = DatabaseData.UserList
3489	>	DataSet = DBDataModule.UserList
3490		left = 416
3491		top = 360
3492		end
3493		object RoleSource: TDataSource
3494	<	DataSet = DatabaseData.RoleNameList
3494	>	DataSet = DBDataModule.RoleNameList
3495		left = 416
3496		top = 272
3497		end
3498		object UserTagsSource: TDataSource
3499	<	DataSet = DatabaseData.UserTags
3499	>	DataSet = DBDataModule.UserTags
3500		left = 416
3501		top = 224
3502		end
#	Line 3287 | Line 3527 | object MainForm: TMainForm
3527		end
3528		end
3529		object AttachSource: TDataSource
3530	<	DataSet = DatabaseData.Attachments
3530	>	DataSet = DBDataModule.Attachments
3531		left = 552
3532		top = 112
3533		end
#	Line 3296 | Line 3536 | object MainForm: TMainForm
3536		Interval = 5000
3537		OnTimer = AttmtTimerTimer
3538		left = 792
3539	<	top = 64
3539	>	top = 80
3540		end
3541		object AttmtPopup: TPopupMenu
3542		left = 840
#	Line 3309 | Line 3549 | object MainForm: TMainForm
3549		end
3550		end
3551		object LimboListSource: TDataSource
3552	<	DataSet = DatabaseData.InLimboList
3552	>	DataSet = DBDataModule.InLimboList
3553		left = 552
3554		top = 176
3555		end
3556		object DBTablesSource: TDataSource
3557	<	DataSet = DatabaseData.DBTables
3557	>	DataSet = DBDataModule.DBTables
3558		left = 304
3559		top = 224
3560		end
3561		object AuthMapSource: TDataSource
3562	<	DataSet = DatabaseData.AuthMappings
3562	>	DataSet = DBDataModule.AuthMappings
3563		left = 303
3564		top = 286
3565		end
3566		object SubjectAccessRightsSource: TDataSource
3567	<	DataSet = DatabaseData.SubjectAccessRights
3567	>	DataSet = DBDataModule.SubjectAccessRights
3568		OnDataChange = SubjectAccessRightsSourceDataChange
3569		left = 297
3570		top = 429
#	Line 3337 | Line 3577 | object MainForm: TMainForm
3577		end
3578		end
3579		object AccessRightsSource: TDataSource
3580	<	DataSet = DatabaseData.AccessRights
3580	>	DataSet = DBDataModule.AccessRights
3581		left = 288
3582		top = 360
3583		end
3584	+	object ConfigDataSource: TDataSource
3585	+	DataSet = DBDataModule.ConfigDataset
3586	+	left = 288
3587	+	top = 504
3588	+	end
3589		end

Diff Legend

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