Membuat Aplikasi Sederhana Gaji Karyawan Dengan Dhelphi

 Contoh Program sederhana Membuat Gaji Karyawan Dengan Dhelpi, kebetulan sekali. kemarim saya dapat tugas untuk membuat gaji karyawan menggunakan case of di dhelpi.  bagi anda yang ingin tau bagaimana membuatnya silahkan lihat di bawah ini :

1. Buka Program Dhelpi7

2.Tambah kan pada form seperti si bawah ini

 

Nama Kontrol	Propetis	Setting
GroupBox1	Caption	Input Data
Label1	Caption	Nama
label2	Caption	Golongan
Label3	Caption	Status
Edit1	Name	Ednama
ComboBox1	Name	Cbmgol
ComboBox2	Name	cmbStatus
GroupBox2	Caption	Input Data
Label4	Caption	Gaji Pokok
Label5	Caption	Tunjangan
Label6	Caption	Tunj.Keluarga
Label7	Caption	Gaji Kotor
Label8	Caption	Asuransi
Label9	Caption	Pajak
Edit2	Name	EdgajiPokok
Edit3	Name	EdTunjangan
Edit4	Name	EdGajiKotor
Edit5	Name	EdTunkel
Edit6	Name	EdAsuransi
Edit7	Name	EdPajak
GroupBox3	Caption	Hasil
Label10	Caption	lblHasil
GroupBox4	Caption	Proses
Button1	Caption	Hitung
	Name	BtnHitung
Button2	Caption	Clear
	Name	BtnClear
Button3	Caption	Keluar
	Name	BtnExit

 lalu buat desain program seperti di bawah ini, tapi jika ingin mendesain sendiri.. Juga  boleh.

3. Kemudian Masukan Kode Listing program seperti di bawah ini :

procedure TForm1.BtnHitungClick(Sender: TObject);

var

gajikotor,asuransi,pajak,total : real;

begin

if (Cbmgol.ItemIndex <> -1) and (cmbStatus.ItemHeight <> -1) then

case Cbmgol.ItemIndex of

  0 : begin

  EdgajiPokok.Text := '500000';

  EdTunjangan.Text := '100000';

   end;

  1 : begin

  EdgajiPokok.Text := '600000';

  EdTunjangan.Text := '100000';

  end;

  2 : begin

  EdgajiPokok.Text := '700000';

  EdTunjangan.Text := '100000';

   end;

  3: begin

  EdgajiPokok.Text := '1000000';

  EdTunjangan.Text := '100000';

   end;

  4: begin

  EdgajiPokok.Text := '2000000';

  EdTunjangan.Text := '100000';

  end;

  end;

  case cmbStatus.ItemIndex of

  0 : begin

  EdTunkel.Text := '150000';

  end;

  1 : begin

  EdTunkel.Text := '0';

  end;

  end;

  gajikotor := StrToFloat(EdgajiPokok.Text) + StrToFloat(EdTunjangan.Text) + StrToFloat(EdTunkel.Text);

  EdGajiKotor.Text := FloatToStr (gajikotor);

  asuransi := 0.5 * gajikotor;

  EdAsuransi.Text := FloatToStr (asuransi);

  if (gajikotor >= 1000000) then

  begin

  pajak := 0.1 * gajikotor;

  end

  else

  begin

  pajak := 0;

  end;

  EdPajak.Text := FloatToStr (pajak);

  total := gajikotor - asuransi - pajak;

  lblHasil.Caption := FloatToStr (total);

  end;

procedure TForm1.BtnClearClick(Sender: TObject);

begin

Ednama.Clear;

Cbmgol.ItemIndex := -1;

Cbmgol.Text := 'Pilih golongan';

cmbStatus.ItemIndex := -1;

cmbStatus.Text := 'Pilih Status';

EdgajiPokok.Text := '0';

EdTunjangan.Text := '0';

EdTunkel.Text := '0';

EdGajiKotor.Text := '0';

EdAsuransi.Text := '0';

EdPajak.Text := '0';

lblHasil.Caption := '0';

Ednama.SetFocus;

end;

procedure TForm1.BtnExitClick(Sender: TObject);

begin

close;

end;

end.

4. save Program anda lalu jalankan program., Run pilih start atau tekan F9.., 

   Selamat mencoba.....^_^..,

dan hasilnya akan seperti di bawah ini