Program honor guru menggunakan visual foxpro90

1.       Instal visual foxpro90 di computer

2.       Buka programnya,jangan lupa lokasikan dulu directory penyimpanan projecknya di menu tool >option>filelocation>default directory. Seperti pd gb berikut, lalu modfy>set default>ok

3.       Selanjutnya Buat nama project dan database. Namanya terserah anda

4.       Buat tabel dengan nama tbhonor spt gb berikut

5.       Buat form baru dan desain seperti yg terlihat di gb berikut

Untuk combo 3 dan 4 berfungsi untuk membuat nomor kode guru

Untuk combo1 berfungsi untuk menentukan jml jam mengajar

Untuk combo2 berfungsi untuk menentukan status jabatan diluar kbm

Cara setting combo dengan cara klikkanan lalu builder dan isian data di colom1sesuai dengan data yang dibutuhkan lihat gb

Dan ini hasil laporannya

Ini kode listingnya,silahkan dicopas

Code hitung

a = thisform.text3.Value

b = thisform.text5.Value

c = thisform.text6.Value

d = thisform.text7.Value

e = thisform.text8.Value

e = (a+b+c)-d

thisform.text8.Value=e

code batal

thisform.combo3.Value=" "

thisform.combo4.Value=" "

thisform.text2.Value=" "

thisform.text3.Value=0

thisform.text4.Value=" "

thisform.text5.Value=0

thisform.text6.Value=0

thisform.text7.Value=0

thisform.text8.Value=0

thisform.combo1.Value=" "

thisform.combo2.Value=" "

thisform.combo3.Enabled= .T.

thisform.combo4.Enabled= .T.

 code close

thisform.Release

code simpan

SELECT tbhonor

APPEND BLANK

replace kdguru WITH thisform.combo3.Value

 IF thisform.combo3.Value="01-20"

    thisform.combo4.Value="21-40"

    endif 

replace nama_guru WITH thisform.text2.Value

replace jml_jam WITH thisform.combo1.Value

replace jml_honor WITH thisform.text3.Value

replace tgl WITH thisform.text4.Value

replace koreksian WITH thisform.text5.Value

replace jabtan WITH thisform.combo2.Value

replace honor_jabatan WITH thisform.text6.Value

replace potongan WITH thisform.text7.Value

replace gaji_bersih WITH thisform.text8.Value

code hapus

delete

thisform.combo3.Value=""

thisform.combo4.Value=""

thisform.text2.Value=""

thisform.combo1.Value=""

thisform.text3.Value=""

thisform.text4.Value=""

thisform.text5.Value=""

thisform.combo2.Value=""

thisform.text6.Value=""

thisform.text7.Value=""

thisform.text8.Value=""

thisform.grid1.Refresh

code preview

REPORT FORM laporanguru.frx TO PRINTER preview

Code form1(activate)

SET DELETED ON

thisform.combo3.Value=" "

thisform.combo4.Value=" "

thisform.text2.Value=" "

thisform.combo1.Value=" "

thisform.text3.Value=0

thisform.text4.Value=" "

thisform.text5.Value=0

thisform.combo2.Value=" "

thisform.text6.Value=0

thisform.text6.Value=0

thisform.text7.Value=0

thisform.text8.Value=0

thisform.combo3.SetFocus()

code grid1(afterrowcolchange)

LPARAMETERS nColIndex

SELECT tbhonor

thisform.combo3.Value=kdguru

thisform.combo4.Value=kdguru

thisform.text2.Value=nama_guru

thisform.combo1.Value=jml_jam

thisform.text3.Value=jml_honor

thisform.text4.Value=tgl

thisform.text5.Value=koreksian

thisform.combo2.Value=jabtan

thisform.text6.Value=honor_jabatan

thisform.text7.Value=potongan

thisform.text8.Value=gaji_bersih

thisform.grid1.Refresh

mogs msnfaat

Mohon maaf bila ada kekurangan

By adejuhana28.blogspot.com