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 267 by tony, Fri Dec 28 10:44:23 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 = '2.0.0.2'
13		object ToolBar1: TToolBar
14		Left = 0
15		Height = 26
#	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
#	Line 272 | Line 285 | object MainForm: TMainForm
285		OnChange = NoReserveChange
286		TabOrder = 10
287		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
288		object Label11: TLabel
289	<	Left = 435
289	>	Left = 728
290		Height = 14
291	<	Top = 26
291	>	Top = 22
292		Width = 93
293		Caption = 'Pages Allocated'
294		ParentColor = False
295		end
296		object AllocatedPages: TEdit
297	<	Left = 533
297	>	Left = 826
298		Height = 24
299	<	Top = 20
299	>	Top = 16
300		Width = 89
301		Alignment = taRightJustify
302		ReadOnly = True
303	<	TabOrder = 12
303	>	TabOrder = 11
304		Text = 'AllocatedPages'
305		end
306		object Label19: TLabel
307		Left = 472
308		Height = 14
309	<	Top = 57
309	>	Top = 22
310		Width = 56
311		Caption = 'Page Size'
312		ParentColor = False
313		end
314		object Label3: TLabel
315	<	Left = 460
315	>	Left = 752
316		Height = 14
317	<	Top = 88
317	>	Top = 52
318		Width = 68
319		Caption = 'Pages Used'
320		ParentColor = False
321		end
322		object PagesUsed: TEdit
323	<	Left = 533
323	>	Left = 826
324		Height = 24
325	<	Top = 82
325	>	Top = 48
326		Width = 89
327		Alignment = taRightJustify
328		ReadOnly = True
329	<	TabOrder = 13
329	>	TabOrder = 12
330		Text = 'PagesUsed'
331		end
332		object Label10: TLabel
333	<	Left = 438
333	>	Left = 730
334		Height = 14
335	<	Top = 119
335	>	Top = 85
336		Width = 90
337		Caption = 'Pages Available'
338		ParentColor = False
339		end
340		object PagesAvail: TEdit
341	<	Left = 533
341	>	Left = 826
342		Height = 24
343	<	Top = 113
343	>	Top = 80
344		Width = 89
345		Alignment = taRightJustify
346		ReadOnly = True
347	<	TabOrder = 14
347	>	TabOrder = 13
348		Text = 'PagesAvail'
349		end
350		object Label12: TLabel
351	<	Left = 430
351	>	Left = 432
352		Height = 14
353	<	Top = 150
353	>	Top = 52
354		Width = 98
355		Caption = 'Current Memory'
356		ParentColor = False
357		end
358		object Edit10: TEdit
359	<	Left = 533
359	>	Left = 535
360		Height = 24
361	<	Top = 144
361	>	Top = 48
362		Width = 89
363		Alignment = taRightJustify
364		ReadOnly = True
365	<	TabOrder = 15
365	>	TabOrder = 14
366		Text = 'Edit10'
367		end
368		object Label20: TLabel
369		Left = 632
370		Height = 14
371	<	Top = 57
371	>	Top = 22
372		Width = 33
373		Caption = 'bytes'
374		ParentColor = False
375		end
376		object Label21: TLabel
377	<	Left = 632
377	>	Left = 634
378		Height = 14
379	<	Top = 149
379	>	Top = 57
380		Width = 33
381		Caption = 'bytes'
382		ParentColor = False
383		end
384		object Label14: TLabel
385	<	Left = 452
385	>	Left = 454
386		Height = 14
387	<	Top = 181
387	>	Top = 85
388		Width = 76
389		Caption = 'Max Memory'
390		ParentColor = False
391		end
392		object Edit11: TEdit
393	<	Left = 533
393	>	Left = 536
394		Height = 24
395	<	Top = 175
395	>	Top = 80
396		Width = 89
397		Alignment = taRightJustify
398		ReadOnly = True
399	<	TabOrder = 16
399	>	TabOrder = 15
400		Text = 'Edit11'
401		end
402		object Label22: TLabel
403	<	Left = 632
403	>	Left = 635
404		Height = 14
405	<	Top = 182
405	>	Top = 85
406		Width = 33
407		Caption = 'bytes'
408		ParentColor = False
409		end
410		object Label15: TLabel
411	<	Left = 447
411	>	Left = 740
412		Height = 14
413	<	Top = 212
413	>	Top = 117
414		Width = 81
415		Caption = 'No. of Buffers'
416		ParentColor = False
417		end
418		object PageBuffers: TEdit
419	<	Left = 533
419	>	Left = 826
420		Height = 24
421	<	Top = 206
421	>	Top = 112
422		Width = 89
423		Alignment = taRightJustify
424		NumbersOnly = True
425		OnEditingDone = PageBuffersEditingDone
426	<	TabOrder = 17
426	>	TabOrder = 16
427		Text = 'PageBuffers'
428		end
429		object Label23: TLabel
430	<	Left = 430
430	>	Left = 680
431		Height = 14
432	<	Top = 245
432	>	Top = 317
433		Width = 100
434	+	Anchors = [akTop, akRight]
435		Caption = 'Date DB Created'
436		ParentColor = False
437		end
438		object DBEdit1: TDBEdit
439	<	Left = 533
439	>	Left = 784
440		Height = 24
441	<	Top = 240
441	>	Top = 312
442		Width = 132
443		DataField = 'MON$CREATION_DATE'
444		DataSource = DatabaseSource
445		ReadOnly = True
446	+	Anchors = [akTop, akRight]
447		CharCase = ecNormal
448		MaxLength = 0
449	<	TabOrder = 18
449	>	TabOrder = 17
450		end
451		object Label16: TLabel
452		Left = 453
453		Height = 14
454	<	Top = 317
454	>	Top = 120
455		Width = 75
456		Caption = 'Linger Delay'
457		ParentColor = False
458		end
459		object LingerDelay: TEdit
460	<	Left = 533
460	>	Left = 536
461		Height = 24
462	<	Top = 311
462	>	Top = 112
463		Width = 89
464		Alignment = taRightJustify
465		NumbersOnly = True
466		OnEditingDone = LingerDelayEditingDone
467	<	TabOrder = 19
467	>	TabOrder = 18
468		Text = 'LingerDelay'
469		end
470		object Label17: TLabel
471		Left = 632
472		Height = 14
473	<	Top = 317
473	>	Top = 118
474		Width = 49
475		Caption = 'seconds'
476		ParentColor = False
477		end
478		object Label7: TLabel
479	<	Left = 400
479	>	Left = 402
480		Height = 14
481	<	Top = 347
481	>	Top = 151
482		Width = 128
483		Caption = 'S&weep Interval set to'
484		FocusControl = SweepInterval
485		ParentColor = False
486		end
487		object SweepInterval: TEdit
488	<	Left = 533
488	>	Left = 535
489		Height = 24
490	<	Top = 342
490	>	Top = 144
491		Width = 89
492		Alignment = taRightJustify
493		NumbersOnly = True
494		OnEditingDone = SweepIntervalEditingDone
495	<	TabOrder = 20
495	>	TabOrder = 19
496		Text = 'SweepInterval'
497		end
498		object Label8: TLabel
499		Left = 632
500		Height = 14
501	<	Top = 347
501	>	Top = 151
502		Width = 74
503		Caption = 'Transactions'
504		ParentColor = False
505		end
506		object DBEdit4: TDBEdit
507	<	Left = 533
507	>	Left = 536
508		Height = 24
509	<	Top = 52
509	>	Top = 16
510		Width = 89
511		DataField = 'MON$PAGE_SIZE'
512		DataSource = DatabaseSource
513		CharCase = ecNormal
514		MaxLength = 0
515	<	TabOrder = 21
515	>	TabOrder = 20
516		end
517		object Edit1: TEdit
518		Left = 121
#	Line 514 | Line 520 | object MainForm: TMainForm
520		Top = 16
521		Width = 263
522		ParentFont = False
523	<	TabOrder = 22
523	>	TabOrder = 21
524		Text = 'Edit1'
525		end
526		object SecDatabase: TEdit
#	Line 523 | Line 529 | object MainForm: TMainForm
529		Top = 241
530		Width = 263
531		ReadOnly = True
532	<	TabOrder = 23
532	>	TabOrder = 22
533		Text = 'SecDatabase'
534		end
535		object DBOwner: TEdit
#	Line 532 | Line 538 | object MainForm: TMainForm
538		Top = 208
539		Width = 264
540		ReadOnly = True
541	<	TabOrder = 24
541	>	TabOrder = 23
542		Text = 'DBOwner'
543		end
544		object DatabaseAliasName: TEdit
#	Line 541 | Line 547 | object MainForm: TMainForm
547		Top = 48
548		Width = 264
549		ReadOnly = True
550	<	TabOrder = 25
550	>	TabOrder = 24
551		Text = 'DatabaseAliasName'
552		end
553	+	object Label43: TLabel
554	+	Left = 403
555	+	Height = 14
556	+	Top = 328
557	+	Width = 65
558	+	Caption = 'Comments'
559	+	ParentColor = False
560	+	end
561	+	object DBComments: TMemo
562	+	Left = 403
563	+	Height = 85
564	+	Top = 344
565	+	Width = 512
566	+	Anchors = [akTop, akLeft, akRight, akBottom]
567	+	Lines.Strings = (
568	+	'DBComments'
569	+	)
570	+	OnEditingDone = DBCommentsEditingDone
571	+	ScrollBars = ssAutoVertical
572	+	TabOrder = 25
573	+	end
574	+	object ClientLibrary: TLabel
575	+	Left = 112
576	+	Height = 14
577	+	Top = 464
578	+	Width = 76
579	+	Caption = 'ClientLibrary'
580	+	ParentColor = False
581	+	end
582	+	object Label44: TLabel
583	+	Left = 403
584	+	Height = 14
585	+	Top = 183
586	+	Width = 203
587	+	Caption = 'Client/Server Version and Protocol'
588	+	ParentColor = False
589	+	end
590	+	object ClientServerVersion: TMemo
591	+	Left = 403
592	+	Height = 104
593	+	Top = 200
594	+	Width = 511
595	+	Anchors = [akTop, akLeft, akRight]
596	+	Font.Height = -11
597	+	ParentFont = False
598	+	ScrollBars = ssAutoVertical
599	+	TabOrder = 26
600	+	end
601		end
602		end
603		object FilesTab: TTabSheet
#	Line 773 | Line 827 | object MainForm: TMainForm
827		Color = clWindow
828		Columns = <
829		item
830	+	ReadOnly = True
831		Title.Alignment = taCenter
832		Title.Caption = 'ID'
833		Width = 40
#	Line 784 | Line 839 | object MainForm: TMainForm
839		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
840		end
841		item
842	+	ReadOnly = True
843		Title.Alignment = taCenter
844		Title.Caption = 'Connect Str'
845		Width = 100
#	Line 795 | Line 851 | object MainForm: TMainForm
851		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
852		end
853		item
854	+	ReadOnly = True
855		Title.Alignment = taCenter
856		Title.Caption = 'Client'
857		Width = 120
#	Line 806 | Line 863 | object MainForm: TMainForm
863		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
864		end
865		item
866	+	ReadOnly = True
867		Title.Alignment = taCenter
868		Title.Caption = 'Client Name'
869		Width = 100
#	Line 817 | Line 875 | object MainForm: TMainForm
875		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
876		end
877		item
878	+	ReadOnly = True
879		Title.Alignment = taCenter
880		Title.Caption = 'User'
881		Width = 80
#	Line 828 | Line 887 | object MainForm: TMainForm
887		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
888		end
889		item
890	+	ReadOnly = True
891		Title.Alignment = taCenter
892		Title.Caption = 'Role'
893		Width = 80
#	Line 839 | Line 899 | object MainForm: TMainForm
899		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
900		end
901		item
902	+	ReadOnly = True
903		Title.Alignment = taCenter
904		Title.Caption = 'IP Address'
905		Width = 100
#	Line 851 | Line 912 | object MainForm: TMainForm
912		end
913		item
914		Alignment = taCenter
915	+	ReadOnly = True
916		Title.Alignment = taCenter
917		Title.Caption = 'Protocol'
918		Width = 60
#	Line 862 | Line 924 | object MainForm: TMainForm
924		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
925		end
926		item
927	+	ReadOnly = True
928		Title.Alignment = taCenter
929		Title.Caption = 'Char Set'
930		Width = 60
#	Line 874 | Line 937 | object MainForm: TMainForm
937		end
938		item
939		Alignment = taCenter
940	+	ReadOnly = True
941		Title.Alignment = taCenter
942		Title.Caption = 'State'
943		Width = 60
#	Line 885 | Line 949 | object MainForm: TMainForm
949		DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
950		end>
951		DataSource = AttachSource
952	+	Options = [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
953		PopupMenu = AttmtPopup
954		Scrollbars = ssAutoVertical
955		TabOrder = 0
#	Line 926 | Line 991 | object MainForm: TMainForm
991		Width = 48
992		DataField = 'MON$SERVER_PID'
993		DataSource = AttachSource
994	+	ReadOnly = True
995		CharCase = ecNormal
996		MaxLength = 0
997		TabOrder = 0
#	Line 937 | Line 1003 | object MainForm: TMainForm
1003		Width = 48
1004		DataField = 'MON$REMOTE_PID'
1005		DataSource = AttachSource
1006	+	ReadOnly = True
1007		CharCase = ecNormal
1008		MaxLength = 0
1009		TabOrder = 1
#	Line 949 | Line 1016 | object MainForm: TMainForm
1016		Caption = 'Garbage Collection Allowed'
1017		DataField = 'MON$GARBAGE_COLLECTION'
1018		DataSource = AttachSource
1019	+	ReadOnly = True
1020		TabOrder = 2
1021		ValueChecked = '1'
1022		ValueUnchecked = '0'
#	Line 968 | Line 1036 | object MainForm: TMainForm
1036		Width = 64
1037		DataField = 'MON$STAT_ID'
1038		DataSource = AttachSource
1039	+	ReadOnly = True
1040		CharCase = ecNormal
1041		MaxLength = 0
1042		TabOrder = 3
#	Line 1689 | Line 1758 | object MainForm: TMainForm
1758		Title.Alignment = taCenter
1759		Title.Caption = 'User Name'
1760		Width = 120
1761	<	FieldName = 'USERNAME'
1761	>	FieldName = 'SEC$USER_NAME'
1762		AutoSizeColumn = False
1763		InitialSortColumn = False
1764		DBLookupProperties.ItemHeight = 0
#	Line 1823 | Line 1892 | object MainForm: TMainForm
1892		Descending = False
1893		EditorBorderStyle = bsSingle
1894		DefaultPositionAtEnd = False
1895	<	IndexFieldNames = 'USERNAME'
1895	>	IndexFieldNames = 'SEC$USER_NAME'
1896		end
1897		end
1898		object Splitter2: TSplitter
#	Line 1918 | Line 1987 | object MainForm: TMainForm
1987		Height = 14
1988		Top = 30
1989		Width = 49
1990	<	DataField = 'USERNAME'
1990	>	DataField = 'SEC$USER_NAME'
1991		DataSource = UserListSource
1992		ParentColor = False
1993		end
#	Line 2021 | Line 2090 | object MainForm: TMainForm
2090		KeyField = 'ID'
2091		ParentField = 'PARENT'
2092		PopupMenu = AccessRightsPopup
2093	+	ReadOnly = True
2094		TabOrder = 0
2095		OnSelectionChanged = AccessRightsTreeViewSelectionChanged
2096	+	Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
2097		end
2098		object Splitter5: TSplitter
2099		Left = 300
#	Line 2111 | Line 2182 | object MainForm: TMainForm
2182		OnShow = MappingsTabShow
2183		object IBDynamicGrid5: TIBDynamicGrid
2184		Left = 0
2185	<	Height = 516
2186	<	Top = 0
2185	>	Height = 492
2186	>	Top = 24
2187		Width = 933
2188	<	Align = alClient
2188	>	Anchors = [akTop, akLeft, akRight, akBottom]
2189		Color = clWindow
2190		Columns = <
2191		item
#	Line 2153 | Line 2224 | object MainForm: TMainForm
2224		item
2225		Title.Alignment = taCenter
2226		Title.Caption = 'Database'
2227	<	Width = 150
2227	>	Width = 120
2228		FieldName = 'RDB$MAP_DB'
2229		AutoSizeColumn = False
2230		InitialSortColumn = False
#	Line 2164 | Line 2235 | object MainForm: TMainForm
2235		item
2236		Title.Alignment = taCenter
2237		Title.Caption = 'Mapping From'
2238	<	Width = 150
2238	>	Width = 120
2239		FieldName = 'MAP_FROM'
2240		AutoSizeColumn = False
2241		InitialSortColumn = False
#	Line 2175 | Line 2246 | object MainForm: TMainForm
2246		item
2247		Title.Alignment = taCenter
2248		Title.Caption = 'Mapping To'
2249	<	Width = 150
2249	>	Width = 120
2250		FieldName = 'MAP_TO'
2251		AutoSizeColumn = False
2252		InitialSortColumn = False
#	Line 2202 | Line 2273 | object MainForm: TMainForm
2273		EditorBorderStyle = bsSingle
2274		DefaultPositionAtEnd = False
2275		end
2276	+	object AutoAdmin: TCheckBox
2277	+	Left = 776
2278	+	Height = 22
2279	+	Top = 2
2280	+	Width = 151
2281	+	Anchors = [akTop, akRight]
2282	+	Caption = 'Auto Admin Mapping'
2283	+	OnChange = AutoAdminChange
2284	+	TabOrder = 1
2285	+	end
2286		end
2287		object RepairTab: TTabSheet
2288		Caption = 'Database Repair'
#	Line 2210 | Line 2291 | object MainForm: TMainForm
2291		OnHide = RepairTabHide
2292		OnShow = RepairTabShow
2293		object SelectRepairAction: TComboBox
2294	<	Left = 656
2294	>	Left = 654
2295		Height = 27
2296		Top = 8
2297		Width = 200
#	Line 2228 | Line 2309 | object MainForm: TMainForm
2309		Text = 'Database Sweep'
2310		end
2311		object Button2: TButton
2312	<	Left = 864
2312	>	Left = 862
2313		Height = 25
2314		Top = 9
2315		Width = 35
#	Line 2328 | Line 2409 | object MainForm: TMainForm
2409		end
2410		object Panel8: TPanel
2411		Left = 10
2412	<	Height = 381
2412	>	Height = 384
2413		Top = 123
2414	<	Width = 890
2414	>	Width = 888
2415		Anchors = [akTop, akLeft, akRight, akBottom]
2416		BevelOuter = bvNone
2417		Caption = 'ValidationPanel'
2418	<	ClientHeight = 381
2419	<	ClientWidth = 890
2418	>	ClientHeight = 384
2419	>	ClientWidth = 888
2420		TabOrder = 3
2421		object DBTablesPanel: TPanel
2422		Left = 0
2423	<	Height = 381
2423	>	Height = 384
2424		Top = 0
2425		Width = 170
2426		Align = alLeft
2427		BevelOuter = bvNone
2428	<	ClientHeight = 381
2428	>	ClientHeight = 384
2429		ClientWidth = 170
2430		TabOrder = 0
2431		object Alltables: TRadioButton
#	Line 2369 | Line 2450 | object MainForm: TMainForm
2450		end
2451		object SelectedTablesGrid: TIBDynamicGrid
2452		Left = 0
2453	<	Height = 268
2453	>	Height = 271
2454		Top = 90
2455		Width = 170
2456		Anchors = [akTop, akLeft, akRight, akBottom]
#	Line 2417 | Line 2498 | object MainForm: TMainForm
2498		object SelectAllTables: TCheckBox
2499		Left = 0
2500		Height = 22
2501	<	Top = 360
2501	>	Top = 363
2502		Width = 134
2503		Anchors = [akLeft, akBottom]
2504		Caption = 'Select/Deselect All'
#	Line 2427 | Line 2508 | object MainForm: TMainForm
2508		end
2509		object DBTablesSplitter: TSplitter
2510		Left = 170
2511	<	Height = 381
2511	>	Height = 384
2512		Top = 0
2513		Width = 5
2514		end
2515		object Panel9: TPanel
2516		Left = 175
2517	<	Height = 381
2517	>	Height = 384
2518		Top = 0
2519	<	Width = 715
2519	>	Width = 713
2520		Align = alClient
2521		BevelOuter = bvNone
2522	<	ClientHeight = 381
2523	<	ClientWidth = 715
2522	>	ClientHeight = 384
2523	>	ClientWidth = 713
2524		TabOrder = 2
2525		object Label37: TLabel
2526		Left = 0
#	Line 2451 | Line 2532 | object MainForm: TMainForm
2532		end
2533		object ValidationReport: TMemo
2534		Left = 0
2535	<	Height = 357
2535	>	Height = 360
2536		Top = 24
2537	<	Width = 715
2537	>	Width = 713
2538		Align = alBottom
2539		Anchors = [akTop, akLeft, akRight, akBottom]
2540		Lines.Strings = (
#	Line 2653 | Line 2734 | object MainForm: TMainForm
2734		end
2735		end
2736		object UpdateColsPanel: TPanel
2737	<	Left = 328
2737	>	Left = 40
2738		Height = 64
2739	<	Top = 128
2739	>	Top = 488
2740		Width = 544
2741		BevelOuter = bvNone
2742		BorderStyle = bsSingle
#	Line 2723 | Line 2804 | object MainForm: TMainForm
2804		object MenuItem5: TMenuItem
2805		Action = Restore
2806		end
2807	+	object MenuItem21: TMenuItem
2808	+	Caption = '-'
2809	+	end
2810	+	object MenuItem20: TMenuItem
2811	+	Action = RunScript
2812	+	end
2813		object MenuItem10: TMenuItem
2814		Caption = '-'
2815		end
#	Line 2744 | Line 2831 | object MainForm: TMainForm
2831		object Quit: TAction
2832		Category = 'General'
2833		Caption = 'Exit'
2834	+	OnExecute = QuitExecute
2835		end
2836		object Backup: TAction
2837		Category = 'General'
#	Line 2882 | Line 2970 | object MainForm: TMainForm
2970		OnExecute = RevokeAllExecute
2971		OnUpdate = RevokeAllUpdate
2972		end
2973	+	object RunScript: TAction
2974	+	Category = 'General'
2975	+	Caption = 'Run SQL Script'
2976	+	Hint = 'Run SQL Script'
2977	+	ImageIndex = 5
2978	+	OnExecute = RunScriptExecute
2979	+	end
2980		end
2981		object MenuImages: TImageList
2982		left = 704
2983		top = 184
2984		Bitmap = {
2985	<	4C69050000001000000010000000000000000000000000000000000000000000
2985	>	4C69060000001000000010000000000000000000000000000000000000000000
2986		0000000000000000000000000000000000000000000000000000000000FF0000
2987		00FF000000FF000000FF000000FF000000000000000000000000000000000000
2988		00000000000000000000000084FF0000000000000000000000FF848400FFFFFF
#	Line 3047 | Line 3142 | object MainForm: TMainForm
3142		EB08FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00211FE3081E1C
3143		E241FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3144		FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3145	<	FF00FFFFFF00FFFFFF00FFFFFF00
3145	>	FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3146	>	FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00858A88FF858A88FF858A
3147	>	88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3148	>	FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00808080026A6E6CFFECEEEEFF6A6E
3149	>	6CFF80808002FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3150	>	FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF01414342FEF2F3F2FFFEFEFEFFF2F3
3151	>	F2FF414342FEFFFFFF01FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3152	>	FF00FFFFFF00FFFFFF00858A88FF6A6E6CFFF1F1F1FFACADADFB717473FAACAD
3153	>	ADFBF1F1F1FF6A6E6CFF858A88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3154	>	FF00FFFFFF00FFFFFF00858A88FFECEEEEFFFEFEFEFF717573FBFFFFFF017175
3155	>	73FBFEFEFEFFECEEEEFF858A88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3156	>	FF00FFFFFF00FFFFFF00858A88FF6A6E6CFFF1F1F1FFACADADFB717473FAACAD
3157	>	ADFBF1F1F1FF6A6E6CFF858A88FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
3158	>	FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF01414342FEF2F3F2FFFEFEFEFFF2F3
3159	>	F2FF414342FEFFFFFF01FFFFFF00FFFFFF00FFFFFF00FFFFFF00858A88FF858A
3160	>	88FF858A88FFFFFFFF00FFFFFF00545856FF535755FF6A6E6CFFECEEEEFF6A6E
3161	>	6CFF535755FF545856FFFFFFFF00FFFFFF00FFFFFF00808080026A6E6CFFECEE
3162	>	EEFF6A6E6CFF80808002535755FFCECFCFFFE0E2E2FF858A88FF858A88FF858A
3163	>	88FFE0E2E2FFCECFCFFF535755FFFFFFFF00FFFFFF01414342FEF2F3F2FFFEFE
3164	>	FEFFF2F3F2FF414342FE535755FEE0E1E1FFF8F8F8FFFBFCFCFFF7F7F7FFFBFC
3165	>	FCFFF8F8F8FFE0E1E1FF535755FE858A88FF6A6E6CFFF1F1F1FFACADADFB7174
3166	>	73FAACADADFBF1F1F1FF6A6E6CFF858A88FFFBFBFBFF9DA09FF6535755FD9DA0
3167	>	9FF6FBFBFBFFABAEAEFA565B58B7858A88FFECEEEEFFFEFEFEFF717573FBFFFF
3168	>	FF01717573FBFEFEFEFFECEEEEFF858A88FFF7F7F7FF535755FF000000015357
3169	>	55FFF7F7F7FFC4C5C5FF00000001858A88FF6A6E6CFFF1F1F1FFACADADFB7174
3170	>	73FAACADADFBF1F1F1FF6A6E6CFF858A88FFFBFBFBFF9DA09FF6535755FD9DA0
3171	>	9FF6FBFBFBFFABAEAEFA565B58B7FFFFFF00FFFFFF01414342FEF2F3F2FFFEFE
3172	>	FEFFF2F3F2FF414342FE535755FEE0E1E1FFF8F8F8FFFBFCFCFFF7F7F7FFFBFC
3173	>	FCFFF8F8F8FFE0E1E1FF535755FEFFFFFF00FFFFFF00FFFFFF016A6E6CFFECEE
3174	>	EEFF6A6E6CFFFFFFFF01535755FFCECFCFFFE0E2E2FFADB0AFFBC6C8C7FCADB0
3175	>	AFFBE0E2E2FFCECFCFFF535755FFFFFFFF00FFFFFF00FFFFFF00858A88FF858A
3176	>	88FF858A88FFFFFFFF00FFFFFF00545856FF535755FF575B58B300000001575B
3177	>	58B3535755FF545856FF00000001
3178		}
3179		end
3180		object CharSetSource: TDataSource
#	Line 3082 | Line 3209 | object MainForm: TMainForm
3209		end
3210		object ShadowSource: TDataSource
3211		DataSet = DatabaseData.ShadowFiles
3212	<	left = 424
3213	<	top = 400
3212	>	left = 464
3213	>	top = 512
3214		end
3215		object SynSQLSyn1: TSynSQLSyn
3216		DefaultFilter = 'SQL Files (*.sql)|*.sql'
#	Line 3099 | Line 3226 | object MainForm: TMainForm
3226		Database = DatabaseData.IBDatabase1
3227		Transaction = DatabaseData.CurrentTransaction
3228		ShowSystem = False
3229	+	AlwaysQuoteIdentifiers = False
3230	+	CaseSensitiveObjectNames = False
3231		left = 712
3232		top = 296
3233		end
#	Line 3119 | Line 3248 | object MainForm: TMainForm
3248		object UserListSource: TDataSource
3249		DataSet = DatabaseData.UserList
3250		left = 416
3251	<	top = 328
3251	>	top = 360
3252		end
3253		object RoleSource: TDataSource
3254		DataSet = DatabaseData.RoleNameList

Diff Legend

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