cara membuat aplikasi penggajian karyawan menggunakan delphi 7

     oke gan, kali ini saya akan membagikan bagaimana cara  membuat aplikasi penggajian karyawan  menggunakan aplikasi delphi 7

oke langsung saja kita buat 

ini adalah gambar aplikasi penggajian karyawan

bagian pertama 

kita design dulu form nya seperti gambar di atas  

bagian kedua 

setelah selesai kita masukan coding didalam setiap bagian yang kita butuhkan dalam form yang kita buat tadi 

bagian ketiga 

ini adalah coding untuk code jabatan 

procedure TForm1.lstKodePegClick (Sender: TObject);

begin

 case lstkodepeg.itemindex of

 0 : begin

      edit1.text:='Administrasi';

      edit5.Text:='100000';

     end;

 1 : begin

      edit1.text:='Keuangan';

      edit5.Text:='125000';

     end;

 2 : begin

      edit1.text:='Electronic Data Processing';

      edit5.Text:='150000';

     end;

 3 : begin

      edit1.text:='pemasaran';

      edit5.Text:='125000';

     end;

 end;

end;

agan tinggal langsung copykan aja di dalam list box di form yang sudah kita buat tadi 

bagian keempat 

ini adalah coding untuk golongan 

procedure TForm1.LstGolClick (Sender: TObject);

begin

     if lstGol.Itemindex = 0 then edit3.Text:='750000'

 else if lstGol.ItemIndex = 1 then edit3.Text :='900000'

     else edit3.Text:= '1000000';

end;

procedure TForm1.Edit4Change (Sender: TObject);

begin

  if edit4.text='' then edit4.Text:='0';

  edit6.Text:=inttostr (strtoint (edit4.Text) * 10000);

end;

procedure TForm1.Edit4KeyPress (Sender: TObject; var Key: Char);

begin

   if not (key in  ['0'..'9',',',#8] ) then key:= # 0;

end;

oh ya gan "perlu kalian ketahui yang ada tulisan KeyPress itu coding nya ditulis dalam onkeypress"



bagian kelima
ini adalah coding untuk hitung gaji

procedure TForm1.Button1Click(Sender: TObject);
begin
        edit7.Text:= inttostr (strtoint (edit5.text) + strtoint (edit6.Text) );
        edit8.Text:=floattostr (strtofloat (edit3.Text) * 0.05 );
        edit9.Text:=floattostr (strtofloat (edit3.Text) + strtofloat (edit7.Text) - strtofloat (edit8.Text) );

end;



bagian keenam
ini adalah coding untuk keluar dari aplikasi yang di buat

procedure TForm1.Button2Click (Sender: TObject);
begin
    application.Terminate;
end;



bagian terakhir
ini adalah coding untuk menghapus

procedure TForm1.Button3Click (Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit8.text:='';
edit9.text:='';
end;


        semoga bermanfaat untuk agan semua 

Share This :