CARA MENDESAIN VISUAL FOXPRO

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