PEMULA FISUAL FOXPRO

Dasar Membuat Form

Ubah masing-masing propertiesnya menjadi:

Form Caption : "Data Siswa"

Label1 Caption : "NIM"

Label2 Caption : "Nama"

Command Button1 Caption : "Simpan"

Command Button2 Caption : "Cari"

Command Button3 Caption : "Ubah"

Command Button4 Caption : "Hapus"

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 DATABASESSET PATH to c:\belajar

SELECT 1USE mahasiswa

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

cNIM=thisform.text1.ValuecNama=thisform.text2.Value

SELECT 1SET ORDER TO 1SEEK(cNIM)IF NOT FOUND()APPEND BLANKREPLACE npk WITH cNIM,nama WITH cNamaELSEMESSAGEBOX("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=thisform.text1.ValuecNama=thisform.text2.Value

SELECT 1SET ORDER TO 1SEEK(cNIM)IF NOT FOUND()MESSAGEBOX("Data Siswa tidak ditemukan",16,"Informasi")ELSEthisform.text1.Value=npkthisform.text2.Value=namaENDIF

thisform.text1.SetFocus

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

cNIM=thisform.text1.ValuecNama=thisform.text2.Value

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

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

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

cNIM=thisform.text1.ValuecNama=thisform.text2.Value

SELECT 1SET ORDER TO 1SEEK(cNIM)IF NOT FOUND()MESSAGEBOX("Data Siswa tidak ditemukan",16,"Informasi")ELSEDELETEMESSAGEBOX("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 : 00001NAMA: 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 ya sobat langkah pembuatan form entry-an sudah selesai, langkah selanjutnya tinggal modifikasi lain-lainya... biar tambah cantiikkk gituuu...


Selamat Mencoba.."(^_^)"