Basis Data Terapan - Coding Stored Procedure pada SQL Server

create database ContohProsedur
use ContohProsedur

create table TblPaket(
Kode char(12) primary key,
Paket char(15),
Biaya BigInt
)
insert into TblPaket values('01','Mic. SQL Server', 100000)
insert into TblPaket values('02','Mic. Visual.Net', 250000)
insert into TblPaket values('03','Perc. Web', 375000)

--contoh pembuatan procedure untuk lihat data
--tanpa parameter

create procedure LihatTabel
as
select * from TblPaket

--menjalankan procedure LihatTabel
LihatTabel

--membuat procedure dengan 1 parameter input
create procedure CariTabel @kode varchar(2)
as
select * from TblPaket
where Kode = @kode

--menjalankan procedure
CariTabel'01'

--pembuatan procedure untuk proses tambah record
create procedure TambahData @Kode char(2),
@Paket char(15),@Biaya BigInt
as
insert into TblPaket values(@Kode,@Paket,@Biaya)

--menjalankan procedure TambahData
TambahData '04','WEB Programming',350000
TambahData '05','PBO1',350000
LihatTabel

--Hapus procedure TambahData
drop procedure Tambahdata

/* 1. Buatkan procedure untuk menghapus Record berdasarkan Kode Paket yang diinginkan
   2. Buatkan procedure untuk memperbaiki Record berdasarkan
      Kode 04 dengan Paket Multimedia dan biaya 300000 */
 
create procedure HapusData @Kode char(2)
as delete from TblPaket where Kode=@Kode

--Jalankan procedure HapusData
HapusData '02'
LihatTabel

--------------------------------------------------------------------------------
create procedure PerbaikiData @Kode char(2), @paket char(15), @Biaya bigInt
as update TblPaket set Paket = @paket, Biaya = @Biaya where Kode = @Kode

PerbaikiData '04','Multimedia',350000
LihatTabel
--------------------------------------------------------------------------------
create table TblBagian(
KodeBag char(2) primary key,
bagian char(15)
)

create table tblpegawai (
nip char(5)  primary key,
nama char(25),
jabatan char(15),
gaji int,
KodeBag char(2) references TblBagian(KodeBag)
)


insert into TblBagian values('KU','Keuangan')
insert into TblBagian values('AM','Administ')
insert into TblBagian values('SM','Personalia')

select * from TblBagian

insert into tblpegawai values ('09101','Budi','Direktur',5000000,'KU')
insert into tblpegawai values ('09102','Iwan','Kabag',3000000,'AM')
insert into tblpegawai values ('09103','Dian','Staff',1000000,'KS')
insert into tblpegawai values ('09104','Waty','Staff',1000000,'SM')
select * from tblpegawai

insert into TblBagian values ('KS','Bendahara')