Aplikasi Hitung Gaji Karyawan Sederhana

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