Belajar Visual Foxpro itu mudah

Setelah paham cara dan pembuatan tabel dan database selanjutnya kita masuki tahapan untuk membuat Form untuk memasukkan data.Dalam membuat sebuah form entry-an,yang perlu diperhatikan adalah bahwa form tersebut harus terlihat se-simple mungkin walaupun harus digunakan untuk memasukkan banyak informasi, kenapa harus demikian? karena kalau form tersebut terlihat ruwet dan kurang user friendly, maka bisa menyulitkan user pada saat memasukkan data,yang berakibat data yang dimasukkan salah.Mari kita mulai,buka file project kita yang terdahulu, kemudian klik pada bagian document -> Form -> New -> New Form, setelah muncul sebuah form baru, tambahkan object-object: Label (2),Text Box (2), Command Button (5), seperti gambar di bawah ini:



Kemudian ubah masing-masing propertiesnya menjadi:
1. Form Caption : "Data Siswa"
2. Label1 Caption : "NIM"
3. Label2 Caption : "Nama"
4. Command Button1 Caption : "Simpan"
5. Command Button2 Caption : "Cari"
6. Command Button3 Caption : "Ubah"
7. Command Button4 Caption : "Hapus"
8. Command Button5 Caption : "Keluar"

nah urusan layout sudah selesai,sekarang kita masuki tahapan 'Coding', yaitu memasukkan kode-kode bahasa pemrograman pada masing masing obyek, sesuai dengan kebutuhan.
1. Procedure Load pada Form:

CLOSE DATABASES
SET PATH to c:\belajar

SELECT 1
USE mahasiswa

2. Procedure Click pada Command Button1 (tombol Simpan):

cNIM=TRIM(thisform.text1.Value)
cNama=TRIM(thisform.text2.Value)

SELECT 1
SET ORDER TO 1
SEEK(cNIM)
IF NOT FOUND()
APPEND BLANK
REPLACE npk WITH cNIM,nama WITH cNama
ELSE
MESSAGEBOX("Data Siswa sudah ada,proses simpan gagal",16,"Informasi")
ENDIF

thisform.text1.Value=''
thisform.text2.Value=''
thisform.text1.SetFocus

3. Procedure Click pada Command Button2 (tombol Cari):

cNIM=TRIM(thisform.text1.Value)
cNama=TRIM(thisform.text2.Value)

SELECT 1
SET ORDER TO 1
SEEK(cNIM)
IF NOT FOUND()
MESSAGEBOX("Data Siswa tidak ditemukan",16,"Informasi")
ELSE
thisform.text1.Value=npk
thisform.text2.Value=nama
ENDIF

thisform.text1.SetFocus

4. Procedure Click pada Command Button3 (tombol Ubah):

cNIM=TRIM(thisform.text1.Value)
cNama=TRIM(thisform.text2.Value)

SELECT 1
SET ORDER TO 1
SEEK(cNIM)
IF NOT FOUND()
MESSAGEBOX("Data Siswa tidak ditemukan",16,"Informasi")
ELSE
REPLACE nama WITH cNama
MESSAGEBOX("Proses ubah data berhasil","Informasi")
ENDIF

thisform.text1.Value=''
thisform.text2.Value=''
thisform.text1.SetFocus

5. Procedure Click pada Command Button4 (tombol Hapus):

cNIM=TRIM(thisform.text1.Value)
cNama=TRIM(thisform.text2.Value)

SELECT 1
SET ORDER TO 1
SEEK(cNIM)
IF NOT FOUND()
MESSAGEBOX("Data Siswa tidak ditemukan",16,"Informasi")
ELSE
DELETE
MESSAGEBOX("Proses hapus data berhasil","Informasi")
ENDIF

thisform.text1.Value=''
thisform.text2.Value=''
thisform.text1.SetFocus

6. Procedure Click pada Command Button5 (tombol Keluar):

THISFORM.RELEASE

Selesai, sekarang tinggal dicoba untuk memasukkan data baru beriut ini:

NIM : 00001
NAMA: CHATERINE

kemudian tekan tombol SIMPAN, untuk menguji apakah data tersebut berhasil masuk ke tabel, isikan NIM :00001 kemudian tekan tombol CARI, jika pada field NAMA keluar adalah CHATERINE berarti proses simpan sudah betul.
Coba sekarang ganti data nama menjadi CHATERINE ZETA JONES dan tekan tombol UBAH, kemudian cek sekali lagi langkah diatas, apabila nama yang keluar belum berubah berari masih ada kesalahan.Lakukan pengecekan dengan cara yang sama untuk tombol HAPUS



Sampai disini langkah pembuatan form entry-an sudah selesai, langkah selanjutnya tinggal modifikasi saja supaya tampilan form lebih cantik dan enak dipandang, misalnya dengan merubah warna background, diberi bingkai dsb, termasuk jika ada penambahan informasi,misal jenis kelamin, jurusan, alamat,kota nomor Hp dll, kita tinggal sesuaikan saja satu demi satu,coba kawan explore sendiri dan jangan malas untuk terus berlatih, karena dengan semakin seringnya kita latihan, akan semakin tahu bahwa diri kita masih banyak kekurangan,....selamat berlatih dan jangan segan bertanya bila menemui halangan,akan saya bantu sebatas kemampuan saya....salam