Procedure dan Trigger dengan PL/SQL

Kembali lagi dengan materi PL/SQL, kali ini yang di bahas adalah mengenai Procedure dan Trigger pada PL/SQL. Langsung mulai saja ke materinya, kita membutuhkan table stok yang akan dibuat terlebih dahulu dan dilanjutkan pada pembuatan Trigger serta procedure. Berikut adalah tahapannya.

1. Create Table “stok”

2. Description Table “stok”

3. Memasukkan 5 record ke tabel “stok”

INSERT INTO stok VALUES('ACER','A01','9000');

INSERT INTO stok VALUES('ASUS','A02','8000');

INSERT INTO stok VALUES('SONY','A03','11000');

INSERT INTO stok VALUES('HP','A04','8500');

INSERT INTO stok VALUES('LENOVO','A05','8700');

4. Isi data dari tabel “stok”

5. Membuat Trigger yang akan dijalankan setelah memasukkan record baru ke table “stok” dan akan mengeluarkan String “DATA BERHASIL DITAMBAHLAN”.

6. Melakukan test untuk Trigger pada point #5

7. Membuat Procedure untuk menghitung luas dan keliling Lingkaran.

Penjelasan bagian Procedure Lingkaran :

1. Pendeklarasian nama procedure dengan nama “LINGKARAN” beserta 1 parameter dengan nama ”R” dan bertipe data INTEGER. Kemudian dideklarasikan 2 variable local “LUAS” dan “KELILING” dengan tipe FLOAT dan panjang 5.

CREATE OR REPLACE PROCEDURE LINGKARAN(R INTEGER) AS

LUAS FLOAT(5);

KELILING FLOAT(5);

2. Perhitungan Luas segitiga dengan rumus : L=3.14*r*r dan K=2*3.14*r

LUAS:=3.14*R*R;

KELILING:=2*3.14*R;

3. Kemudian akan di cetak kedua nilai tersebut dengan script berikut.

DBMS_OUTPUT.PUT_LINE('Luas = ' || LUAS);

DBMS_OUTPUT.PUT_LINE('Keliling = ' || KELILING);

Selanjutnya kita buat Script untuk menginput nilai jari-jari lingkaran (r), setelah itu memanggil procedure LINGKARAN dengan parameter nilai r hasil input tadi.

OUTPUT PROGRAM