opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 01:56:36 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add a second label to below the processlist, called "EXPLAIN Analyzer on MariaDB.org", which passes the EXPLAIN output to http://mariadb.org/explain_analyzer/api/1/ . Thanks to Bryan Alsdorf for support.

Browse Source
This commit is contained in:
Ansgar Becker
2012-08-20 06:15:49 +00:00
parent 5cb8df0a78
commit c7ffeba600
2 changed files with 56 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
source/main.pas
View File

@ -555,6 +555,8 @@ type
menuGroupObjects: TMenuItem;
actLogHorizontalScrollbar: TAction;
actGroupObjects: TAction;
lblExplainProcessAnalyzer: TLabel;
menuExplainAnalyzer: TMenuItem;
procedure actCreateDBObjectExecute(Sender: TObject);
procedure menuConnectionsPopup(Sender: TObject);
procedure actExitApplicationExecute(Sender: TObject);
@ -877,6 +879,7 @@ type
procedure DBtreeExpanding(Sender: TBaseVirtualTree; Node: PVirtualNode;
var Allowed: Boolean);
procedure actGroupObjectsExecute(Sender: TObject);
procedure lblExplainProcessAnalyzerClick(Sender: TObject);
private
FLastHintMousepos: TPoint;
FLastHintControlIndex: Integer;
@ -1409,6 +1412,7 @@ begin
InheritFont(ParameterCompletionProposal.Font);
// Simulated link label, has non inherited blue font color
InheritFont(lblExplainProcess.Font);
InheritFont(lblExplainProcessAnalyzer.Font);
StatusBar.Height := GetTextHeight(StatusBar.Font)+4;
// Upscale panels in non-96-DPI mode
@ -6617,6 +6621,8 @@ begin
and (UpperCase(GetFirstWord(SynMemoProcessView.Text)) <> 'SHOW')
and (SynMemoProcessView.GetTextLen > 0);
menuExplainProcess.Enabled := lblExplainProcess.Enabled;
lblExplainProcessAnalyzer.Enabled := lblExplainProcess.Enabled;
menuExplainAnalyzer.Enabled := lblExplainProcess.Enabled;
end;
@ -10027,6 +10033,32 @@ begin
end;
procedure TMainForm.lblExplainProcessAnalyzerClick(Sender: TObject);
var
Results: TDBQuery;
Raw, URL: String;
i: Integer;
begin
ActiveConnection.Database := listProcesses.Text[listProcesses.FocusedNode, 3];
Results := ActiveConnection.GetResults('EXPLAIN '+SynMemoProcessView.Text);
Raw := '+' + CRLF + '|';
for i:=0 to Results.ColumnCount-1 do begin
Raw := Raw + Results.ColumnNames[i] + '|';
end;
Raw := Raw + CRLF + '+';
while not Results.Eof do begin
Raw := Raw + CRLF + '|';
for i:=0 to Results.ColumnCount-1 do begin
Raw := Raw + Results.Col(i) + '|';
end;
Results.Next;
end;
Raw := Raw + CRLF;
URL := 'http://mariadb.org/explain_analyzer/api/1/?raw_explain='+EncodeURL(Raw)+'&client='+APPNAME;
ShellExec(URL);
end;
procedure TMainForm.lblExplainProcessClick(Sender: TObject);
var
Tab: TQueryTab;