LA PLSQL II

Pada table ini memiliki beberapa field diantaranya id dengan tipe data number dan sebagai primary key, namabarang sebagai tipe data varchar yang memiliki panjang karakter 25, hargabarang dan stok dengan tipe data number

Pada sintaks diatas maksudnya untuk memasukan 3 buh record kedalam table jual.

Merupakan sintaks yang sama pada table pertama yaitu untuk membuat table dengan field dan tipe data yang diinginkan.

&jumlahbeli akan meminta inputkan kedalam variabel jumlahbeli seperti pada output di bawah ini :

Setelah itu statement pada begin dijalankan, pada begin akan mengselect namabarang,hargabarang,stok kedalam variabel masing-masing dari table jual yang diatas telah dibuat yang memiliki id=t_id. Pada program ini t_id adalah bernilai 2 jadi yang di select dari table jual adalah yang memiliki id adalah 2. Setelah itu ada kondisi jika stok yang dimiliki id 2 adalah <5 maka akan memasukan id kedalam variabel id2 yang memiliki id=t_id. Kemudian ada kondisi berikutnya jika t_id=id2 maka akan mengupdate. Jika program baru pertama kali dijalankan pada table beli belum memiliki record maka kondisi ini akan salah dan akan menjalankan exception yaitu memasukan t_id namabarang dan jumlahbeli

Source Querry :

create table jualan (id number(10) primary key, namabarang varchar2(25),
hargabarang number (10), stok number (10));

insert into jualan values (1,'TV',800000,8);
insert into jualan values (2,'HP',700000,7);
insert into jualan values (3,'PC',600000,6);
insert into jualan values (4,'KEYBOARD',500000,5);
insert into jualan values (5,'SPEAKER',400000,4);

create table belian (id number(10) primary key, namabarang varchar2 (25),
jumlahbeli(10));

insert into belian values (1,'TV',6);
insert into belian values (2,'HP',5);
insert into belian values (3,'PC',4);
insert into belian values (4,'KEYBOARD',3);
insert into belian values (5,'SPEAKER',2);


set serveroutput on
declare
jumlahbeli number:=&jumlahbeli;
stok number;
t_id number :=2;
namabarang varchar2(25);
hargabarang number;
id2 number;
begin
select namabarang, hargabarang,stok into namabarang, hargabarang,
stok from jualan where id= t_id;
if stok < 5 then
select id into id2 from belian where id = t_id;
if t_id = id2 then
update belian set jumlahbeli=jumlahbeli;
end if;
end if;
exception
when no_data_found then
insert into belian values(t_id, namabarang,jumlahbeli);
end;