CARA MEMBUAT FORM DENGAN DATABASE

TUGAS WEB

I.CARA MEMBUAT FORM DENGAN DATABASE

a.Pertama buatlah folder di drive C denagn nama posmks

b.Kemudian buka microsoft visual foxpro

c.kemudian tulislah pada command set path to d:\posmks

d.kemudian enter dan tulislah lagi set defa to d:\posmks

e.kemudian tulislah create aplikasipos

f.setelah itu isilah table tersebut dengan:

FIELD	TYPE	WIDTH
No_kirim	CHARACTER	5
Nm_pgrm	CHARACTER	40
Almt_pgrim	CHARACTER	40
Tujuan	CHARACTER	40
Kd_tjan	CHARACTER	10
Tjuan	CHARACTER	20
Biaya	NUMERIC	10
Ppn	NUMERIC	10
Potongan	NUMERIC	4
Total	NUMERIC	10 Kemudian klik accending

G.Setelah itu tekan ctrl+w

h.kemudia klik file di pojik kiri atas

i.kemudian klik new file-new form

j.setelah itu buatlah Form seperti gambar di bawah ini:

k.untuk membuat form di atas buatlah seperti petunjuk di bawah ini.

L.Buatlah 10 Label

Label1 dengan caption:KANTOR POS MAKASSAR (PERSERO)

Label2 dengan caption:nomor kirim

Label3 dengan caption :nama pegirim

Label4 dengan caption:alamat pengirim

Label5 dengan caption:tujuan

Label6 dengan caption:kode tujuan

Label7 denagn caption:tujuan

Label8 dengan caption:biaya

Label9 dengan caption:ppn

Label10 dengan caption:potongan

Label11 dengan caption:total

M.setelah itu buatlah 9 textbox dan satu combo box

Texboxt1 ubah namenya dengan: XKIRIM

Texboxt2 ubah namenya dengan:XNAMA

Texboxt3 ubah namenya dengan:XALAMAT

Texbox4 ubah namenya dengan:XTUJUAN

Combobox1 namenya tetap combo1

Texbox5 ubah namenya dengan:XTUUJUAN

Texboxt6 ubah namenya dengan:XBIAYA

Texboxt7 ubah namenya dengan:XPPN

Texboxt8 ubah namenya dengan:XPOTONGAN

Texboxt9 ubah namenya dengan:XTOTAL

N.Kemudian buatlah 8 command

Command1 dengan name :next

Command2  dengan name :back

Command3 dengan name :bottom

Command4 dengan name :top

Command5 dengan name :save

Command6  dengan name :cancel

Command7 dengan name :delete

Comman81 dengan name :exit

o.kemudian buatlah i dbgrid, dan masukkan database yg telah dibuat tadi dengan cara

   klik kanan pada dbgrid,kemudian builder dan klik tandah panah dua (>>)

kemudian klik dua kali form dan masukkan listingnnya dengan  procedure:LOAD

USE aplikasipos

SET ORDER TO TAG No_kirim

Kemudian tetap di form dan masukkan kodenya di procedure:ACTIVE

SET DATE ITAL

SET CENT ON

SET EXACT ON

SET DELE ON

thisform.XKIRIM.setfocus

Kemudian

Klik dua kali x nama/texbox2 dengan procedure :GotFocus dan masukkan listingnya

KUNCI=ALLTRIM(THISFORM.XKIRIM.VALUE)

SEEK KUNCI

IF FOUND()

MESSAGEBOX("NOMOR KIRIM YANG DIINPUT SUDAH ADA",48,"PESAN BOS THARIQ")

THISFORM.XKIRIM.VALUE=No_kirim

THISFORM.XNAMA.VALUE=Nm_pgrm

THISFORM.XALAMAT.VALUE=Almt_pgrm

THISFORM.XTUJUAN.VALUE=Tujuan

THISFORM.COMBO1.VALUE=Kd_tjan

THISFORM.XTUUJUAN.VALUE=Tjuan

THISFORM.XBIAYA.VALUE=Biaya

THISFORM.XPPN.VALUE=Ppn

THISFORM.XPOTONGAN.VALUE=Potongan

THISFORM.XTOTAL.VALUE=Total

ELSE

IF!FOUND()

MESSAGEBOX("NIP YANG DIINPUT BELUM ADA",48,"PESAN")

THISFORM.XNAMA.VALUE=""

THISFORM.XALAMAT.VALUE=""

THISFORM.XTUJUAN.VALUE=""

THISFORM.COMBO1.VALUE=""

THISFORM.XTUUJUAN.VALUE=""

THISFORM.XBIAYA.VALUE=0

THISFORM.XPPN.VALUE=0

THISFORM.XPOTONGAN.VALUE=0

THISFORM.XTOTAL.VALUE=0

THISFORM.XNAMA.SETFOCUS

ENDIF

ENDIF

Kemudia klik dua kali combo box dan masukkan nama kota sebagai berikut

MKS

SBY

MLO

JKT

MDO

SNS

PKN

Dan klik dua kali comboboxnya dan isikan listingnya:

COMBO1 = alltrim(thisform.COMBO1.value)

IF THISFORM.COMBO1.VALUE="MKS"

 THISFORM.XTUUJUAN.VALUE="MAKASSAR"

 THISFORM.XBIAYA.VALUE=50000

 ELSE

IF THISFORM.COMBO1.VALUE="SBY"

 THISFORM.XTUUJUAN.VALUE="SURABAYA"

 THISFORM.XBIAYA.VALUE=800000

 ELSE

 IF THISFORM.COMBO1.VALUE="MLO"

 THISFORM.XTUUJUAN.VALUE="MALINO"

 THISFORM.XBIAYA.VALUE=1000000

 ELSE

 IF THISFORM.COMBO1.VALUE="JKT"

 THISFORM.XTUUJUAN.VALUE="JAKARTA"

 THISFORM.XBIAYA.VALUE=7000000

 ELSE

 IF THISFORM.COMBO1.VALUE="MDO"

 THISFORM.XTUUJUAN.VALUE="MANADO"

 THISFORM.XBIAYA.VALUE=9000000

 ELSE

 IF THISFORM.COMBO1.VALUE="SNS"

 THISFORM.XTUUJUAN.VALUE="SUNGGUMINASA"

 THISFORM.XBIAYA.VALUE=11000000

 ELSE

 IF THISFORM.COMBO1.VALUE="PKN"

 THISFORM.XTUUJUAN.VALUE="PANGKAJENE"

 THISFORM.XBIAYA.VALUE=12000000

 ENDIF

 ENDIF

 ENDIF

 ENDIF

 ENDIF

 ENDIF

 ENDIF

Kemudian klik dua kali di label8 atau xpotonagn dengan procedore LostFocus terus isikan listingnya

THISFORM.XTOTAL.VALUE=THISFORM.XBIAYA.VALUE+THISFORM.XPPN.VALUE-THISFORM.XPOTONGAN.VALUE

Kemudian klik dua kali tombol next/command1 dan isikan listingnya

SKIP

THISFORM.XKIRIM.VALUE=No_kirim

  THISFORM.XNAMA.VALUE=Nm_pgrm

 THISFORM.XALAMAT.VALUE= Almt_pgrm

 THISFORM.XTUJUAN.VALUE=Tujuan

THISFORM.COMBO1.VALUE= Kd_tjan

 THISFORM.XTUUJUAN.VALUE=Tjuan

THISFORM.XBIAYA.VALUE=Biaya

 THISFORM.XPPN.VALUE=Ppn

 THISFORM.XPOTONGAN.VALUE=Potongan

 THISFORM.XTOTAL.VALUE=Total

Kemudian di tombol back/command2 isikan listingnya

SKIP-1

THISFORM.XKIRIM.VALUE=No_kirim

  THISFORM.XNAMA.VALUE=Nm_pgrm

 THISFORM.XALAMAT.VALUE= Almt_pgrm

 THISFORM.XTUJUAN.VALUE=Tujuan

THISFORM.COMBO1.VALUE= Kd_tjan

 THISFORM.XTUUJUAN.VALUE=Tjuan

THISFORM.XBIAYA.VALUE=Biaya

 THISFORM.XPPN.VALUE=Ppn

 THISFORM.XPOTONGAN.VALUE=Potongan

 THISFORM.XTOTAL.VALUE=Total

Kemudian di tombol bottom/command3 isikan listingnya

GO BOTTOM

THISFORM.XKIRIM.VALUE=No_kirim

  THISFORM.XNAMA.VALUE=Nm_pgrm

 THISFORM.XALAMAT.VALUE= Almt_pgrm

 THISFORM.XTUJUAN.VALUE=Tujuan

THISFORM.COMBO1.VALUE= Kd_tjan

 THISFORM.XTUUJUAN.VALUE=Tjuan

THISFORM.XBIAYA.VALUE=Biaya

 THISFORM.XPPN.VALUE=Ppn

 THISFORM.XPOTONGAN.VALUE=Potongan

 THISFORM.XTOTAL.VALUE=Total

Kemudian di tombol top/command4 isikan listingnya

GO TOP

THISFORM.XKIRIM.VALUE=No_kirim

  THISFORM.XNAMA.VALUE=Nm_pgrm

 THISFORM.XALAMAT.VALUE= Almt_pgrm

 THISFORM.XTUJUAN.VALUE=Tujuan

THISFORM.COMBO1.VALUE= Kd_tjan

 THISFORM.XTUUJUAN.VALUE=Tjuan

THISFORM.XBIAYA.VALUE=Biaya

 THISFORM.XPPN.VALUE=Ppn

 THISFORM.XPOTONGAN.VALUE=Potongan

 THISFORM.XTOTAL.VALUE=Total

Kemudian di tombol save/cammand5 isikan listingnya

KUNCI=ALLTRIM(THISFORM.XKIRIM.VALUE)

SEEK KUNCI

IF ! FOUND()

APPE BLANK

REPL No_kirim WITH THISFORM.XKIRIM.VALUE

REPL Nm_pgrm WITH THISFORM.XNAMA.VALUE

REPL Almt_pgrm WITH THISFORM.XALAMAT.VALUE

REPL Tujuan WITH THISFORM.XTUJUAN.VALUE

REPL Kd_tjan WITH THISFORM.COMBO1.VALUE

REPL Tjuan WITH THISFORM.XTUUJUAN.VALUE

REPL Biaya WITH THISFORM.XBIAYA.VALUE

REPL Ppn WITH THISFORM.XPPN.VALUE

REPL Potongan WITH THISFORM.XPOTONGAN.VALUE

REPL Total WITH THISFORM.XTOTAL.VALUE

ELSE

REPL No_kirim WITH THISFORM.XKIRIM.VALUE

REPL Nm_pgrm WITH THISFORM.XNAMA.VALUE

REPL Almt_pgrm WITH THISFORM.XALAMAT.VALUE

REPL Tujuan WITH THISFORM.XTUJUAN.VALUE

REPL Kd_tjan WITH THISFORM.COMBO1.VALUE

REPL Tjuan WITH THISFORM.XTUUJUAN.VALUE

REPL Biaya WITH THISFORM.XBIAYA.VALUE

REPL Ppn WITH THISFORM.XPPN.VALUE

REPL Potongan  WITH THISFORM.XPOTONGAN.VALUE

REPL Total WITH THISFORM.XTOTAL.VALUE

ENDIF

THISFORM.GRID1.REFRESH

THISFORM.XKIRIM.VALUE=""

THISFORM.XNAMA.VALUE=""

THISFORM.XALAMAT.VALUE=""

THISFORM.XTUJUAN.VALUE=""

THISFORM.COMBO1.VALUE=""

THISFORM.XTUUJUAN.VALUE=""

THISFORM.XBIAYA.VALUE=0

THISFORM.XPPN.VALUE=0

THISFORM.XPOTONGAN.VALUE=0

THISFORM.XTOTAL.VALUE=0

THISFORM.XKIRIM.SETFOCUS

Kemudian di tombol cancel/cammand6 isikan listingnya

THISFORM.XNAMA.VALUE=""

THISFORM.XALAMAT.VALUE=""

THISFORM.XTUJUAN.VALUE=""

THISFORM.Combo1.VALUE=""

THISFORM.XTUUJUAN.VALUE=""

THISFORM.XBIAYA.VALUE=0

THISFORM.XPPN.VALUE=0

THISFORM.XPOTONGAN.VALUE=0

THISFORM.XTOTAL.VALUE=0

Kemudian di tombol delete/command7 isikan listingnya

KUNCI = THISFORM.XKIRIM.VALUE

SEEK KUNCI

IF FOUND()

TOMBOL=4

pesan=messagebox("Yakin Data akan di hapus","pesan")

if pesan!=7

DELE

messagebox("Data telah dihapus","pesan")

THISFORM.XKIRIM.VALUE=""

thisform.XNAMA.value=""

thisform.XALAMAT.value=""

thisform.XTUJUAN.value=""

thisform.COMBO1.value=""

thisform.XTUUJUAN.value=""

thisform.XBIAYA.value=0

thisform.XPPN.value=0

thisform.XPOTONGAN.value=0

thisform.XTOTAL.value=0

thisform.XKIRIM.setfocus

else

messagebox("Data TIDAK dihapus","pesan")

THISFORM.XKIRIM.VALUE=""

thisform.XNAMA.value=""

thisform.XALAMAT.value=""

thisform.XTUJUAN.value=""

thisform.COMBO1.value=""

thisform.XTUUJUAN.value=""

thisform.XBIAYA.value=0

thisform.XPPN.value=0

thisform.XPOTONGAN.value=0

thisform.XTOTAL.value=0

thisform.XKIRIM.setfocus

endif

endif

kemudian di tombol exit/command8 isikan listingnya

TOMBOL=4

PESAN=MESSAGEBOX ("ARE YOU SURE,WANT TO EXIT?",TOMBOL,"PESAN")

IF PESAN!=7

THISFORM.RELEASE

ENDIF

Selamat mencoba :)