PROGRAM PENGGAJIAN ( DELPHI 7 )

procedure TForm1.CJabatanClick(Sender: TObject);
begin
if CJabatan.text='Direktur'then
EGajipokok.Text:='5000000'else
if CJabatan.Text='Manager'then
EGajipokok.Text:='2000000'
else
if CJabatan.text='Karyawan'then
EGajipokok.Text:='1000000'
else
EGajipokok.Text:='0';
end;

procedure TForm1.RtetapClick(Sender: TObject);
var
a,b,c:real;
hasil:real;
begin
if Rtetap.Checked=true then
a:=strtofloat(EGajipokok.Text);
hasil:=a*0.3;
ETunjangan.Text:=floattostr(hasil)
end;

procedure TForm1.RHonorerClick(Sender: TObject);
var
a,b,c:real;
hasil:real;
begin
if RHonorer.Checked=true then
a:=strtofloat(EGajipokok.Text);
hasil:=a*0.1;
ETunjangan.Text:=floattostr(hasil)
end;

procedure TForm1.BTotalClick(Sender: TObject);
var
a,b,c:real;
hasil:real;
begin
a:=strtofloat(EGajipokok.Text);
b:=strtofloat(ETunjangan.Text);
c:=a+b;
Egajibersih.Text:=floattostr(c);

end;

procedure TForm1.BisiClick(Sender: TObject);
begin
CJabatan.Text:='';
Enama.Text:='';
Egajibersih.Text:='0';
ETunjangan.Text:='0';
EGajipokok.Text:='0';
Rtetap.Checked:=false;
RHonorer.Checked:=false;
end;

procedure TForm1.BCloseClick(Sender: TObject);
begin
if(application.MessageBox('Anda Yakin Akan Keluar','Informasi',MB_YESNO)=IDYES)then
close;
end;

end.