akevintg

SQLearning(UTS)

Apr 23rd, 2015
539
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SQL 1.21 KB | None | 0 0
  1. --SQLearning(UTS) Kasus
  2. --LINK SOAL Hal1 :https://www.dropbox.com/s/1xxvx7pf0qxg51b/Kuis1.pdf?dl=0
  3. --Link SOAL Hal2 :https://www.dropbox.com/s/tktwb19ejayze7f/Kuis2.pdf?dl=0
  4.  
  5. CREATE
  6. DATABASE UTS
  7. GO
  8. USE UTS
  9.  
  10. --Kasus
  11. --Buat Tabel
  12.  
  13. CREATE TABLE MsCustomer (
  14.     KdCUstomer CHAR(5) PRIMARY KEY NOT NULL,
  15.     NamaCustomer VARCHAR(30),
  16.     AlamatCustomer CHAR(50),
  17.     CONSTRAINT cekKd CHECK(
  18.         KdCustomer LIKE 'CU[0-9][0-9][0-9]'
  19.     )
  20. )
  21.  
  22. CREATE TABLE TransPenjualan(
  23.     KdTrans CHAR(5) PRIMARY KEY NOT NULL,
  24.     KdBuku CHAR(5) NOT NULL,
  25.     NIK CHAR(5) NOT NULL,
  26.     KdCustomer CHAR(5),
  27.     TglTrans DATE,
  28.     Qty INTEGER,
  29.     CONSTRAINT cekKdTrans CHECK(
  30.     LEN(KdTrans)=5
  31.     ),
  32.     CONSTRAINT cekFK FOREIGN KEY (KdCustomer) REFERENCES MsCustomer(KdCustomer)
  33. )
  34.  
  35. -- Hapus Tabel MsCustomer
  36.  
  37. ALTER TABLE TransPenjualan
  38. DROP CONSTRAINT cekFK
  39.  
  40. DROP TABLE MsCustomer
  41.  
  42. --buat view
  43. CREATE VIEW TrJual AS(
  44.     SELECT *
  45.     FROM TransPenjualan
  46.     WHERE MONTH(TglTrans) BETWEEN 1 AND 8
  47. )
  48.  
  49. SELECT *
  50. FROM TrJual
  51.  
  52. -- tampilkan kode buku, kode penerbit, judul, harga >300000
  53.  
  54. SELECT KdBuku,KdPenerbit,Judul, Harga
  55. FROM MsBuku
  56. WHERE HARGA>300000
  57.  
  58. --berikan ijin yudi select insert ke tabel pejualan
  59. GRANT SELECT,INSERT ON TransPenjualan TO Yudi
Add Comment
Please, Sign In to add comment