ViewVC Help

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

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

Comparing ibx/trunk/design/ibupdatesqleditor.pas (file contents):
Revision 105 by tony, Thu Jan 18 14:37:32 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

#	Line 33 | Line 33 | interface
33		uses
34		Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
35		StdCtrls, ExtCtrls,  IBSQLEditFrame, IBCustomDataSet,
36	<	IBDatabase, IBLookupComboEditBox, IBDynamicGrid, Types, IBUpdateSQL;
36	>	IBDatabase, IBLookupComboEditBox, IBDynamicGrid, IBUpdateSQL;
37
38		type
39
#	Line 120 | Line 120 | begin
120		IBSQLEditFrame1.Database := UpdateObject.DataSet.Database;
121		GenerateParams.Checked := UpdateObject.DataSet.GenerateParamNames;
122		end;
123	+	with IBSQLEditFrame1 do
124	+	IncludeReadOnlyFields := false;
125		FUpdateObject := UpdateObject;
126		Result := ShowModal = mrOK;
127		if Result then
#	Line 133 | Line 135 | end;
135		{ TIBUpdateSQLEditorForm }
136
137		procedure TIBUpdateSQLEditorForm.FormShow(Sender: TObject);
136	–	var TableName: string;
138		begin
139		PageControl.ActivePage := FieldsPage;
140		FModifySQL.Assign(FUpdateObject.ModifySQL);
#	Line 180 | Line 181 | end;
181
182		procedure TIBUpdateSQLEditorForm.GenerateButtonClick(Sender: TObject);
183		begin
184	<	IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked,FRefreshSQL);
184	>	IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked,FRefreshSQL,true);
185		IBSQLEditFrame1.GenerateDeleteSQL(QuoteFields.Checked,FDeleteSQL);
186		IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked,FInsertSQL);
187	<	IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,FModifySQL, not IncludePrimaryKeys.Checked);
187	>	IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,FModifySQL, IncludePrimaryKeys.Checked);
188		FDirty := false;
189		PageControl.ActivePage := SQLPage;
190		end;

Diff Legend

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