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 143 by tony, Fri Feb 23 12:11:21 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	+	procedure IdentityGridDblClick(Sender: TObject);
48	+	procedure ReadOnlyGridDblClick(Sender: TObject);
49		private
50
51		protected
#	Line 79 | Line 83 | begin
83		end;
84		with IBSQLEditFrame1 do
85		begin
82	–	IncludePrimaryKeys := true;
86		IncludeReadOnlyFields := false;
87		ExecuteOnlyProcs := true;
88		ExcludeIdentityColumns := true;
#	Line 107 | Line 110 | begin
110		IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked);
111		end;
112
113	+	procedure TIBInsertSQLEditorForm.IdentityGridDblClick(Sender: TObject);
114	+	begin
115	+	IBSQLEditFrame1.InsertSelectedIdentityCol;
116	+	end;
117	+
118	+	procedure TIBInsertSQLEditorForm.ReadOnlyGridDblClick(Sender: TObject);
119	+	begin
120	+	IBSQLEditFrame1.InsertSelectedReadOnlyField;
121	+	end;
122	+
123		procedure TIBInsertSQLEditorForm.Loaded;
124		begin
125		inherited Loaded;
126		if IBSQLEditFrame1 <> nil then
127		begin
128	<	if PrimaryKeysGrid <> nil then
129	<	PrimaryKeysGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
128	>	if PrimaryKeysGrid <> nil then
129	>	PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
130	>	if IdentityGrid <> nil then
131	>	IdentityGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
132		if ReadOnlyGrid <> nil then
133		ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
134		end;

Diff Legend

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