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