ViewVC Help

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

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

Comparing ibx/trunk/design/ibinsertsqleditor.pas (file contents):
Revision 105 by tony, Thu Jan 18 14:37:32 2018 UTC vs.
Revision 106 by tony, Thu Jan 18 14:37:35 2018 UTC

#	Line 39 | Line 39 | type
39		{ TIBInsertSQLEditorForm }
40
41		TIBInsertSQLEditorForm = class(TIBSelectSQLEditorForm)
42	+	IdentityGrid: TIBDynamicGrid;
43		Label5: TLabel;
44	+	Label6: TLabel;
45		ReadOnlyGrid: TIBDynamicGrid;
46		procedure GenerateBtnClick(Sender: TObject);
47		private
#	Line 79 | Line 81 | begin
81		end;
82		with IBSQLEditFrame1 do
83		begin
82	–	IncludePrimaryKeys := true;
84		IncludeReadOnlyFields := false;
85		ExecuteOnlyProcs := true;
86		ExcludeIdentityColumns := true;
#	Line 112 | Line 113 | begin
113		inherited Loaded;
114		if IBSQLEditFrame1 <> nil then
115		begin
116	<	if PrimaryKeysGrid <> nil then
117	<	PrimaryKeysGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
116	>	if PrimaryKeysGrid <> nil then
117	>	PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
118	>	if IdentityGrid <> nil then
119	>	IdentityGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
120		if ReadOnlyGrid <> nil then
121		ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
122		end;

Diff Legend

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