• Whistle Blowing : Merupakan tindakan yang dilakukan oleh seseorang atau beberapa orang karyawan untuk membocorkan kekurangan yang dilakukan oleh perusahaan atau atasannya kepada pihak lain. Whistle blowing berkaitan dengan kecurangan yang merugikan perusahaan sediri maupun pihak lain.
• Breach of Contract (Pelanggaran kontrak) adalah hukum penyebab aksi di mana kesepakatan yang mengikat atau tawar-untuk pertukaran tidak dihormati oleh satu atau lebih pihak untuk kontrak oleh non-kinerja atau gangguan lain pihak kinerja
• Bribery (Suap) adalah praktek yang menawarkan uang profesional atau bantuan lain untuk menghindari etika dalam berbagai profesi.
• Worm : sebuah program computer atau mereplikasi diri virus yang tidak mengubah file tapi tinggal di memori aktif dan duplikasi itu sendiri.

heart beat, clock ticking start to close the stage

declare

vid memiliki.id_laptop%type;

vstock memiliki.stock%type;

vid_jen memiliki.id_jenis%type;

voutput varchar2(10);

vtgl date := sysdate;

cursor curmemiliki is select id_laptop, stock,id_jenis from memiliki;

begin

open curmemiliki;

fetch curmemiliki into vid,vstock,vid_jen;

dbms_output.put_line(' ----------------------------------------------------------------- ');

dbms_output.put_line(' Laporan Data Stok Laptop ');

dbms_output.put_line(' per tanggal '||sysdate);

dbms_output.put_line(' -----------------------------------------------------------------');

dbms_output.put_line(' id_laptop stock id_jenis keterangan');

dbms_output.put_line(' _________________________________________________________________ ');

while curmemiliki%found loop

if vstock>5 then

voutput:= 'banyak';

elsif vstock>2 then

voutput:= 'cukup';

else

voutput:= 'kurang';

end if;

dbms_output.put_line(' '||vid||' '||vstock||' '||vid_jen||' '||voutput);

fetch curmemiliki into vid, vstock, vid_jen;

end loop;

dbms_output.put_line(' -----------------------------------------------------------------');

close curmemiliki;

end;

/

create or replace procedure transaksi_member

is

vid_laptop memesan.id_laptop%type;

vbanyaknya memesan.banyaknya%type;

vharga memesan.harga%type;

v_member memesan.id_member%type;

vtgl date :=sysdate;

cursor curtrans is Select Id_member,id_laptop,banyaknya,harga from memesan;

begin

open curtrans;

fetch curtrans into v_member,vid_laptop,vbanyaknya,vharga;

dbms_output.put_line(' -----------------------------------------------');

dbms_output.put_line(' Data Pemesanan Member New Store');

dbms_output.put_line(' Sampai Tanggal '||vtgl);

dbms_output.put_line(' -----------------------------------------------');

dbms_output.put_line(' id_laptop'||' '||'id_member'||' '||'banyaknya'||' '||' harga');

dbms_output.put_line(' -----------------------------------------------');

while curtrans%found loop

dbms_output.put_line(' '||vid_laptop||' ' ||v_member||' '|| vbanyaknya||' ' || vharga);

fetch curtrans into v_member, vid_laptop,vbanyaknya,vharga;

end loop;

dbms_output.put_line(' ------------------------------------------------');

close curtrans;

end;

“ I’m the girl who won’t show when things make me upset. When you flirt with other girls and I get teary, I’ll blame it on the wind. When you ignore me in the hallways, I’ll move on like it’s nothing. But boy, you have no idea how much pain you are causing me “