Program Simpan,Edit & Hapus Menggunakan Visual Foxpro 9.0

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 adalah agar data yang kita simpan tertuju ke Tabel "table1"
SELECT table1
*Fungsi APPEND BLANK adalah untuk membuat data Baru
APPEND BLANK
*Fungsi Replace 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,…