Penghitungan Gaji Pegawai

Hai bro...kali ini ijinkan aku meshare toturial pembelajaran tentang delphi yaitu Sistem Penghitungan Gaji Pegawai. Tampilan lengkap progaram seperti di bawah ini :

Untuk memulai membuat program seperti diatas, langkah yang harus dilakukan

• Susun Desain program seperti diatas,
• Ikuti Listing Program dibawah ini, yang perlu ditambahkan hanya sript kode wrna merah

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ComboBox1: TComboBox;
    Edit4: TEdit;
    Label10: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button2: TButton;
    Button3: TButton;
    INFO: TMemo;
    Label11: TLabel;
    Edit8: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure hapusdata(); //mendeklarasikan prosedure hapusdata
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
//mendeklarasikan variabel global
  jk,jabatan:string; //mendeklarasikan variabel jk dan jabatan bertipe string
  tunjangan,pajak,gjipokok,Total :double; //mendeklarasikan variabel jk dan jabatan bertipe double



implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
hapusdata(); //memanggil prosedure hapusdata
ComboBox1.ClearSelection; //mengembalikan kondisi comboBox seperti semula

end;
//membuat prosedure hapus data
procedure TForm1.hapusdata();
begin
Edit1.Clear;//menghapus data di edit1.text
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
ComboBox1.ClearSelection;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Close; //menutup aplikasi program
end;

procedure TForm1.Button1Click(Sender: TObject);
var //mendeklarasikan variabel nip,nama,alamat,umur tipe string
nip,nama,alamat,umur:string;
begin
 nip :=Edit1.Text;//memberikan nilai dari edit1.text ke variabel nip
 nama:= Edit2.Text;
 alamat:= Edit3.Text;
 umur := Edit4.Text;


  Total := (tunjangan + gjipokok) - pajak;
  Edit8.Text := floattostr(Total);//mengubah nilai float ke string dan memberikanya ke edit8.text

  INFO.Lines.Add('NIP :'+nip+' Nama : '+nama+' Alamat : '+alamat
  +' Jenis Kelamin : '+jk+' Jabatan : '+jabatan+' Umur :'+umur+' tahun'
  +' Tunjangan : '+floattostr(tunjangan)+' Pajak : '+floattostr(pajak)
  +' Gaji Pokok : '+floattostr(gjipokok)+' Total Pendapatan : '+floattostr(total));
  hapusdata();//memanggil prosedure hapus data setelah button simpan diklick
  end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
    jk:='Perempuan';//memberikan data ke variabel jk saat radiobutton2 dklick
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
jk:='Laki - laki';
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if Combobox1.Text =('Ketua') then //membuat pengkondisian saat pilihan dari combobox dipilih
begin
      tunjangan :=2000000;
      gjipokok:= 5000000;
      pajak:= 0.05 * gjipokok;
      jabatan:='Ketua';
 end
else if Combobox1.Text =('Wakil Ketua') then
begin
      tunjangan :=1500000;
      gjipokok:= 4000000;
      pajak:= 0.04 * gjipokok ;
      jabatan :='Wakil Ketua';
 end
else if Combobox1.Text =('Sekretaris') then
begin
      tunjangan := 1200000;
      gjipokok:= 3000000;
      pajak:= 0.03 * gjipokok;
      jabatan := 'Sekretaris';
 end
else if Combobox1.Text =('Bendahara') then
begin
   tunjangan := 1000000 ;
      gjipokok:=2000000 ;
      pajak:= 0.02 * gjipokok;
      jabatan :='Bendahara';
  end
else if Combobox1.Text =('Anggota') then
begin
      tunjangan := 800000 ;
      gjipokok:=1500000;
      pajak:= 0.01 * gjipokok;
      jabatan := 'Anggota';
 end
else
begin
      tunjangan := 0;
      gjipokok:=0;
      pajak:= 0.01 * gjipokok;
      jabatan := 'Tidak ada';
   end;
  Edit5.Text := floattostr(tunjangan);
  Edit6.Text := floattostr(pajak);
  Edit7.Text := floattostr(gjipokok);
end;

end.

• Setelah selesai jalankan program dengan menekan tombol F9 icon play .
• Semoga Sukses..sampai jumpa di toturial berikutnya.

Tak mau bersusah payah download disini Full Program

Categories: Delphi 7