[PembekalanPRAKERIN2015] Import Data

procedure TForm1.Importdb1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  if OpenDialog1.FileName<>'' then
  begin
    ShellExecute(self.Handle,pchar('open'),
    PCHAR('C:\AppServ\MySQL\bin\mysql.exe'),
    PCHAR('-uroot -proot -hlocalhost -e "drop database if exists aplikasikaryawan; '+
    'create database aplikasikaryawan; use aplikasikaryawan;\. '+OpenDialog1.FileName+'"'),nil,SW_HIDE);
    MessageDlg('Data Berhasil di Restore !!', mtInformation, [mbOK], 0);
    ZTable1.Refresh;
  end else
  begin
    MessageDlg('GAGAL. Harap Pilih Lokasi !!!', mtInformation, [mbOK], 0);
  end;
end;