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

MEMBUAT FORM LOGIN

Form Login saya berinama :password.scx
Form Login ini difungsikan untuk menyaring siapa saja yang berhak menjalankan program ini.
Mula mula komputer akan mengecek user terlebih dahulu apabila user itu udah terdaftar user dapat mengakses lebih lanjut. Sebaliknya apabila user belum terdaftar komputer akan menolaknya, program selesai.
Untuk membuat form password penulis mengharapkan sudah bisa bisa membuar formnya. Kira kira bentuk formnya sebabai berikut :

Mengisi propertis

• Method Activate isi : thisform.text3.value=DATE()
• Layout Show windows : 1- In top level

Mengsi prooertis tombol OK

- Method Click isi

Local sukses

muser_id=ALLTRIM(Thisform.TEXT1.Value)

mpass=ALLTRIM(Thisform.TEXT2.Value)

lcStringConn,

mquery = []

TEXT to mquery textme noshow pret 8

SELECT Xuser.ID, Xuser.PASS

FROM xuser WHERE Xuser.ID = ?muser_id AND Xuser.PASS = ?mpass

ENDTEXT

sukses=SQLExec(gnConnHandle,mquery,'dt_user')

Select dt_user

x=Reccount()

If x=0

Local MJW

MJW=Messagebox("Maaf Nama Atau Password salah..ulang <Y/T>",

32+4,"Informasi")

If MJW=6

Thisform.TEXT1.Value=" "

Thisform.TEXT2.Value=" "

Thisform.TEXT1.SetFocus()

ELSE

thisform.Release()

Endif

Else

mUSER=Thisform.TEXT1.Value

mtgl_pnj=Thisform.TEXT3.Value

Endif

Thisform.Release()

Sebelu menjalankan program utama kamu haru terlebih dahulu harus membuat tabel xuser yang spesifikasinya sbb :

Setelah di jalankan melalui progut hasilnya  harus nampak berikut ini

Semoga bermanfaat.

MEMBUAT HALAMAN MUKA PADA TAMPILAN PROGRAM

       Membuat halaman muka dapat diartikan form pertama kali dilayar dalam menjalankan program . Hal ini penting dibuat agar kosumen tertarik dan lebih mudah mencari program apa yang akan dijalankan. Untuk lebih mudah ikuti langkah-lankah berikut ini :

-        Buka project projalamat (sudah ada postingan sebelumnya)

• Pilih menu Documents
• pilih form click New

• Click New Form
• Lihat gambar

• Pemberian provertis
  a. pemberian gambar
  * pada menu pictur isi
  c:\alamat\gambar\wizstone.bmp
  * pada show windows pilih
  2 – As – Top Level form
  * Pada menu Method - > activate

ketik

IF mPASS=0

DO FORM PASSWORD.SCX

ELSE

DO UTAMA.MPR WITH THIS ,.T.

ENDIF

• Simpan Form tersebut dengan nama cover.scx

• Jalan kan program utama dari projec projalamat
  pilih program pilih progut.prg kemudian run

Keterangan

Jika muncul Password.scx Not found berarti sampai langkah ini anda udah benar

tinggal membuat password.scx nya tunggu postingan berikutnya