APLIKASI SEDERHANA GAJI KARYAWAN MENGGUNAKAN BORLAND DELPHI 7

Assalamualaikum..
disini saya akan menjelaskan bagaimana cara membuat sistem gaji karyawan, yang sederhana dengan menggunakan Borland Delphi 7..
seperti ini tampilannya :

...saya hanya pemula yang ingin belajar menjadi newbie.. 3:)
..

enama : untuk name di kolom nama pegawai(edit).

cjabatan : untuk name jabatan (combobox).

egajipokok : untuk name gaji pokok (edit).

rhonorer : untuk name status honorer (radiobutton).

rtetap : untuk name status tetap (radiobutton).  

btotalgaji : untuk name pada button yang menghasilkan gaji bersih dari sistem penggajian pegawai (Button).

egajibersih: untuk name pada gaji bersih yang sudah dan menjadi (menampilkan) hasil dari eksekusi button gaji total (edit).

bisidatalagi: untuk name pada button yang membersihkan/ refresh pendataan gaji bersih dari sistem penggajian pegawai (Button).

Konsep :

1. untuk konsep combobox pada jabatan, kita klik cjabatan yg berasal dari combobox1 di ubah pada name menjadi cjabatan.

pilih kotak "object inspector" disebelah kiri paling bawah, dan cari "items", isi sesuai jabatan yang diperlukan..contoh, Direktur (enter) Manajer (enter) dan karyawan..dan OK..

dalam pengisian itu harus disesuaikan dengan kode di Delphi 7..

urutan itu berpengaruh pada penggunaan pilihan jabatan kodenya, dengan cara perumpaan if then and begin, dst..

seperti ini listing kodenya..

procedure TForm1.cjabatanClick(Sender: TObject);
begin
if cjabatan.Text = 'Direktur' then
egajipokok.Text := ' 5000000'
else
if cjabatan.Text = 'Manager' then
egajipokok.Text := '2000000'
else
egajipokok.Text := '1000000'
end;

..

keterangan, 

pada cjabatanClick = bermaksud, ketika pilihan jabatan sudah dipilih.

pada perumpamaan if cjabatan.Text ='Direktur' then = jika dipilih text tertentu, maka akan (then), mengarahkan egajipokok.text :='5000000' ...

ingat, untuk disini ada 3 jabatan yg dibuat..dan hanya 2 yang dibuat (if), karena yang terakhir otomatis pilihan terakhir juga.

..

2. Konsep status pegawai

    dalam pemilihan radio button status pegawai, disini ada 2 pilihan, yaitu honorer dan tetap.

// untuk rhonorer saat diklik.

maka ada beberapa cara penghitungan tentang tunjangan yang diambil dari persen gaji pokok yg didapat.

..

seperti ini listing kodenya :

procedure TForm1.rhonorerClick(Sender: TObject); 

var gajipokok, hasil, tunjangan :real;
begin
if rhonorer.Checked = true then
gajipokok:= strtofloat(egajipokok.Text);
tunjangan :=gajipokok*0.1;
etunjangan.Text := floattostr(tunjangan)
end;

// untuk rtetap saat diklik.

maka ada beberapa cara penghitungan tentang tunjangan yang diambil dari persen gaji pokok yg didapat.

..

seperti ini listing kodenya :

procedure TForm1.rtetapClick(Sender: TObject); 

var gajipokok, hasil, tunjangan :real;
begin
if rhonorer.Checked = true then
gajipokok:= strtofloat(egajipokok.Text);
tunjangan :=gajipokok*0.3;
etunjangan.Text := floattostr(tunjangan)
end;

3. untuk button eksekusi penghitungan gaji karyawan

setelah semua data sudah benar, maka diperlukan eksekusi button untuk menjalankan penghitungan,

procedure TForm1.btotalgajiClick(Sender: TObject);
var gajipokok, tunjangan, gajibersih:real;
begin
gajipokok := strtofloat(egajipokok.Text);
tunjangan := strtofloat(etunjangan.Text);
gajibersih := gajipokok+tunjangan;
egajibersih.Text := floattostr(gajibersih);

end; 

// pada egajibersih.Text:=floattostr(gajibersih);

menampilkan data informasi hasil penggajian karyawan, dengan menjumlahkan gaji pokok dan tunjangan.

4. Isi data lagi (button yang merefresh atau membersihkan pendataan yang sudah berhasil), dengan menyesuaikan format komponent yang digunakan, contoh : Edit (Text), Combobox (Text), dan Radiobutton (Checked), seperti listing dibawah ini :

procedure TForm1.bisidatalagiClick(Sender: TObject);
begin
cjabatan.Text := 'Jabatan';
enamapegawai.Text := ' ';
egajibersih.Text := '0';
etunjangan.Text := '0';
egajipokok.Text := '0';
rtetap.Checked := false;
rhonorer.Checked := false;
end;

...

Terimakasih untuk partisipasinya, jika ada kesalahan dalam listing kode diatas, harap beri saran...

semua konsep digabungkan akan menjadi sebuah karya..

untuk aplikasinya..silahkan download disini ..