PROGRAM KARYAWAN DENGAN DELPHI

ni codingnya!!!

dobel klik radio button1/button laki laki
lbljk .Caption :=RadioButton1 .Caption ;

dobel klik radio button2/button perempuan
lbljk .Caption :=RadioButton2 .Caption ;

dobel klik chekbox1/menikah

lblstatus .Caption :=CheckBox1 .Caption ;
lbltunj  .Caption :='300000';


dobel klik check bok 2/anak

lblanak .Enabled :=True ;
lblanak.Caption :='ya,punya anak';
lbltunj  .Caption :=IntToStr(StrToInt(lbltunj .Caption )+  200000 );

dobel klik editbok nama
lblnama .Caption :=Enama .Text ;

dobel klik combo bok 1

lbljabatan .Caption :=ComboBox2 .Text ;
  if ComboBox2 .Text ='manager' then
  begin
  lblgp .Caption :='6000000';
  end
  else if ComboBox2 .Text ='ka.bagian' then
  begin
  lblgp .Caption :='5000000';
  end
  else if ComboBox2 .Text ='supervisor' then
  begin
  lblgp .Caption :='3500000';
  end


dobel klik button ok
lbltotal .Caption :=IntToStr(StrToInt(lbltunj .Caption )+StrToInt (lblgp .Caption ) );

dobel klik buttun close
close;