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

Refresh table cache when one or more tables got renamed, created, dropped.

Browse Source
This commit is contained in:
Ansgar Becker
2007-07-14 12:59:25 +00:00
parent e1b1f80fa3
commit f39222fea5
4 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/childwin.pas
View File

@ -2978,6 +2978,7 @@ begin
tn := DBTree.Selected; tn := DBTree.Selected;
DBTree.Selected := DBTree.Selected.Parent; DBTree.Selected := DBTree.Selected.Parent;
tn.Destroy; tn.Destroy;
RefreshActiveDbTableList;
ShowDBProperties(self); ShowDBProperties(self);
Screen.Cursor := crDefault; Screen.Cursor := crDefault;
end; end;
@ -3349,6 +3350,7 @@ begin
if i > -1 then if i > -1 then
SynSQLSyn1.TableNames[i] := S; SynSQLSyn1.TableNames[i] := S;
ActualTable := S; ActualTable := S;
RefreshActiveDbTableList;
ShowDBProperties(self); ShowDBProperties(self);
// re-select same item // re-select same item
for i:=0 to ListTables.Items.Count-1 do for i:=0 to ListTables.Items.Count-1 do

1
source/copytable.pas
View File

@ -279,6 +279,7 @@ begin
zq.Next; zq.Next;
end; end;
Mainform.Childwin.RefreshActiveDbTableList;
Mainform.ChildWin.ShowDBProperties(self); Mainform.ChildWin.ShowDBProperties(self);
close; close;

1
source/createtable.pas
View File

@ -211,6 +211,7 @@ begin
try try
Mainform.ChildWin.ExecUseQuery( DBComboBox.Text ); Mainform.ChildWin.ExecUseQuery( DBComboBox.Text );
Mainform.ChildWin.ExecUpdateQuery( createQuery ); Mainform.ChildWin.ExecUpdateQuery( createQuery );
Mainform.Childwin.RefreshActiveDbTableList;
Mainform.ChildWin.ShowDBProperties(self); Mainform.ChildWin.ShowDBProperties(self);
Mainform.ChildWin.ActualTable := EditTablename.Text; Mainform.ChildWin.ActualTable := EditTablename.Text;
Close; Close;

1
source/main.pas
View File

@ -1037,6 +1037,7 @@ begin
end; end;
end; end;
RefreshActiveDbTableList;
ShowDBProperties(self); ShowDBProperties(self);
Screen.Cursor := crDefault; Screen.Cursor := crDefault;
end; end;