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 210 by tony, Wed Mar 14 15:03:38 2018 UTC

#	Line 1 | Line 1
1		object MainForm: TMainForm
2	<	Left = 596
2	>	Left = 648
3		Height = 616
4	<	Top = 178
4	>	Top = 231
5		Width = 939
6		Caption = 'Database Administrator Demo'
7		ClientHeight = 596
8		ClientWidth = 939
9		Menu = MainMenu1
10	+	OnClose = FormClose
11		OnShow = FormShow
12	<	LCLVersion = '1.8.1.0'
12	>	LCLVersion = '1.8.3.0'
13		object ToolBar1: TToolBar
14		Left = 0
15		Height = 26
#	Line 64 | Line 65 | object MainForm: TMainForm
65		Height = 548
66		Top = 26
67		Width = 939
68	<	ActivePage = Properties
68	>	ActivePage = AttachmentsTab
69		Align = alClient
70		MultiLine = True
71		ParentShowHint = False
72		ShowHint = True
73	<	TabIndex = 0
73	>	TabIndex = 2
74		TabOrder = 2
75		Options = [nboMultiLine]
76		object Properties: TTabSheet
#	Line 272 | Line 273 | object MainForm: TMainForm
273		OnChange = NoReserveChange
274		TabOrder = 10
275		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
276		object Label11: TLabel
277		Left = 435
278		Height = 14
#	Line 296 | Line 288 | object MainForm: TMainForm
288		Width = 89
289		Alignment = taRightJustify
290		ReadOnly = True
291	<	TabOrder = 12
291	>	TabOrder = 11
292		Text = 'AllocatedPages'
293		end
294		object Label19: TLabel
#	Line 322 | Line 314 | object MainForm: TMainForm
314		Width = 89
315		Alignment = taRightJustify
316		ReadOnly = True
317	<	TabOrder = 13
317	>	TabOrder = 12
318		Text = 'PagesUsed'
319		end
320		object Label10: TLabel
#	Line 340 | Line 332 | object MainForm: TMainForm
332		Width = 89
333		Alignment = taRightJustify
334		ReadOnly = True
335	<	TabOrder = 14
335	>	TabOrder = 13
336		Text = 'PagesAvail'
337		end
338		object Label12: TLabel
#	Line 358 | Line 350 | object MainForm: TMainForm
350		Width = 89
351		Alignment = taRightJustify
352		ReadOnly = True
353	<	TabOrder = 15
353	>	TabOrder = 14
354		Text = 'Edit10'
355		end
356		object Label20: TLabel
#	Line 392 | Line 384 | object MainForm: TMainForm
384		Width = 89
385		Alignment = taRightJustify
386		ReadOnly = True
387	<	TabOrder = 16
387	>	TabOrder = 15
388		Text = 'Edit11'
389		end
390		object Label22: TLabel
#	Line 419 | Line 411 | object MainForm: TMainForm
411		Alignment = taRightJustify
412		NumbersOnly = True
413		OnEditingDone = PageBuffersEditingDone
414	<	TabOrder = 17
414	>	TabOrder = 16
415		Text = 'PageBuffers'
416		end
417		object Label23: TLabel
#	Line 440 | Line 432 | object MainForm: TMainForm
432		ReadOnly = True
433		CharCase = ecNormal
434		MaxLength = 0
435	<	TabOrder = 18
435	>	TabOrder = 17
436		end
437		object Label16: TLabel
438		Left = 453
#	Line 458 | Line 450 | object MainForm: TMainForm
450		Alignment = taRightJustify
451		NumbersOnly = True
452		OnEditingDone = LingerDelayEditingDone
453	<	TabOrder = 19
453	>	TabOrder = 18
454		Text = 'LingerDelay'
455		end
456		object Label17: TLabel
#	Line 486 | Line 478 | object MainForm: TMainForm
478		Alignment = taRightJustify
479		NumbersOnly = True
480		OnEditingDone = SweepIntervalEditingDone
481	<	TabOrder = 20
481	>	TabOrder = 19
482		Text = 'SweepInterval'
483		end
484		object Label8: TLabel
#	Line 506 | Line 498 | object MainForm: TMainForm
498		DataSource = DatabaseSource
499		CharCase = ecNormal
500		MaxLength = 0
501	<	TabOrder = 21
501	>	TabOrder = 20
502		end
503		object Edit1: TEdit
504		Left = 121
#	Line 514 | Line 506 | object MainForm: TMainForm
506		Top = 16
507		Width = 263
508		ParentFont = False
509	<	TabOrder = 22
509	>	TabOrder = 21
510		Text = 'Edit1'
511		end
512		object SecDatabase: TEdit
#	Line 523 | Line 515 | object MainForm: TMainForm
515		Top = 241
516		Width = 263
517		ReadOnly = True
518	<	TabOrder = 23
518	>	TabOrder = 22
519		Text = 'SecDatabase'
520		end
521		object DBOwner: TEdit
#	Line 532 | Line 524 | object MainForm: TMainForm
524		Top = 208
525		Width = 264
526		ReadOnly = True
527	<	TabOrder = 24
527	>	TabOrder = 23
528		Text = 'DBOwner'
529		end
530		object DatabaseAliasName: TEdit
#	Line 541 | Line 533 | object MainForm: TMainForm
533		Top = 48
534		Width = 264
535		ReadOnly = True
536	<	TabOrder = 25
536	>	TabOrder = 24
537		Text = 'DatabaseAliasName'
538		end
539		end
#	Line 773 | Line 765 | object MainForm: TMainForm
765		Color = clWindow
766		Columns = <
767		item
768	+	ReadOnly = True
769		Title.Alignment = taCenter
770		Title.Caption = 'ID'
771		Width = 40
#	Line 784 | Line 777 | object MainForm: TMainForm
777		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
778		end
779		item
780	+	ReadOnly = True
781		Title.Alignment = taCenter
782		Title.Caption = 'Connect Str'
783		Width = 100
#	Line 795 | Line 789 | object MainForm: TMainForm
789		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
790		end
791		item
792	+	ReadOnly = True
793		Title.Alignment = taCenter
794		Title.Caption = 'Client'
795		Width = 120
#	Line 806 | Line 801 | object MainForm: TMainForm
801		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
802		end
803		item
804	+	ReadOnly = True
805		Title.Alignment = taCenter
806		Title.Caption = 'Client Name'
807		Width = 100
#	Line 817 | Line 813 | object MainForm: TMainForm
813		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
814		end
815		item
816	+	ReadOnly = True
817		Title.Alignment = taCenter
818		Title.Caption = 'User'
819		Width = 80
#	Line 828 | Line 825 | object MainForm: TMainForm
825		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
826		end
827		item
828	+	ReadOnly = True
829		Title.Alignment = taCenter
830		Title.Caption = 'Role'
831		Width = 80
#	Line 839 | Line 837 | object MainForm: TMainForm
837		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
838		end
839		item
840	+	ReadOnly = True
841		Title.Alignment = taCenter
842		Title.Caption = 'IP Address'
843		Width = 100
#	Line 851 | Line 850 | object MainForm: TMainForm
850		end
851		item
852		Alignment = taCenter
853	+	ReadOnly = True
854		Title.Alignment = taCenter
855		Title.Caption = 'Protocol'
856		Width = 60
#	Line 862 | Line 862 | object MainForm: TMainForm
862		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
863		end
864		item
865	+	ReadOnly = True
866		Title.Alignment = taCenter
867		Title.Caption = 'Char Set'
868		Width = 60
#	Line 874 | Line 875 | object MainForm: TMainForm
875		end
876		item
877		Alignment = taCenter
878	+	ReadOnly = True
879		Title.Alignment = taCenter
880		Title.Caption = 'State'
881		Width = 60
#	Line 885 | Line 887 | object MainForm: TMainForm
887		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
888		end>
889		DataSource = AttachSource
890	+	Options = [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
891		PopupMenu = AttmtPopup
892		Scrollbars = ssAutoVertical
893		TabOrder = 0
#	Line 926 | Line 929 | object MainForm: TMainForm
929		Width = 48
930		DataField = 'MON$SERVER_PID'
931		DataSource = AttachSource
932	+	ReadOnly = True
933		CharCase = ecNormal
934		MaxLength = 0
935		TabOrder = 0
#	Line 937 | Line 941 | object MainForm: TMainForm
941		Width = 48
942		DataField = 'MON$REMOTE_PID'
943		DataSource = AttachSource
944	+	ReadOnly = True
945		CharCase = ecNormal
946		MaxLength = 0
947		TabOrder = 1
#	Line 949 | Line 954 | object MainForm: TMainForm
954		Caption = 'Garbage Collection Allowed'
955		DataField = 'MON$GARBAGE_COLLECTION'
956		DataSource = AttachSource
957	+	ReadOnly = True
958		TabOrder = 2
959		ValueChecked = '1'
960		ValueUnchecked = '0'
#	Line 968 | Line 974 | object MainForm: TMainForm
974		Width = 64
975		DataField = 'MON$STAT_ID'
976		DataSource = AttachSource
977	+	ReadOnly = True
978		CharCase = ecNormal
979		MaxLength = 0
980		TabOrder = 3
#	Line 1030 | Line 1037 | object MainForm: TMainForm
1037		OnShow = StatisticsTabShow
1038		object StatsOptions: TComboBox
1039		Left = 667
1040	<	Height = 27
1040	>	Height = 23
1041		Top = 8
1042		Width = 228
1043		Anchors = [akTop, akRight]
#	Line 1689 | Line 1696 | object MainForm: TMainForm
1696		Title.Alignment = taCenter
1697		Title.Caption = 'User Name'
1698		Width = 120
1699	<	FieldName = 'USERNAME'
1699	>	FieldName = 'SEC$USER_NAME'
1700		AutoSizeColumn = False
1701		InitialSortColumn = False
1702		DBLookupProperties.ItemHeight = 0
#	Line 1823 | Line 1830 | object MainForm: TMainForm
1830		Descending = False
1831		EditorBorderStyle = bsSingle
1832		DefaultPositionAtEnd = False
1833	<	IndexFieldNames = 'USERNAME'
1833	>	IndexFieldNames = 'SEC$USER_NAME'
1834		end
1835		end
1836		object Splitter2: TSplitter
#	Line 1918 | Line 1925 | object MainForm: TMainForm
1925		Height = 14
1926		Top = 30
1927		Width = 49
1928	<	DataField = 'USERNAME'
1928	>	DataField = 'SEC$USER_NAME'
1929		DataSource = UserListSource
1930		ParentColor = False
1931		end
#	Line 2008 | Line 2015 | object MainForm: TMainForm
2015		OnShow = AccessRightsTabShow
2016		object AccessRightsTreeView: TIBTreeView
2017		Left = 0
2018	<	Height = 516
2018	>	Height = 519
2019		Top = 0
2020		Width = 300
2021		Align = alLeft
#	Line 2026 | Line 2033 | object MainForm: TMainForm
2033		end
2034		object Splitter5: TSplitter
2035		Left = 300
2036	<	Height = 516
2036	>	Height = 519
2037		Top = 0
2038		Width = 5
2039		end
2040		object SubjectAccessRightsGrid: TIBDynamicGrid
2041		Left = 305
2042	<	Height = 516
2042	>	Height = 519
2043		Top = 0
2044	<	Width = 628
2044	>	Width = 626
2045		Align = alClient
2046		Color = clWindow
2047		Columns = <
#	Line 2111 | Line 2118 | object MainForm: TMainForm
2118		OnShow = MappingsTabShow
2119		object IBDynamicGrid5: TIBDynamicGrid
2120		Left = 0
2121	<	Height = 516
2122	<	Top = 0
2121	>	Height = 492
2122	>	Top = 24
2123		Width = 933
2124	<	Align = alClient
2124	>	Anchors = [akTop, akLeft, akRight, akBottom]
2125		Color = clWindow
2126		Columns = <
2127		item
#	Line 2202 | Line 2209 | object MainForm: TMainForm
2209		EditorBorderStyle = bsSingle
2210		DefaultPositionAtEnd = False
2211		end
2212	+	object AutoAdmin: TCheckBox
2213	+	Left = 776
2214	+	Height = 22
2215	+	Top = 2
2216	+	Width = 151
2217	+	Anchors = [akTop, akRight]
2218	+	Caption = 'Auto Admin Mapping'
2219	+	OnChange = AutoAdminChange
2220	+	TabOrder = 1
2221	+	end
2222		end
2223		object RepairTab: TTabSheet
2224		Caption = 'Database Repair'
#	Line 2210 | Line 2227 | object MainForm: TMainForm
2227		OnHide = RepairTabHide
2228		OnShow = RepairTabShow
2229		object SelectRepairAction: TComboBox
2230	<	Left = 656
2231	<	Height = 27
2230	>	Left = 654
2231	>	Height = 23
2232		Top = 8
2233		Width = 200
2234		Anchors = [akTop, akRight]
#	Line 2228 | Line 2245 | object MainForm: TMainForm
2245		Text = 'Database Sweep'
2246		end
2247		object Button2: TButton
2248	<	Left = 864
2248	>	Left = 862
2249		Height = 25
2250		Top = 9
2251		Width = 35
#	Line 2300 | Line 2317 | object MainForm: TMainForm
2317		end
2318		object ValidateRepairRecordFragments: TCheckBox
2319		Left = 16
2320	<	Height = 22
2320	>	Height = 19
2321		Top = 48
2322	<	Width = 184
2322	>	Width = 161
2323		Caption = 'Validate Record Fragments'
2324		Checked = True
2325		State = cbChecked
#	Line 2310 | Line 2327 | object MainForm: TMainForm
2327		end
2328		object IgnoreChecksumsOnRepair: TCheckBox
2329		Left = 16
2330	<	Height = 22
2330	>	Height = 19
2331		Top = 71
2332	<	Width = 170
2332	>	Width = 146
2333		Caption = 'Ignore Checksum Errors'
2334		TabOrder = 1
2335		end
#	Line 2328 | Line 2345 | object MainForm: TMainForm
2345		end
2346		object Panel8: TPanel
2347		Left = 10
2348	<	Height = 381
2348	>	Height = 384
2349		Top = 123
2350	<	Width = 890
2350	>	Width = 888
2351		Anchors = [akTop, akLeft, akRight, akBottom]
2352		BevelOuter = bvNone
2353		Caption = 'ValidationPanel'
2354	<	ClientHeight = 381
2355	<	ClientWidth = 890
2354	>	ClientHeight = 384
2355	>	ClientWidth = 888
2356		TabOrder = 3
2357		object DBTablesPanel: TPanel
2358		Left = 0
2359	<	Height = 381
2359	>	Height = 384
2360		Top = 0
2361		Width = 170
2362		Align = alLeft
2363		BevelOuter = bvNone
2364	<	ClientHeight = 381
2364	>	ClientHeight = 384
2365		ClientWidth = 170
2366		TabOrder = 0
2367		object Alltables: TRadioButton
2368		Left = 9
2369	<	Height = 22
2369	>	Height = 19
2370		Top = 32
2371	<	Width = 78
2371	>	Width = 71
2372		Caption = 'All Tables'
2373		Checked = True
2374		OnChange = SelectedTablesOnlyChange
#	Line 2360 | Line 2377 | object MainForm: TMainForm
2377		end
2378		object SelectedTablesOnly: TRadioButton
2379		Left = 9
2380	<	Height = 22
2380	>	Height = 19
2381		Top = 56
2382	<	Width = 147
2382	>	Width = 129
2383		Caption = 'Selected Tables Only'
2384		OnChange = SelectedTablesOnlyChange
2385		TabOrder = 1
2386		end
2387		object SelectedTablesGrid: TIBDynamicGrid
2388		Left = 0
2389	<	Height = 268
2389	>	Height = 271
2390		Top = 90
2391		Width = 170
2392		Anchors = [akTop, akLeft, akRight, akBottom]
#	Line 2408 | Line 2425 | object MainForm: TMainForm
2425		end
2426		object Label40: TLabel
2427		Left = 9
2428	<	Height = 14
2428	>	Height = 15
2429		Top = 7
2430	<	Width = 47
2430	>	Width = 42
2431		Caption = 'Validate'
2432		ParentColor = False
2433		end
2434		object SelectAllTables: TCheckBox
2435		Left = 0
2436	<	Height = 22
2437	<	Top = 360
2438	<	Width = 134
2436	>	Height = 19
2437	>	Top = 366
2438	>	Width = 117
2439		Anchors = [akLeft, akBottom]
2440		Caption = 'Select/Deselect All'
2441		OnChange = SelectAllTablesChange
#	Line 2427 | Line 2444 | object MainForm: TMainForm
2444		end
2445		object DBTablesSplitter: TSplitter
2446		Left = 170
2447	<	Height = 381
2447	>	Height = 384
2448		Top = 0
2449		Width = 5
2450		end
2451		object Panel9: TPanel
2452		Left = 175
2453	<	Height = 381
2453	>	Height = 384
2454		Top = 0
2455	<	Width = 715
2455	>	Width = 713
2456		Align = alClient
2457		BevelOuter = bvNone
2458	<	ClientHeight = 381
2459	<	ClientWidth = 715
2458	>	ClientHeight = 384
2459	>	ClientWidth = 713
2460		TabOrder = 2
2461		object Label37: TLabel
2462		Left = 0
2463	<	Height = 14
2463	>	Height = 15
2464		Top = 8
2465	<	Width = 101
2465	>	Width = 91
2466		Caption = 'Validation Report'
2467		ParentColor = False
2468		end
2469		object ValidationReport: TMemo
2470		Left = 0
2471	<	Height = 357
2471	>	Height = 360
2472		Top = 24
2473	<	Width = 715
2473	>	Width = 713
2474		Align = alBottom
2475		Anchors = [akTop, akLeft, akRight, akBottom]
2476		Lines.Strings = (
#	Line 2744 | Line 2761 | object MainForm: TMainForm
2761		object Quit: TAction
2762		Category = 'General'
2763		Caption = 'Exit'
2764	+	OnExecute = QuitExecute
2765		end
2766		object Backup: TAction
2767		Category = 'General'
#	Line 3099 | Line 3117 | object MainForm: TMainForm
3117		Database = DatabaseData.IBDatabase1
3118		Transaction = DatabaseData.CurrentTransaction
3119		ShowSystem = False
3120	+	AlwaysQuoteIdentifiers = False
3121		left = 712
3122		top = 296
3123		end

Diff Legend

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