praktikum SBD LANJUT SQL 6 BUAT PROCEDURE

on


SQL 6
PROCEDURE
A.BUAT  PROCEDURE
1. DATAPEGAWAI;
create procedure datapegawaiku
as
begin
select *from tb_pegawai
end
go
menampilkan

datapegawaiku;

1.a.  cari pegawai
create procedure caripegawaiku
@nip nchar(50)
as
begin
select *from tb_pegawai
where nip='@nip';
end
go
menampilkan
caripegawaiku;
1.b. input pegawai baru
menambahkan input data pegawai
create procedure inputdatapegawai                                                                                                                                                                                                                                                                                                                      
@nip nchar(20),
@nama nchar(50),
@sex nchar(1)

AS
BEGIN
DECLARE @error int

INSERT INTO tb_pegawai(nip,nama,sex)
VALUES (@nip,@nama,@sex)

SET @error=@@error
IF @error=0

PRINT '1 record ditambahkan'
ELSE
BEGIN
IF @error=547
 PRINT 'nilai parameter kosong.perbaiki dan ulang proses'
 ELSE
 PRINT 'KESALAHAN TIDAK TERDETEKSI'
END
END
GO

Menampilkan

inputdatapegawai '132310741','Budiman','L'
1.c. mengubah dan mengedit data tabel pegawai
1.c.1 update data pegawai “nip”
create procedure updatedatapegawai
@nip nchar(20),
@nama nchar(50),
@sex nchar(1)

AS
BEGIN
DECLARE @error int

UPDATE tb_pegawai set nip=@nip
where nip=@nip

SET @error=@@error
IF @error=0

PRINT '1 record ditambahkan'
ELSE
BEGIN
IF @error=547
 PRINT 'nilai parameter kosong.perbaiki dan ulang proses'
 ELSE
 PRINT 'KESALAHAN TIDAK TERDETEKSI'
END
END
GO

1.d menghapus data pegawai
Menghapus data nip tabel pegawai
create procedure deletedatapegawai
@nip nchar(20),
@nama nchar(50),
@sex nchar(1)

AS
BEGIN
DECLARE @error int

delete from tb_pegawai
where nip=@nip

SET @error=@@error
IF @error=0

PRINT '1 record ditambahkan'
ELSE
BEGIN
IF @error=547
 PRINT 'nilai parameter kosong.perbaiki dan ulang proses'
 ELSE
 PRINT 'KESALAHAN TIDAK TERDETEKSI'
END
END
GO
2.CARI DATA DEPARTEMEN
create procedure datadepartemenku
as
begin
select *from tb_departemen
end
go
menampilkan
datadepartemenku;
2.a. menambahkan data departemen
create procedure inputdatadepartemen
@kd_departemen nvarchar(2),
@nm_departemen nvarchar(50)

as
begin
declare @error int

insert into tb_departemen(kd_departemen,nm_departemen)
values (@kd_departemen,@nm_departemen)
set @error=@@ERROR
if @error=0

print 'satu record di tambahkan'
else
begin
if @error=56
print 'nilai parameter kosong.perbaiki dan ulangi proses'
else
print 'kesalahan tidak terdeteksi'
end
end
go
menampilkan
inputdatadepartemen '04','KEPEGAWAIAN DAN UMUM'
2.b. update data tabel departemen
Update kd_depatemen  table departemen
create procedure updatedatadepartemen
@kd_departemen nvarchar(2),
@nm_departemen nvarchar(50)

AS
BEGIN
DECLARE @error int

UPDATE tb_departemen set kd_departemen=@kd_departemen
where kd_departemen=@kd_departemen

SET @error=@@error
IF @error=0

PRINT '1 record ditambahkan'
ELSE
BEGIN
IF @error=547
 PRINT 'nilai parameter kosong.perbaiki dan ulang proses'
 ELSE
 PRINT 'KESALAHAN TIDAK TERDETEKSI'
END
END
GO
2.c. menghapus data table departemen
Delete data kode departemen
create procedure deletedatadepartemen
@kd_departemen nvarchar(2),
@nm_departemen nvarchar(50)

AS
BEGIN
DECLARE @error int

delete from tb_departemen
where kd_departemen=@kd_departemen

SET @error=@@error
IF @error=0

PRINT '1 record ditambahkan'
ELSE
BEGIN
IF @error=547
 PRINT 'nilai parameter kosong.perbaiki dan ulang proses'
 ELSE
 PRINT 'KESALAHAN TIDAK TERDETEKSI'
END
END
GO
2.CARI DATA golongan
create procedure datagolonganku
as
begin
select *from tb_golongan
end
go
menampilkan
datagolonganku;

3.a. menambah data golongan
create procedure inputdatagolongan
@kd_golongan nvarchar(2),
@nm_golongan nvarchar(50),
@gapok            int

as
begin
declare @error int

insert into tb_golongan(kd_golongan,nm_golongan,gapok)
values (@kd_golongan,@nm_golongan,@gapok)

set @error=@@ERROR
if @error=0

print 'satu record di tambahkan'
else
begin
if @error=56
print 'nilai parameter kosong.perbaiki dan ulangi proses'
else
print 'kesalahan tidak terdeteksi'
end
end
go
menampilkan/memanggil
inputdatagolongan '04','III/B','910000'
3.b mengubah dan mengedit data golongan
Update data kode golongan tabel golongan
create procedure updatedatagolongan
@kd_golongan nvarchar(2),
@nm_golongan nvarchar(50),
@gapok int

AS
BEGIN
DECLARE @error int

UPDATE tb_golongan set kd_golongan=@kd_golongan
where kd_golongan=@kd_golongan

SET @error=@@error
IF @error=0

PRINT '1 record ditambahkan'
ELSE
BEGIN
IF @error=547
 PRINT 'nilai parameter kosong.perbaiki dan ulang proses'
 ELSE
 PRINT 'KESALAHAN TIDAK TERDETEKSI'
END
END
GO

3.c. menghapus data golongan
menghapus data kode golongan tabel golongan
create procedure deletedatagolongan
@kd_golongan nvarchar(2),
@nm_golongan nvarchar(50),
@gapok int

AS
BEGIN
DECLARE @error int

delete from tb_golongan
where kd_golongan=@kd_golongan

SET @error=@@error
IF @error=0

PRINT '1 record ditambahkan'
ELSE
BEGIN
IF @error=547
 PRINT 'nilai parameter kosong.perbaiki dan ulang proses'
 ELSE
 PRINT 'KESALAHAN TIDAK TERDETEKSI'
END
END
GO





Comments

Post a Comment