Important followup to last commit: Makes EnsureActiveDatabase accessible in other units.

This commit is contained in:
Ansgar Becker
2007-07-04 20:19:36 +00:00
parent efcc58f7bb
commit 01c66955f6

View File

@ -481,7 +481,6 @@ type
procedure WaitForQueryCompletion(WaitForm: TForm);
function RunThreadedQuery(AQuery : String) : TMysqlQuery;
procedure DisplayRowCountStats(ds: TDataSet);
procedure EnsureActiveDatabase;
public
ActualDatabase : String;
@ -511,6 +510,7 @@ type
function RefreshActiveDbTableList: TDataSet;
procedure ClearAllTableLists;
procedure UpdateTreeTableList;
procedure EnsureActiveDatabase;
end;