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

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=thisform.text1.Value
cNama=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=thisform.text1.Value
cNama=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=thisform.text1.Value
cNama=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=thisform.text1.Value
cNama=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

Penjelasan Awal Foxpro

Foxpro adalah salah satu software database dari Microsoft. Sebagai software database Foxpro mempunyai kelebihan dalam kecepatan mengolah data. Selain itu masih banyak kelebihan Foxpro yang tidak disebutkan di artikel ini.

Kecepatan Foxpro dalam mengolah data dibandingkan dengan SPSS misalnya, tidak akan terasa jikan kita menggunakan data yang ukurannya kecil. Dengan kata lain, Foxpro sangat handal untuk data-data ukuran besar. Selain itu, kita bisa melakukan pengolahan data dari beberapa tabel yang berbeda. Syaratnya cuma satu yaitu antar tabel harus memiliki field/kolom id yang sama (sama struktur field/kolom-nya). Menurut pengalaman penulis, SPSS juga bisa melakukan hubungan antar tabel tetapi adanya 3 option penggabungan 2 tabel sering membuat kebingungan pengguna yang awam. Mengenai teknik menghubungkan beberapa tabel, baik di SPSS maupun Foxpro, mungkin akan dijelaskan dalam artikel berbeda.

Teknik Pengolahan Data dengan Foxpro
Sebagai contoh data yang dibahas adalah data mentah Survei Sosial Ekonomi Nasional Kor (SUSENAS KOR) BPS. Biasanya data mentah Susenas Kor ada 2 tabel besar yaitu tabel Individu dan tabel rumah tangga. Di kedua tabel tersebut terdapat field/kolom pembobot individu dan rumah tangga.

Kasus: Membuat indikator persen balita (usia 0-4) untuk tiap propinsi. Di sini kita akan menggunakan field/kolom b1r1 (kode propinsi), umur (umur penduduk), weind04 (pembobot individu)

Langkah 1. Pastikan type dataset adalah dbf. Jika belum ada bebarapa cara untuk konversi ke type data dbf. Mungkin penulis akan membahas hal ini dalam artikel terpisah.

Langkah 2. Bukalah software Foxpro. Tampilkan jendela Command (Ctrl+F2)

Langkah 3. Buka file dbf dengan ketik perintah di jendela Command seperti berikut:
Use c:\direktori\KorInd04.dbf

C:\direktori adalah direktori/folder harddisk komputer dimana disimpan dataset dengan nama KorInd04.dbf. Jika nama direktori/folder atau nama file dbf-nya mengandung spasi maka perintah tersebut dilengkapi dengan tanda petik. Misalnya:
Use “c:\direktori data\korind 2004.dbf”

Langkah 4. Ketik perintah sebagai berikut:
Select b1r1, sum(iif(umur>=0 and umur<=4,weind04,0)) as Balita, sum(weind04) as TotalPop from c:\direktori\korind04.dbf group by b1r1

Langkah 5. Setelah tekan enter, akan muncul jendela query yang berbentuk tabel dengan 3 kolom, yaitu B1r1, Balita dan TotalPop. Dengan baris sebanyak kode propinsi yang ada.

Langkah 6. Simpan query ke dalam format dbf yang bisa dibuka di excel. Ketik:
Copy to c:\direktori\pct_balita type fox2x

Jika ingin disimpan dalam format excel, ganti fox2x diatas dengan xls
Akhirnya Anda bisa membuat perhitungan persen di Excel.

Penjelasan Lengkap

* Perintah select adalah perintah SQL untuk membuat tabel/query

* Sum(iif(x,weind04,0)) adalah perintah menjumlahan pembobot weind04 jika kondisi x terpenuhi, jika tidak terpenuhi tidak perlu dijumlahkan atau penjumlahan dengan 0.

* As X hanya untuk memberi nama hasil penjumlahan disimpan dalam field/kolom X

* From untuk merujuk ke sumber tabel yang akan diolah

* Group by X adalah perintah untuk mengelompokan hasil penjumlahan berdasarkan katagori di field/kolom X

Semoga penjelasannya bisa diikuti dan selamat mencoba.