ViewVC Help

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

root/public/ibx/trunk/design/IBDBReg.pas

Comparing ibx/trunk/design/IBDBReg.pas (file contents):
Revision 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

#	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 *)
52
53		interface
54
55	<	uses {Windows,} SysUtils, Classes, Graphics, Dialogs, Controls, Forms, TypInfo,
55	>	uses SysUtils, Classes, Graphics, Dialogs, Controls, Forms, TypInfo,
56		DB, IBTable, IBDatabase,  IBEventsEditor,  LazarusPackageIntf,
57	<	IBUpdateSQL, IBXConst, ComponentEditors, PropEdits, DBPropEdits, FieldsEditor;
57	>	IBUpdateSQL, ComponentEditors, PropEdits, DBPropEdits, FieldsEditor,
58	>	dbFieldLinkPropEditor, dbFieldListPropEditor, IBDialogs;
59
60		type
61
#	Line 92 | Line 91 | type
91		procedure GetValues(Proc: TGetStrProc); override;
92		end;
93
94	+	{ TDBStringProperty }
95	+
96		TDBStringProperty = class(TStringProperty)
97	+	private
98	+	function ConnecttoDB: boolean;
99		public
100		function GetAttributes: TPropertyAttributes; override;
101		procedure GetValueList(List: TStrings); virtual;
102		procedure GetValues(Proc: TGetStrProc); override;
103	+	procedure Edit; override;
104		end;
105
106	+	{ TIBIndexFieldNamesProperty }
107	+
108		TIBIndexFieldNamesProperty = class(TDBStringProperty)
109		public
110		procedure GetValueList(List: TStrings); override;
#	Line 126 | Line 132 | type
132		function GetVerbCount: Integer; override;
133		end;
134
135	+	{ TIBArrayGridEditor }
136	+
137	+	TIBArrayGridEditor = class(TComponentEditor)
138	+	public
139	+	procedure ExecuteVerb(Index: Integer); override;
140	+	function GetVerb(Index: Integer): string; override;
141	+	function GetVerbCount: Integer; override;
142	+	end;
143	+
144		{ TIBQueryEditor }
145
146		TIBQueryEditor = class(TFieldsComponentEditor)
#	Line 184 | Line 199 | type
199		public
200		procedure Edit; override;
201		end;
202	<	(*
202	>
203	>	{ TIBTableFieldLinkProperty }
204	>
205		TIBTableFieldLinkProperty = class(TFieldLinkProperty)
206		private
207		FTable: TIBTable;
208		protected
209	+	function GetIndexDefs: TIndexDefs; override;
210		function GetIndexFieldNames: string; override;
211		function GetMasterFields: string; override;
212		procedure SetIndexFieldNames(const Value: string); override;
#	Line 196 | Line 214 | type
214		public
215		procedure Edit; override;
216		end;
217	<	*)
217	>
218		{ TSQLPropertyEditor }
219
220		TSQLPropertyEditor = class(TStringsPropertyEditor)
#	Line 314 | Line 332 | type
332		procedure Edit; override;
333		end;
334
335	+	{ TDBDynamicGridFieldProperty }
336	+
337	+	TDBDynamicGridFieldProperty = class(TFieldProperty)
338	+	public
339	+	procedure FillValues(const Values: TStringList); override;
340	+	end;
341	+
342	+	{ TDBLookupPropertiesGridFieldProperty }
343	+
344	+	TDBLookupPropertiesGridFieldProperty = class(TFieldProperty)
345	+	public
346	+	procedure FillValues(const Values: TStringList); override;
347	+	end;
348	+
349	+	{ TIBTreeViewFieldProperty }
350	+
351	+	TIBTreeViewFieldProperty = class(TFieldProperty)
352	+	public
353	+	procedure FillValues(const Values: TStringList); override;
354	+	end;
355	+
356	+	{ TIBDynamicGridIndexNamesProperty }
357	+
358	+	TIBDynamicGridIndexNamesProperty = class(TIndexFieldNamesProperty)
359	+	protected
360	+	function GetFieldDefs: TFieldDefs; override;
361	+	function GetIndexFieldNames: string; override;
362	+	procedure SetIndexFieldNames(const Value: string); override;
363	+	end;
364	+
365	+	{ TIBFieldDefsProperty }
366	+
367	+	TIBFieldDefsProperty = class(TCollectionPropertyEditor)
368	+	public
369	+	procedure Edit; override;
370	+	end;
371	+
372	+	{ TIBIndexDefsProperty }
373	+
374	+	TIBIndexDefsProperty = class(TCollectionPropertyEditor)
375	+	public
376	+	procedure Edit; override;
377	+	end;
378	+
379	+
380		procedure Register;
381
382		implementation
383
384	<	uses IB, IBQuery, IBStoredProc, IBCustomDataSet,
385	<	IBIntf, IBSQL, IBSQLMonitor, IBDatabaseInfo, IBEvents,
384	>	uses IB, IBQuery, IBStoredProc, IBCustomDataSet, FBMessages,
385	>	IBSQL, IBSQLMonitor, IBDatabaseInfo, IBEvents, IBTypes,
386		IBServices, IBDatabaseEdit, IBTransactionEdit,
387	<	IBBatchMove, DBLoginDlg, IBExtract,LResources, IBSelectSQLEditor,
387	>	IBBatchMove, IBExtract,LResources, IBSelectSQLEditor,
388		IBModifySQLEditor,IBDeleteSQLEditor,IBRefreshSQLEditor,
389		IBInsertSQLEditor, IBGeneratorEditor, IBUpdateSQLEditor, IBDataSetEditor,
390	<	IBSQLEditor, ibserviceeditor;
391	<
392	<
390	>	IBSQLEditor, ibserviceeditor, LCLVersion, IBDynamicGrid, IBLookupComboEditBox,
391	>	IBTreeView, DBControlGrid, ibxscript, IBLocalDBSupport, IBDSDialogs,
392	>	IBArrayGrid;
393	>
394	>	const
395	>	IBPalette1 = 'Firebird'; {do not localize}
396	>	IBPalette2 = 'Firebird Admin'; {do not localize}
397	>	IBPalette3 = 'Firebird Data Controls';   {do not localize}
398	>
399	>	resourcestring
400	>	SInterbaseExpressVersion = 'Firebird Express for Lazarus 2.0.0';
401	>	SEditSQL = 'Edit SQL';
402	>	SIBSQLEditor = 'IBSQL Editor';
403	>	SIBServiceEditor = 'Edit IB Service';
404	>	SIBUpdateSQLEditor = '&UpdateSQL Editor...';
405	>	SIBDataSetEditor = '&Dataset Editor...';
406	>	SExecute = 'E&xecute';
407	>	SIBDatabaseEditor = 'Da&tabase Editor...';
408	>	SIBTransactionEditor = '&Transaction Editor...';
409	>	SIBUpdateLayout = 'Update Layout';
410
411		procedure Register;
412		begin
413	<	if not TryIBLoad then Exit;
413	>	if not TryIBLoad then
414	>	begin
415	>	MessageDlg('IBX is unable to locate the Firebird Library - have you remembered to install it?',mtError,[mbOK],0);
416	>	Exit;
417	>	end;
418
419	<	RegisterNoIcon([TIBStringField, TIBBCDField]);
419	>	RegisterNoIcon([TIBStringField, TIBBCDField, TIBMemoField, TIBArrayField]);
420	>	{$if lcl_fullversion < 01010000}
421	>	{see http://bugs.freepascal.org/view.php?id=19035 }
422		RegisterNoIcon([TIntegerField]);
423	+	{$endif}
424		RegisterComponents(IBPalette1, [ TIBQuery, TIBDataSet,
425		TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBEvents,
426		TIBSQL, TIBDatabaseInfo, TIBSQLMonitor,
427	<	TIBStoredProc,TIBBatchMove,  TIBTable,TIBExtract]);
428	<	if IBServiceAPIPresent  then
427	>	TIBStoredProc,TIBBatchMove,  TIBTable,TIBExtract, TIBXScript, TIBLocalDBSupport]);
428	>	if FirebirdAPI.HasServiceAPI  then
429		RegisterComponents(IBPalette2, [TIBConfigService, TIBBackupService,
430		TIBRestoreService, TIBValidationService, TIBStatisticalService,
431		TIBLogService, TIBSecurityService, TIBServerProperties]);
432	+
433	+
434	+	RegisterComponents(IBPalette3,[TIBLookupComboEditBox,TIBDynamicGrid,TIBTreeView,TDBControlGrid, TIBArrayGrid]);
435		RegisterPropertyEditor(TypeInfo(TIBFileName), TIBDatabase, 'DatabaseName', TIBFileNameProperty); {do not localize}
436		RegisterPropertyEditor(TypeInfo(string), TIBStoredProc, 'StoredProcName', TIBStoredProcNameProperty); {do not localize}
437		RegisterPropertyEditor(TypeInfo(TParams), TIBStoredProc, 'Params', TIBStoredProcParamsProperty);
438		RegisterPropertyEditor(TypeInfo(string), TIBTable, 'TableName', TIBTableNameProperty); {do not localize}
439		RegisterPropertyEditor(TypeInfo(string), TIBTable, 'IndexName', TIBIndexNameProperty); {do not localize}
440		RegisterPropertyEditor(TypeInfo(string), TIBTable, 'IndexFieldNames', TIBIndexFieldNamesProperty); {do not localize}
441	<	//  RegisterPropertyEditor(TypeInfo(string), TIBTable, 'MasterFields', TIBTableFieldLinkProperty); {do not localize}
441	>	RegisterPropertyEditor(TypeInfo(string), TIBTable, 'MasterFields', TIBTableFieldLinkProperty); {do not localize}
442	>	RegisterPropertyEditor(TypeInfo(TFieldDefs), TIBTable, 'FieldDefs', TIBFieldDefsProperty); {do not localize}
443	>	RegisterPropertyEditor(TypeInfo(TIndexDefs), TIBTable, 'IndexDefs', TIBIndexDefsProperty); {do not localize}
444		RegisterPropertyEditor(TypeInfo(TStrings), TIBQuery, 'SQL', TIBQuerySQLProperty); {do not localize}
445		RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'SelectSQL', TIBDatasetSQLProperty); {do not localize}
446		RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'ModifySQL', TIBUpdateSQLProperty); {do not localize}
#	Line 372 | Line 464 | begin
464		RegisterComponentEditor(TIBStoredProc, TIBStoredProcEditor);
465		RegisterComponentEditor(TIBSQL, TIBSQLEditor);
466		RegisterComponentEditor(TIBCustomService, TIBServiceEditor);
467	+	RegisterComponentEditor(TIBArrayGrid, TIBArrayGridEditor);
468	+
469	+
470	+	{Firebird Data Access Controls}
471	+	RegisterPropertyEditor(TypeInfo(string), TDBLookupProperties, 'KeyField', TDBDynamicGridFieldProperty);
472	+	RegisterPropertyEditor(TypeInfo(string), TDBLookupProperties, 'ListField', TDBDynamicGridFieldProperty);
473	+	RegisterPropertyEditor(TypeInfo(string), TIBDynamicGrid, 'IndexFieldNames', TIBDynamicGridIndexNamesProperty);
474	+	RegisterPropertyEditor(TypeInfo(string), TDBLookupProperties, 'DataFieldName', TDBLookupPropertiesGridFieldProperty);
475	+	RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'KeyField', TIBTreeViewFieldProperty);
476	+	RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'TextField', TIBTreeViewFieldProperty);
477	+	RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'ParentField', TIBTreeViewFieldProperty);
478	+	RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'HasChildField', TIBTreeViewFieldProperty);
479	+
480	+	IBGUIInterface :=  TIBDSLCLInterface.Create;
481	+	end;
482	+
483	+	procedure LoadDataSourceFields(DataSource: TDataSource; List: TStrings);
484	+	var
485	+	DataSet: TDataSet;
486	+	i: Integer;
487	+	begin
488	+	if Assigned(DataSource) then
489	+	begin
490	+	DataSet := DataSource.DataSet;
491	+	if Assigned(DataSet) then
492	+	begin
493	+	if DataSet.Fields.Count > 0 then
494	+	DataSet.GetFieldNames(List)
495	+	else
496	+	begin
497	+	DataSet.FieldDefs.Update;
498	+	for i := 0 to DataSet.FieldDefs.Count - 1 do
499	+	List.Add(DataSet.FieldDefs[i].Name);
500	+	end;
501	+	end;
502	+	end;
503	+	end;
504	+
505	+	{ TIBIndexDefsProperty }
506	+
507	+	procedure TIBIndexDefsProperty.Edit;
508	+	var IndexDefs: TIndexDefs;
509	+	begin
510	+	IndexDefs := TIndexDefs(GetObjectValue);
511	+	if IndexDefs <> nil then
512	+	IndexDefs.Update;
513	+	inherited Edit;
514	+	end;
515	+
516	+	{ TIBFieldDefsProperty }
517	+
518	+	procedure TIBFieldDefsProperty.Edit;
519	+	var FieldDefs: TFieldDefs;
520	+	begin
521	+	FieldDefs := TFieldDefs(GetObjectValue);
522	+	if FieldDefs <> nil then
523	+	FieldDefs.Update;
524	+	inherited Edit;
525	+	end;
526	+
527	+	{ TIBArrayGridEditor }
528	+
529	+	procedure TIBArrayGridEditor.ExecuteVerb(Index: Integer);
530	+	begin
531	+	if Index < inherited GetVerbCount then
532	+	inherited ExecuteVerb(Index)
533	+	else
534	+	case Index of
535	+	0: TIBArrayGrid(Component).UpdateLayout;
536	+	end;
537	+	end;
538	+
539	+	function TIBArrayGridEditor.GetVerb(Index: Integer): string;
540	+	begin
541	+	if Index < inherited GetVerbCount then
542	+	Result := inherited GetVerb(Index) else
543	+	begin
544	+	Dec(Index, inherited GetVerbCount);
545	+	case Index of
546	+	0: Result := SIBUpdateLayout;
547	+	1 : Result := SInterbaseExpressVersion ;
548	+	end;
549	+	end;
550	+	end;
551	+
552	+	function TIBArrayGridEditor.GetVerbCount: Integer;
553	+	begin
554	+	Result := 2;
555	+	end;
556	+
557	+	{ TDBLookupPropertiesGridFieldProperty }
558	+
559	+	procedure TDBLookupPropertiesGridFieldProperty.FillValues(
560	+	const Values: TStringList);
561	+	var
562	+	P: TDBLookupProperties;
563	+	begin
564	+	P :=TDBLookupProperties(GetComponent(0));
565	+	if not (P is TDBLookupProperties) then exit;
566	+	LoadDataSourceFields(TIBDynamicGrid(P.Owner.Grid).DataSource, Values);
567	+	end;
568	+
569	+	{ TIBTreeViewFieldProperty }
570	+
571	+	procedure TIBTreeViewFieldProperty.FillValues(const Values: TStringList);
572	+	var ListSource: TDataSource;
573	+	begin
574	+	ListSource :=  TIBTreeView(GetComponent(0)).DataSource;
575	+	LoadDataSourceFields(ListSource, Values);
576	+	end;
577	+
578	+	{ TIBDynamicGridIndexNamesProperty }
579	+
580	+	function TIBDynamicGridIndexNamesProperty.GetFieldDefs: TFieldDefs;
581	+	var Grid: TIBDynamicGrid;
582	+	begin
583	+	Result := nil;
584	+	Grid := TIBDynamicGrid(GetComponent(0));
585	+	if assigned(Grid.DataSource) and assigned(Grid.DataSource.DataSet) then
586	+	Result := Grid.DataSource.DataSet.FieldDefs
587	+	end;
588	+
589	+	function TIBDynamicGridIndexNamesProperty.GetIndexFieldNames: string;
590	+	var Grid: TIBDynamicGrid;
591	+	begin
592	+	Grid := TIBDynamicGrid(GetComponent(0));
593	+	Result := Grid.IndexFieldNames
594	+	end;
595	+
596	+	procedure TIBDynamicGridIndexNamesProperty.SetIndexFieldNames(
597	+	const Value: string);
598	+	var Grid: TIBDynamicGrid;
599	+	begin
600	+	Grid := TIBDynamicGrid(GetComponent(0));
601	+	Grid.IndexFieldNames := Value
602	+	end;
603	+
604	+	{ TDBDynamicGridFieldProperty }
605	+
606	+	procedure TDBDynamicGridFieldProperty.FillValues(const Values: TStringList);
607	+	var
608	+	P: TDBLookupProperties;
609	+	begin
610	+	P :=TDBLookupProperties(GetComponent(0));
611	+	if not (P is TDBLookupProperties) then exit;
612	+	LoadDataSourceFields(P.ListSource, Values);
613		end;
614
615		{ TIBServiceEditor }
#	Line 456 | Line 694 | end;
694
695		procedure TIBTableNameProperty.GetValues(Proc: TGetStrProc);
696		var
697	<	TableName : TIBTable;
697	>	Table : TIBTable;
698		i : integer;
699		begin
700	<	TableName := GetComponent(0) as TIBTable;
701	<	with TableName do
700	>	Table := GetComponent(0) as TIBTable;
701	>	if Table.Database = nil then
702	>	Exit;
703	>	with Table do
704		for I := 0 to TableNames.Count - 1 do
705		Proc (TableNames[i]);
706		end;
707
708		{ TDBStringProperty }
709
710	+	function TDBStringProperty.ConnecttoDB: boolean;
711	+	var DataSet: TIBCustomDataSet;
712	+	begin
713	+	Result := false;
714	+	DataSet := (GetComponent(0) as TIBCustomDataSet);
715	+	if assigned(Dataset.Database) then
716	+	begin
717	+	try
718	+	DataSet.Database.Connected := true;
719	+	except on E: Exception do
720	+	ShowMessage(E.Message)
721	+	end;
722	+	Result := DataSet.Database.Connected
723	+	end;
724	+	end;
725	+
726		function TDBStringProperty.GetAttributes: TPropertyAttributes;
727		begin
728		Result := [paValueList, paSortList, paMultiSelect];
#	Line 481 | Line 737 | var
737		I: Integer;
738		Values: TStringList;
739		begin
740	+	if not ConnecttoDB then Exit;
741		Values := TStringList.Create;
742		try
743		GetValueList(Values);
#	Line 490 | Line 747 | begin
747		end;
748		end;
749
750	+	procedure TDBStringProperty.Edit;
751	+	begin
752	+	if ConnecttoDB then
753	+	inherited Edit;
754	+	end;
755	+
756		{ Utility Functions }
757
758		function GetPropertyValue(Instance: TPersistent; const PropName: string): TPersistent;
#	Line 551 | Line 814 | var
814		Query: TIBQuery;
815		begin
816		Query := GetComponent(0) as TIBQuery;
817	<	if IBSelectSQLEditor.EditSQL(Query.Database,Query.SQL) then Modified;
817	>	if IBSelectSQLEditor.EditSQL(Query,Query.SQL) then Modified;
818		end;
819
820		{ TIBDatasetSQLProperty }
#	Line 561 | Line 824 | var
824		IBDataset: TIBDataset;
825		begin
826		IBDataset := GetComponent(0) as TIBDataset;
827	<	if IBSelectSQLEditor.EditSQL(IBDataSet.Database,IBDataSet.SelectSQL) then Modified;
827	>	if IBSelectSQLEditor.EditSQL(IBDataSet,IBDataSet.SelectSQL) then Modified;
828		end;
829
830		{ TIBSQLProperty }
#	Line 571 | Line 834 | var
834		IBSQL: TIBSQL;
835		begin
836		IBSQL := GetComponent(0) as TIBSQL;
837	<	if IBSelectSQLEditor.EditSQL(IBSQL.Database,IBSQL.SQL) then Modified;
837	>	if IBSQLEditor.EditIBSQL(IBSQL) then Modified;
838		end;
839
840		{ TIBUpdateSQLEditor }
#	Line 585 | Line 848 | function TIBUpdateSQLEditor.GetVerb(Inde
848		begin
849		case Index of
850		0 : Result := SIBUpdateSQLEditor;
851	<	1: Result := SInterbaseExpressVersion;
851	>	1: Result := SInterbaseExpressVersion ;
852		end;
853		end;
854
#	Line 597 | Line 860 | end;
860		{ TIBDataSetEditor }
861
862		procedure TIBDataSetEditor.ExecuteVerb(Index: Integer);
600	–	var
601	–	IBDataset: TIBDataset;
863		begin
864		if Index < inherited GetVerbCount then
865		inherited ExecuteVerb(Index) else
#	Line 622 | Line 883 | begin
883		case Index of
884		0: Result := SIBDataSetEditor;
885		1: Result := SExecute;
886	<	2: Result := SInterbaseExpressVersion;
886	>	2: Result := SInterbaseExpressVersion ;
887		end;
888		end;
889		end;
#	Line 679 | Line 940 | begin
940		Dec(Index, inherited GetVerbCount);
941		case Index of
942		0: Result := SIBDatabaseEditor;
943	<	1 : Result := SInterbaseExpressVersion;
943	>	1 : Result := SInterbaseExpressVersion ;
944		end;
945		end;
946		end;
#	Line 702 | Line 963 | function TIBTransactionEditor.GetVerb(In
963		begin
964		case Index of
965		0: Result := SIBTransactionEditor;
966	<	1: Result := SInterbaseExpressVersion;
966	>	1: Result := SInterbaseExpressVersion ;
967		end;
968		end;
969
#	Line 724 | Line 985 | begin
985		Dec(Index, inherited GetVerbCount);
986		case Index of
987		0: Query.ExecSQL;
988	<	1: if ibselectsqleditor.EditSQL(Query.Database,Query.SQL) then Designer.Modified;
988	>	1: if ibselectsqleditor.EditSQL(Query,Query.SQL) then Designer.Modified;
989		end;
990		end;
991		end;
#	Line 738 | Line 999 | begin
999		case Index of
1000		0: Result := SExecute;
1001		1: Result := SEditSQL;
1002	<	2: Result := SInterbaseExpressVersion;
1002	>	2: Result := SInterbaseExpressVersion ;
1003		end;
1004		end;
1005		end;
#	Line 768 | Line 1029 | begin
1029		Dec(Index, inherited GetVerbCount);
1030		case Index of
1031		0: Result := SExecute;
1032	<	1: Result := SInterbaseExpressVersion;
1032	>	1: Result := SInterbaseExpressVersion ;
1033		end;
1034		end;
1035		end;
#	Line 794 | Line 1055 | begin
1055		end;
1056		inherited Edit;
1057		end;
1058	<	(*
1058	>
1059		{ TIBTableFieldLinkProperty }
1060
1061		procedure TIBTableFieldLinkProperty.Edit;
1062		begin
1063		FTable := DataSet as TIBTable;
1064	+	if assigned(FTable.Database) then
1065	+	FTable.Database.Connected := true;
1066		inherited Edit;
1067		end;
1068
1069	+	function TIBTableFieldLinkProperty.GetIndexDefs: TIndexDefs;
1070	+	begin
1071	+	Result :=  FTable.IndexDefs
1072	+	end;
1073	+
1074		function TIBTableFieldLinkProperty.GetIndexFieldNames: string;
1075		begin
1076		Result := FTable.IndexFieldNames;
#	Line 821 | Line 1089 | end;
1089		procedure TIBTableFieldLinkProperty.SetMasterFields(const Value: string);
1090		begin
1091		FTable.MasterFields := Value;
1092	<	end;*)
1092	>	end;
1093
1094		{ TIBUpdateSQLProperty }
1095
#	Line 830 | Line 1098 | var
1098		IBDataset: TIBDataset;
1099		begin
1100		IBDataset := GetComponent(0) as TIBDataset;
1101	<	if IBModifySQLEditor.EditSQL(IBDataSet.Database,IBDataSet.ModifySQL) then Modified;
1101	>	if IBModifySQLEditor.EditSQL(IBDataSet,IBDataSet.ModifySQL) then Modified;
1102		end;
1103
1104		{ TIBUpdateSQLUpdateProperty }
#	Line 838 | Line 1106 | end;
1106		procedure TIBUpdateSQLUpdateProperty.Edit;
1107		begin
1108		GetObjects;
1109	<	if IBModifySQLEditor.EditSQL(FDatabase,FIBUpdateSQL.ModifySQL) then Modified;
1109	>	if IBModifySQLEditor.EditSQL(FIBUpdateSQL.DataSet,FIBUpdateSQL.ModifySQL) then Modified;
1110		end;
1111
1112		{ TIBRefreshSQLProperty }
#	Line 846 | Line 1114 | end;
1114		procedure TIBRefreshSQLProperty.Edit;
1115		var
1116		IBDataset: TIBDataset;
849	–	aDatabase: TIBDatabase;
1117		begin
1118		IBDataset := GetComponent(0) as TIBDataset;
1119	<	if IBRefreshSQLEditor.EditSQL(IBDataSet.Database,IBDataSet.RefreshSQL) then Modified;
1119	>	if IBRefreshSQLEditor.EditSQL(IBDataSet,IBDataSet.RefreshSQL) then Modified;
1120		end;
1121
1122		{ TIBUpdateSQLRefreshSQLProperty }
#	Line 857 | Line 1124 | end;
1124		procedure TIBUpdateSQLRefreshSQLProperty.Edit;
1125		begin
1126		GetObjects;
1127	<	if IBRefreshSQLEditor.EditSQL(FDatabase,FIBUpdateSQL.RefreshSQL) then Modified;
1127	>	if IBRefreshSQLEditor.EditSQL(FIBUpdateSQL.DataSet,FIBUpdateSQL.RefreshSQL) then Modified;
1128		end;
1129
1130		{ TIBDeleteSQLProperty }
1131
1132		procedure TIBDeleteSQLProperty.Edit;
1133		var
1134	<	IBDataset: TIBDataset;
1134	>	IBDataset: TIBDataSet;
1135		begin
1136	<	IBDataset := GetComponent(0) as TIBDataset;
1137	<	if IBDeleteSQLEditor.EditSQL(IBDataSet.Database,IBDataSet.DeleteSQL) then Modified;
1136	>	IBDataset := GetComponent(0) as TIBDataSet;
1137	>	if IBDeleteSQLEditor.EditSQL(IBDataSet,IBDataSet.DeleteSQL) then Modified;
1138		end;
1139
1140		{ TIBUpdateSQLDeleteProperty }
#	Line 880 | Line 1147 | end;
1147		procedure TIBUpdateSQLDeleteProperty.Edit;
1148		begin
1149		GetObjects;
1150	<	if IBDeleteSQLEditor.EditSQL(FDatabase,FIBUpdateSQL.DeleteSQL) then Modified;
1150	>	if IBDeleteSQLEditor.EditSQL(FIBUpdateSQL.DataSet,FIBUpdateSQL.DeleteSQL) then Modified;
1151		end;
1152
1153		{ TUpdateSQLPropertyEditor }
#	Line 903 | Line 1170 | end;
1170
1171		procedure TIBInsertSQLProperty.Edit;
1172		var
1173	<	IBDataset: TIBDataset;
1173	>	IBDataset: TIBDataSet;
1174		begin
1175	<	IBDataset := GetComponent(0) as TIBDataset;
1176	<	if IBInsertSQLEditor.EditSQL(IBDataSet.Database,IBDataSet.InsertSQL) then Modified;
1175	>	IBDataset := GetComponent(0) as TIBDataSet;
1176	>	if IBInsertSQLEditor.EditSQL(IBDataSet,IBDataSet.InsertSQL) then Modified;
1177		end;
1178
1179		{ TIBUpdateSQLInsertSQLProperty }
#	Line 914 | Line 1181 | end;
1181		procedure TIBUpdateSQLInsertSQLProperty.Edit;
1182		begin
1183		GetObjects;
1184	<	if IBInsertSQLEditor.EditSQL(FDatabase,FIBUpdateSQL.InsertSQL) then Modified;
1184	>	if IBInsertSQLEditor.EditSQL(FIBUpdateSQL.Dataset,FIBUpdateSQL.InsertSQL) then Modified;
1185		end;
1186
1187		{ TIBGeneratorProperty }
#	Line 940 | Line 1207 | function TIBSQLEditor.GetVerb(Index: Int
1207		begin
1208		case Index of
1209		0 : Result := SIBSQLEditor;
1210	<	1: Result := SInterbaseExpressVersion;
1210	>	1: Result := SInterbaseExpressVersion ;
1211		end;
1212		end;
1213

Diff Legend

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