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

Comparing ibx/trunk/design/ibdataseteditor.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 123 | Line 123 | begin
123      end;
124      FDataSet := DataSet;
125      with IBSQLEditFrame1 do
126 –    begin
127 –      IncludePrimaryKeys := false;
126        IncludeReadOnlyFields := false;
129 –    end;
127      Result := ShowModal = mrOK;
128      if Result and assigned(DataSet) then
129        DataSet.GenerateParamNames := GenerateParams.Checked
# Line 188 | Line 185 | end;
185  
186   procedure TIBDataSetEditorForm.GenerateButtonClick(Sender: TObject);
187   begin
188 <  IBSQLEditFrame1.GenerateSelectSQL(QuoteFields.Checked,FSelectSQL);
189 <  IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked,FRefreshSQL);
188 >  IBSQLEditFrame1.GenerateSelectSQL(QuoteFields.Checked,FSelectSQL,true);
189 >  IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked,FRefreshSQL,true);
190    IBSQLEditFrame1.GenerateDeleteSQL(QuoteFields.Checked,FDeleteSQL);
191    IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked,FInsertSQL);
192 <  IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,FModifySQL, not IncludePrimaryKeys.Checked);
192 >  IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,FModifySQL, IncludePrimaryKeys.Checked);
193    FDirty := false;
194    PageControl.ActivePage := SQLPage;
195   end;

Diff Legend

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