Membuat Database dan Form baru pada Microsoft Visual FoxPro
Sebelum gue
ngemeng panjang lebar, dan jelasin semuanya. Kita lihat dulu penjelasan tentang
visual foxpro, jenis, dan fungsinya.
Microsoft
Visual FoxPro adalah bahasa pemrograman berbasiskan prosedur yang pertama kali
dikembangkan oleh Fox Technologies pada awal 1984. Program ini dikembangkan
untuk menyaingi dBase II. Dalam perkembangannya FoxPro tetap mempertahankan
kemampuan pemrograman prosedural dan dilengkapi dengan pemrograman berorientasi
objek. FoxPro pertama kali dikembangkan berbasis text dan dapat dijalankan pada
MS-DOS, Windows, Mac OS, dan UNIX. Versi terakhir dari FoxPro adalah versi 9.0
dan Service Pack untuk versi 9.0 akan dirilis pada tahun 2007. Microsoft Visual
FoxPro 9.0 dapat memanfaatkan kemampuan Microsoft Windows secara optimal.
Kemampuannya dapat dipakai untuk merancang program aplikasi yang berpenampilan
seperti program aplikasi lainnya yang berbasis Microsoft Windows. Bahasa
pemrograman ini sangat populer pada saat ini.
Selain
kecanggihannya dalam menyediakan berbagai fasilitas siap pakai, Microsoft
Visual FoxPro mampu mendukung pembuatan aplikasi, baik secara single user
maupun multiuser. Microsoft Visual FoxPro 9.0 selain disebut sebagai sebuah
pemrograman tingkat tinggi, juga sering disebut sebagai sarana (tool) untuk
menghasilkan program-program berbasiskan Windows.
Beberapa
kemampuan atau manfaat dari Microsoft Visual FoxPro diantaranya:
- Untuk membuat program aplikasi berbasis Windows.
- Untuk membuat objek-objek pembuatan program.
- Menguji program (debugging) dan menghasilkan
program akhir berakhiran EXE yang bersifat executable, atau dapat langsung
dijalankan..
Salah satu
metode pembelajaran untuk pemrograman yang sangat efektif adalah metode belajar
sambil mencoba penerapannya. Untuk memberikan sebuah contoh pengembangan
aplikasi sederhana tetapi dapat mewakili sebuah sistem, dengan menggunakan
Microsoft Visual FoxPro. Dengan contoh aplikasi sederhana ini, diharapkan dapat
mengembangkannya menjadi sistem yang lebih kompleks lagi. Microsoft Visual
FoxPro. merupakan salah satu bahasa pemrograman atau pengembangan aplikasi yang
sudah sangat dikenal di dunia. Dengan menggunakan Microsoft Visual FoxPro.
dapat membuat database untuk sistem informasi dan pembuatan form-form aplikasi
beserta dengan laporan. Selanjutnya dalam standar pengembangan sistem informasi
akan membahas, seperti login password, dan juga fasilitas untuk mengubah
password. Dari segi pemrograman, Microsoft Visual FoxPro. Menggunakan bahasa
yang sangat sederhana dan mudah dipahami. Versi dari Microsoft Visual FoxPro
adalah 5, 6, 7, 8 dan yang terakhir adalah versi 9.
Nah, udah selesai neh.,. penjelasannya,,
sekarang kita lanjut ke inti permasalahannya.
“FOXPRO”!!!, ya,., sebenernya MK ini adalah MK
yang menurut gue sangat bikin musmet palak, soal nya butuh ketelitian tinggi
disaat kamu harus memasukkan semua Kode/Syntax pada Listing Form kamu, memang
di awal terasa mudah karena kamu tinggal mengganti rumusnya dan menyesuaikan
dengan Field yang ada di Database dan Modul, tapi setelah selesai membuat Form
dan selesai memasukkan Kode, maka ketika kamu ingin menjalankan program
tersebut walhasil pasti masih ada kesalahan, karena memang permasalahan tidak
jalan nya sebuah program foxpro itu dikarenakan tidak sinkronnya antara
Database dan Kode, ntah itu salah di besar kecilnya huruf, koma, titik, buka
kurung, spasi dll.,.
Bikin ruwet? Emang iya! Lagian kayaknya gak
ada program yang gak bikin ruwet, semua program pasti bikin ruwet, tapi kalo
kita mau belajar ya insyaAllah pasti bisa, gue pribadi juga gitu awal nya,
ngotak-ngatik sendiri sampe malem jam 1 buat ngoreksi Listing nya doang -__-
Perjuangan banget kayaknya., masalah nya ini
bukan sekedar tugas, tapi ini UTS yang gak kelar dan kudu di kelarin demi Nilai,.,
dan Alhamdulillah nya program gue jalan, dan sudah mendapat nilai,. :D
Ok deh,., disini gue bakalan berbagi tutorial
tentang pembuatan database sekaligus formnya, serta kode-kode listing nya.,. OK
CEKDISOT!!! ^^
Ok sekarang
kita akan membuat project “PENGOLAHAN DATA DOSEN”
Database “DOSEN”
Dengan table “DOSEN” sebagai berikut:
Name
|
Type
|
Width
|
NIDN*
|
Character
|
20
|
NAMA
|
Character
|
35
|
TGLLAHIR
|
Character
|
10
|
JENKEL
|
Character
|
20
|
ALAMAT
|
Character
|
70
|
KOTA
|
Character
|
35
|
AGAMA
|
Character
|
25
|
PEND
|
character
|
35
|
Note: Field yang diberi bintang (*), di index
secara ascending dengan indexes type : PRIMARY.
Yang pertama silahkan kamu buka aplikasi
MS.Visual FoxPro yang ada di Laptop/pc kamu, kalau gue biasa mengunakan
MS.FoxPro ver 9.0.
Yang sebelumnya kita buat folder baru terlebih dahulu pada
Directory D dengan nama kamu masing” ex:
Kusriyanto_uts .
Jika sudah silahkan kamu kembali masuk ke aplikasi
foxpro lagi, kamu buat sebuah project baru dengan cara klik menu file > new
> project (newfile). Lalu kamu beri nama menjadi PENGOLAHAN DATA DOSEN. Jika
sudah selanjutnya kamu buat database baru dengan nama DOSEN, kemudian buat
tabel baru dengan nama DOSEN juga lalu klik OK.
Jika sudah maka kita langsung membuat FORM
nya.,. klik menu “Document” pada project lalu pilih form > new > new form
, maka tampilan form baru akan seperti
ini :
Silahkan
kamu buat label,text box, comand, container. Sesuai dengan field pada database
tadi.,. jika sudah maka hasilnya akan seperti ini :
Sebelum
lanjut ke pengisian kode, kita buat terlebih dahulu procedur, cara nya pilih
menu Form, kemudian pilih New Method, kemuadia kamu buat dengan nama Blok_Data,
Blok_Navigasi, Bersih, dan Tampildata. Jika sudah kita lanjut ke Listing program
sesuai dengan prosedur masing”.
1. Listing Blok_Data
PARAMETERS KONDISI
THISFORM.NIDN.Enabled=KONDISI
THISFORM.NAMA.Enabled=KONDISI
THISFORM.TGLLAHIR.Enabled=KONDISI
THISFORM.JENKEL.Enabled=KONDISI
THISFORM.ALAMAT.Enabled=KONDISI
THISFORM.KOTA.Enabled=KONDISI
THISFORM.AGAMA.Enabled=KONDISI
THISFORM.PEND.Enabled=KONDISI
2.
Listing Blok_Navigasi
PARAMETERS KONDISI
THISFORM.CMD_AWAL.Enabled = KONDISI
THISFORM.CMD_AKHIR.Enabled = KONDISI
THISFORM.CMD_SEBELUM.Enabled = KONDISI
THISFORM.CMD_SESUDAH.Enabled = KONDISI
3.
Listing Bersih
THISFORM.NIDN.Value = ""
THISFORM.NAMA.Value = ""
THISFORM.TGLLAHIR.Value = ""
THISFORM.JENKEL.Value = ""
THISFORM.ALAMAT.Value = ""
THISFORM.KOTA.Value = ""
THISFORM.AGAMA.Value = ""
THISFORM.PEND.Value = ""
4.
Listing Tampildata
SELECT DOSEN
IF RECCOUNT() = 0 THEN
RETURN
ENDIF
THISFORM.NIDN.Value = NIDN
THISFORM.NAMA.Value = NAMA
THISFORM.TGLLAHIR.Value = TGLLAHIR
THISFORM.JENKEL.Value = JENKEL
THISFORM.ALAMAT.Value = ALAMAT
THISFORM.KOTA.Value = KOTA
THISFORM.AGAMA.Value = AGAMA
THISFORM.PEND.Value = PEND
Sebelum lanjut ke listing
tombol navigasi, maka kamu ubah terlebih dahulu “Name” pada tombol masing”. jika
sudah di ubah maka kita lanjut pada listingnya.
5.
Listing CMD_AWAL/TBL_AWAL
SELECT DOSEN
IF RECCOUNT () = 0 THEN
RETURN
ENDIF
GO TOP
THISFORM.Tampildata
6.
Listing CMD_SEBELUM/TBL_SEBELUM
SELECT DOSEN
IF RECCOUNT () = 0 THEN
RETURN
ENDIF
SKIP - 1
IF BOF () THEN
GO TOP
ENDIF
THISFORM.Tampildata
7.
Listing CMD_SESUDAH/TBL_SESUDAH
SELECT DOSEN
IF RECCOUNT () = 0 THEN
RETURN
ENDIF
SKIP 1
IF EOF () THEN
GO BOTTOM
ENDIF
THISFORM.Tampildata
8.
Listing CMD_AKHIR/TBL_AKHIR
SELECT DOSEN
IF RECCOUNT () = 0 THEN
RETURN
ENDIF
GO BOTTOM
THISFORM.Tampildata
Sebelum lanjut ke Listing
TAMBAH,UBAH,HAPUS,SIMPAN,dan KELUAR, maka terlebih dahulu kamu ganti “Name” nya
menjadi CMD_TAMBAH/TBL_TAMBAH begitu seterusnya.
9. Listing
CMD_TAMBAH/TBL_TAMBAH
IF THISFORM.CMD_TAMBAH.Caption = "\<TAMBAH"
THISFORM.CMD_TAMBAH.Caption =
"\<BATAL"
THISFORM.CMD_UBAH.Enabled = .F.
THISFORM.CMD_HAPUS.Enabled = .F.
THISFORM.CMD_SIMPAN.Enabled = .T.
THISFORM.BLok_data (.T.)
THISFORM.BLok_navigasi
(.F.)
THISFORM.NIDN.SetFocus ()
THISFORM.BERsih
SELECT DOSEN
IF RECCOUNT () = 0 THEN
THISFORM.NIDN.Value =
"10000000001"
RETURN
ENDIF
GO BOTTOM
A = VAL(NIDN)
A = A + 1
THISFORM.NIDN.Value = STR(A,10)
THISFORM.NAMA.SetFocus
ELSE
THISFORM.CMD_TAMBAH.Caption =
"\<TAMBAH"
THISFORM.CMD_UBAH.Enabled = .T.
THISFORM.CMD_HAPUS.Enabled = .T.
THISFORM.CMD_SIMPAN.Enabled = .F.
THISFORM.BLok_data (.F.)
THISFORM.BLok_navigasi
(.T.)
THISFORM.BERsih
THISFORM.CMD_AWAL.Click
ENDIF
10.
Listing CMD_UBAH/TBL_UBAH
IF THISFORM.CMD_UBAH.Caption = "\<UBAH"
IF RECCOUNT() = 0 THEN
MESSAGEBOX("DATANYA
KOSONG CHOY.....")
RETURN
ENDIF
THISFORM.CMD_UBAH.Caption =
"\<BATAL"
THISFORM.CMD_TAMBAH.Enabled = .F.
THISFORM.CMD_HAPUS.Enabled = .F.
THISFORM.CMD_SIMPAN.Enabled = .T.
THISFORM.BLok_data(.T.)
THISFORM.BLok_navigasi(.F.)
ELSE
THISFORM.CMD_UBAH.Caption =
"\<UBAH"
THISFORM.CMD_TAMBAH.Enabled = .T.
THISFORM.CMD_HAPUS.Enabled = .T.
THISFORM.CMD_SIMPAN.Enabled = .F.
THISFORM.BLok_data(.F.)
THISFORM.BLok_navigasi(.T.)
ENDIF
THISFORM.NAMA.SetFocus
11.Listing
CMD_HAPUS/TBL_HAPUS
IF THISFORM.CMD_HAPUS.Caption = "\<HAPUS"
IF RECCOUNT() = 0 THEN
MESSAGEBOX("DATANYA
KOSONG CHOY.....")
RETURN
ENDIF
THISFORM.CMD_HAPUS.Caption =
"\<BATAL"
THISFORM.CMD_TAMBAH.Enabled = .F.
THISFORM.CMD_SIMPAN.Enabled = .T.
THISFORM.CMD_SIMPAN.Caption =
"\<HAPUS"
THISFORM.BLok_navigasi(.F.)
ELSE
THISFORM.CMD_HAPUS.Caption = "\<HAPUS"
THISFORM.CMD_TAMBAH.Enabled = .T.
THISFORM.CMD_SIMPAN.Enabled = .F.
THISFORM.CMD_SIMPAN.Caption =
"\<SIMPAN"
THISFORM.BLok_navigasi(.T.)
THISFORM.CMD_AWAL.Click
ENDIF
12.Listing
CMD_SIMPAN/TBL_SIMPAN
SELECT DOSEN
SET ORDER TO NIDN && NIDN
SEEK ALLTRIM(THISFORM.NIDN.Value)
IF THISFORM.CMD_TAMBAH.Caption = "\<BATAL" THEN
IF !FOUND() THEN
APPEND BLANK
REPLACE NIDN WITH THISFORM.NIDN.Value
REPLACE NAMA WITH THISFORM.NAMA.Value
REPLACE TGLLAHIR WITH THISFORM.TGLLAHIR.Value
REPLACE JENKEL WITH THISFORM.JENKEL.Value
REPLACE ALAMAT WITH THISFORM.ALAMAT.Value
REPLACE KOTA WITH THISFORM.KOTA.Value
REPLACE AGAMA WITH THISFORM.AGAMA.Value
REPLACE PEND WITH THISFORM.PEND.Value
THISFORM.CMD_TAMBAH.Click
ENDIF
ENDIF
IF THISFORM.CMD_UBAH.Caption = "\<BATAL" THEN
IF FOUND() THEN
REPLACE NIDN WITH THISFORM.NIDN.Value
REPLACE NAMA WITH THISFORM.NAMA.Value
REPLACE TGLLAHIR WITH THISFORM.TGLLAHIR.Value
REPLACE JENKEL WITH THISFORM.JENKEL.Value
REPLACE ALAMAT WITH THISFORM.ALAMAT.Value
REPLACE KOTA WITH THISFORM.KOTA.Value
REPLACE AGAMA WITH THISFORM.AGAMA.Value
REPLACE PEND WITH THISFORM.PEND.Value
THISFORM.CMD_UBAH.Click
ENDIF
ENDIF
IF THISFORM.CMD_HAPUS.Caption = "\<BATAL" THEN
IF FOUND() THEN
DELETE
PACK
THISFORM.TAmpildata
THISFORM.Refresh
THISFORM.CMD_HAPUS.Click
ENDIF
ENDIF
13.Listing CMD_KELUAR/TBL_KELUAR
LUAR = MESSAGEBOX("YAKIN MAU KELUAR...",4+64, "Woro-Woro")
IF LUAR = 6
THISFORM.Release
ENDIF
14.Listing INIT
THISFORM.BLok_data(.F.)
USE DOSEN
SET ORDER TO NIDN && NIDN
THISFORM.TAmpildata
Jika sudah selesai semuanya,
sekarang tinggal kamu menampilkan data environmentnya, klik kanan pada form
lalu pilih data environment, tentukan nama database “dosen” klik add lalu
close.
Setelah selesai silahkan kamu jalankan
programnya dengan cara klik RUN (!) pada menu, dan silahkan kamu uji masing”
Tombol Navigasi apakah bisa jalan atau tidak, jika tidak berarti masih ada yang
salah pada penulisan listing, silahkan kamu cek kembali sampai benar.
untuk mendownload Tutorialnya nya,.. silhakan klik DISINI
Semoga Bermanfaat ^^.
