Mengenal Script Form 02 - Pemrograman ViFox

Belajar menggunakan Logika Matematika pada Form. Permbuatan Formulir Iuran Internet

Pada Formulir 01 kita telah mengenal beberapaperintah dasar pada Tombol (button), selanjutnya. kita akan menggunakan beberpa logika IIF dan logika perkalian yang digunakan untuk menyelesaiakan formulir Iuran. Gunakan Tabel internet.dbf yang telah dibuat sebelumnya. Penggunaan code yang dimasukkan kedalam tombol diperlukan, dapat dikombinasi juga dengan menggunakan properties yang disediakan visual forxpro dengan mensetingnnya sesuai degan kebutuhan yang kita inginkan.

 Kondisi dasar yang digunakan

1) database sistem informasi akademik telah terbentuk

2) Tabel Telah Terindex

3) Menggunakan Data Environment

STATUS FORM PROPERTIES : FORM1

AUTOCENTER=.T.
MOVABLE=.F.
CAPTION=”PEMBAYARAN IURAN INTERNET”
TEXT1-PROPERTIES
ENABLED=.T.
DISABLE FORCOLOR : PILIH MERAHMUDA
DISABLE BACKCOLOR : PILIH HITAM

 Sekenario Form-Activate
SET DATE BRITISH
SET CENTURY on
*thisform.txtTglbyr.Value=DATE()
thisform.text1.Value=thisform.txtTglbyr.value
thisform.txtbayar.Value=60000
thisform.txtTglbyr.setfocus()
thisform.txtTglbyr.Enabled=.F.
thisform.Combo1.Enabled=.F.
thisform.txtDenda.Enabled=.F.
thisform.txtTagih.Enabled=.F.
thisform.optiongroup1.Enabled=.F.
thisform.txtBeban.Enabled=.F.
thisform.txtUang.Enabled=.F.
thisform.txtBalik.Enabled=.F.
thisform.Combo2.Enabled=.F.

Sekenario Form- TxtTglbyr [Text Box ]
Builder – Jenis Date Field : Internet.Tglbyr
Txttglbyr – Procedure : Click
thisform.text1.Value=thisform.txtTglbyr.value
TxtTglbyr – Procedure : Interactive change
thisform.text1.Value=thisform.txtTglbyr.value

Sekenario Form-Combo1
Builder – Jenis Date Field From a Table or View [mhs.nim]
Combo1 – Procedure : Click
thisform.text1.Value=thisform.Combo1.value
Combo1 – Procedure : Interactive change
thisform.text1.Value=thisform.Combo1.value
Combo1 – Procedure : Lost Focus
thisform.text1.Value=thisform.txtBayar.value

Sekenario Form-TxtBayar [TextBox]
Builder – Jenis Numeric : 9999999 Field:Internet.bayar
Properties : Enable.F.
TxtBayar – Procedure : Click
thisform.text1.Value=thisform.txtBayar.value
TxtBayar – Procedure : Interactive change
thisform.text1.Value=thisform.txtBayar.value
TxtBayar – Procedure : Lost Focus
thisform.text1.Value=thisform.txtDenda.value

Sekenario Form-TxtDenda[TextBox]
Builder – Jenis Numeric : 99999999 Field: Internet.Denda
TxtDenda – Procedure : Click
thisform.text1.Value=thisform.txtDenda.value
TxtDenda– Procedure : Interactive change
thisform.text1.Value=thisform.txtDenda.value
TxtDenda – Procedure : Lost Focus
a=thisform.txtbayar.Value
b=thisform.txtDenda.Value
Thisform.txttagih.value=a+b
thisform.text1.Value=thisform.txtDenda.value
thisform.text1.Value=thisform.txtTagih.value

Sekenario Form-TxtTagih[TextBox]
Builder – Jenis Numeric : 99999999 Field: Internet.Tagih
TxtTagih – Procedure : Click
thisform.text1.Value=thisform.txtTagih.value
TxtTagih – Procedure : Interactive change
thisform.text1.Value=thisform.txtDenda.value

Sekenario Form-Disc [Optiongroup1]

Builder – Jenis Numeric : 99999999 Field: Internet.Disc
Optiongroup1 – Procedure : Click
DO CASE
CASE THIS.Value=1
THISFORM.TXTBEBAN.Value=THISFORM.TXTTAGIH.Value
thisform.text1.Value=" Discount 0%"
CASE THIS.Value=2
thisform.text1.Value=" Discount 20%"
{THISFORM.TXTBEBAN.Value=THISFORM.TXTTAGIH.Value- THISFORM.TXTTAGIH.Value*0.2} ditulis satu baris --
CASE THIS.Value=3
{THISFORM.TXTBEBAN.Value=THISFORM.TXTTAGIH.Value- THISFORM.TXTTAGIH.Value*0.4} ditulis satu baris --
thisform.text1.Value="Discount 40 %"
ENDCASE
Optiongroup1 – Procedure : Interactive change
thisform.text1.Value=thisform.optiongroup1.value

Sekenario Form-TxtBeban [TextBox]
Builder – Jenis Numeric 9999999 Field : Internet.Beban
TxtBeban – Procedure : Click
thisform.text1.Value=thisform.txtBeban.value
TxtBeban – Procedure : Interactive change
thisform.text1.Value=thisform.txtBeban.value
TxtBeban – Procedure : GotFocus
thisform.text1.Value=thisform.txtBeban.value
TxtBeban – Procedure : Lost Focus
thisform.text1.Value=thisform.txtUang.value

Sekenario Form-TxtUang [TextBox]
Builder – Jenis Numeric 999999 Field : Internet.Uang
TxtBeban – Procedure : Click
thisform.text1.Value=thisform.txtuang.value
TxtUang – Procedure : Interactive change
thisform.text1.Value=thisform.txtuang.value
TxtUang – Procedure : Lost Focus
X=thisform.txtBeban.Value
Y=thisform.txtUang.Value
Thisform.txtBalik.value=IIF(Y>X,Y-X,0)
thisform.text1.Value=thisform.txtBalik.value

Sekenario Form-Lunas [Check1]
Builder – Jenis Caharacter Field : Internet.Balik
Check1– Procedure : Click
IF this.Value=1
thisform.txtLunas.Value="LUNAS"
thisform.text1.value="LUNAS"
ELSE
thisform.txtLunas.Value="BELUM LUNAS"
thisform.text1.value="BELUM LUNAS"
endif

Sekenario Form-TxtLunas[TextBox]
Builder – Jenis character Field : Internet.Lunas
Properties Enabled.F.
TxtUang – Procedure : Interactive change
thisform.text1.Value=thisform.txtLunas.value

Sekenario Form-Combo2 Builder –

Field from a Table or View Field : Internet. NIK

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