Contoh Membuat Program Dengan FoxPro 8.0

Hai guys, kali ini saya akan membagikan salah satu Contoh Membuat Program Dengan FoxPro 8.0.  Saya menggunakan aplikasi FoxPro 8.0. Saya akan membuat form Master Departemen. Aplikasi ini sangat cocok bagi pemula. Berikut Contoh Membuat Program Dengan FoxPro 8.0
.

1. Buat folder terlebih dahulu kemudian beri nama sesuai dengan keinginan Anda. Setelah itu klik folder tersebut dan copy alamat folder tersebut. Kemudian buka aplikasi program Visual FoxPro 8.0 dari start - all program -  Microsoft Visual FoxPro 8.0. 
2. Setelah aplikasi dibuka, ketik perintah SET DEFAULT TO nama folder kerja tersebut pada Windows Command untuk mengaktifkan folder kerja tersebut. Tampilan dari Windows Command adalah sebagai berikut:
3. Kemudian klik File-new-form-new file. Seperti gambar dibawah ini:
   
4. Setelah itu desain form department dengan menggunakan Form Controls Toolbar dan Properties windows hingga nampak seperti berikut;
   
5. Kemudian isi codenya sebagai berikut:

 Form1 - Aktivethisform.tambah.enabled=.t.
thisform.simpan.enabled=.f.
thisform.batal.enabled=.f.
thisform.edit.enabled=.f.
thisform.hapus.enabled=.f.
thisform.selesai.enabled=.t.
thisform.tdk_siap
thisform.kosong
thisform.Refresh

load
SELECT a
PUBLIC x
x=0 

kemudian tambahkan method dengan cara klik form, pilih new method.
tambahkan method kosong, siap, tampil, tdk_siap

kosong
thisform.txtkode.value=""
thisform.txtnama_dept.Value=""

siap
thisform.txtkode.enabled=.t.
thisform.txtnama_dept.enabled=.t.
tampil
thisform.txtkode.value=kode
thisform.txtnama_dept.Value=nama_dept
tdk_siap
thisform.txtKode.Enabled=.f.
thisform.txtNama_dept.Enabled=.f.

tambah
x=1
thisform.siap
thisform.kosong
thisform.txtkode.SetFocus
thisform.simpan.Enabled = .T.
simpan
IF x=1
APPEND BLANK
ENDIF

replace kode WITH thisform.txtkode.value
replace nama_dept WITH thisform.txtnama_dept.value
thisform.simpan.Enabled = .F.
thisform.tdk_siap
thisform.kosong
thisform.Refresh
x=0
hapus
SET DELETED On
DELETE
thisform.kosong
thisform.refresh
edit
x=2
thisform.siap
thisform.txtkode.setfocus
thisform.simpan.Enabled = .T.
batal
thisform.tambah.enabled=.t.
thisform.simpan.enabled=.f.
thisform.batal.enabled=.f.
thisform.edit.enabled=.f.
thisform.hapus.enabled=.f.
thisform.selesai.enabled=.t.
thisform.tdk_siap
thisform.kosong
thisform.Refresh
selesai
thisform.Release
pack
Grid1
LPARAMETERS nColIndex
thisform.tampil
thisform.hapus.Enabled=.t.
thisform.edit.Enabled=.t.
thisform.batal.Enabled=.t.
thisform.Refresh

AfterRowColChange
LPARAMETERS nColIndex
thisform.tampil
thisform.hapus.Enabled=.t.
thisform.edit.Enabled=.t.
thisform.batal.Enabled=.t.
thisform.Refresh 

Setelah itu kita jalankan dengan klik run, dan tampilannya akan seperti berikut.

Demikian  Contoh Membuat Program Dengan FoxPro 8.0. Selamat mencoba guys n semoga berhasil. :D