Latihan Membuat Program Gaji Pegawai

3.Latihan Membuat Program Gaji Pegawai

Desain Form 3.1

Hasil Tampilan 3.2

Listing Program

unit Unit_gaji;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    lnama: TLabel;
    enama: TEdit;
    ljabatan: TLabel;
    lpokok: TLabel;
    epokok: TEdit;
    gbstatus: TGroupBox;
    rtetap: TRadioButton;
    rhonorer: TRadioButton;
    ltunjangan: TLabel;
    etunjangan: TEdit;
    btotal: TButton;
    lbersih: TLabel;
    ebersih: TEdit;
    blagi: TButton;
    bclose: TButton;
    cjabatan: TComboBox;
    procedure cjabatanChange(Sender: TObject);
    procedure rtetapClick(Sender: TObject);
    procedure blagiClick(Sender: TObject);
    procedure bcloseClick(Sender: TObject);
    procedure btotalClick(Sender: TObject);
    procedure rhonorerClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    a:real;
    b:real;
    c:real;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 cjabatan.Items.Add('Direktur');
 cjabatan.Items.Add('Manager');
 cjabatan.Items.Add('Karyawan');
end;

procedure TForm1.cjabatanChange(Sender: TObject);
begin
if cjabatan.Text='Direktur' then
   epokok.Text:='50000000'
else if cjabatan.Text='Manager' then
   epokok.Text:='20000000'
else if cjabatan.Text='Karyawan' then
   epokok.Text:='1000000'
else
   epokok.Text:='0';
end;

procedure TForm1.rtetapClick(Sender: TObject);

begin
  if rtetap.Checked=true then
  a:=strtofloat(epokok.Text);
  b:=a*0.3;
  etunjangan.Text:=floattostr(b);
end;

procedure TForm1.blagiClick(Sender: TObject);
begin
  cjabatan.Text:='';
  enama.Text:='';
  ebersih.Text:='';
  etunjangan.Text:='';
  epokok.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;

procedure TForm1.btotalClick(Sender: TObject);
begin
  a:=strtofloat(epokok.Text);
  b:=strtofloat(etunjangan.Text);
  c:=a+b;
  ebersih.Text:=floattostr(c);
end;

procedure TForm1.rhonorerClick(Sender: TObject);

begin
  if rhonorer.Checked=true then
  a:=strtofloat(epokok.Text);
  b:=a*0.1;
  etunjangan.Text:=floattostr(b)
end;

end.