Membuat Gaji Karyawan Dengan Delphi 7

Gambar Form1

Untuk Langkah pembuatan Kita langsung aja buat form yang mirip gambar form disamping
kemudian untuk radiogroup Golongan ubah namenya menjadi Rggol dan captionnya menjadi Golongan,,
cara membuat item A,B,C dan D pada items Golongan dibagian Properties klik string dan isikan A kemudian enter dan isi B enter C enter dan isikan D dan OK,,
setelah itu ubah name kotak edit untuk Banyak jam lembur menjadi edtlembur.
Kemudian ubah masing masing name kotak edit untuk Upah Lembur dan Upah Mingguan menjadi edtul dan edtum,,, sampai diini penyusunan form sudah selesai,,,  Gampang bangett kan. Oke seakarang kita langsung aja isi sourcecode untuk programnya .
Doubleklik button proses dan isikan
procedure TForm1.Button1Click(Sender: TObject);
var bjl,ul,um:integer;
begin
bjl:=StrToInt(edtlembur.Text);
case RgGol.ItemIndex of

0: begin
    um:=4000*48;
    ul:=bjl*3000; end;
1: begin
    um:=5000*48;
    ul:=bjl*3000; end;
2: begin
    um:=6000*48;
    ul:=bjl*3000; end;
3: begin
    um:=7500*48;
    ul:=bjl*3000; end;
end;
edtul.Text:=FloatToStr(ul);
edtum.Text:=FloatToStr(um);
end;
dan Doubleklik button Bersih dan isikan
procedure TForm1.Button2Click(Sender: TObject);
begin
  edtul.Text:='';
  edtum.Text:='';

end;






Dan yang terakhir Doubleklik untuk button Keluar dan isikan

procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;

okeee selesai Selamat mencoba dan melengkapi tugas Borland Delphi Anda