Cara Backup/Restore data Menggunakan PKZIP25 pada Visual Foxpro

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