Skip to main content

Program Perhitungan Gaji delphi

Di kesempatan kali ini akan saya berikan contoh program perhitungan gaji menggunakan delphi,, di postingan delphi dalam blog ini selalu saya suguhkan seringkas mungkin, sehingga jika ada pertanyaan silahkan berikan koment ya teman-teman,,,,,

Dalam pembuatan program sederhana kali ini menampilkan hasil , jika dimasukkan golongan dan status tertentu akan menampilkan data yang spesifik. Jika ada pertanyaan dimohon untuk memberikan di komment, terimakasih

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;



Demikianlah tampilan program beserta listingnya dalam tutorial pembuatan program perhitungan gaji memakai delphi yang sangat sederhana,,, semoga bermanfaat
Labels:

Popular posts from this blog

REVIEW MOTHERBOARD JETWAY TI61M5

Motherboard untuk entertainment PC Dilengkapi dengan dua tembok perlindungan anti petir, Jetway TI61M8 hadir untuk kalangan perkantoran dan usaha kecil. Feature pengaman tersebut mengamankan network port dan chip LAN dari arus listrik berlebih. Sistem perlindungan tersebut bekerja dengan cara mengalihkan arus listrik berlebih ke ground wire. Dengan teknologi ini, Jetway TI61M8 mampu bertahan dari serangan petir hingga kekuatan 9000 volt. Jetway TI61M8 menggunakan chipset H61 yang menggunakan soket LGA 1155. Hal ini membuatnya mendukung penggunaan prosesor Sandy Bridge dan prosesor terbaru dari Intel, yaitu Ivy Bridge. Chipset H61 dikembangkan oleh Intel untuk tujuan multimedia dengan memanfaatkan keunggulan tampilan grafis Sandy Bridge, yaitu Intel HD 3000. Feature yang disematkan pada chipset H61 memang tidak selengkap chipset Z68, namun chipset tersebut sudah mencukupi kebutuhan perkantoran. Jetway TI61M8 mendukung penggunaan memory dengan clock hingga 1600 ...
Read more

Membuat Laporan Report Delphi

Dalam tutorial kali ini Bring Info akan menyajikan bagaimana cara membuat laporan atau report dalam delphi, Report/laporan merupakan bentuk print out dari data. Data yang dimaksud dapat berupa data keseluruhan dari suatu tabel atau data yang diperoleh dari suatu query pencarian. Berikut ini adalah pembahasan bagaimana membuat report dari suatu tabel maupun dari query. Perlu diketahui dalam tutorial kali ini adalah tutorial ringkas yang pembahasannya langsung menuju pada pengolahan table dalam Delphi atau aplikasi yang telah diterangkan pada tutorial sebelumnya, jadi saya sangat sarankan untuk mengetahui tutorial pembuatan databasenya KLIK DISINI,,,, setelah itu koneksi database Access ke Delphi KLIK DISINI,,,, mempelajari cara kerja ADO TABEL KILK DISINI,,,, Dan terakhir adalah memahami Query Di Delphi KLIK DISINI,,,,,, Report dari Tabel Sebagai contoh, kita akan membuat aplikasi yang dapat mencetak semua data yang ada dalam tabel MHS. Desain tampilan aplikasi tampak p...
Read more

Komponen TAB ADDITIONAL Delphi (BitBtn)

Komponen TAB ADDITIONAL Delphi (BitBtn): Pada Kesempatan ini kita akan membahas penggunaan beberapa komponen yang terdapat di Tab Additional pada Komponen Palette . Seperti halnya pada Tab Standart yang menyediakan komponen komponen yang siap pakai, pada Tab Additional juga menyediakan komponen yang siap pakai, namun di Tab Additional, komponen-komponen yang ditampilkan lebih Variatif, sehingga lebih membebaskan kita untuk memilih dan menggunakan komponen yang dibutuhkan dalam sebuah program . Seperti gambar diatas yang menampilkan Tab Additional berisi banyak sekali komponen yang dapat digunakan baik yang berupa Visual maupun Non Visual .Untuk lebih memperjelas pengertian tentang penggunaan komponen-komponen yang terdapat pada Tab Additional berikut disajikan contoh program yang menggunakan komponen-komponen tersebut. Contoh Latihan Pada program yang pertama ini anda akan membuat sebuah program yang menampilkan bentuk-bentuk yang dapat dihasilkan oleh komponen BitBtn ...
Read more