Membuat Program Hitung Gaji Karyawan

Pada kesempatan kali ini saya akan share tentang Aplikasi Delphi 7 yang berasal dari tugas makul saya yang berjudul Pemrograman Visual. Disini saya akan membagi ilmu tentang cara membuat Program Hitung Gaji Karyawan dengan menggunakan Aplikasi Delphi 7. Setelah sebelumnya saya share tentang Mencari Nilai Mahasiswa. Untuk lebih jelasnya mari lihat di bawah ini.

unit gaji;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    enama: TEdit;

    epokok: TEdit;

    CJabatan: TComboBox;

    Label4: TLabel;

    Label5: TLabel;

    GroupBox1: TGroupBox;

    etunjangan: TEdit;

    Label6: TLabel;

    ebersih: TEdit;

    BTotal: TButton;

    BIsiLagi: TButton;

    BClose: TButton;

    RBTetap: TRadioButton;

    RBHonorer: TRadioButton;

    procedure CJabatanClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure RBTetapClick(Sender: TObject);

    procedure RBHonorerClick(Sender: TObject);

    procedure BTotalClick(Sender: TObject);

    procedure BIsiLagiClick(Sender: TObject);

    procedure BCloseClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CJabatanClick(Sender: TObject);

begin

if cjabatan.Text='Kepala Sekolah'then

epokok.Text:='2500000'

else

if cjabatan.Text='Guru'then

epokok.Text:='1250000'

else

if cjabatan.Text='Karyawan'then

epokok.Text:='800000'

else

epokok.Text:='0';

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

cjabatan.Items.Add('Kepala Sekolah');

cjabatan.Items.Add('Guru');

cjabatan.Items.Add('Karyawan');

end;

procedure TForm1.RBTetapClick(Sender: TObject);

var

tunjangan,hasil:real;

begin

if RBtetap.checked=true then

tunjangan:=strtofloat(epokok.text);

hasil:=tunjangan*0.3;

etunjangan.Text:=floattostr(hasil)

end;

procedure TForm1.RBHonorerClick(Sender: TObject);

var tunjangan,hasil:real;

begin

if RBhonorer.Checked=true then

tunjangan:=strtofloat(epokok.text);

hasil:=tunjangan*0.1;

etunjangan.text:=floattostr(hasil)

end;

procedure TForm1.BTotalClick(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 TForm1.BIsiLagiClick(Sender: TObject);

begin

cjabatan.text:='Jabatan';

enama.Text:='';

ebersih.text:='0';

etunjangan.text:='0';

epokok.Text:='0';

RBtetap.checked:=false;

RBhonorer.checked:=false;

end;

procedure TForm1.BCloseClick(Sender: TObject);

begin

if (application.MessageBox('Do you want to exit ?','Warning !',MB_YESNO)= IDYES)

then

close

end;

end.

Follow @Rahmadi_Dwi