UAS Pemrograman Basis Data

Berikut ini adalah penyelesaian UAS mata kuliah Pemrograman Basis Data Universitas Mercu Buana semester 1 TA 2008/2009.

Berikut ini adalah ERD basis data UJIAN_MENTENG. Dalam ERD basis data tersebut terdapat tiga tabel, yaitu tabel Barang, Pelanggan, dan Penjualan. Tabel Barang dan Pelanggan merupakan tabel master, sementara tabel Penjualan merupakan tabel transaksi yang menyimpan kode Pelanggan, kode Barang, dan data transaksi lainnya saat terjadi transaksi penjualan.
Berikut ini merupakan perintah-perintah SQL yang digunakan untuk membuat tabel, meng-alter tabel, menambah, mengedit, dan menampilkan data tabel.

Script untuk membuat basis data UJIAN_MENTENG, membuat tabel Barang, Pelanggan, dan Penjualan di basis data UJIAN_MENTENG.
create database UJIAN_MENTENG

use UJIAN_MENTENG

Create Table BARANG
(
KdBrg varchar(6) Primary Key,
NmBrg varchar(50),
HrgBrg decimal,
Satuan varchar(20),
Jumlah decimal(2)
)
GO

Create Table PELANGGAN(
KdPelanggan varchar(6) Primary Key,
NmPelanggan varchar(50),
AlmtPelanggan varchar(100),
TelpPelanggan varchar(15),
KotaPelanggan varchar(30)
)
GO
create Table PENJUALAN
(
NoTransaksi varchar(6) Primary Key,
TglTransaksi Datetime,
KdPelanggan varchar(6) FOREIGN KEY REFERENCES PELANGGAN (KdPelanggan),
KdBrg varchar(6) FOREIGN KEY REFERENCES BARANG(KdBrg),
JmlBrgJual decimal,
StatusBayar varchar(10)
)
Script untuk memasukkan atau meng-insert data ke dalam tabel Barang, Pelanggan, dan Penjualan

INSERT INTO BARANG VALUES(‘B001′,’Beras Pulen’,5000,’Liter’,24)
INSERT INTO BARANG VALUES(‘B002′,’Beras Rojolele’,6000,’Liter’,36)
INSERT INTO BARANG VALUES(‘IN001′,’Indomie’,1000,’Bungkus’,24)
INSERT INTO BARANG VALUES(‘IN002′,’Mie Sedap’,1100,’Bungkus’,24)
INSERT INTO BARANG VALUES(‘M001′,’Mingor Bimoli’,12000,’Kg’,24)
INSERT INTO BARANG VALUES(‘M002′,’Mingor Filma’,13000,’Kg’,24)
INSERT INTO BARANG VALUES(‘M003′,’Mingor Madina’,11000,’Kg’,24)INSERT INTO PELANGGAN VALUES(‘PL0001′,’Alfiatih’,'Jl. Kintamani B2/8′,’0214701526′,’Jakarta’)
INSERT INTO PELANGGAN VALUES(‘PL0002′,’Azwa’,'Jl. Kuta A2/8′,’02153123624′,’Tangerang’)
INSERT INTO PELANGGAN VALUES(‘PL0003′,’Aqilla’,'Jl. Cipondoh D5/4′,’02155750003′,’Tangerang’)
INSERT INTO PELANGGAN VALUES(‘PL0004′,’Hafizh’,'Jl. Cimone III’,’0215575212343′,’Serang’)
INSERT INTO PELANGGAN VALUES(‘PL0005′,’Fauzan’,'Jl. Kebon Nanas’,’02155689753′,’Bekasi’)INSERT INTO PENJUALAN VALUES(‘NT001′,’2008-11-02′,’PL0001′,’B002′,10,’Tunai’)
INSERT INTO PENJUALAN VALUES(‘NT002′,’2008-09-10′,’PL0001′,’B002′,12,’Tunai’)
INSERT INTO PENJUALAN VALUES(‘NT003′,’2008-05-05′,’PL0002′,’M001′,12,’Cicil’)
INSERT INTO PENJUALAN VALUES(‘NT004′,’2007-12-06′,’PL0003′,’M001′,18,’Tunai’)
INSERT INTO PENJUALAN VALUES(‘NT005′,’2008-07-03′,’PL0003′,’M002′,10,’Tunai’)
INSERT INTO PENJUALAN VALUES(‘NT006′,’2008-07-03′,’PL0003′,’IN002′,12,’Tunai’)
INSERT INTO PENJUALAN VALUES(‘NT007′,’2008-04-12′,’PL0005′,’IN001′,12,’Cicil’)
INSERT INTO PENJUALAN VALUES(‘NT008′,’2007-12-12′,’PL0005′,’IN002′,12,’Tunai’)
Script untuk melakukan alter tabel Pelanggan untuk menambahkan kolom Provinsi dan meng-update Provinsi berdasarkan Kota

ALTER TABLE PELANGGAN
ADD Provinsi Varchar(30) default ”
GO
UPDATE PELANGGAN SET Provinsi = ‘Banten’ WHERE KotaPelanggan = ‘Tangerang’ or KotaPelanggan = ‘Serang’
GO
UPDATE PELANGGAN SET Provinsi = ‘DKI Jakarta’ WHERE KotaPelanggan = ‘Jakarta’
GO
UPDATE PELANGGAN SET Provinsi = ‘Jawa Barat’WHERE KotaPelanggan = ‘Bekasi’
GO
Script untuk menampilkan data KdBrng, NmBrg, HrgBrg, JmlBrgJual, dan TglTransaksi dari tabel barang yang di-join dengan tabel Penjualan
SELECT Brg.KdBrg,Brg.NmBrg,
Brg.HrgBrg,Pnj.JmlBrgJual,
Pnj.TglTransaksi,
isnull(Brg.HrgBrg * Pnj.JmlBrgJual,0) as TotalHrg
From
BARANG Brg JOIN PENJUALAN Pnj
ON Brg.KdBrg = Pnj.KdBrg
GO
Script untuk menambah kolom HrgBrgBaru di dalam tabel Barang dan meng-update nilainya menjadi (Harga lama + 25% Harga Lama)
ALTER TABLE BARANG
ADD HrgBrgBaru decimal default 0
GOUPDATE BARANG SET HrgBrgBaru = HrgBrg + (0.25 * HrgBrg)
GO
Script untuk menampilkan data NmPelanggan, Provinsi, TglTransaksi, NmBrg, dan HrgBrgBaru, yang tujuannya untuk melihat harga baru dari setiap barang yang akan dijual ke pelanggan

SELECT
PELANGGAN.NmPelanggan,
PELANGGAN.Provinsi,
PENJUALAN.TglTransaksi,
BARANG.NmBrg,
BARANG.HrgBrgBaru
FROM PENJUALAN JOIN PELANGGAN
ON PELANGGAN.KdPelanggan = PENJUALAN.KdPelanggan
JOIN BARANG ON PENJUALAN.KdBrg = BARANG.KdBrg
ORDER BY PELANGGAN.NmPelanggan
GO
Script untuk menampilkan data pelanggan yang terdiri dari NmPelanggan, AlmtPelanggan, TelpPelanggan, dan Provinsi dimana nama pelanggan dimulai dengan huruf ‘A’

SELECT
PELANGGAN.NmPelanggan,
PELANGGAN.AlamtPelanggan,
PELANGGAN.TelpPelanggan,
PELANGGAN.Provinsi
FROM PELANGGAN
WHERE
PELANGGAN.NmPelanggan LIKE ‘A%’
AND PELANGGAN.Provinsi = ‘Banten’
GO
Script untuk menampilkan data status pembayaran pelanggan yang telah melakukan transaksi pembelian pada tabel penjualan. Data yang ditampilkan adalah NmPelanggan, NoTransaksi, dan StatusBayar

SELECT
PELANGGAN.NmPelanggan,
PENJUALAN.NoTransaksi,
PENJUALAN.StatusBayar
FROM PENJUALAN JOIN PELANGGAN
ON PELANGGAN.KdPelanggan = PENJUALAN.KdPelanggan
GO
Script untuk menampilkan semua status pembayaran pelanggan yang sifatnya Cicil (Tidak Tunai)
SELECT
PELANGGAN.NmPelanggan,
PENJUALAN.StatusBayar
FROM PENJUALAN JOIN PELANGGAN
ON PELANGGAN.KdPelanggan = PENJUALAN.KdPelanggan
WHERE PENJUALAN.StatusBayar = ‘Cicil’
GO
Script untuk menampilkan data pelanggan yang melakukan transaksi pada tanggal 03-07-2008

SELECT
PELANGGAN.KdPelanggan,
PELANGGAN.NmPelanggan,
PENJUALAN.TglTransaksi
FROM PENJUALAN JOIN PELANGGAN
ON PELANGGAN.KdPelanggan = PENJUALAN.KdPelanggan
WHERE PENJUALAN.TglTransaksi = ’2008-07-03′
GO