Memuat Form Menu Utama Di Visual Foxpro

Memuat Form Menu Utama Di Visual Foxpro

Memuat Form Menu Utama Di Visual Foxpro Sepert Gambar Dibawah Ini:

Kan form di atas memiliki 5 tombol/command yaitu

a.INPUT DATA(Masuukan data)

b.SEE(Lihat)

c.SEARCH DATA(Cari data)

d.PRINT(Cetak)

e.EXIT(Keluar)

Selanjutnya jika kita menekan tombol INPUT DATA maka tampilannya seperti gambar di bawah ini:

  Pertanyaannya,caranya gimana?

Caranya sangatlah mudah,pada tombol/command INPUT DATA klik dua kali dan copykan listing dibawah ini:

Do form form1

*Penjelasan:Mengapa listingnya Do form form1,karena do form itu adalah perintah untuk menghubungkan ke form lainnya,sedangkan Form1 adalah form yang dituju,sehinnga jika kita menekan tombol INPUT DATA maka form1lah yang akan muncul

Gampangkan, SELAMAT MENCOBA AND GOOD LUCK J

Membuat Form Cari Data Pada Visual Foxpro

Membuat Form Cari Data Pada Visual Foxpro

 Membuat form cari data pada visual voxpro  sangatlah penting,karena jika terdapat ribuan data maka kita dapat menemukan data tersebut dengan mudah!

Contoh form cari data seperti gambar berikut:

Cara Membuatnya,ikuti langkahnya sebgai berukut:

*Yang pertama

Buatlah 3 Label kemudian ubahlah pada bagian captionnya

Label 1  =CARI DATA

Label2   =NUMBER SEND/Nomor kirim

Label3   =NAME SENDER/Nama pengirim

*Yang kedua

Buatlah dua textboxt

*Yang ketiga

Buatlah Dbgrid,untuk memasukkan database anda.

*Yang keempat

Buatlah Command dan ganti captionnya menjadi EXIT.

*Yang kelima

Kemudian masukkan listingnya di textbox1 dengan cara klik dua kali textbox1nya,kamudian procedure-Nya di LostFocus dan pastekan listing di bawah ini:

set exac off

set order to tag No_kirim

seek alltrim(thisform.Text1.value)

thisform.grid1.setfocus

Kemudian caranya sama seperti textboxt 1 dan procedurenya sama di LostFocus dan pastekan kode di bawah ini.:

set exac off

set order to tag Nm_pgrm

seek alltrim(thisform.TNAMA.value)

thisform.grid1.setfocus

A.Fungsi textbox satu jika kita menulis nomornya maka datanya akan muncul

B.Dan fungsi textboxt2 jika kita menulis namanya maka datanya akan muncul

*Yang keenam (terakhir)

Pastekan listing di bawah ini untux tombol exit/command1:

TOMBOL=4

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

IF PESAN!=7

THISFORM.RELEASE

ENDIF

Selamat mencoba J

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 :)

MY PROFILE

MY PROFILE

Name          :Thariq Abdul Qahhar

Class           :3TKJ2

Nis               :2012206

Number       :089602840990

School         :SMK.NASONAL MAKASSAR YWM-PNM