opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Ask user if in-memory modifications to table, view, trigger or routine should get saved, this time including a Cancel button, which cancels either

Browse Source 
* focusing a different object in database tree and/or
* closing application
TODO: Internal switching to different connection probably needs that too?
This commit is contained in:
Ansgar Becker
2010-01-15 17:13:24 +00:00
parent 52ea8f410a
commit d70ea85786
7 changed files with 71 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
source/routine_editor.pas
View File

@ -73,7 +73,7 @@ type
{ Public declarations }
constructor Create(AOwner: TComponent); override;
procedure Init(ObjectName: String=''; ObjectType: TListNodeType=lntNone); override;
procedure ApplyModifications; override;
function ApplyModifications: TModalResult; override;
end;
@ -405,7 +405,7 @@ begin
end;
procedure TfrmRoutineEditor.ApplyModifications;
function TfrmRoutineEditor.ApplyModifications: TModalResult;
var
BaseSQL, TempSQL, FinalSQL, TempName: String;
i: Integer;
@ -414,6 +414,7 @@ var
TargetExists: Boolean;
begin
// Save changes
Result := mrOk;
ProcOrFunc := UpperCase(GetFirstWord(comboType.Text));
BaseSQL := '';
for i := 0 to Parameters.Count - 1 do begin
@ -450,10 +451,10 @@ begin
TargetExists := ((editName.Text <> FEditObjectName) or (ProcOrFunc <> FAlterRoutineType)) and
(allRoutineNames.IndexOf(editName.Text) > -1);
if TargetExists then begin
if MessageDlg('Routine "'+editName.Text+'" already exists. Overwrite it?',
mtConfirmation, [mbYes, mbNo], 0) = mrNo then begin
Result := MessageDlg('Routine "'+editName.Text+'" already exists. Overwrite it?',
mtConfirmation, [mbYes, mbNo, mbCancel], 0);
if Result = mrNo then
Exit;
end;
end;
while True do begin
inc(i);
@ -483,8 +484,10 @@ begin
btnSave.Enabled := Modified;
btnDiscard.Enabled := Modified;
except
on E:Exception do
on E:Exception do begin
MessageDlg(E.Message, mtError, [mbOk], 0);
Result := mrAbort;
end;
end;
end;