Program penggajian sederhana dengan Visual Foxpro

Program penggajian sederhana dengan foxpro - Kali ini kita akan mencoba membuat sebuah program sederhana dengan menggunakan visual foxpro, dalam program ini kita tidak melakukan entri data, seperti halnya menginput data anggota secara manual, maupun menginput data golongan karyawan, dan lainnya. karena data untuk golongan, dan karyawan sudah kita tampung di dalam database yang akan kita buat, selain ini kita juga akan membuat sebuah contoh report dari program penggajian sederhanan ini, sekarang mari kita coba lihat struktur dari program ini. Berikut ini merupakan struktur tabel, penggajian, golongan dan juga karywan. langkah langkah yang akan kita lakukan pertama kali yaitu membuat tabel pegawai.

Program penggajian ini merupakan contoh sederhana yang mungkin dapat di kembangkan untuk menjadi sebuah program yang lebih komplek, yang kita lakukan ini hanyalah latihan saja untuk anda yang sedang belajar visual foxpro atau pun memenuhi tugas kuliah. Berikut ini merupakan langkah-langkah yang harus kita lakukan dalam membuat program penggajian ini.

• Struktur program penggajian visual foxpro

Setelah memahami project yang akan kita buat ini, selanjutnya kita buka aplikasi visual foxpro, kemudian  buat project baru dengan nama penggajian, database dengan nama datagaji. setelah membuat project dan juga database selanjutnya buatlah tabel, pegawai, golongan dan juga penggajian dengan struktur tabel diatas. jika semua sudah selesai selanjutnya desainlah sebuah form penggajian seperti gambar berikut.

• Tabel pegawai

• Tabel golongan

• Tabel penggajian

 

• Desain form penggajian

Setelah selesai berhasil membuat form penggajian selanjutnya kita akan membuat desain dari report penggajian tersebut, bukalah menu documen, kemudian klik new report, dan desain report seperti gambar berikut.

Jika langkah diatas sudah selesai selanjutnya kita akan coba melakukan beberapa konfigurasi dan juga memberi code.  bukalah form penggajian dan klik kanan pada tabel, kemudian klik builder, pilihlah tabel penggajian dan masukan semua field yang dibutuhkan.

Selanjutnya kita akan memberi kode pada form, buatlah beberapa method seperti aktifkan, kendali, matikan, kosongkan.

•  berikut source code dari form penggajian procedur active

thisform.aktifkan(.f.)
thisform.kendali(.t.)
thisform.kosongkan
thisform.tambah.Enabled=.t.
thisform.simpan.Enabled= .F.
thisform.batal.Enabled= .F.
thisform.keluar.Enabled= .T.
thisform.grid1.ReadOnly = .T.
RETURN

•  berikut source code dari form penggajian procedure load

set defa to E:\Fauzan\Penggajian
SET DATE BRITISH
set cent onclose dataclose indexif used('pegawai')
 use in pegawai
endifif used('golongan')
 use in golongan
endifif used('gajipeg')
 use in gajipeg
endif
* Membuka Fileselect a
use pegawai
set order to tag nopeg
select b
use golongan
set order to tag gol
select c
use gajipeg
RETURN

•  berikut source code dari form penggajian procedure unload

close data

close index

return 

• berikut source code dari form penggajian procedure / method aktifkan

PARAMETERS X

thisform.nopeg.Enabled=x

thisform.namapeg.Enabled=x

RETURN

• berikut code method kendali

PARAMETERS y
thisform.sebelumnya.Enabled=y
thisform.berikutnya.Enabled=y
RETURN

• berikut code method kosongkan

thisform.nopeg.value=""
thisform.namapeg.value=""
thisform.gol.value=""
thisform.gapok.value=0
thisform.tunjangan.value=0
thisform.gatot.value=0
thisform.tunjangan.value=0
thisform.gatot.value=0
thisform.pajak.value=0
thisform.totalgaji.value=0
return

• berikut code untuk combo nama dengan procedur interactive change

select gajipeg
thisform.nopeg.Value = gajipeg.nopeg
thisform.gatot.value=gajipeg.gatot
thisform.pajak.value=gajipeg.pajak
thisform.totalgaji.value=gajipeg.gasih
 SELECT pegawai
a=thisform.tgl.day
b=thisform.tgl.month
c=thisform.tgl.year
d=LTRIM(STR(a,2))+""+LTRIM(STR(b,2))+""+STR(c,4)
 thisform.notran.Value=d
locate for namapeg=thisform.namapeg.value
thisform.nopeg.value=pegawai.nopeg
thisform.gol.value=pegawai.gol
  select golongan
locate for golongan.gol=pegawai.gol
thisform.gapok.value=golongan.gapok
thisform.tunjangan.value=golongan.tunjangan*thisform.gapok.value
thisform.gatot.value=thisform.tunjangan.value+thisform.gapok.value
thisform.pajak.value=thisform.gapok.value*0.25
thisform.totalgaji.value=thisform.gatot.value-thisform.pajak.value
 return

• Code button exit procedure click

SET DELETED OFFSELECT gajipegPACKthisform.Release
RETURN

• code button delete procedure click

jawab=MESSAGEBOX("Anda yakin record ini mau dihapus ?";
,4+32+256,"Perhatian....")IF jawab=6
   DELETE
   SET DELETED ONENDIFthisform.refresh
thisform.aktifkan(.f.)
thisform.kendali(.t.)
thisform.simpan.Enabled=.f.
thisform.tambah.Enabled=.t.
thisform.batal.Enabled=.t.
thisform.hapus.Enabled=.t.
thisform.keluar.Enabled=.t.
RETURN

• code button cetak procedure click

SELECT gajipeg
SET ORDER TO notran
SET FILTER toREPORT FORM E:\Fauzan\Penggajian\Fauzan PREVIEW
RETURN

•  code button batal procedure click

thisform.aktifkan(.f.)
thisform.kendali(.t.)
thisform.kosongkan
thisform.tambah.Enabled=.t.
thisform.simpan.Enabled= .F.
thisform.batal.Enabled= .F.
thisform.keluar.Enabled= .T.
thisform.grid1.ReadOnly = .T.
RETURN

• code button tambah procedure click

thisform.aktifkan(.t.)thisform.kendali(.f.)
thisform.kosongkan
thisform.tambah.Enabled=.f.
thisform.simpan.Enabled= .t.
thisform.batal.Enabled= .t.
thisform.keluar.Enabled= .f.
thisform.grid1.ReadOnly = .T.
RETURN 

• code  button simpan procedure click

select gajipeg
LOCATE FOR nopeg=SPACE(6)
IF ! FOUND()
append blankENDIFa=thisform.tgl.day
b=thisform.tgl.month
c=thisform.tgl.year
d=LTRIM(STR(a,2))+"/"+LTRIM(STR(b,2))+"/"+STR(c,4)
 repl tanggal with CTOD(D)
REPLACE notran WITH thisform.notran.Value
REPLACE nopeg WITH thisform.nopeg.value
REPLACE gatot with thisform.gatot.value
REPLACE pajak with thisform.pajak.value
REPLACE gasih with thisform.totalgaji.value
thisform.grid1.setfocus()
thisform.refresh()
return set dele offpackthisform.release()
thisform.nopeg.value=pegawai.nopeg
thisform.gol.value=pegawai.gol
  select golongan
locate for gol=pegawai.gol
thisform.gapok.value=golongan.gapok
thisform.tunjangan.value=golongan.tunjangan*thisform.gapok.value
thisform.gatot.value=thisform.gol.value+thisform.gapok.value
thisform.pajak.value=thisform.gatot.value*0.025
thisform.totalgaji.value=thisform.gatot.value-thisform.pajak.value
select gajipeg
return

Sampai tahap ini telah selesai selanjutnya kita running program.

Gambar diatas merupakan hasil output dari form penggajian, untukmbuatan report kita akan coba buat dilain kesempatan.

*sebelumnya data pada tabel pegawai dan golongan harus sudah terisi. 

*Jangan lupa untuk mengganti path dari projectnya jika menggunakan file downloadan berikut.  

Download

  

Share this post