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
.png)