MEMBUAT FORM PENGHAPUSAN DATA

Nama Form : Del_lgn

Fungsi          : Untuk penghapusan data

Bentuk        : kira kira terlihat dibawah ini

Spesikasi program sebagai berikut
- Pencarian data
Jika tidak ketemu Beri komentar bahwa data tidak ada , program berhenti
- Jika ketemu tampilkan data periksa kebenarannya kemudin click del

- Penambahan propertis

a. Propertis form.activate

THISFORM.IMAGE1.Picture="c:\alamat\gambar\0000.jpg"

b. Propertis text1

• Letakan Kursor di text1 method keypress
  ketik code ini
  LPARAMETERS nKeyCode, nShiftAltCtrl

IF nkeycode=13

*pencarian data

mkd_lgn=thisform.text1.value

mquery = []

TEXT to mquery textme noshow pret 8

SELECT alamat.kd_lgn,alamat.nm_lgn,alamat.telp,

alamat.alamat,alamat.photo

FROM alamat where kd_lgn=?mkd_lgn

ENDTEXT

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

If sukses01 >0

SELECT dt_alamat

GOTO top

x=RECCOUNT()

IF x>0

*tampilan data

thisform.text1.Value=dt_alamat.kd_lgn

thisform.text2.Value=dt_alamat.nm_lgn

thisform.text3.Value=dt_alamat.ALAMAT

thisform.text4.Value=dt_alamat.TELP

thisform.text5.Value=dt_alamat.PHOTO

thisform.image1.Picture= thisform.text5.Value

ELSE

MESSAGEBOX("Maaf Data Tidak Ada !!!",48,"Informasi")

endif

Else

MESSAGEBOX("MAAF DATA MASIH ERROR (alamat)",48,"INFORMASI")

Endi

ENDIF

c. Propertis click pada Comman del

Local dele_data,mkd_lgn

mkd_lgn=thisformset.form1.text1.Value

dele_data = []

TEXT to dele_data textme noshow pret 8

DELETE from alamat WHERE kd_lgn=?mkd_lgn

ENDTEXT

SUKSES1=0

sukses1=SQLExec(GnConnHandle,dele_data)

IF sukses1<=0

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

else

messagebox(“Penghapusan data Sukses !!!”,48,”Informasi”)

ENDIF

d. Propertis click pada Comman Exit

thisform.release

Sekian dulu postingan kali ini mudah mudahan bermanfaat