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

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

MEMBUAT FORM TAMBAH DATA

Nama Form : ADD_LGN.SCX
Fungsi : Untuk Tambah Langganan Baru

Bentuk Form kira kira terlihat dibawah ini

Spesikasi program sebagai berikut
- Kode Relasi Tidak boleh double
- Jika Double beri komentar bahwa kode relasi sudah ada
- Jika ternyata kode Belum pernah ada penyimpan di lanjutkan

          - Penambahan propertis

a. Propertis form.activate
THISFORM.IMAGE1.Picture="c:\alamat\gambar\0000.jpg"
(Kamu terlebih dahulu menyimpan file photo blank yg bernama 0000.jpg
sehingga waktu pertamakalidijalankan tampil photo blank)

b. Propertis click pada Comman Save

*Mengecek Kode Relasi

mkd_lgn=thisform.text1.Value

mada =0

mquery = []

TEXT to mquery textme noshow pret 8

SELECT alamat.kd_lgn,alamat.nm_alamat

FROM alamat where alamat.kd_lgn=?mkd_lgn

ENDTEXT

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

IF sukses01>0

SELECT dt_alamat

GOTO top

x=RECCOUNT()

IF x>0

mada=1

endif

endif

*Penyimpanan

IF mada=0

* Penyimpanan

mkd_lgn =thisform.text1.Value

mnm_lgn =thisform.text2.Value

malamat =thisform.text3.Value

mtelp =thisform.text4.Value

mphoto =thisform.text5.Value

insert_data= []

TEXT to insert_data textme noshow pret 8

INSERT INTO alamat (kd_lgn,nm_lgn,alamat,telp,photo)

VALUES

(?mkd_lgn,?mnm_lgn,?malamat,?mtelp,?mphoto)

ENDTEXT

sukses=SQLExec(gnConnHandle,insert_data)

IF SUKSES>0

MESSAGEBOX("Penyimpan Sukses !!!",48,"Informasi")

ENDIF

ELSE

*Penyimpanan Gagal

MESSAGEBOX("Maaf Kode Langgan Sudah Ada !!!",48,"Informasi")

endif

thisform.image1.Picture=mphoto

C. Propertis click pada Comman Exit

thisform.release

Untuk kali ini sekian dulu mudah mudahan bermanfaat