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

read more...

Sekilas tentang Database dan Tabel

Apa sih sebetulnya Database dan tabel itu? barangkali pertanyaan ini sering mengusik di benak teman-teman semua. Gampangannya gini: Tabel adalah suatu obyek dengan struktur field field tertentu, yang berguna untuk menyimpan data transaksi, sedangkan Database adalah wadah untuk menampung kumpulan beberapa Tabel tadi, sehingga lebih mudah untuk me-managenya, seperti membuat relasi, view dan lain-lainDalam Visual Foxpro ada 2 jenis Tabel, yang pertama adalah Free Tabel yaitu tabel yang tidak dimasukkan ke dalam Database, dan yang kedua adalah tabel yang terdapat di dalam Database.Secara umum fungsi kedua jenis tabel tadi adalah sama, hanya ada beberapa perbedaan dalam hal penanganannya.Kalo teman teman ingin membuat proyek yang simple dan tidak banyak tabel,saya rasa penggunaan free tabel tidak ada salahnya, berbeda kalo proyek yang akan kita buat akan banyak mengandung banyak tabel, maka penggunaan database lebih banyak membantu.

read more...