Logika Backup dan Restore data pada Delphi

Lama tidak update dan sekarang kita berjumpa lagi, langsung saja tidak usah berlama-lama karena sudah lama juga udinnjaen tidak update, hehehehee (maaf), kali ini saya akan membahas dan sedikit menjelaskan dengan tema programming atau coding. Yang akan kita bahas kali ini adalah tentang pemrograman desktop yaitu delphi 7. Meskipun sudah lama namun pada saat-saat sekarang ini delphi masih sering digunakan bagi mahasiswa atau anak-anak informatika yang ingin belajar atau sedang membuat projek menggunakan delphi 7.

Kali ini saya tidak akan membahas mengenai keseluruhan program dari projek yang akan saya sampaikan sebagai studi kasus. Namun saya akan membahas mengenai salah satu fitur penting yang harus dimiliki oleh suatu program aplikasi yang akan kita buat nanti. Nah langsung ke topik utamanya, disini saya akan membahas mengenai "Bagaimana sih cara membuat fitur BACKUP dan RESTORE data atau database dari aplikasi yang akan kita buat nanti??". Fitur backup dan restore data memang sangatlah penting tapi masih jarang bagi para programmer pemula untuk memberikan fitur yang satu ini.

Pengertian Backup dan Restore Data

Backup data digunakan untuk membackup data yang telah kita inputkan pada program yang kita buat nantinya, supaya data yang kita inputkan tidak hilang atau ada file cadangannya. Sedangkan Restore data adalah mengembalika data yang dulu pernah kita simpan (Backup) untuk kita olah kembali.

Pada pembahasan kali ini saya akan menggunakan database dari Ms Access karena sifatnya yang fleksibel dan dapat dibuka di manapun kita berada (sebagian besar komputer pasti memiliki aplikasi ms access). Untuk membuat menu backup dan restore data saya menggunakan logika Backup dan Restore data pada Delphi dimana:

"Backup = file database yang akan kita backup akan dicopykan ke tempat lain (folder lain) sedangkan untuk Restore = mengembalikan file database yang sudah dibackup ke tempat database aslinya dengan cara overwrite atau copy and replace."

Mengatasi Masalah Pada Delphi 7

Logika Backup dan Restore data pada Delphi

Langsung saja ikuti langkah-langkah berikut untuk membuat fitur Backup dan Restore data pada aplikasi yang akan kalian buat!

1. Pertama, siapkan terlebih dulu komponen Savedialog dan Opendialog yang ada di menu Dialog.

2. Siapkan juga button Backup dan Restore.
3. Pada button atau tombol Backup tambahkan source code di bawah ini:

var dir:string;
begin
dir:='C:\Program Files\Catatan Setter\databases.mdb'; //sesuaikan dengan direktori database kalian
if Application.MessageBox('Yakin untuk backup data ...?','Konfirmasi',MB_YESNO + MB_ICONQUESTION)= IDYES then
Begin
 SaveDialog1.FileName:='databases';
  if SaveDialog1.Execute then
    begin
      if FileExists(SaveDialog1.FileName) then
      begin
       
      CopyFile(PChar(dir),PChar((SaveDialog1.FileName)),False);
      Application.MessageBox('Database Sudah Dibackup','Informasi',mb_OK + mb_ICONINFORMATION);
    end;
    end;
end;
end;

4. Setelah tombol Backup selesai, tambahkan pula source code di bawah ini pada tombol Restore:

var res:string;
begin
res:='C:\Program Files\Catatan Setter\databases.mdb';
if Application.MessageBox('Yakin untuk restore data ...?','Konfirmasi',MB_YESNO + MB_ICONQUESTION)= IDYES then
Begin
 if opendialog1.execute then
begin
if FileExists(opendialog1.FileName) then
      begin
      CopyFile(PChar(opendialog1.FileName),PChar((res)),False);
      Application.MessageBox('Database Sudah Direstore.'+chr(10)+''+
       'Restart program dulu untuk mengembalikan data semula!','Informasi',mb_OK + mb_ICONINFORMATION);
           end;
    end;
end;
end;

5. Setelah selesai coba dulu dengan menjalankan program Backup data.

Catatan: Pada fariabel dir dan res sesuaikan dengan letak dimana file database kalian disimpan.

Selamat mencoba, semoga bermanfaat :D