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 100 by tony, Mon Jan 1 11:31:07 2018 UTC vs.
Revision 101 by tony, Thu Jan 18 14:37:18 2018 UTC

#	Line 41 | Line 41 | type
41		procedure GenerateBtnClick(Sender: TObject);
42		private
43
44	+	protected
45	+	procedure Loaded; override;
46	+
47		public
48
49		end;
#	Line 76 | Line 79 | begin
79		IncludePrimaryKeys := true;
80		IncludeReadOnlyFields := false;
81		ExecuteOnlyProcs := true;
82	+	ExcludeIdentityColumns := true;
83		SQLText.Lines.Assign(SelectSQL);
84		end;
85		Result := ShowModal = mrOK;
#	Line 100 | Line 104 | begin
104		IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked);
105		end;
106
107	+	procedure TIBInsertSQLEditorForm.Loaded;
108	+	begin
109	+	inherited Loaded;
110	+	if IBSQLEditFrame1 <> nil then
111	+	begin
112	+	if PrimaryKeysGrid <> nil then
113	+	PrimaryKeysGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
114	+	end;
115	+	end;
116	+
117
118		end.
119

Diff Legend

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