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 :) |
