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

#	Line 30 | Line 30 | unit ibinsertsqleditor;
30		interface
31
32		uses
33	<	Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34	<	ibselectsqleditor, IBSQLEditFrame, IBDatabase, IBCustomDataset;
33	>	Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34	>	StdCtrls, ComCtrls, ibselectsqleditor, IBSQLEditFrame, IBDatabase,
35	>	IBLookupComboEditBox, IBDynamicGrid, IBCustomDataset;
36
37		type
38
39		{ TIBInsertSQLEditorForm }
40
41		TIBInsertSQLEditorForm = class(TIBSelectSQLEditorForm)
42	+	Label5: TLabel;
43	+	ReadOnlyGrid: TIBDynamicGrid;
44		procedure GenerateBtnClick(Sender: TObject);
45		private
46
47	+	protected
48	+	procedure Loaded; override;
49	+
50		public
51
52		end;
#	Line 76 | Line 82 | begin
82		IncludePrimaryKeys := true;
83		IncludeReadOnlyFields := false;
84		ExecuteOnlyProcs := true;
85	+	ExcludeIdentityColumns := true;
86		SQLText.Lines.Assign(SelectSQL);
87		end;
88		Result := ShowModal = mrOK;
#	Line 100 | Line 107 | begin
107		IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked);
108		end;
109
110	+	procedure TIBInsertSQLEditorForm.Loaded;
111	+	begin
112	+	inherited Loaded;
113	+	if IBSQLEditFrame1 <> nil then
114	+	begin
115	+	if PrimaryKeysGrid <> nil then
116	+	PrimaryKeysGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
117	+	if ReadOnlyGrid <> nil then
118	+	ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
119	+	end;
120	+	end;
121	+
122
123		end.
124

Diff Legend

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