MENDESAIN VISUAL FOX PRO
1. BUAT NAMA FOLDER DI LOCAL DISK C:
- LATIHAN
2. BUAT PROJECT :
- Pilih Menu FILE – NEW – PROJECT – NEW FILE
- BROWSE NAMA FOLDER Yang Akan Kita Simpan
- TULISKAN NAMA Yang Akan Di Simpan
- SAVE
3. MEMBUAT TABLE:
- DATA – FREE TABLES – TABLE – NEW –NEW TABLE
- BROWSE NAMA FOLDER Yang Akan Kita Simpan
- TULISKAN NAMA Yang Akan Di Simpan
- SAVE
4. CARA MEMBUAT FORM :
- DOCUMENT – FORM – NEW – NEW FORM
Dengan isi form:
· Kode
· Nama
· Jumlah
· harga
5. MENGHUBUNGKAN TABLE DENGAN FORM (FROM-LOAD)
- Klik 2x Pada FORM
Akan Tampil Seperti Di Bawah Ini
- Lalu Isikan LISTING PROGRAM Seperti Di Bawah
SET DEFAULT TO C:\FOXLAT
USE daftar
SET ORDER TO TAG KODE
6. MEMBUAT 4 PROSEDURE (HIDUP,MATI,TAMPIL,KOSONG)
- Pilih MENU FORM
- NEW METHOD
- Tulis, HIDUP,MATI,TAMPIL,KOSONG
- ADD
FORM1 HIDUP
- Klik 2x Pada FORM
- Masukan Seperti Ini
THISFORM.TExt1.Enabled= .T.
THISFORM.TExt2.Enabled= .T.
THISFORM.TExt3.Enabled= .T.
THISFORM.TExt4.Enabled= .T.
FORM1 MATI
- Klik 2x Pada FORM
- Masukan Seperti Ini
THISFORM.TExt1.Enabled= .F.
THISFORM.TExt2.Enabled= .F.
THISFORM.TExt3.Enabled= .F.
THISFORM.TExt4.Enabled= .F.
FORM1 TAMPIL
- Klik 2x Pada FORM
- Masukan Seperti Ini
THISFORM.TExt1.Value=KODE
THISFORM.TExt2.Value=NAMA
THISFORM.TExt3.Value=HARGA
THISFORM.TExt4.Value=JUMLAH
FORM1 KOSONG
- Klik 2x Pada FORM
- Masukan Seperti Ini
THISFORM.TExt1.Value=""
THISFORM.TExt2.Value=""
THISFORM.TExt3.Value=0
THISFORM.TExt4.Value=0
FORM1 INIT
- Klik 2x Pada FORM
- Masukan Seperti Ini
THISFORM.MATI
THISFORM.TAMpil
7. PERINTAH TAMBAH
IF THISFORM.COMmand1.Caption="TAMBAH"
THISFORM.COMmand1.Caption="SIMPAN"
THISFORM.HIDUp
THISFORM.KOSong
THISFORM.TExt1.SetFocus
ELSE
APPEND BLANK
REPLACE KODE WITH THISFORM.TExt1.Value
REPLACE NAMA WITH THISFORM.TEXt2.Value
REPLACE HARGA WITH THISFORM.TEXt3.Value
REPLACE JUMLAH WITH THISFORM.TEXt4.Value
SKIP 0
THISFORM.COMmand1.Caption="TAMBAH"
THISFORM.MATi
ENDIF
8. PERINTAH EDIT
IF THISFORM.COMmand2.Caption="EDIT"
THISFORM.COMmand2.Caption="SIMPAN"
THISFORM.HIDUp
THISFORM.TExt1.SetFocus
ELSE
REPLACE KODE WITH THISFORM.TExt1.Value
REPLACE NAMA WITH THISFORM.TEXt2.Value
REPLACE HARGA WITH THISFORM.TEXt3.Value
REPLACE JUMLAH WITH THISFORM.TEXt4.Value
SKIP 0
THISFORM.COMmand2.Caption="EDIT"
THISFORM.MATi
ENDIF
9. PERINTAH MAJU
IF EOF()
MESSAGEBOX("INI ADALAH DATA TERAKHIR")
ELSE
SKIP
THISFORM.TAMpil
ENDIF
10. PERINTAH MUNDUR
IF BOF()
MESSAGEBOX("INI ADALAH DATA AWAL")
ELSE
SKIP -1
THISFORM.TAMpil
ENDIF
11. PERINTAH HAPUS
IF EOF()
MESSAGEBOX("DATA SUDAH HABIS")
ELSE
DELETE
SKIP
THISFORM.TAMPil
ENDIF
12. PERINTAH CETAK
REPORT FORM daftar.FRX PREVIEW
13.PERINTAH TAMPIL
BROWSE
14.PERINTAH KELUAR
THISFORM.Release
15.PERINTAH BARIS KOSONG..
DELETE ALL FOR nim=" "
Pack
16. MEMBUAT ISI BARU DALAM TABEL
thisform.txtnim.enabled=.t.
thisform.txtnama.enabled=.t.
thisform.txtalamat.enabled=.t.
APPEND BLANK
17. TOMBOL KELUAR
thisform.Release