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