MEMBUAT FORM PERUBAHAN DATA

Nama Form   :Edit_lgn

Fungsi            :Untuk Merubah data

Bentuk          :Form 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 kemudian rubah apa yang salah simpan

- Penambahan propertis

a. Propertis form.activate

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

b. Propertis keypress pada 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 (aknom)",48,"INFORMASI")

Endi

ENDIF

100. Propertis command save click
     *Mengecek Kode Relasi

* Perubahan data

mkd_lgn =thisform.text1.Value

mnm_lgn =thisform.text2.Value

malamat =thisform.text3.Value

mtelp =thisform.text4.Value

mphoto =thisform.text5.Value

update_data= []

TEXT to update_data textme noshow pret 8

UPDATE alamat SET kd_lgn=?mkd_lgn,

nm_lgn=?mnm_lgn,

alamat=?malamat,

telp =?mtelp,

photo =?mphoto

where KD_lgn=?mKD_lgn

ENDTEXT

sukses01=SQLExec(gnConnHandle,update_data)

IF sukses01<=0

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

ELSE

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

ENDIF

d. Propertis click pada Comman Exit

     thisform.release