Cara Membuat Program Penggajian dengan Delphi 07

PROGRAM PENGGAJIAN
1. buka dulu borland delphi 07 agan dan buat form seperti berikut

2. copy coding dibawah ini
unit formgaji;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    eBonus: TEdit;
    eUangMakan: TEdit;
    eGapok: TEdit;
    eJabatan: TEdit;
    eNama: TEdit;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    eNamaOutput: TEdit;
    eJabatanOutput: TEdit;
    eTotalGaji: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    eTunjaganTotal: TEdit;
    eGajiTotal: TEdit;
    Panel2: TPanel;
    btProses: TButton;
    BtOutput: TButton;
    btReset: TButton;
    btExit: TButton;
    Label11: TLabel;
    Image1: TImage;
    procedure btProsesClick(Sender: TObject);
    procedure BtOutputClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    nama, jabatan: string;
    gaji_pokok, uang_makan, bonus, tunjangan,t_gaji, output_gaji : Real;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btProsesClick(Sender: TObject);
begin
nama:=eNama.Text;
jabatan:=eJabatan.Text;
gaji_pokok := StrToFloat(eGapok.Text);
uang_makan := StrToFloat(eUangMakan.Text);
bonus := StrToFloat(eBonus.Text);

tunjangan := 0.1*gaji_pokok;
t_gaji := gaji_pokok + uang_makan + bonus;

eTunjaganTotal.Text:=FloatToStr(tunjangan);
eGajiTotal.Text:=FloatToStr(t_gaji);
end;

procedure TForm1.BtOutputClick(Sender: TObject);
begin
nama:=eNama.Text;
jabatan:=eJabatan.Text;
gaji_pokok:=StrToFloat(eGapok.Text);
uang_makan:=StrToFloat(eUangMakan.Text);
bonus:=StrToFloat(eBonus.Text);

tunjangan:=0.1*gaji_pokok;
t_gaji:=gaji_pokok + uang_makan + bonus;

eNamaOutput.Text:= nama;
eJabatanOutput.Text:=jabatan;
output_gaji:=tunjangan+t_gaji;
eTotalGaji.Text:=FloatToStr(output_gaji);

end;

end.