Praktikum Pemrograman Basis Data (Pertemuan 2)

Bagi sobat duniaku yang kuliah di Stikom Prak. PBD ini adalah mata kuliah di semester 3. monggo di pelajari source code jawaban pertemuan 2 :

begin
declare
@nim char(11), @kode_mk char(6), @nid char(6), @hasil_akhir int, @uas int, @uts int, @tugas int, @nh char(1), @nama varchar(20), @nama_mk varchar(20), @nama_dosen varchar(20)
set @nim = '05410104001'
set @kode_mk='MK-002'
set @nid = '010306'
set @nama = (select nama from mahasiswa where nim=@nim)
set @nama_mk=(select nama from mk where kode_mk=@kode_mk)
set @nama_dosen=(select nama from dosen where nid=@nid)
set @uas = (select uas from nilai where nim=@nim and nid=@nid)
set @uts = (select uts from nilai where nim=@nim and nid=@nid)
set @tugas = (select tugas from nilai where nim=@nim and nid=@nid)
set @hasil_akhir = @uas*0.3+@uts*0.3+@tugas*0.4

if @hasil_akhir <= 44
begin
set @nh='E'
end
else if @hasil_akhir <=54
begin
set @nh='D'
end
else if @hasil_akhir <=59
begin
set @nh='C'
end
else if @hasil_akhir <=64
begin
set @nh='C+'
end
else if @hasil_akhir <=74
begin
set @nh='B'
end
else if @hasil_akhir <=79
begin
set @nh='B+'
end
else
begin
set @nh='A'
end

print 'Mata Kuliah    :'+@nama_mk
print 'Dosen        :'+@nama_dosen
print 'Mahasiswa    :'+@nama
print 'Nilai Akhir    :'+convert(varchar(2),@hasil_akhir)
print 'Grade        :'+@nh
end

------------------------------------------------------------

begin
declare
@counter int, @nid varchar(10), @nama varchar(10)

set @counter = 1
while @counter<=5
begin
    set @nid = convert(varchar(10),(convert(varchar(2),right (year(getdate()),2))+ right('00' + convert (varchar,month(getdate())),2)+ right('00' + convert (varchar,@counter),2)))
    set @nama = 'dosen' + right('00' + convert (varchar,@counter),2)
insert into dosen values(@nid, @nama)
print 'Telah diinsertkan data dosen dengan Nid : '+ @nid +' dan nama : '+@nama
set @counter=@counter+1
end
end


SEMOGA BERMANFAAT