0 Modul III Vfp 9.0 (Pembuatan Form Anggota)

Hufh akhirnya setelah beberapa minggu gak bisa posting akhirnya hari ini bisa juga,..
Ok dalam pembahasan kita kali ini membahas tentang pembuatan Form. Yang pertama yaitu kita membuat form Anggota nya dulu,baru di lanjutkan pembuatan Form Buku,Peminjaman & Pengembalian pada pertemuan berikutnya,..hehehehehe
Buka Aplikasi Vfp-nya dlu
Aktifkan Project perpustakaan.pjx sehingga di layar akan terlihat Project Manager Perpustakaan
Klik tab Documents, kemudian klik pilihan Form. Perhatikan gambar berikut.

Klik tombol New untuk membuat Form baru maka akan muncul kotak dialog New Form seperti gambar di bawah ini.

Klik tombol New Form dan dilayar akan terlihat Jendela Form Designer seperti berikut.

Setelah muncul layar seperti di atas maka langsung aja kita buat Judul formnya serta isi-isi dari formnya untuk menginputkan data anggotanya.
Gunakan Label untuk membuat judul-judul di dalam form.klik A yang ada di Form Control (lihat Gambar 2,yang berwarna Orange) lalu drag di dalam formnya maka akan seperti pada Gambar 3 di bawah ini
                                               Gambar 3                                                                        Gambar 4

Setelah anda drag ubah Propertisnya dengan cara klik Caption pada Properties(gambar 4) lalu tulis kan langsung isikan saja dengan nama No. Anggota,setelah anda tulis tekan Enter maka Label1 yang ada di Form Akan berubah otomatis menjadi No. Anggota juga,Lakukan lagi cara ini untuk menulis kan Nama Anggota,Tanggal Lahir & Jenis Kelamin. Setelah anda buat maka hasilnya akan seperti ini

Nah setelah kamu selesai membuat label No. Anggota,Nama Anggota,Tanggal Lahir & Jenis kelamin, selanjutnya kamu harus membuat 3 buah textbox dan 1 buah check box,cara pembuatan textbox dan check box sama seperti kamu membuat label tadi,klik aja Textbox di Form Control(lihat gambar 2 yang berwarna Hijau ) lalu Drag lagi di samping No. Anggota lalu buat lagi untuk Nama Anggota & Tanggal Lahir juga sama seperti No. Anggota sama menggunakan Textbox  juga tapi untuk Jenis Kelamin Menggunakan Check box(lihat gambar 2 yang berwarna Biru) lalu drag juga di samping Jenik Kelamin lalu pilih Caption di Properties lalu isi kan Pria.Setelah semuanya selesai  lihat gambar di bawah ini

Nah setelah anda selesai maka isi kan Properties dari text1,text2,text3 seperti berikut.

Setelah selesai dengan semua yang di atas sekarang saatnya anda membuat Grid didalam form caranya klik Grid didalam Form Control(lihat gambar 2 yang berwarna Kuning) lalu Drag di bawah Jenis Kelamin Lihat gambar di bawah.

Setelah itu  klik kanan pada Grid1(grid yang anda buat tadi) lalu pilih Builder maka akan muncul layar seperti ini.

Setelah muncul layar seperti di atas maka akan muncul table yang kita buat di Latihan 2 kemarin,pilih TB_ANGGOTA maka akan muncu field-field-nya di dalam Available fields,setelah itu tekan tombol
Maka field-field yang ada di dalam Available fields akan berpindah semuanya ke dalam Selected fields lalu tekan OK  maka akan terlihat perubahan pada Grid1. Lihat gambar di bawah.

 
Nah setelah selesai membuat grid sekarang anda harus membuat command Button  atau tombol-tombol yang di perlukan yaitu tombol Simpan,Hapus,Batal & Keluar. Cara pembuatanya klik Command Button(lihat Gambar 2,yang berwarna Merah) lalu drag sesuai dengan ke inginan anda,setelah itu rubah caption command1 di  Properties->Caption dengan Simpan,setelah selesai maka buat lagi command button untuk tombol Hapus,Batal & Keluar caranya sama seperti pembuatan tobol simpan namun captionya diganti,setelah selesai membuat tombol  Simpan,Hapus,Batal & Keluar maka hasilnya akan seperti gambar dibawah ini.

Setelah anda lihat apakah hasil yang anda buat sudah sesuai dengan gambar di atas, maka sekarang klik Text1 beberapa kali lalu pilih Procedurenya LostFocus seperti gambar di bawah ini.

A. Isi kan kode program berikut di dalamnya atau bisa juga Copas

 GO top

                               LOCATE FOR noa= thisform .text1. Value

 IF FOUND()

thisform.text2.Value=nama

thisform.text3.Value=tgl_lhr

IF jk="P" then

thisform.check1.Value=1

ELSE

thisform.check1.Value=0

                                    ENDIF
                             ENDIF
B. Setelah itu  klik tombol Simpan beberapa kali lalu isikan kode program berikut pada Command1.Click

GO top
LOCATE FOR noa=thisform.text1.Value
IF !FOUND()
APPEND BLANK && menggunakan data baru
Replace noa      WITH thisform.text1.Value
Replace nama     WITH thisform.text2.Value
REPLACE tgl_lhr  WITH thisform.text3.value
IF thisform.check1.Value=1 then
   Replace jk       WITH "P"
ELSE
   Replace jk       WITH "W"
ENDIF
    ENDIF
thisform.grid1.Refresh
thisform.text1.Value=""
thisform.text2.Value=""
thisform.text3.Value=CTOD("--")
thisform.check1.Value=0
thisform.text1.SetFocus

 

Setelah mengetik kode di atas maka bisa anda close layar Command1.Click lalu klik lagi beberapa kali di tombol Hapus maka akan muncul layar Command2.Click lalu isikan Kede berikut ini di dalamnya

GO top
LOCATE FOR noa=thisform.text1.Value
IF FOUND()
    IF DELETE() then
        RECALL
    ELSE
        DELETE
    ENDIF
thisform.grid1.Refresh
ENDIF

thisform.grid1.Refresh
thisform.text1.Value=""
thisform.text2.Value=""
thisform.text3.Value=CTOD("--")
thisform.check1.Value=0
thisform.text1.SetFocus

C. Setelah itu klik lagi tombol Batal beberapa kali maka akan muncul layar Command3.Click lalu isikan kode berikut ini di dalamnya

 

thisform.text1.Value=""
thisform.text2.Value=""
thisform.text3.Value=CTOD("--")
thisform.check1.Value=0
thisform.text1.SetFocus

 

D. Lalu yang terakhir anda klik lagi tombol Keluar & isikan kode berikut ini lagi.

thisform.Release

 

Nah setelah selesai dengan peng-coding-annya maka saatnya anda menguji Form yang ada buat dengan cara mengklik tombol pada Toolbar  atau untuk lebih mudahnya anda bisa tekan CTRL+E pada keyboard anda maka akan muncul layar seperti ini.

 
Pilih Yes pada layar yang kecil sebelah kiri itu,maka akan muncul layar yang lebih besar seperti layar di sebelah kanan maka simpan Form yang anda buat ini ke dalam folder yang kita buat di awal tadi yaitu folder Perpustakaan lalu ubah nama form1 di Save Form As menjadi fm_anggota lalu klik Save. Maka akan muncul  layar seperti ini.

Coba kalian isi kan No.Anggotanya,Nama Anggota,Tanggal Lahir & Jenis Kelaminnya lalu tekan tombol simpan apakah tombol Simpannya berfungsi atau tidak,kalau  tidak coba priksa lagi Coding yang anda buat tadi apakah sudah sesuai dengan yang saya arah kan.
nah ini contoh yang saya buat.
 
Nah sampai disini saja dulu belajarnya nanti kita sambung lagi di lain waktu dan kesempatan untuk membuat Form Buku,Peminjaman & Pengembalian.. jika ada pertanyaan/komentar  silahkan di post aja di bawah…..ok sampai jumpa di materi selanjutnya…