Subscribe:
Selamat Datang di Blog IT, Blog ini berisikan tentang Teknologi Informasi dan Komunikasi serta Gadge

Social Icons

Sample Text

Followers

Featured Posts

Kamis, 06 Desember 2012

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 :

  1. SELECT table1
  2. *Tidak memakai Append Blank karena kita cuma ingin merubah
  3. *bukan untuk membuat data baru
  4. replace nrp WITH thisform.text1.Value
  5. replace nama WITH thisform.text2.Value
  6. IF thisform.check1.Value=1 then
  7. replace jk WITH "P"
  8. ELSE
  9. replace jk WITH "W"
  10. ENDIF
  11. thisform.grid1.Refresh
  12. thisform.text1.Value=""
  13. thisform.text2.Value=""
  14. thisform.check1.Value=0
  15. 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..

0 komentar:

Poskan Komentar