Example MVD + MySQLDump.exe +Gzip Update 2017-07-18

var
AppPath : String;
procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    OpenFile(AppPath+'backup.bat','')
end;
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
MySQL: TMyConnection;
qd : Tdataset ;
begin     
    MySQL := TMyConnection.Create(Form1);
    MySQL.Options.UseUnicode := True;
    MySQL.Server := Form1.Edit1.Text ;
    MySQL.Port := StrtoInt(Form1.Edit4.Text);
    MySQL.Username := Form1.Edit2.Text ;
    MySQL.Password := Form1.Edit3.Text ;
    // MySQL.Database := Form1.Edit5.Text ;
    MySQL.LoginPromt := False;
    try
        MySQL.Connect;
        except
        ShowMessage('Can''t connect to database.');
    end;
    if MySQL.Connected then
    begin
        ShowMessage('OK connect to database.');
        SQLQuery('Show databases',qd) ;
        Form1.ComboBox1.Clear;
        while not qd.eof do begin
            Form1.ComboBox1.Items.Add(qd.fields.fields[0].asstring);
            qd.next;
        end;
        qd.close;
        MySQL.Disconnect;
    end;
end;
procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Memo1.Clear ;
    Form1.Memo1.lines.Add('title Please Wait! MySQLDump Processing Data');
    Form1.Memo1.lines.Add('set year=%DATE:~10,4%');
    Form1.Memo1.lines.Add('set day=%DATE:~7,2%');
    Form1.Memo1.lines.Add('set mnt=%DATE:~4,2%');
    Form1.Memo1.lines.Add('set hr=%TIME:~0,2%');
    Form1.Memo1.lines.Add('set min=%TIME:~3,2%');
    Form1.Memo1.lines.Add('IF %day% LSS 10 SET day=0%day:~1,1%');
    Form1.Memo1.lines.Add('IF %mnt% LSS 10 SET mnt=0%mnt:~1,1%');
    Form1.Memo1.lines.Add('IF %hr% LSS 10 SET hr=0%hr:~1,1%');
    Form1.Memo1.lines.Add('IF %min% LSS 10 SET min=0%min:~1,1%');
    Form1.Memo1.lines.Add('set SS=%TIME:~6,2%');
    Form1.Memo1.lines.Add('set backuptime=%year%%mnt%%day%%hr%%min%%SS%');
    Form1.Memo1.lines.Add('set dbname='+Form1.ComboBox1.Text);
    Form1.Memo1.lines.Add('set dbuser='+Form1.Edit2.Text );
    Form1.Memo1.lines.Add('set dbpass='+Form1.Edit3.Text );
    Form1.Memo1.lines.Add('set dbhost='+Form1.Edit1.Text );
    Form1.Memo1.lines.Add('set dbport='+Form1.Edit4.Text );
    Form1.Memo1.lines.Add('set dbdump='+Apppath+'bin\mysqldump.exe' );
    Form1.Memo1.lines.Add('set pathbackup='+Apppath+'backupfiles\' );
    Form1.Memo1.lines.Add('set expsql='+Apppath+'backupfiles\' );
    Form1.Memo1.lines.Add('set gzipexe='+Apppath+'bin\gzip.exe' );
    Form1.Memo1.lines.Add
    ('%dbdump% --extended-insert=FALSE --skip-comments -u%dbuser% -p%dbpass% -h%dbhost% -P%dbport%  %dbname% > "%expsql%%dbname% %backuptime%.sql"');
    Form1.Memo1.lines.Add('cd %pathbackup%');
    Form1.Memo1.lines.Add('%gzipexe% "%dbname% %backuptime%.sql"');
    Form1.Memo1.lines.Add('start %expsql%');
    Form1.Memo1.Lines.SaveToFile(AppPath+'backup.bat');
    ShowMessage('Ready OK!');
end;
begin
    AppPath := ExtractFilePath(Application.ExeName);
    Form1.mniFile.Visible := False;
    Form1.mniOptions.Visible := False;
    Form1.mniSettings.Visible := False;
    Form1.mniReport.Visible:= False;
    Form1.mniAbout.Visible := False;
end.