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

read more...

Wednesday, March 12, 2008

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...

Thursday, February 21, 2008

Membuat Project, Database dan Tabel

Untuk langkah awal kita buat sebuah Project baru, pilih menu File ->New ->New File, kemudian beri nama "DbMaster" dan kita simpan di C:\BELAJAR, sehingga tampilan akhirnya adalah sbb:



diteruskan dengan membuat sebuat database baru,klik Data -> Database->Klik tombol New ->New Database, kita beri nama "DbKampus", tampilannya seperti ini:


Nah,sekarang tinggal membuat tabelnya,klik tanda (+) pada "DbKampus" sehingga dibawahnya muncul beberapa item,->klik Table->Tombol New->New Table,beri nama "Mahasiswa", selanjutnya akan muncul window baru untuk membuat struktur tabel,isi seperti ini, pada name isi 'NPK', type 'Character', width '10' dibawah kita isi lagi name 'nama',type 'Character',width '30', tampilan sbb:


langkah selanjutnya, kita buat indeksnya,klik tab 'Indexes'-> isi name dengan 'NPK_1', type 'Reguler',-> pilih kotak kecil pd bagian expression dan pilih field 'NPK' sehingga tampilan seperti ini:


->klik tombol 'OK', tampilan sbb:



Setelah mempraktekkan langkah-langkah diatas, diharapkan kawan bisa mendapatkan gambaran tentang proses pembuatan Project, Database dan Tabel dengan menggunakan Visual Foxpro, gimana ternyata tidak serumit yang dibayangkan bukan? Ok, kita teruskan kelas kita ini di postingan yang berikut, salam....

read more...

Pendahuluan

Mungkin kawan-kawan sudah tahu bahwa Visual Foxpro adalah salah Program yang terkenal handal dalam menangani aplikasi database, sayangnya sebagian dari kita merasa bahwa Visual Foxpro ini adalah bahasa pemrograman yang sulit untuk dipelajari. Melalui media blog ini perkenankan saya untuk menepis anggapan itu,dan merubah persepsi itu menjadi: "Belajar Visual Foxpro itu mudah". Mari kita belajar bersama-sama, karena kemampuan saya juga masih jauh dari kesempurnaan. Yang penting kita harus mencintai dan serius dalam mempelajari bahasa pemrograman ini, sehingga kita merasa enjoy dan menyenangkan.
Selamat belajar.....

read more...
 

blogger templates 3 columns | Tech Blog