Edit dan Del Data Mysql

Form Edit Dan Hapus

Postingan yang lalu kita sudah belajar bagaimana membuat progam tambah data dengan visual foxpro database mysql. Sekarang penulis mencoba untuk mebuat cara merubah dan menghapus data.

Ikutilangkah langkah langkahnya

a. Buat form sebagai berikut

 

b Pilih text1

- Method ->keypress isi dengan ini

LPARAMETERS nKeyCode, nShiftAltCtrl

if nkeycode=13

* Pengecekan data

mkdperk =alltrim(thisform.text1.value)

mquery = []

TEXT to mquery textme noshow pret 8

SELECT noperk.kdperk,noperk.nmperk,noperk.golperk

FROM noperk where noperk.kdperk=?mkdperk

ENDTEXT

sukses01=SQLExec(gnConnHandle,mquery,'dtnoperk')

* Pengecekan penulisan benar atau salah

If sukses01 >0

*Penulisan benar

SELECT dtnoperk

GOTO top

x=reccount()

*Pengecekan ketemu atau tidak

if x>0

thisform.text2.value=nmperk

thisform.text3.value=golperk

else

* Proses Tidak ketemu , data tidak Ada

MESSAGEBOX("MAAF DATA TIDAK ADA ",48,"INFORMASI")

ENDIF

Else

ESSAGEBOX("MAAF DATA MASIH ERROR (noperk)",48,"INFORMASI")

Endif

ENDIF

c. Setelah data muncul lakukan perubahan sesuai data yang salah

500. Pilih tombol edit kemudian click dua kali isi kan instruksi ini

*UPDATE MYSQL

mkdperk =alltrim(thisform.text1.value)

MNMPERK =ALLTRIM(thisform.TEXT2.value)

mGOLPERK =ALLTRIM(thisform.TEXT3.value)

update_data= []

TEXT to update_data textme noshow pret 8

UPDATE NOPERK SET KDPERK =?mKDPERK,

MNMPER =?mNMPERK,

MGOLPERK=?mGOLPERK

where KDPERK=?mKDPERK

ENDTEXT

sukses01=SQLExec(gnConnHandle,update_data)

IF sukses01<=0

MESSAGEBOX("Update Masih Salah !!!",48,"informasi")

ELSE

MESSAGEBOX("PROSES update SUKSES !!!",48,"INFORMASI")

ENDIF

e. Menghapus data

• Pilih tombol D el
• Clik dua kali kemudian tulis scrip ini

*Menghapus data

Local dele_data,mkdperk

mKDperk=thisform.text1.Value

dele_data = []

TEXT to dele_data textme noshow pret 8

DELETE from noperk WHERE Kdperk=?mKDperk

ENDTEXT

SUKSES1=0

sukses1=SQLExec(GnConnHandle,dele_data)

IF sukses1>0

MESSAGEBOX("Penghapusan Data Sukses !!!",48,"Komentar")

ELSE

MESSAGEBOX("INSTRUKSI MASIH SALAH !!!",48,"Komentar")

ENDIF

thisform.release

f. Keluar program

• Pilih tombol exit
• Clik dua kali
• ketik ini
  thisform.release