Sunday, November 27, 2011

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.


0 comments:

Post a Comment

Mohon tinggalkan komentar, karena setitik komentar anda akan sangat berharga dan tak ternilai demi kemajuan blog ini.
Dan maaf, kalau admin tidak bisa langsung membalas komentar anda sekalian, karena jarang online lewat komputer.

Terima kasih :)

Related Posts Plugin for WordPress, Blogger...