CARA MENDESAIN VISUAL FOX PRO

1. BUAT NAMA FOLDER DI LOCAL DISK C:

     - Contoh, Elnino

2.  BUAT PROJECT pada Microsoft visual foxpro :

     - Pilih Menu FILE – NEW – PROJECT – NEW FILE

     - BROWSE NAMA FOLDER Yang Akan Kita Simpan

     - TULISKAN NAMA Yang Akan Di Simpan

     - SAVE

3. MEMBUAT DATABASE:

     - DATA – DATABASE – NEW– NEW DATABASE

     - 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

   - 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

 

Codingnya

SET DEFAULT TO C:\Elnino

USE Karyawan

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

Codingnya :

THISFORM.txtKode.Enabled= .T.

THISFORM.txtNama.Enabled= .T.

THISFORM.txtJk.Enabled= .T.

THISFORM.txtJabatan.Enabled= .T.

     FORM1 MATI

   - Klik 2x Pada FORM

   - Masukan Seperti Ini

 

Codingnya :

THISFORM.txtKode.Enabled= .F.

THISFORM.txtNama.Enabled= .F.

THISFORM.txtJk.Enabled= .F.

THISFORM.txtJabatan.Enabled= .F.

     FORM1 TAMPIL

   - Klik 2x Pada FORM

   - Masukan Seperti Ini

 

Codingnya :

THISFORM.txtKode.Value=Kode

THISFORM.txtNama.Value=Nama

THISFORM.txtJk.Value=Jk

THISFORM.txtJabatan.Value=Jabatan

     FORM1 KOSONG

   - Klik 2x Pada FORM

   - Masukan Seperti Ini

 

Codingnya:

THISFORM.txtKode.Value=""

THISFORM.txtNama.Value=""

THISFORM.txtJk.Value=""

THISFORM.txtJabatan.Value=""

     FORM1 INIT

   - Klik 2x Pada FORM

   - Masukan Seperti Ini

 

Coodingnya :

THISFORM.MATI

THISFORM.TAMpil

7. PERINTAH TAMBAH

IF THISFORM.Command1.Caption="TAMBAH"

      THISFORM.Command1.Caption="SIMPAN"

      THISFORM.HIDUp

      THISFORM.KOSong

      THISFORM.txtKode.SetFocus

      ELSE

      APPEND BLANK

      REPLACE Kode WITH THISFORM.txtKode.Value

      REPLACE Nama WITH THISFORM.txtNama.Value

      REPLACE Jk WITH THISFORM.txtJk.Value

      REPLACE Jabatan WITH THISFORM.txtJabatan.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.KOSong

      THISFORM.txtKode.SetFocus

      ELSE

      REPLACE Kode WITH THISFORM.txtKode.Value

      REPLACE Nama WITH THISFORM.txtNama.Value

      REPLACE Jk WITH THISFORM.txtJk.Value

      REPLACE Jabatan WITH THISFORM.txtJabatan.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

      THISFORM.kosong

ENDIF

12. PERINTAH CETAK

REPORT FORM daftar.FRX PREVIEW

13.PERINTAH TAMPIL

 

BROWSE

14.PERINTAH KELUAR

 

THISFORM.Release

Setelah Coding semua di masukan… Run (Ctrl+E)

Maka Form siap Di pakai.. :D