ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibupdatesqleditor.pas
(Generate patch)

Comparing ibx/trunk/design/ibupdatesqleditor.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 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 180 | Line 182 | end;
182  
183   procedure TIBUpdateSQLEditorForm.GenerateButtonClick(Sender: TObject);
184   begin
185 <  IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked,FRefreshSQL);
185 >  IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked,FRefreshSQL,true);
186    IBSQLEditFrame1.GenerateDeleteSQL(QuoteFields.Checked,FDeleteSQL);
187    IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked,FInsertSQL);
188 <  IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,FModifySQL, not IncludePrimaryKeys.Checked);
188 >  IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,FModifySQL, IncludePrimaryKeys.Checked);
189    FDirty := false;
190    PageControl.ActivePage := SQLPage;
191   end;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines