Trigger

Maaf baru bisa upload..
saya baru saja dapat bahan yg bisa kita sharing rame2
karena pada bahan pak alwis kmaren, trigger ga tlalu di bahas dalem..

Spoiler:

langsung aj ya..

mungkin tman2 banyak yg bingung bca soalnya
masalah pembuatan database yg tanggalmnya otomatis, anu nya otomatis, itunya otomatis, dll yg otomatis.
pada bingung kan??
itu smua make jurus yg namanya "TRIGGER"

>_<

Trigger merupakan kode PL/SQL yang secara otomatis dijalankan oleh DBMS jika suatu event database terjadi
event tersebut dapat berupa operasi INSERT, UPDATE, DELETE

biar lebih jelas..
ane kasih slide nya pak safaat aj ye..
download disini --> Pencet Ane gan

pak safaat bikin pake oracle..
atau kalo agan2 smua pada make SQL server
ne ane punya link nya buat referensi --> Pencet lagi doonk..

itu cuma buat referensi aja gan..
ntar segera saya UPDATE pembahasan tentang tugas UTS dan UAS nya
ntar malem atau besok ya
sekarang ane mau siap2 nungguin BIG MATCH JERMAN vs INGGRIS
go go Jerman
Deutschland..Deutschland Ueber Allez
hoho..

langsung aja... ini yang tentang obat2...

UPDATED... ERROR FIXED
==============================

Code:

create database dataObat

==============================

Code:

create table obat
(
kode_obat varchar(10) primary key,
kategory varchar(20),
tgl_beli datetime,
harga money,
stock int,
tgl_kadaluarsa datetime
)

==============================

Code:

create trigger kategory
on obat
for insert
as
declare
@ko char(1),
@ko1 varchar(10),
@b varchar(10),
@tk datetime,
@tb datetime

select @ko=left(kode_obat,1),@ko1=kode_obat from inserted

if (@ko='A')
   begin
   set @b='Alhexsa'   
   set @tk=DateAdd(day,10,getdate())
   end
else
   if (@ko='B')
      begin
      set @b='Bosinglat'
      set @tk=DateAdd(day,10,getdate())
      end
   else
      if (@ko='F')
         begin
         set @b='Falmehriat'
         set @tk=DateAdd(day,10,getdate())
         end
      else
         if (@ko='S')
            begin
            set @b='Sulfat'
            set @tk=DateAdd(day,10,getdate())
            end
update obat set kategory=@b,tgl_beli=getdate(),tgl_kadaluarsa=@tk where kode_obat=@ko1

============================

Code:

insert into obat(kode_obat,harga,stock) values ('A0345','56900','344')

============================

coba di run di SQL ya gan.. ane ga punya SQL.. klo eror report kemari... biar di perbaiki... semangat

ijin coba gan..

ntar klo ga bisa sama2 ja ngerjainnya bsok gan

Ini lagi gan.....

Code:

CREATE DATABASE penduduk_10851001718
ON PRIMARY (
NAME=penduduk_dat,
FILENAME="d:\program\penduduk_dat.mdf",
SIZE=2 MB,
MAXSIZE = 2 MB,
FILEGROWTH = 1 MB)
LOG ON (
NAME=penduduk_log,
FILENAME ="d:\program\penduduk_log.ldf",
SIZE = 1 MB,
MAXSIZE = 2 MB,
FILEGROWTH = 1 MB)

=========================================

Code:

create table tbpenduduk(
no int not null identity (1,1),
ktp char(11),
nama varchar(20),
tgl_lahir datetime,
tgl as datename(dd,tgl_lahir),
hari_lahir as datename (dw,tgl_lahir),
bulan as datepart (mm,tgl_lahir),
bulan_lahir as datename (mm,tgl_lahir),
tahun as datename (yyyy,tgl_lahir),
umur as datediff (yy,tgl_lahir,getdate()),
primary key (ktp))

===========================================

Code:

create table tbmuda (
ktp char(11),
tgl_lahir datetime,
primary key (ktp))

======================================

Code:

create table tbtua (
ktp char(11),
tgl_lahir datetime,
primary key (ktp))

=========================================

Code:

insert into tbpenduduk values ('10851001764','AbcD','3/11/1967')
insert into tbpenduduk values ('10851001750','NrA','11/14/1990')
insert into tbpenduduk values ('10851001716','Acong','11/17/1954')
insert into tbpenduduk values ('10851001718','ArH','05/18/1990')
insert into tbpenduduk values ('10851001767','Huda','3/16/1990')

========================================

Code:

create trigger tambah
on tbpenduduk
for insert
as
declare
@Nktp char(11),
@tgl datetime,
@umur int

select @Nktp = ktp, @tgl = tgl_lahir from inserted

if datediff (yy,@tgl,'12/12/2010') >= 27
insert into tbtua values (@nktp,@tgl)
else
insert into tbmuda values (@nktp, @tgl)

=============================================

Code:

create trigger hapus
on tbpenduduk
for delete
as
declare
@Nktp char(11)

select @Nktp = ktp from deleted

if @nktp in (select ktp from tbmuda)
begin
rollback
print 'data tidak dapat dihapus'
print 'Karena termasuk dalam kategori muda'
end

else
print 'Data telah dihapus'

===================================================

Code:

create procedure tampil
as
declare
@jpen int, @jmuda int,
@jtua int, @jpr float, @jpt float

select @jpen=count (ktp) from tbpenduduk
select @jmuda = count (ktp) from tbmuda
select @jtua = count (ktp) from tbtua

set @jpr = (@jmuda*100)/@jpen
set @jpt = (@jtua*100)/@jpen
print 'DATA JUMLAH PENDUDUK'
print 'Jumlah Penduduk : '+str(@jpen,2) + ' orang'
print 'Jumlah Penduduk muda : '+str(@jmuda,2)+' orang (' +str(@jpr,2,2)+'%)'
print 'Jumlah Penduduk tua : '+str(@jtua,2)+' orang (' +str(@jpt,2,2)+'%)'

==========================================

Code:

exec tampil

==================================

di yah

tha tanggal kadaluarsanya ga mau.. null gtu

ada solusi?

klo yg penduduk

DATA JUMLAH PENDUDUK
Jumlah Penduduk : 10 orang
Jumlah Penduduk muda : 0 orang ( 0%)
Jumlah Penduduk tua : 0 orang ( 0%)

knpa nol tu yg muda ma yg tua?? ada solusi??

makasih semuanya....

coba di cek variabelnya kawan..

mungkin ada yang salah..

iya gan..
kadaluarsanya NULL

: thanks gan...
gara gara ini nh tugas ane kelar ,,, ckckc

Spoiler:

keleerr maksudnya,,, ckckc

:o
maksaa tuh photonya.. di spoiler aja. yah kawan..