Delphi 7 Membuat Program Penggajian Pegawai

Tutorial Membuat Program Penggajian Pegawai Menggunakan Delphi 7

Script Untuk Combobox Nama Pegawai

procedure TForm1.CBO_NamaPegawaiChange(Sender: TObject);
begin
Case CBO_NamaPegawai.ItemIndex OF
0:Begin
  Label4.Caption:='20000';
  End;

1:Begin
  Label4.Caption:='25000';
  End;

2:Begin
  Label4.Caption:='30000';
  End;

3:Begin
  Label4.Caption:='35000';
  End;
end;
end;

Script Untuk Button Lihat

Label6.Caption:=Inttostr(StrToint(Label4.Caption) * StrToInt(ED_JumlahHari.Text));

Script Untuk FormCreate

procedure TForm1.FormCreate(Sender: TObject);
begin
ED_JumlahHari.Clear;
CBO_NamaPegawai.Text:='Nama Pegawai';
Label4.Caption:='0';
Label6.Caption:='0';
end;

Tutorialnya bisa dilihat dibawah ini 

• Tweet
• Share
• Share
• Share
• Share

Pesan AmiTutor97

Terimakasih sudah berkunjung ke situs blog saya, pergunakanlah ilmu yang anda dapatkan di blog saya sebaik mungkin.

Related Post