Pages

Jumat, 23 Maret 2012

Program Perhitungan Gaji delphi

Halo Sobat, Di kesempatan kali ini akan saya share contoh program perhitungan gaji menggunakan delphi, Dalam pembuatan program sederhana kali ini menampilkan hasil , jika dimasukkan golongan dan status tertentu akan menampilkan data yang spesifik. Tampilan program yang akan dibuat adalah seperti ini:
gaji karyawan delphi
Dan Listing programnya sebagai berikut:


procedure  TForm1.btnProsesClick(Sender: TObject); 
var 
GajiPokok, Tunjangan, TunjKel, GajiKotor, Asuransi, Pajak, GajiBersih 
: Currency; 
begin 
if (cbGol.ItemIndex <> -1) and (cbStatus.ItemIndex <> -1) then 
begin 
case cbGol.ItemIndex of 
0 : begin 
GajiPokok := 500000; 
Tunjangan := 100000; 
end; 
1 : begin 
GajiPokok := 600000; 
Tunjangan := 100000; 
end; 
2 : begin 
GajiPokok := 700000; 
Tunjangan := 100000; 
end; 
3 : begin 
GajiPokok := 1000000; 
Tunjangan := 300000; 
end; 
4 : begin 
GajiPokok := 2000000; 
Tunjangan := 500000; 
end; 
end; 

case cbStatus.ItemIndex of 
0 : TunjKel := 150000; 
1 : TunjKel := 0; 
end; 

GajiKotor := GajiPokok + Tunjangan + TunjKel; 
Asuransi := 0.05 * GajiKotor; 

if GajiKotor >= 1000000 then 
Pajak := 0.1 * GajiKotor 
else 
Pajak := 0; 

GajiBersih := GajiKotor - Asuransi - Pajak; 

lblGajiPokok.Caption := FormatCurr('##,###,###',GajiPokok); 
lblTunjangan.Caption := FormatCurr('##,###,###',Tunjangan); 
lblTunjKel.Caption := FormatCurr('##,###,###',TunjKel); 
lblGajiKotor.Caption := FormatCurr('##,###,###',GajiKotor); 
lblAsuransi.Caption := FormatCurr('##,###,###',Asuransi); 
lblPajak.Caption := FormatCurr('##,###,###',Pajak); 
lblGajiBersih.Caption := FormatCurr('##,###,###',GajiBersih); 
end 
else 
begin 
Application.MessageBox('data pegawai belum lengkap' + chr(10) + 'isi data 
pegawai 
dengan lengkap','Pemberitahuan',Mb_ok + mB_iconError); 
edtNama.SetFocus; 
end; 
end; 

procedure  TForm1.btnClearClick(Sender: TObject); 
begin 
edtNama.Clear; 
cbGol.ItemIndex := -1; 
cbStatus.ItemIndex := -1; 

lblGajiPokok.Caption := ''; 
lblTunjangan.Caption := ''; 
lblTunjKel.Caption := ''; 
lblGajiKotor.Caption := ''; 
lblAsuransi.Caption := ''; 
lblPajak.Caption := ''; 
lblGajiBersih.Caption := ''; 

edtNama.SetFocus; 
end; 



procedure  TForm1.btnExitClick(Sender: TObject); 
begin 
Application.Terminate; 
end; 

1 komentar:

ribet ga gan...hhhehe
aq dulu pernah belajar tapi mau belajar lagi rasanya males...hehe
thanks dah share ya

ditunggu kunjungan baliknya http://bheen-7.blogspot.com/

Poskan Komentar

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites More