Dasar Membuat Form - Belajar Visual Foxpro itu mudah

Sunday, March 16, 2008

Dasar Membuat Form

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

9 Comments:

Unknown said...

kasih tau duNk cara buat visual foxpro untuk kalkulator...
dari tambah, kurang, bagi dan kali..
dan cara buat form nya ..
tolong yachhh..
makasih

Unknown said...

tolong yachh..nanti malam udah mulai dikumpulkan...
thanks

Unknown said...

cara buat form penerimaan tamu gmn yah...?? boleh minta tolong ajarin saya...

ada proyek nih saya dari kampus disuruh bikin form penerimaan tamu...

btw thx yah before... ^^

B S C said...

tolong, saya sedang belajar, program yang dibuat adalah kependudukan, di form dibuat dengan grid, saya mau setiap browse salah satu dusun/kampung grid memunculkan data sesuai data browse,saya membuat di Foxpro 6,mohon ya...........

QNanthi said...

* calculator? ini cukup sulit buat pemula memang, anda harus menguasai dulu operand" yg ada di VFP untuk membuatnya. Jadi maaf sementara tidak saya bahas dulu

*Form penerimaan tamu? kita sdh belajar untuk tambah,edit,hapus dan cari data,klo menurut saya itu sdh 50% bekal untuk membuatnya, selebihnya tinggal creativitas anda utk membuat form yg indah tp mudah buat user...

*Grid sdh saya singgung dikit di posting bulan ini..

*terima kasih teman" semua..terus belajar....

wasso said...

mantap....

Budi Setiawan said...

Met siang.... saya ada masalah untuk menampilkan data dari grid1.. saya sdh merubah regional Rp dan . serta tanda , utk decimal 3 digit...
saya ingin menampilkan pd grid1. coloumn5 misalnya. Jika mata uang IDR maka yg muncul pada grid1.column5 adalah 11.230.000,00 dan jika mata uang USD maka yg ditampilkan adalah 2,447 ... bagaimana caranya agar bisa tampil spt itu gbrannya spt ini :

Mata Uang Harga beli
IDR 1.850.000,00
USD 2,447

Rizky(999) said...

Said
Cara buat Form Jenis kelamin bgaimana yaa ..

Ex :
Nama:
Jenis kelamin (P/W):
Keterangan Kelamin :

syuhada mohamad said...

bagaimana coding di dalam form sekiranya dalam satu report mau diasingakan data untuk 10% dan 100%.