Tutorial Visual Foxpro membuat form Backup

Pada artikel saya sebelumnya sudah membahas tentang tutorial Visual Foxpro membuat form utama, dari sini anda sudah bisa membuat sebuah aplikasi, namun belum lengkap. Jika anda perhatikan pada aplikasi kasir saya, maka di sana terdapat sebuah form yang digunakan untuk membackup file-file yang sudah kita rubah. Tujuan dari backup ini adalah untuk menghindari terjadinya kehilangan ataupun kerusakan data. Pada artikel saya kali ini akan membahas tentang bagaimana caranya membackup data pada Visual Foxpro. Adapun salah satu contoh form backup yang nanti sama-sama kita buat adalah seperti gambar di bawah ini.

Pertama-pertama seperti biasanya anda buka terlebih dahulu aplikasi Visual Foxpro anda terlebih dahulu, setelah itu anda buat sebuah form dan desain seperti di bawah ini.  

Objek	Properties	Value
Form1	Autocenter	.t.
	Backcolor	255,255,255
	Borderstyle	1-fixed single
	Clipcontrols	.f.
	Closable	.f.
	Controlbox	.f.
	Height	258
	Titlebar	0-off
	Width	374
Image1	Height	44
	Left	0
	Picture	macoscmd12.bmp
	Stretch	2-stretch
	Top	236
	Width	376
Image2	Height	44retch
	Left	-2
	Picture	macoscmd12.bmp
	Stretch	2-stretch
	Top	-20
	Width	376
Label1	Autosize	.t.
	Backstyle	0-transparant
	Caption	File tujuan
	Fontbold	.t.
	Fontsize	9
	Forecolor	185,0,0
	Height	17
	Left	45
	Top	58
	Width	62
Label4	Autosize	.t.
	Backstyle	0-transparant
	Fontbold	.t.
	Fontsize	12
	Forecolor	185,0,0
	Height	22
	Left	114
	Top	57
	Width	8
Txtnama	Format	!R
	Height	23
	Left	126
	Name	Txtnama
	Themes	.f.
	Top	56
	width	179
Label2	Autosize	.t.
	Backstyle	0-transparant
	Caption	Sebelum proses backup dilakukan pastikan data sedang tidak dipakai
	Fontbold	.t.
	Forecolor	185,0,0
	Height	32
	Left	44
	Top	160
	Width	199
	Wordwrap	.t.
Command1	Caption	\<Backup
	Height	30
	Left	262
	Mousepointer	99-custom
	Top	148
	Width	67
Command2	Caption	\<Tutup
	Height	30
	Left	263
	Mousepointer	99-custom
	Top	178
	Width	67
Olecontrol1	Height	25
	Left	33
	Top	110
	Width	303

 
 

Objek-objek di atas adalah yang penting saja, sedangkan jika anda ingin membuat form backup ini mirip dengan gambar di atas maka tentunya anda bisa menambahkan sendiri seperti objek shape dan sebagainya. Saya rasa untuk mempercantik tampilan form backup anda sudah bisa menghiasnya sendiri. Saya akan lanjutkan untuk source code dari form backup ini, jadi silakan anda simak dengan baik.

Form1 : activate 

thn=ALLTRIM(STR(YEAR(DATE())))

bln=ALLTRIM(STR(MONTH(DATE())))

tgl=ALLTRIM(STR(DAY(DATE())))

this.txtnama.Value=tgl+'_'+bln+'_'+thn  

Form1: keypress

LPARAMETERS nKeyCode, nShiftAltCtrl

IF nkeycode=27

      thisform.Release()

ENDIF 

Form1: load 

CLOSE DATABASES 

Command1: click 

LOCAL A, B

A= thisform.olecontrol1.max

B= thisform.olecontrol1.value

IF B<A

      thisform.olecontrol1.value=B+99

ENDIF

***

IF EMPTY(ALLTRIM(thisform.txtnama.Value))

      thisform.txtnama.SetFocus

      RETURN

ENDIF

***

IF !FILE('rar.exe')

      MESSAGEBOX('File untuk Backup Tidak ditemukan',48,'Informasi')

      RETURN

ENDIF

***

WAIT WINDOW 'Sedang membackup data...' nowait

nm=STRTRAN(ALLTRIM(thisform.txtnama.Value),' ',' ')

nm=STRTRAN(ALLTRIM(thisform.txtnama.Value),'/','_')

fldata='*.dbf *.cdx *.dbc *.mpr'

!rar a &nm &fldata

WAIT WINDOW 'Backup selesai!' nowait

MESSAGEBOX('backup data selesai',64,'Informasi')

thisform.command1.Enabled= .F.

CLEAR EVENTS

QUIT

  

Command2: click

thisform.Release() 

Demikianlah tutorial Visual Foxpro untuk kali ini, dimana sampai di sini anda sudah bisa membuat sebuah form backup, oh iya hasil dari backup ini adalah dalam bentuk .rar, dari itu perlu anda tambahkan ke dalam folder aplikasi form backup ini file pembentuk rar. Tidak perlu khawatir saya sudah menyediakannya untuk anda, dan bisa di download pada link yang saya sediakan di bawah ini. Terimakasih semoga artikel ini bisa bermanfaat untuk anda semua yang ingin mendalami bahasa pemrograman Visual Foxpro.

Download 

Tutorial Visual Foxpro membuat form Backup 2014-02-05T16:21:00+07:00 Rating: 4.5 Diposkan Oleh: xxxxx