Cara Membuat Tombol Simpan, Batal, Hapus, Lihat, dan Keluar di FoxPro

Di sini saya punya 2 Form untuk pengimputan data.

 

Nama Table saya adalah Print, berikut Strukturnya :

Form1, Procedure Load :

use print

set order to tag nm_pemilik

Tombol Simpan, Procedure Click :

Kunci= alltrim(thisform.txtnm_pemilik.value)

seek kunci

IF EMPTY(thisform.txtnm_pemilik.value)

Messagebox("Nama tidak boleh kosong",16,"Perhatian")

thisform.txtnm_pemilik.setfocus

Return 

ELSE

SET ORDER to tag nm_pemilik

WITH thisform

SEEK (trim(.txtnm_pemilik.value))

endwith

endif

if!found()

APPE BLANK

REPL nm_pemilik WITH THISFORM.TXTnm_pemilik.VALUE

REPL alamat WITH THISFORM.TXTalamat.VALUE

REPL Kode_pos WITH THISFORM.TXTkode_pos.VALUE

REPL no_telfon WITH THISFORM.TXTno_tlp.VALUE

REPL kota WITH THISFORM.TXTkota.VALUE

REPL nm_barang WITH THISFORM.TXTnm_barang.VALUE

REPL jns_barang WITH THISFORM.TXTjns_barang.VALUE

REPL tpe_barang WITH THISFORM.TXTtpe_barang.VALUE

REPL tpe_barang WITH THISFORM.Combo2.VALUE

REPL tpe_barang WITH THISFORM.Combo3.VALUE

REPL tpe_barang WITH THISFORM.Combo4.VALUE

REPL hrg_barang WITH THISFORM.TXThrg_barang.VALUE

REPL jumlah WITH THISFORM.TXTjumlah.VALUE

REPL total WITH THISFORM.TXTtotal.VALUE

REPL tanggal WITH THISFORM.TXTtgl_beli.VALUE

else

REPL nm_pemilik WITH THISFORM.TXTnm_pemilik.VALUE

REPL alamat WITH THISFORM.TXTalamat.VALUE

REPL kode_pos WITH THISFORM.TXTkode_pos.VALUE

REPL no_telfon WITH THISFORM.TXTno_tlp.VALUE

REPL kota WITH THISFORM.TXTkota.VALUE

REPL nm_barang WITH THISFORM.TXTnm_barang.VALUE

REPL jns_barang WITH THISFORM.TXTjns_barang.VALUE

REPL tpe_barang WITH THISFORM.TXTtpe_barang.VALUE

REPL tpe_barang WITH THISFORM.Combo2.VALUE

REPL tpe_barang WITH THISFORM.Combo3.VALUE

REPL tpe_barang WITH THISFORM.Combo4.VALUE

REPL hrg_barang WITH THISFORM.TXThrg_barang.VALUE

REPL jumlah WITH THISFORM.TXTjumlah.VALUE

REPL total WITH THISFORM.TXTtotal.VALUE

REPL tanggal WITH THISFORM.TXTtgl_beli.VALUE

endif

THISFORM.TXTnm_pemilik.VALUE=""

THISFORM.TXTalamat.VALUE=""

THISFORM.TXTkode_pos.VALUE=""

THISFORM.TXTno_tlp.VALUE=""

THISFORM.TXTkota.VALUE=""

THISFORM.TXTnm_barang.VALUE=""

THISFORM.TXTjns_barang.VALUE=""

THISFORM.TXTtpe_barang.VALUE=""

THISFORM.Combo2.VALUE=""

THISFORM.Combo3.VALUE=""

THISFORM.Combo4.VALUE=""

THISFORM.TXThrg_barang.VALUE=0

THISFORM.TXTjumlah.VALUE=0

THISFORM.TXTtotal.VALUE=0

THISFORM.TXTtgl_beli.VALUE=ctod(" - - ")

THISFORM.TXTnm_pemilik.SETFOCUS

Tombol Batal, Procedure Click :

THISFORM.TXTnm_pemilik.VALUE=""

THISFORM.TXTalamat.VALUE=""

THISFORM.TXTkode_pos.VALUE=0

THISFORM.TXTno_tlp.VALUE=""

THISFORM.TXTkota.VALUE=""

THISFORM.TXTnm_barang.VALUE=""

THISFORM.TXTjns_barang.VALUE=""

THISFORM.TXTtpe_barang.VALUE=""

THISFORM.TXThrg_barang.VALUE=0

THISFORM.TXTjumlah.VALUE=0

THISFORM.TXTtotal.VALUE=0

THISFORM.TXTtgl_beli.VALUE=ctod(" - - ")

THISFORM.TXTnm_pemilik.SETFOCUS

Tombol Hapus, Procedure Click :

kunci=thisform.txtnm_pemilik.Value

seek kunci

if found()

tombol=4+32

pesan=messagebox("Yakin Data Akan Dihapus?",tombol,"Pesan")

if pesan!=7

dele

messagebox("Data Telah Dihapus","pesan")

THISFORM.TXTnm_pemilik.VALUE=""

THISFORM.TXTalamat.VALUE=""

THISFORM.TXTkode_pos.VALUE=""

THISFORM.TXTno_tlp.VALUE=""

THISFORM.TXTkota.VALUE=""

THISFORM.TXTnm_barang.VALUE=""

THISFORM.TXTjns_barang.VALUE=""

THISFORM.TXTtpe_barang.VALUE=""

THISFORM.TXThrg_barang.VALUE=0

THISFORM.TXTjumlah.VALUE=0

THISFORM.TXTtotal.VALUE=0

THISFORM.TXTtgl_beli.VALUE=ctod(" - - ")

THISFORM.TXTnm_pemilik.SETFOCUS

else

messagebox("Data Tidak Dihapus",0+32,"Pesan")

endif

endif

Tombol Lihat, Procedure Click :
Do Form Lihat

Tombol Keluar, Procedure Click :

Thisform.release

Pada txtalamat saya juga menambahkan listing berikut :
txtalamat, Procedure GotFocus :

kunci=ALLTRIM(THISFORM.txtnm_pemilik.VALUE)

SEEK kunci

IF FOUND()

MESSAGEBOX("Langganan Telah Kamu Input Admin",6,"pesan")

THISFORM.txtnm_pemilik.VALUE= Nm_Pemilik

THISFORM.txtalamat.VALUE= Alamat

THISFORM.txtkode_pos.VALUE= Kode_Pos

THISFORM.txtno_tlp.VALUE= no_telfon

THISFORM.txtkota.VALUE= Kota

THISFORM.txtnm_barang.VALUE= Nm_Barang

THISFORM.txthrg_barang.VALUE= Hrg_Barang

THISFORM.txtnm_barang.VALUE= tpe_barang

THISFORM.txtjumlah.VALUE= Jumlah

THISFORM.txttotal.VALUE= Total

THISFORM.TXTtgl_beli.VALUE= tanggal

else

IF! FOUND()

MESSAGEBOX("Langganan Belum Kamu Input Admin",6,"pesan")

THISFORM.txtalamat.VALUE= "" 

THISFORM.txtkode_pos.VALUE= 0

THISFORM.txtno_tlp.VALUE=""

THISFORM.txtkota.VALUE= ""

THISFORM.txtnm_barang.VALUE= "" 

THISFORM.txthrg_barang.VALUE= 0

THISFORM.txtjumlah.VALUE= 0

THISFORM.txttotal.VALUE= 0

THISFORM.TXTtgl_beli.VALUE= ctod("  -  -    ")

THISFORM.txtalamat.SETFOCUS

endif

endif

Listing tersebut berfungsi untuk melacak data yang telah di Input, agar nantinya data yang di input tidak double atau sama :).

sekian listing untuk tombol Simpan, Batal, Hapus, dan Keluar yang telah di Berikan Kepada Guru Saya, Yaitu "Master" Pak Zul Ishaq Nur :) Terimakasih atas bimbingan Bapak yang selalu sabar dan berusaha menghadapi anak"nya yang Super nakal dan itu tidak sia". :) Mudah"han akan di balas dengan yang maha kuasa :) Amin amin Yarobbal Alamin :)

Guru Terbaik Saya :)