Pages

Pages

16.3.13

Mengenal Script Form 01 - Pemrograman VFox

Lembar Kerja Formulir Mahasiswa. Berikut merupakan Pekerjaan Job # 03;
Setalah Anda memahami konsep ERD, DFD dan Pembuatan Database, yang disajikan dalam Projek Visual Foxpro, pembahasan merancang desain Formulir kedalam sajian visual berupa Form (Mahasiswa Contoh) yang diambilkan dari Tabel mahasiswa.

Catatan:
Database telah terbentuk dan terrelasi (.DBC)
Tabel telah Terindex
Menggunakan Data Envirenment








1. MENGENAL VISUAL FOXPRO
Memulai berkerja dengan projek pada Visual Foxpro (VFP). Foxpro memiliki akar pada keluarga Xbase yang mana merupakan sebuah bahasa pemrograman database. Berawal dengan dirintisnya bahasa Dbase pada tahun 1980 dengan sistem DOS yang dikembangkan sejalan denan bahasa arqas tinggi Clipper dan Foxbase. Foxbase yang muncul dengan versi Windows dan kemudian keluar Visual Foxpro. VFP telah melihat banyak versi mulai dari 3,0 hingga saat ini versi 9.0. Visual Foxpro adalah data-sentris berorientasi objek dan bahasa pemrograman bekerja dalam lingkup Microsoft Windows yang dikembangkan oleh Fox Software pada awal 1984. FoxPro (9.0) memungkinkan berjalan pada berbagai sistem operasi Mac OS, DOS, Windows, dan Unix.

Visual Foxpro cocok untuk pengembangan aplikasi bisnis untuk UKM. Memiliki front-end sendiri dan juga database back-end, tetapi juga dapat digunakan dengan database back-end seperti SQL Server seperti hannya untuk mengirimkan sms degan aplikasi ini.

 Beberpa hal yang perlu dipahami dalam menggelola lembar kerja Visual Foxpro seperti ditunjukkan pada tutorial Glen Villar (Sumber Youtube).


2. MEMBUAT DESAIN FORM BERBAGAI VARIASI INPUT
Melanjutkan latihan pada case Job#1 dan Job #2....
Rancangan Tampilan Form yang akan dikembangkan dari Tabel mhs.dbf


















Properties Filed Lembar Formulir
txtNIm.TextBox-data environment
txtNama.TextBox-data environment
txtTgl_lhr.TextBox-data environment
txtAlamat. TextBox-data environment

combo1.Builder
Listitem : Data Entered by hand
Value.Filedname : mhs.agama


optiongroup1.enabled=.f.
Button : 2 Standar
Layout : Horizaontal
Value. Filedname : mhs.jenkel
txtTlep_r.enabled=.f.
txtTlep_hp.enabled=.f.
edtket TextBox-data environment


Form- Activate
SET DATE BRITISH
SET CENTURY ON
THISFORM.TAMBAH.SetFocus()
thisform.txtNIm.enabled=.f.
thisform.txtNama.enabled=.f.
thisform.txtTgl_lhr.enabled=.f.
thisform.txtAlamat.enabled=.f.
thisform.combo1.enabled=.f.
thisform.optiongroup1.enabled=.f.
thisform.txtTlep_r.enabled=.f.
thisform.txtTlep_hp.enabled=.f.
thisform.edtket.enabled=.f.
thisform.refresh


Form-Properties
Autocenter.T
Movable.T
Caption : Form Isisan Mahasiswa
Command Button AWAL
GO TOP
thisform.edit.Visible=.t.
THISFORM.AWAL.Enabled=.F.
THISFORM.SEBELUM.Enabled=.F.
THISFORM.SETELAH.ENABLED=.T.
THISFORM.AKHIR.Enabled=.T.
thisform.refresh


Command Button SEBELUM

THISFORM.SETELAH.ENABLED=.T.
THISFORM.AKHIR.Enabled=.T.
thisform.edit.Visible=.t.
SKIP -1
IF BOF()
GO TOP
THISFORM.AWAL.Enabled=.F.
THISFORM.SEBELUM.Enabled=.F.
ENDIF
thisform.Refresh

Command Button SESUDAH
THISFORM.AWAL.Enabled=.T.
THISFORM.SEBELUM.Enabled=.T.
thisform.edit.Visible=.t.
SKIP 1
IF EOF()
GO bottom
THISFORM.SETELAH.ENABLED=.F.
THISFORM.AKHIR.Enabled=.F.
ENDIF
thisform.refresh


Command Button AKHIR
THISFORM.AWAL.Enabled=.T.
THISFORM.SEBELUM.Enabled=.T.
THISFORM.SETELAH.ENABLED=.F.
THISFORM.AKHIR.Enabled=.F.
thisform.edit.Visible=.t.
GO BOTTOM
Thisform.refresh


Command Button TAMBAH
APPEND BLANK
thisform.txtNIm.enabled=.t.
thisform.txtNama.enabled=.t.
thisform.txtTgl_lhr.enabled=.t.
thisform.txtAlamat.enabled=.t.
thisform.combo1.enabled=.t.
thisform.optiongroup1.enabled=.t.
thisform.txtTlep_r.enabled=.t.
thisform.txtTlep_hp.enabled=.t.
thisform.edtket.enabled=.t.

THISFORM.txtNim.SetFocus()
THISFORM.AWAL.Enabled=.F.
THISFORM.SEBELUM.Enabled=.F.
THISFORM.SETELAH.ENABLED=.f.
THISFORM.AKHIR.Enabled=.f.
thisform.tambah.Visible=.f.
thisform.simpan.Visible=.t.
thisform.refresh


Command Button SIMPAN

THISFORM.AWAL.Enabled=.t.
THISFORM.SEBELUM.Enabled=.t.
THISFORM.SETELAH.ENABLED=.t.
THISFORM.AKHIR.Enabled=.t.
thisform.tambah.Visible=.t.
thisform.simpan.Visible=.f.
GO top
thisform.txtNIm.enabled=.f.
thisform.txtNama.enabled=.f.
thisform.txtTgl_lhr.enabled=.f.
thisform.txtAlamat.enabled=.f.
thisform.combo1.enabled=.f.
thisform.optiongroup1.enabled=.f.
thisform.txtTlep_r.enabled=.f.
thisform.txtTlep_hp.enabled=.f.
thisform.edtket.enabled=.f.
thisform.refresh

Command Button HAPUS
DELETE
PACK
IF EOF()
GO bottom
ENDIF
thisform.simpan.Visible=.t.
thisform.refresh

Command Button EDIT
thisform.txtNIm.enabled=.t.
thisform.txtNama.enabled=.t.
thisform.txtTgl_lhr.enabled=.t.
thisform.txtAlamat.enabled=.t.
thisform.combo1.enabled=.t.
thisform.optiongroup1.enabled=.t.
thisform.txtTlep_r.enabled=.t.
thisform.txtTlep_hp.enabled=.t.
thisform.edtket.enabled=.t.
thisform.simpan.Visible=.t.
thisform.edit.Visible=.f.
thisform.refresh

Command Button KELUAR
thisform.Release()

txtNIm-LostFocus
A=thisform.txtNim.Value
IF A=" "
A=MESSAGEBOX("MAAF NIM JANGAN DIKOSONGI",16,"MAAF YA...")
THISFORM.txtNim.SETFOCUS()
NDIF



Artikel Pemrograman Visual Foxpro Lainnya...
[1] Bagaimana Membuat Aplikasi Mandiri menggunakan Instal Shiled 10 ?
Membuat aplikasi bundling yang lepas dari program induknya Microsoft Visual Foxpro
[2] Membuat File Executabel dari Projek Visual Foxpro
Contoh Membuat builder aplikasi setelah dilakukan set main dikompile menjadi file aplikasi.
[3] Mengganti Icon Visual Foxpro dengan Icon hasil desain sendiri dari olah aplikasi grafis
Menggunakan aplikasi Corel Draw, Photoshop maupun Photo Impact untuk merubah Icon Foxpro dari Project Info
[4] Mengembankan Logika IIF dalam disertain operasi matematika pada FORM Visual Foxpro
Membangun Logika IF pada form Foxpro untuk menciptakan automatisasi input guna meminimalkan kesalaha “human error” dan efisienasi kinerja administratif
[5] Logika DO CASE dan IF-ELSE-ENDIF
Logika Dasar menggunakan kondisi IF –ENDIF dan syintax pengguaan DO-CASE
[6] Membangun Report dan Cetak pada Visual Foxpro
Membuat Laporan pada Mocrosft Visual Foxpro untuk menciptakan data Menjadi Informasi bagi Pengabil Keputusan maupun kebutuhan horizontal, membahas syntax untuk melihat Laporan menggunakan Preview maupun lihat laporan dengan Cetak
[7] Perhitungan aplikasi pembayaran pada Form
Contoh Perhitungan aplikasi pada Form pembayaran, penggunakan procedur Lost Focus dan Interactive Change
[8] Menegnal fungsi dasar If dan menggunaan atribut pada Form
Penggunaan Form dan logika dasar operasi Top, Prev, Bottom, Next, Simpan, Edit, Hapus dan Tambah Data

Tutorial Membuat Message Box
Tonymoe2009 (Sumber Youtube).