ViewVC Help

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

root/public/ibx/branches/journaling/design/IBDBReg.pas

Comparing ibx/trunk/design/IBDBReg.pas (file contents):
Revision 35 by tony, Tue Jan 26 14:38:47 2016 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

#	Line 27 | Line 27
27		{    IBX For Lazarus (Firebird Express)                                  }
28		{    Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk }
29		{    Portions created by MWA Software are copyright McCallum Whyman      }
30	<	{    Associates Ltd 2011                                                 }
30	>	{    Associates Ltd 2011 - 2018                                               }
31		{************************************************************************}
32
33		unit IBDBReg;
#	Line 39 | Line 39 | unit IBDBReg;
39		*)
40		{$A+}                           (* Aligned records: On *)
41		{$B-}                           (* Short circuit boolean expressions: Off *)
42	–	{$G+}                           (* Imported data: On *)
42		{$H+}                           (* Huge Strings: On *)
43		{$J-}                           (* Modification of Typed Constants: Off *)
44		{$M+}                           (* Generate run-time type information: On *)
#	Line 47 | Line 46 | unit IBDBReg;
46		{$Q-}                           (* Overflow checks: Off *)
47		{$R-}                           (* Range checks: Off *)
48		{$T+}                           (* Typed address: On *)
50	–	{$U+}                           (* Pentim-safe FDIVs: On *)
49		{$W-}                           (* Always generate stack frames: Off *)
50		{$X+}                           (* Extended syntax: On *)
51		{$Z1}                           (* Minimum Enumeration Size: 1 Byte *)
#	Line 56 | Line 54 | interface
54
55		uses SysUtils, Classes, Graphics, Dialogs, Controls, Forms, TypInfo,
56		DB, IBTable, IBDatabase,  IBEventsEditor,  LazarusPackageIntf,
57	<	IBUpdateSQL, IBXConst, ComponentEditors, PropEdits, DBPropEdits, FieldsEditor,
57	>	IBUpdateSQL, IBUpdate, ComponentEditors, PropEdits, DBPropEdits, FieldsEditor,
58		dbFieldLinkPropEditor, dbFieldListPropEditor, IBDialogs;
59
60		type
#	Line 65 | Line 63 | type
63		Property editor the DataBase Name property.  Brings up the Open dialog }
64
65		TIBFileNameProperty = class(TStringProperty)
66	+	protected
67	+	function GetFilter: string; virtual;
68		public
69		procedure Edit; override;
70		function GetAttributes: TPropertyAttributes; override;
71		end;
72
73	+	{ TIBLibraryNameProperty }
74	+
75	+	TIBLibraryNameProperty = class(TIBFileNameProperty)
76	+	protected
77	+	function GetFilter: string; override;
78	+	end;
79	+
80		{ TIBNameProperty
81		}
82		TIBNameProperty = class(TStringProperty)
#	Line 85 | Line 92 | type
92		procedure GetValues(Proc: TGetStrProc); override;
93		end;
94
95	+	{ TIBPackageNameProperty
96	+	Editor for the TIBStoredProc.PackageName property.  Displays a drop-down list of all
97	+	the StoredProcedures in the Database.}
98	+	TIBPackageNameProperty = class(TIBNameProperty)
99	+	public
100	+	procedure GetValues(Proc: TGetStrProc); override;
101	+	end;
102	+
103		{ TIBTableNameProperty
104		Editor for the TIBTable.TableName property.  Displays a drop-down list of all
105		the Tables in the Database.}
#	Line 134 | Line 149 | type
149		function GetVerbCount: Integer; override;
150		end;
151
152	+	{ TIBArrayGridEditor }
153	+
154	+	TIBArrayGridEditor = class(TComponentEditor)
155	+	public
156	+	procedure ExecuteVerb(Index: Integer); override;
157	+	function GetVerb(Index: Integer): string; override;
158	+	function GetVerbCount: Integer; override;
159	+	end;
160	+
161		{ TIBQueryEditor }
162
163		TIBQueryEditor = class(TFieldsComponentEditor)
#	Line 188 | Line 212 | type
212		function GetVerbCount: Integer; override;
213		end;
214
215	<	TIBStoredProcParamsProperty = class(TCollectionPropertyEditor)
215	>	{ TIBXServiceEditor }
216	>
217	>	TIBXServiceEditor = class(TComponentEditor)
218		public
219	<	procedure Edit; override;
219	>	procedure ExecuteVerb(Index: Integer); override;
220	>	function GetVerb(Index: Integer): string; override;
221	>	function GetVerbCount: Integer; override;
222	>	end;
223	>
224	>	TIBStoredProcParamsProperty = class(TCollectionPropertyEditor)
225		end;
226
227		{ TIBTableFieldLinkProperty }
#	Line 309 | Line 340 | type
340		procedure Edit; override;
341		end;
342
343	+	{ TIBUpdateRefreshSQLProperty }
344	+
345	+	TIBUpdateRefreshSQLProperty = class(TSQLPropertyEditor)
346	+	protected
347	+	FIBUpdate: TIBUpdate;
348	+	FDatabase: TIBDatabase;
349	+	function GetObjects: boolean;
350	+	public
351	+	procedure Edit; override;
352	+	end;
353	+
354	+
355		{ TIBEventListProperty }
356
357		TIBEventListProperty = class(TClassProperty)
#	Line 355 | Line 398 | type
398		procedure SetIndexFieldNames(const Value: string); override;
399		end;
400
401	+	{ TIBFieldDefsProperty }
402	+
403	+	TIBFieldDefsProperty = class(TCollectionPropertyEditor)
404	+	public
405	+	procedure Edit; override;
406	+	end;
407	+
408	+	{ TIBIndexDefsProperty }
409	+
410	+	TIBIndexDefsProperty = class(TCollectionPropertyEditor)
411	+	public
412	+	procedure Edit; override;
413	+	end;
414
415
416		procedure Register;
417
418		implementation
419
420	<	uses IB, IBQuery, IBStoredProc, IBCustomDataSet,
421	<	IBIntf, IBSQL, IBSQLMonitor, IBDatabaseInfo, IBEvents,
422	<	IBServices, IBDatabaseEdit, IBTransactionEdit,
420	>	uses IB, IBQuery, IBStoredProc, IBCustomDataSet, IBMessages,
421	>	IBSQL, IBSQLMonitor, IBDatabaseInfo, IBEvents, IBInternals,
422	>	IBServices, IBXServices, IBDatabaseEdit, IBTransactionEdit,
423		IBBatchMove, IBExtract,LResources, IBSelectSQLEditor,
424		IBModifySQLEditor,IBDeleteSQLEditor,IBRefreshSQLEditor,
425		IBInsertSQLEditor, IBGeneratorEditor, IBUpdateSQLEditor, IBDataSetEditor,
426		IBSQLEditor, ibserviceeditor, LCLVersion, IBDynamicGrid, IBLookupComboEditBox,
427	<	IBTreeView, DBControlGrid;
428	<
427	>	IBTreeView, DBControlGrid, ibxscript, IBLocalDBSupport, IBDSDialogs,
428	>	IBArrayGrid, IBVersion, IBDataOutput, IBXServiceEditor;
429
430	+	const
431	+	IBPalette1 = 'Firebird'; {do not localize}
432	+	IBPalette2 = 'Firebird Legacy Admin'; {do not localize}
433	+	IBPalette3 = 'Firebird Data Controls';   {do not localize}
434	+	IBPalette4 = 'Firebird Admin'; {do not localize}
435	+
436	+	resourcestring
437	+	SInterbaseExpressVersion = 'Firebird Express for Lazarus ' + IBX_VERSION;
438	+	SEditSQL = 'Edit SQL';
439	+	SIBSQLEditor = 'IBSQL Editor';
440	+	SIBServiceEditor = 'Edit IB Service';
441	+	SIBUpdateSQLEditor = '&UpdateSQL Editor...';
442	+	SIBDataSetEditor = '&Dataset Editor...';
443	+	SExecute = 'E&xecute';
444	+	SIBDatabaseEditor = 'Da&tabase Editor...';
445	+	SIBTransactionEditor = '&Transaction Editor...';
446	+	SIBUpdateLayout = 'Update Layout';
447
448		procedure Register;
449		begin
450	+	AllowUseOfFBLIB := true;
451		if not TryIBLoad then
452		begin
453		MessageDlg('IBX is unable to locate the Firebird Library - have you remembered to install it?',mtError,[mbOK],0);
454		Exit;
455		end;
456
457	<	RegisterNoIcon([TIBStringField, TIBBCDField, TIBMemoField]);
457	>	RegisterNoIcon([TIBStringField, TIBBCDField, TIBMemoField, TIBArrayField,
458	>	TIBSmallintField, TIBIntegerField, TIBLargeIntField, TIBDateTimeField,
459	>	TIBTimeField]);
460		{$if lcl_fullversion < 01010000}
461		{see http://bugs.freepascal.org/view.php?id=19035 }
462		RegisterNoIcon([TIntegerField]);
463		{$endif}
464		RegisterComponents(IBPalette1, [ TIBQuery, TIBDataSet,
465	<	TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBEvents,
465	>	TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBUpdate, TIBEvents,
466		TIBSQL, TIBDatabaseInfo, TIBSQLMonitor,
467	<	TIBStoredProc,TIBBatchMove,  TIBTable,TIBExtract]);
468	<	if IBServiceAPIPresent  then
467	>	TIBStoredProc,TIBBatchMove,  TIBTable,TIBExtract, TIBXScript, TIBLocalDBSupport,
468	>	TIBBlockFormatOut,TIBCSVDataOut,TIBInsertStmtsOut]);
469	>	if FirebirdAPI.HasServiceAPI  then
470	>	begin
471	>	RegisterComponents(IBPalette4, [TIBXServicesConnection, TIBXConfigService,
472	>	TIBXClientSideBackupService, TIBXServerSideBackupService,
473	>	TIBXClientSideRestoreService, TIBXServerSideRestoreService,
474	>	TIBXValidationService, TIBXOnlineValidationService, TIBXStatisticalService,
475	>	TIBXLogService, TIBXSecurityService, TIBXServerProperties,
476	>	TIBXLimboTransactionResolutionService,TIBXServicesUserList, TIBXServicesLimboTransactionsList]);
477		RegisterComponents(IBPalette2, [TIBConfigService, TIBBackupService,
478	<	TIBRestoreService, TIBValidationService, TIBStatisticalService,
478	>	TIBRestoreService, TIBValidationService,
479	>	TIBOnlineValidationService, TIBStatisticalService,
480		TIBLogService, TIBSecurityService, TIBServerProperties]);
481	+	end;
482
483	+	RegisterComponents(IBPalette3,[TIBLookupComboEditBox,TIBDynamicGrid,TIBTreeView,TDBControlGrid, TIBArrayGrid]);
484
398	–	RegisterComponents(IBPalette3,[TIBLookupComboEditBox,TIBDynamicGrid,TIBTreeView,TDBControlGrid]);
485		RegisterPropertyEditor(TypeInfo(TIBFileName), TIBDatabase, 'DatabaseName', TIBFileNameProperty); {do not localize}
486	+	RegisterPropertyEditor(TypeInfo(TIBFileName), TIBDatabase, 'FirebirdLibraryPathName', TIBLibraryNameProperty); {do not localize}
487	+	RegisterPropertyEditor(TypeInfo(TIBFileName), TIBXServicesConnection, 'FirebirdLibraryPathName', TIBLibraryNameProperty); {do not localize}
488		RegisterPropertyEditor(TypeInfo(string), TIBStoredProc, 'StoredProcName', TIBStoredProcNameProperty); {do not localize}
489	+	RegisterPropertyEditor(TypeInfo(string), TIBStoredProc, 'PackageName', TIBPackageNameProperty); {do not localize}
490		RegisterPropertyEditor(TypeInfo(TParams), TIBStoredProc, 'Params', TIBStoredProcParamsProperty);
491		RegisterPropertyEditor(TypeInfo(string), TIBTable, 'TableName', TIBTableNameProperty); {do not localize}
492		RegisterPropertyEditor(TypeInfo(string), TIBTable, 'IndexName', TIBIndexNameProperty); {do not localize}
493		RegisterPropertyEditor(TypeInfo(string), TIBTable, 'IndexFieldNames', TIBIndexFieldNamesProperty); {do not localize}
494		RegisterPropertyEditor(TypeInfo(string), TIBTable, 'MasterFields', TIBTableFieldLinkProperty); {do not localize}
495	+	RegisterPropertyEditor(TypeInfo(TFieldDefs), TIBTable, 'FieldDefs', TIBFieldDefsProperty); {do not localize}
496	+	RegisterPropertyEditor(TypeInfo(TIndexDefs), TIBTable, 'IndexDefs', TIBIndexDefsProperty); {do not localize}
497		RegisterPropertyEditor(TypeInfo(TStrings), TIBQuery, 'SQL', TIBQuerySQLProperty); {do not localize}
498		RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'SelectSQL', TIBDatasetSQLProperty); {do not localize}
499		RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'ModifySQL', TIBUpdateSQLProperty); {do not localize}
#	Line 414 | Line 505 | begin
505		RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'ModifySQL', TIBUpdateSQLUpdateProperty); {do not localize}
506		RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'InsertSQL', TIBUpdateSQLInsertSQLProperty); {do not localize}
507		RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'DeleteSQL', TIBUpdateSQLDeleteProperty); {do not localize}
508	+	RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdate, 'RefreshSQL', TIBUpdateRefreshSQLProperty); {do not localize}
509		RegisterPropertyEditor(TypeInfo(TStrings), TIBEvents, 'Events', TIBEventListProperty); {do not localize}
510		RegisterPropertyEditor(TypeInfo(TPersistent), TIBDataSet, 'GeneratorField', TIBGeneratorProperty);  {do not localize}
511		RegisterPropertyEditor(TypeInfo(TPersistent), TIBQuery, 'GeneratorField', TIBGeneratorProperty);  {do not localize}
512	+	RegisterPropertyEditor(TypeInfo(TPersistent), TIBTable, 'GeneratorField', TIBGeneratorProperty);  {do not localize}
513
514		RegisterComponentEditor(TIBDatabase, TIBDatabaseEditor);
515		RegisterComponentEditor(TIBTransaction, TIBTransactionEditor);
#	Line 426 | Line 519 | begin
519		RegisterComponentEditor(TIBStoredProc, TIBStoredProcEditor);
520		RegisterComponentEditor(TIBSQL, TIBSQLEditor);
521		RegisterComponentEditor(TIBCustomService, TIBServiceEditor);
522	+	RegisterComponentEditor(TIBArrayGrid, TIBArrayGridEditor);
523	+	RegisterComponentEditor(TIBXServicesConnection, TIBXServiceEditor);
524
525
526		{Firebird Data Access Controls}
#	Line 437 | Line 532 | begin
532		RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'TextField', TIBTreeViewFieldProperty);
533		RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'ParentField', TIBTreeViewFieldProperty);
534		RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'HasChildField', TIBTreeViewFieldProperty);
535	+	RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'ImageIndexField', TIBTreeViewFieldProperty);
536	+	RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'SelectedIndexField', TIBTreeViewFieldProperty);
537
538	+	IBGUIInterface :=  TIBDSLCLInterface.Create;
539		end;
540
541		procedure LoadDataSourceFields(DataSource: TDataSource; List: TStrings);
#	Line 462 | Line 560 | begin
560		end;
561		end;
562
563	+	{ TIBLibraryNameProperty }
564	+
565	+	function TIBLibraryNameProperty.GetFilter: string;
566	+	begin
567	+	Result := SLibraryNameFilter; {do not localise}
568	+	end;
569	+
570	+	{ TIBXServiceEditor }
571	+
572	+	procedure TIBXServiceEditor.ExecuteVerb(Index: Integer);
573	+	begin
574	+	if Index < inherited GetVerbCount then
575	+	inherited ExecuteVerb(Index) else
576	+	begin
577	+	Dec(Index, inherited GetVerbCount);
578	+	case Index of
579	+	0 : if IBXServiceEditor.EditIBXService(TIBXServicesConnection(Component)) then Designer.Modified;
580	+	end;
581	+	end;
582	+	end;
583	+
584	+	function TIBXServiceEditor.GetVerb(Index: Integer): string;
585	+	begin
586	+	if Index < inherited GetVerbCount then
587	+	Result := inherited GetVerb(Index) else
588	+	begin
589	+	Dec(Index, inherited GetVerbCount);
590	+	case Index of
591	+	0: Result := SIBServiceEditor;
592	+	1 : Result := SInterbaseExpressVersion;
593	+	end;
594	+	end;
595	+	end;
596	+
597	+	function TIBXServiceEditor.GetVerbCount: Integer;
598	+	begin
599	+	Result := inherited GetVerbCount + 2;
600	+	end;
601	+
602	+	{ TIBUpdateRefreshSQLProperty }
603	+
604	+	function TIBUpdateRefreshSQLProperty.GetObjects: boolean;
605	+	begin
606	+	Result := false;
607	+	FIBUpdate := GetComponent(0) as TIBUpdate;
608	+	if not assigned(FIBUpdate) or not assigned(FIBUpdate.DataSet) then
609	+	Exit;
610	+	FDatabase := nil;
611	+	if FIBUpdate.DataSet is TIBQuery then
612	+	begin
613	+	FDatabase := (FIBUpdate.DataSet as TIBQuery).Database;
614	+	Result := true
615	+	end;
616	+	end;
617	+
618	+	procedure TIBUpdateRefreshSQLProperty.Edit;
619	+	begin
620	+	GetObjects;
621	+	if IBRefreshSQLEditor.EditSQL(FIBUpdate.DataSet,FIBUpdate.RefreshSQL) then Modified;
622	+	end;
623	+
624	+	{ TIBPackageNameProperty }
625	+
626	+	procedure TIBPackageNameProperty.GetValues(Proc: TGetStrProc);
627	+	var
628	+	StoredProc : TIBStoredProc;
629	+	i : integer;
630	+	begin
631	+	StoredProc := GetComponent(0) as TIBStoredProc;
632	+	if StoredProc.Database = nil then
633	+	Exit;
634	+
635	+	with StoredProc do
636	+	try
637	+	for I := 0 to PackageNames.Count - 1 do
638	+	Proc (PackageNames[i]);
639	+	except on E: Exception do
640	+	MessageDlg(E.Message,mtError,[mbOK],0)
641	+	end;
642	+	end;
643	+
644	+	{ TIBIndexDefsProperty }
645	+
646	+	procedure TIBIndexDefsProperty.Edit;
647	+	var IndexDefs: TIndexDefs;
648	+	begin
649	+	IndexDefs := TIndexDefs(GetObjectValue);
650	+	if IndexDefs <> nil then
651	+	IndexDefs.Update;
652	+	inherited Edit;
653	+	end;
654	+
655	+	{ TIBFieldDefsProperty }
656	+
657	+	procedure TIBFieldDefsProperty.Edit;
658	+	var FieldDefs: TFieldDefs;
659	+	begin
660	+	FieldDefs := TFieldDefs(GetObjectValue);
661	+	if FieldDefs <> nil then
662	+	FieldDefs.Update;
663	+	inherited Edit;
664	+	end;
665	+
666	+	{ TIBArrayGridEditor }
667	+
668	+	procedure TIBArrayGridEditor.ExecuteVerb(Index: Integer);
669	+	begin
670	+	if Index < inherited GetVerbCount then
671	+	inherited ExecuteVerb(Index)
672	+	else
673	+	case Index of
674	+	0: TIBArrayGrid(Component).UpdateLayout;
675	+	end;
676	+	end;
677	+
678	+	function TIBArrayGridEditor.GetVerb(Index: Integer): string;
679	+	begin
680	+	if Index < inherited GetVerbCount then
681	+	Result := inherited GetVerb(Index) else
682	+	begin
683	+	Dec(Index, inherited GetVerbCount);
684	+	case Index of
685	+	0: Result := SIBUpdateLayout;
686	+	1 : Result := SInterbaseExpressVersion ;
687	+	end;
688	+	end;
689	+	end;
690	+
691	+	function TIBArrayGridEditor.GetVerbCount: Integer;
692	+	begin
693	+	Result := 2;
694	+	end;
695	+
696		{ TDBLookupPropertiesGridFieldProperty }
697
698		procedure TDBLookupPropertiesGridFieldProperty.FillValues(
#	Line 552 | Line 783 | begin
783		Result := inherited GetVerbCount + 2;
784		end;
785
786	+	function TIBFileNameProperty.GetFilter: string;
787	+	begin
788	+	Result := SDatabaseFilter; {do not localize}
789	+	end;
790	+
791		{ TIBFileNameProperty }
792		procedure TIBFileNameProperty.Edit;
793		begin
794		with TOpenDialog.Create(Application) do
795		try
796		InitialDir := ExtractFilePath(GetStrValue);
797	<	Filter := SDatabaseFilter; {do not localize}
797	>	Filter := GetFilter;
798		if Execute then
799		SetStrValue(FileName);
800		finally
#	Line 742 | Line 978 | var
978		IBSQL: TIBSQL;
979		begin
980		IBSQL := GetComponent(0) as TIBSQL;
981	<	if IBSQLEditor.EditIBSQL(IBSQL) then Modified;
981	>	if IBSQLEditor.EditSQL(IBSQL) then Modified;
982		end;
983
984		{ TIBUpdateSQLEditor }
#	Line 756 | Line 992 | function TIBUpdateSQLEditor.GetVerb(Inde
992		begin
993		case Index of
994		0 : Result := SIBUpdateSQLEditor;
995	<	1: Result := SInterbaseExpressVersion;
995	>	1: Result := SInterbaseExpressVersion ;
996		end;
997		end;
998
#	Line 768 | Line 1004 | end;
1004		{ TIBDataSetEditor }
1005
1006		procedure TIBDataSetEditor.ExecuteVerb(Index: Integer);
771	–	var
772	–	IBDataset: TIBDataset;
1007		begin
1008		if Index < inherited GetVerbCount then
1009		inherited ExecuteVerb(Index) else
#	Line 793 | Line 1027 | begin
1027		case Index of
1028		0: Result := SIBDataSetEditor;
1029		1: Result := SExecute;
1030	<	2: Result := SInterbaseExpressVersion;
1030	>	2: Result := SInterbaseExpressVersion ;
1031		end;
1032		end;
1033		end;
#	Line 850 | Line 1084 | begin
1084		Dec(Index, inherited GetVerbCount);
1085		case Index of
1086		0: Result := SIBDatabaseEditor;
1087	<	1 : Result := SInterbaseExpressVersion;
1087	>	1 : Result := SInterbaseExpressVersion ;
1088		end;
1089		end;
1090		end;
#	Line 873 | Line 1107 | function TIBTransactionEditor.GetVerb(In
1107		begin
1108		case Index of
1109		0: Result := SIBTransactionEditor;
1110	<	1: Result := SInterbaseExpressVersion;
1110	>	1: Result := SInterbaseExpressVersion ;
1111		end;
1112		end;
1113
#	Line 909 | Line 1143 | begin
1143		case Index of
1144		0: Result := SExecute;
1145		1: Result := SEditSQL;
1146	<	2: Result := SInterbaseExpressVersion;
1146	>	2: Result := SInterbaseExpressVersion ;
1147		end;
1148		end;
1149		end;
#	Line 939 | Line 1173 | begin
1173		Dec(Index, inherited GetVerbCount);
1174		case Index of
1175		0: Result := SExecute;
1176	<	1: Result := SInterbaseExpressVersion;
1176	>	1: Result := SInterbaseExpressVersion ;
1177		end;
1178		end;
1179		end;
#	Line 949 | Line 1183 | begin
1183		Result := inherited GetVerbCount + 2;
1184		end;
1185
952	–	{ TIBStoredProcParamsProperty }
953	–
954	–	procedure TIBStoredProcParamsProperty.Edit;
955	–	var
956	–	StoredProc: TIBStoredProc;
957	–	Params: TParams;
958	–	begin
959	–	StoredProc := (GetComponent(0) as TIBStoredProc);
960	–	Params := TParams.Create(nil);
961	–	try
962	–	StoredProc.CopyParams(Params);
963	–	finally
964	–	Params.Free;
965	–	end;
966	–	inherited Edit;
967	–	end;
968	–
1186		{ TIBTableFieldLinkProperty }
1187
1188		procedure TIBTableFieldLinkProperty.Edit;
#	Line 1024 | Line 1241 | end;
1241		procedure TIBRefreshSQLProperty.Edit;
1242		var
1243		IBDataset: TIBDataset;
1027	–	aDatabase: TIBDatabase;
1244		begin
1245		IBDataset := GetComponent(0) as TIBDataset;
1246		if IBRefreshSQLEditor.EditSQL(IBDataSet,IBDataSet.RefreshSQL) then Modified;
#	Line 1111 | Line 1327 | end;
1327
1328		procedure TIBSQLEditor.ExecuteVerb(Index: Integer);
1329		begin
1330	<	if IBSQLEditor.EditIBSQL(TIBSQL(Component)) then Modified;
1330	>	if IBSQLEditor.EditSQL(TIBSQL(Component)) then Modified;
1331		end;
1332
1333		function TIBSQLEditor.GetVerb(Index: Integer): string;
1334		begin
1335		case Index of
1336		0 : Result := SIBSQLEditor;
1337	<	1: Result := SInterbaseExpressVersion;
1337	>	1: Result := SInterbaseExpressVersion ;
1338		end;
1339		end;
1340
#	Line 1134 | Line 1350 | var
1350		IBSQL: TIBSQL;
1351		begin
1352		IBSQL := GetComponent(0) as TIBSQL;
1353	<	if IBSQLEditor.EditIBSQL(IBSQL) then Modified;
1353	>	if IBSQLEditor.EditSQL(IBSQL) then Modified;
1354		end;
1355
1356		initialization

Diff Legend

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