--- ibx/trunk/design/ibupdatesqleditor.pas 2018/01/18 14:37:32 105 +++ ibx/trunk/design/ibupdatesqleditor.pas 2018/01/18 14:37:35 106 @@ -120,6 +120,8 @@ begin IBSQLEditFrame1.Database := UpdateObject.DataSet.Database; GenerateParams.Checked := UpdateObject.DataSet.GenerateParamNames; end; + with IBSQLEditFrame1 do + IncludeReadOnlyFields := false; FUpdateObject := UpdateObject; Result := ShowModal = mrOK; if Result then @@ -180,10 +182,10 @@ end; procedure TIBUpdateSQLEditorForm.GenerateButtonClick(Sender: TObject); begin - IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked,FRefreshSQL); + IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked,FRefreshSQL,true); IBSQLEditFrame1.GenerateDeleteSQL(QuoteFields.Checked,FDeleteSQL); IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked,FInsertSQL); - IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,FModifySQL, not IncludePrimaryKeys.Checked); + IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,FModifySQL, IncludePrimaryKeys.Checked); FDirty := false; PageControl.ActivePage := SQLPage; end;