Program Simpan,Edit & Hapus Menggunakan Visual Foxpro 9.0

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

dari pada kaga ada kerjaan di kost lebih baik berbagi ilmu nih kepada yang ingin belajar Foxpro...

baik dalam postingan kali ini saya akan membahas tentang Program Simpan,Edit dan Hapus..

Pertama-tama bikin tablenya dulu lalu isi field-fieldnya sesuai gambar di bawah :

*(ingat file yang di Index kan adalah field NRP dan nama Indexnya A_NRP)

Setelah itu Lalu desain formnya seperti ini :

Udah bias kan bikin Tabel & Desainya seperti di atas soalnya di postingan sebelum sebelumnya udah kita bahas masalah pembuatan Tabel, Label,Textbox,Checkbox,Grid & Command Button.

Kalo udah selesai bikin desainya seperti di atas lalu klik Text1 1x lalu pindah ke bagian Properties-Data – InputMask lalu isikan 99.09.9999 di dalam InputMasknya.

Setelah itu klik beberapa kali di Grid1 lalu ubah Procedure-nya dari ActivateCell menjadi AfterRowColChange lalu isikan kode program berikut :

thisform.text1.Value=nrp
thisform.text2.Value=nama
IF jk="P" then
thisform.check1.Value=1
ELSE
thisform.check1.Value=0
ENDIF

*(fungsi coding di atas adalah apabila kita mengklik Data pada Grid maka secara otomatis data yang klik akan muncul di Textbox)

Setelah selesai klik beberapa kali CommandButton Simpan & isi kan Kode berikut :
*Fungsi Select <nama table> adalah agar data yang kita simpan tertuju ke Tabel "table1"
SELECT table1
*Fungsi APPEND BLANK adalah untuk membuat data Baru
APPEND BLANK
*Fungsi Replace <nama field> adalah untuk mengganti data di field dengan inputan kita
replace nrp WITH thisform.text1.Value
replace nama WITH thisform.text2.Value
IF thisform.check1.Value=1 then
replace jk WITH "P"
ELSE
replace jk WITH "W"
ENDIF
thisform.grid1.Refresh

*Ini berfungsi untuk mengosongkan inputan di form
thisform.text1.Value=""
thisform.text2.Value=""
thisform.check1.Value=0
thisform.text1.SetFocus

Untuk CommandButton Edit :

SELECT table1
*Tidak memakai Append Blank karena kita cuma ingin merubah
*bukan untuk membuat data baru
replace nrp WITH thisform.text1.Value
replace nama WITH thisform.text2.Value
IF thisform.check1.Value=1 then
replace jk WITH "P"
ELSE
replace jk WITH "W"
ENDIF
thisform.grid1.Refresh

thisform.text1.Value=""
thisform.text2.Value=""
thisform.check1.Value=0
thisform.text1.SetFocus

Untuk CommandButton Hapus :
DELETE
thisform.text1.Value=""
thisform.text2.Value=""
thisform.check1.Value=0
thisform.text1.SetFocus
thisform.grid1.Refresh
*(ctt: apabila coding program berikut tidak berfungsi klik beberapakali di form lalu pilih procedure Activate lalu isikan coding berikut : SET DELETED ON)

Untuk CommandButton Keluar :
thisform.Release

Nah coba jalankan programnya coba-coba Tombol Simpan,Edit,Hapus & Keluar apa kah sudah berfungsi atau belum,. Kalau belum coba di cek atau Komen aja di bawah,…

Selamat mencoba Good Luck..