Dalam pembuatan program kita perlu mengantisipasi hilangnya data yang telah dientry. Untuk itu maka perlu menu untuk backup atau restore data. Banyak cara untuk melakukan backup/restore data antara lain salah satunya adalah dengan menggunakan software PKZIP25. Download software PKZIP25 dan tempatkan di folder tempat aplikasi anda. Untuk memanggil software tersebut dari aplikasi anda, anda harus menuliskan code program berikutpada menu backup/restore anda :
MENU BACKUP :
a = SYS(5)+SYS(2003)+"\c:\folder_aplikasi_anda"
b = SYS(5)+SYS(2003)+"\pkzip25 -add c:\folder_aplikasi_anda\nama_file_hasil.bck "+SYS(5)+SYS(2003)+"\*.dbf"
WAIT WINDOW[Proses Back up..]NOWAIT
LOCAL clok
clok=b
CLOSE TABLES ALL
CLOSE DATABASES ALL
RUN &clok
WAIT WINDOW[Proses Back up Selesai]NOWAIT
MESSAGEBOX('Data Telah Berhasil Di Buckup...!',0+64,'KONFIRMASI')
MENU RESTORE :
a = SYS(5)+SYS(2003)+"\C:\Folder_aplikasi_anda"
b = SYS(5)+SYS(2003)+"\pkzip25 -extr C:\Folder_aplikasi_anda\nama_file_hasil.bck"
WAIT WINDOW[Proses Back up..]NOWAIT
LOCAL clok
clok=b
CLOSE TABLES ALL
CLOSE DATABASES ALL
RUN &clok
WAIT WINDOW[Proses Restore Selesai]NOWAIT
MESSAGEBOX('Restore Data Telah Berhasil...!',0+64,'KONFIRMASI')
Demikian semoga bisa membantu
Untuk mendownload software silahkan klik PKZIP25
