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 |
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; |