Aplikasi Hitung Gaji Karyawan Sederhana

|| || || 2 comments
Pada kesempatan kali ini, dalam posting delphi7 saya ingin berbagai cara membuat aplikasi penggajian sangat sederhana. Itung-itung untuk menyelesaikan tugas kuliah kalian yang tidak ada ide. cukup sederhana, karena dalam program ini hanya memakai syntax if then. Kita ingin membuat aplikasi seperti ini:
komponennya adalah sebagai berikut:
Form5
Form
Name
Caption
Form5
Form5
Hitung Gaji

Komponen
Komponen
Properties
Nilai
Radiogrup
Name
Caption
Rb
Jabatan
Groupbox1
Name
Caption
Groupbox1
Penggajian
Label1
Name
Caption
Label1
Nama
Label2
Name
Caption
Label2
Anak
Label3
Name
Caption
Label3
Jumlah Lembur
Label4
Name
Caption
Label4
Rata-rata Keterlambatan
Label5
Name
Caption
Label5
Gaji Total
Label6
Name
Caption
Label6
Hitung Gaji Karyawan
Button1
Name
Caption
Button1
Hitung Gaji
Button2
Name
Caption
Button2
Hapus
Button3
Name
Caption
Button3
Keluar
Edit1
Name
Caption
Edit1
Edit2
Name
Caption
Edit2
Edit3
Name
Caption
Edit3
Edit4
Name
Caption
Edit4
Edit5
Name
Caption
Edit5

Untuk listingnya kalian boleh copy paste tapi hati2 karena ada beberapa yang saya rubah, saya berharap kalian mengerti maksud dari listing dibawah ini:
unit Unit1;
 interface
 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 type
  TForm5 = class(TForm)
    GroupBox1: TGroupBox;
    rb: TRadioGroup;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit5: TEdit;
    Button2: TButton;
    Button3: TButton;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 var
  Form2: TForm2;
 implementation
 uses Unit3;
 {$R *.dfm}
 procedure TForm5.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
end;
 procedure TForm5.Button3Click(Sender: TObject);
begin
CanClose:= false;
  if (MessageBox(Self.Handle,'Apakah anda yakin akan keluar?',
      'Konfirmasi',MB_YESNO+MB_ICONINFORMATION)=IDYES) then
      form3.Show;
      form3.Enabled:=false;
end;
  procedure TForm5.Button1Click(Sender: TObject);
var lembur,terlambat:integer;
gp,gt:currency;
const a=10000;
      b=15000;
begin
anak:=StrToInt(label2.Text);
lembur:=StrToInt(edit3.Text);
terlambat:=StrToInt(edit4.Text);
  if rb.ItemIndex=0 then
gp:=1000000
else
if rb.ItemIndex=1 then
gp:=850000
else
if rb.ItemIndex=2 then
gp:=650000
else
if rb.ItemIndex=3 then
gp:=500000;
 if terlambat<=10 then
begin
gt:=(gp)+(lembur*a)+(anak*b)-10000;
edit5.Text:=CurrToStr(gt);
end
else
begin
if terlambat>10 then
gt:=(gp)+(lembur*b)+(anak*b)-20000;
edit5.Text:=CurrToStr(gt);
end;
end;
  end.
 Demikian posting ini ya, semoga bermanfaat. Untuk pertanyan: bang.toh4@gmail.com
/[ 2 comments Untuk Artikel Aplikasi Hitung Gaji Karyawan Sederhana]\
Erwin Hadinata said...

thanks infonya gan,folback y gan, blog agan udah ane follow. thanks.

Array said...

yupz...tunggu posting pemrograman selanjutnya ya..thanks

Post a Comment