opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Support dropping databases with leading space. Closes #427.

Browse Source
This commit is contained in:
Ansgar Becker
2018-12-04 20:50:26 +01:00
parent 573055e662
commit 6f4eac6eeb
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/main.pas
View File

@@ -3213,12 +3213,13 @@ begin
if DBTreeClicked(Sender) then begin
// drop table selected in tree view.
case ActiveDBObj.NodeType of
DBObject := ActiveDBObj;
case DBObject.NodeType of
lntDb: begin
if MessageDialog(f_('Drop Database "%s"?', [Conn.Database]), f_('WARNING: You will lose all objects in database %s!', [Conn.Database]), mtCriticalConfirmation, [mbok,mbcancel]) <> mrok then
if MessageDialog(f_('Drop Database "%s"?', [DBObject.Database]), f_('WARNING: You will lose all objects in database %s!', [DBObject.Database]), mtCriticalConfirmation, [mbok,mbcancel]) <> mrok then
Abort;
try
db := Conn.Database;
db := DBObject.Database;
Node := FindDBNode(DBtree, Conn, db);
SetActiveDatabase('', Conn);
Conn.Query('DROP DATABASE ' + Conn.QuoteIdent(db));
@@ -3232,7 +3233,7 @@ begin
end;
Exit;
end;
lntTable..lntEvent: ObjectList.Add(ActiveDbObj);
lntTable..lntEvent: ObjectList.Add(ActiveDBObj);
end;
end else begin
// Invoked from database tab