Listing Gaji Karyawan

LISTING Procedure T from 3C jabatan click (sender : object) Begin If c jabatan text : ‘Direktur’ then e pokok. text : ‘7000000’ else if c jabatan. text : ‘Manager’ then e pokok. text : ‘5000000’ else if c jabatan. text : ‘Karyawan’ then e pokok. text : ‘3000000’ else e pokok. text : ’0’