Pembicaraan Pengguna:Abdul Ibrahim
Bagian baruHalo, Abdul Ibrahim, selamat datang di Wikipedia bahasa Indonesia! | |||
---|---|---|---|
|
CARA MENDESAIN VISUAL FOX PRO
[sunting sumber]1. BUAT NAMA FOLDER DI LOCAL DISK C: - Contoh, 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
- ISILAH TABLE DESAIGNER
4. CARA MEMBUAT FORM :
- DOCUMENT – FORM – NEW – NEW FORM
- Desainlah Seperti Yang Dimau.
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
A~~S