HeidiSQL/optimizetables.pas

unit optimizetables;


// -------------------------------------
// Table-diagnostics
// -------------------------------------


interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, CheckLst, comctrls, Buttons, ToolWin;

type
  Toptimize = class(TForm)
    TablesCheckListBox: TCheckListBox;
    DBComboBox: TComboBox;
    Label1: TLabel;
    Button3: TButton;
    CheckBoxQuickRepair: TCheckBox;
    CheckBoxQuickCheck: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label3: TLabel;
    ListViewResults: TListView;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBComboBoxChange(Sender: TObject);
    procedure CheckListToggle(Sender: TObject);
    procedure Optimze(Sender: TObject);
    procedure Check(Sender: TObject);
    procedure Analyze(Sender: TObject);
    procedure Repair(Sender: TObject);
    procedure showresult(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TablesCheckListBoxClickCheck(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function TableDiagnosticsWindow (AOwner : TComponent; Flags : String = '') : Boolean;


implementation
uses childwin, helpers, main;
{$R *.DFM}

function TableDiagnosticsWindow (AOwner : TComponent; Flags : String = '') : Boolean;
var
  f : Toptimize;
begin
  f := Toptimize.Create(AOwner);
  f.ShowModal;
  Result := True;
  FreeAndNil (f);
end;

procedure Toptimize.Button3Click(Sender: TObject);
begin
  close;
end;

procedure Toptimize.FormShow(Sender: TObject);
var
  i : Integer;
  tn : TTreeNode;
begin
  // FormShow!

  // read dbs and Tables from treeview
  DBComboBox.Items.Clear;
  with TMDIChild(Application.Mainform.ActiveMDIChild) do
  begin
    for i:=0 to DBTree.Items.Count-1 do
    begin
      tn := DBTree.Items[i];
      if tn.Level = 1 then
        DBComboBox.Items.Add(tn.Text);
    end;
    DBComboBox.ItemIndex := 0;
    for i:=0 to DBComboBox.Items.Count-1 do
    begin
      if DBComboBox.Items[i] = ActualDatabase then
        DBComboBox.ItemIndex := i;
    end;
  end;
  if DBComboBox.ItemIndex = -1 then
    DBComboBox.ItemIndex := 0;
  DBComboBox.OnChange(self);
end;

procedure Toptimize.DBComboBoxChange(Sender: TObject);
var
  tn, child : TTreeNode;
  i,j : Integer;
begin
  // read tables from db
  TablesCheckListBox.Items.Clear;
  with TMDIChild(Application.Mainform.ActiveMDIChild) do
  begin
    for i:=0 to DBTree.Items.Count-1 do
    begin
      tn := DBTree.Items[i];
      if tn.Text = DBComboBox.Text then
      begin
        child := tn.getFirstChild;
        for j:=0 to tn.Count-1 do
        begin
          TablesCheckListBox.Items.Add(child.Text);
          child := tn.getNextChild(child);
        end;
      end;
    end;
  end;
  // select all:
  for i:=0 to TablesCheckListBox.Items.Count-1 do
    TablesCheckListBox.checked[i] := true;
end;


procedure Toptimize.CheckListToggle(Sender: TObject);
begin
  // select all/none
  ToggleCheckListBox(TablesCheckListBox, ((Sender as TControl).Tag = 1));
  TablesCheckListBox.OnClickCheck(self);
end;


procedure Toptimize.Optimze(Sender: TObject);
var i : Integer;
begin
  screen.Cursor := crSQLWait;
  ListViewResults.Columns.BeginUpdate();
  ListViewResults.Columns.Clear;
  ListViewResults.Items.BeginUpdate();
  ListViewResults.Items.Clear;
  ListViewResults.Columns.EndUpdate();
  ListViewResults.Items.EndUpdate();
  with TMDIChild(Application.Mainform.ActiveMDIChild) do
  begin
    ExecUseQuery( self.DBComboBox.Text );
    for i:=0 to self.TablesCheckListBox.Items.Count - 1 do
    begin
      if TablesCheckListBox.Checked[i] then
        ExecUpdateQuery('OPTIMIZE TABLE ' + mainform.mask(TablesCheckListBox.Items[i]));
    end;
  end;
  screen.Cursor := crDefault;
end;

procedure Toptimize.Check(Sender: TObject);
var
  i : Integer;
  checkedtables : TStringList;
  querystr  : String;
begin
  screen.Cursor := crSQLWait;
  with TMDIChild(Application.Mainform.ActiveMDIChild) do
  begin
    checkedtables := TStringList.Create;
    with self.TablesCheckListBox do
      for i:=0 to Items.Count - 1 do
        if Checked[i] then
          checkedtables.Add(mainform.mask(Items[i]));
    querystr := 'CHECK TABLE ' + implodestr(',', checkedtables);
    if CheckBoxQuickCheck.Checked then
      querystr := querystr + ' QUICK';
    ExecUseQuery( self.DBComboBox.Text );
    GetResults( querystr, ZQuery3 );
    showresult(self);
  end;
  screen.Cursor := crDefault;
end;

procedure Toptimize.Analyze(Sender: TObject);
var
  i : Integer;
  checkedtables : TStringList;
  querystr  : String;
begin
  screen.Cursor := crSQLWait;
  with TMDIChild(Application.Mainform.ActiveMDIChild) do
  begin
    checkedtables := TStringList.Create;
    with self.TablesCheckListBox do
      for i:=0 to Items.Count - 1 do
        if Checked[i] then
          checkedtables.Add(mainform.mask(Items[i]));
    querystr := 'ANALYZE TABLE ' + implodestr(',', checkedtables);
    ExecUseQuery( self.DBComboBox.Text );
    GetResults( querystr, ZQuery3 );
    showresult(self);
  end;
  screen.Cursor := crDefault;
end;

procedure Toptimize.Repair(Sender: TObject);
var
  i : Integer;
  checkedtables : TStringList;
  querystr  : String;
begin
  screen.Cursor := crSQLWait;
  with TMDIChild(Application.Mainform.ActiveMDIChild) do
  begin
    checkedtables := TStringList.Create;
    with self.TablesCheckListBox do
      for i:=0 to Items.Count - 1 do
        if Checked[i] then
          checkedtables.Add(mainform.mask(Items[i]));
    querystr := 'REPAIR TABLE ' + implodestr(',', checkedtables);
    if CheckBoxQuickRepair.Checked then
      querystr := querystr + ' QUICK';
    ExecUseQuery( self.DBComboBox.Text );
    GetResults( querystr, ZQuery3 );
    showresult(self);
  end;
  screen.Cursor := crDefault;
end;

procedure Toptimize.showresult(Sender: TObject);
var
  i,j,fieldcount : Integer;
  li           : TListItem;
  lc           : TListColumn;
begin
  ListViewResults.Columns.BeginUpdate();
  ListViewResults.Columns.Clear;
  ListViewResults.Items.BeginUpdate();
  ListViewResults.Items.Clear;
  with TMDIChild(Application.Mainform.ActiveMDIChild) do
  begin
    fieldcount := ZQuery3.FieldCount;
    for i := 0 to fieldcount -1 do
    begin
      lc := ListViewResults.Columns.Add;
      lc.Caption := ZQuery3.Fields[i].Fieldname;
    end;

    for i:=1 to ZQuery3.RecordCount do
    begin
      li := ListViewResults.Items.Add;
      li.Caption := ZQuery3.Fields[0].AsString;
      for j := 1 to fieldcount -1 do // fill cells
        li.SubItems.Add(ZQuery3.Fields[j].AsString);
      ZQuery3.Next;
    end;

    for i := 0 to ListViewResults.Columns.Count-1 do
      ListViewResults.Columns[i].Width := -2;
  end;
  ListViewResults.Columns.EndUpdate();
  ListViewResults.Items.EndUpdate();
end;

procedure Toptimize.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // catch exception to be sure window can close
  try
    with TMDIChild(Application.Mainform.ActiveMDIChild) do
      if ActualDatabase <> '' then ExecUseQuery( ActualDatabase );
  except
  end;

end;

procedure Toptimize.TablesCheckListBoxClickCheck(Sender: TObject);
var
   i : Integer;
   somechecked : Boolean;
begin
  somechecked := false;
  for i:=0 to TablesCheckListBox.Items.Count-1 do begin
    if TablesCheckListBox.Checked[i] then begin
      somechecked := true;
      break;
    end;
  end;
  // en-/disable buttons/checkboxes:
  BitBtn1.Enabled := somechecked;
  BitBtn2.Enabled := somechecked;
  BitBtn3.Enabled := somechecked;
  BitBtn4.Enabled := somechecked;
  CheckBoxQuickRepair.Enabled := somechecked;
  CheckBoxQuickCheck.Enabled := somechecked;

end;

end.