Toko Abdurrahiim | Sedia Aneka Herbal

PT Nusa Mandiri

unit gaji;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm4 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    enamapeg: TEdit;

    cbjabatan: TComboBox;

    epokok: TEdit;

    GroupBox1: TGroupBox;

    Label4: TLabel;

    etunjangan: TEdit;

    btotalgaji: TButton;

    Label5: TLabel;

    ebersih: TEdit;

    bisidata: TButton;

    bclose: TButton;

    rtetap: TRadioButton;

    rhonorer: TRadioButton;

    procedure cbjabatanChange(Sender: TObject);

    procedure rtetapClick(Sender: TObject);

    procedure rhonorerClick(Sender: TObject);

    procedure btotalgajiClick(Sender: TObject);

    procedure bisidataClick(Sender: TObject);

    procedure bcloseClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.cbjabatanChange(Sender: TObject);

begin

if cbjabatan.Text = 'Direktur' then

epokok.Text := '5000000'

else

if cbjabatan.Text = 'Manager' then

epokok.Text := '2000000'

else

if cbjabatan.Text = 'Karyawan' then

epokok.Text := '1000000'

else

epokok.Text := '0' ;

end;

procedure TForm4.rtetapClick(Sender: TObject);

var a,hasil:real;

begin

if rtetap.Checked = true then

a := strtofloat(epokok.Text);

hasil :=a*0.3;

etunjangan.Text := floattostr(hasil)

end;

procedure TForm4.rhonorerClick(Sender: TObject);

var a,hasil:real;

begin

if rhonorer.Checked = true then

a := strtofloat(epokok.Text);

hasil :=a*0.1;

etunjangan.Text := floattostr(hasil)

end;

procedure TForm4.btotalgajiClick(Sender: TObject);

var a,b,c :real;

begin

a := strtofloat(epokok.Text);

b := strtofloat(etunjangan.Text);

c := a+b;

ebersih.Text := floattostr(c);

end;

procedure TForm4.bisidataClick(Sender: TObject);

begin

enamapeg.Text:='';

cbjabatan.Text:='';

epokok.Text:='';

etunjangan.Text:='';

ebersih.Text:='';

enamapeg.SetFocus;

end;

procedure TForm4.bcloseClick(Sender: TObject);

begin

close;

end;

  

end.