Pertemuan 7

­­DECLARE

       VNAMA VARCHAR(100);

BEGIN

     SELECT first_name INTO VNAMA

     FROM employees

     WHERE employee_id=100;

END;

 

SET SERVEROUTPUT ON

DECLARE

       VNAMA VARCHAR(100);

BEGIN

     SELECT first_name INTO VNAMA

     FROM employees

     WHERE employee_id=100;

     DBMS_OUTPUT.PUT_LINE('Nama pegawai tersebut adalah : '||VNAMA);

END;

SET SERVEROUTPUT ON

DECLARE

       VNAMA VARCHAR(100);

       VPHONE VARCHAR(20);

       VTANGGAL DATE;

       VJOB VARCHAR(10);

       VSALARY NUMBER;

BEGIN

     SELECT FIRST_NAME, PHONE_NUMBER, HIRE_DATE, JOB_ID, SALARY

     INTO VNAMA, VPHONE, VTANGGAL, VJOB, VSALARY

     FROM employees

     WHERE employee_id=100;

     DBMS_OUTPUT.PUT_LINE('Data Seorang Karyawan');

     DBMS_OUTPUT.PUT_LINE('===============================');

     DBMS_OUTPUT.PUT_LINE('Nama saya : '||VNAMA);

     DBMS_OUTPUT.PUT_LINE('Nomor Telp. : '||VPHONE);

     DBMS_OUTPUT.PUT_LINE('Tanggal bekerja : '||VTANGGAL);

     DBMS_OUTPUT.PUT_LINE('Pekerjaan : '||VJOB);

     DBMS_OUTPUT.PUT_LINE('Gaji : '||VSALARY);

     DBMS_OUTPUT.PUT_LINE('===============================');

END;

INSERT INTO PEMILIK612(KD_PEMILIK, NAMA, ALAMAT)

VALUES (00001, 'Bayu Herga', 'Jakarta');

CREATE TABLE KENDARAAN612

(NOPOL varchar2(10) not null primary key,

TYPE varchar2(30),

MODEL varchar2(30),

WARNA varchar2(20),

BHN_BAKAR varchar2(35),

KD_PEMILIK varchar2(5));

SET SERVEROUTPUT ON

DECLARE

       VKODE VARCHAR(100);

       VNAMA VARCHAR(30);

       VALAMAT VARCHAR(50);

BEGIN

     SELECT KD_PEMILIK, NAMA, ALAMAT

     INTO VKODE, VNAMA, VALAMAT

     FROM PEMILIK612

     WHERE KD_PEMILIK=00001;

     DBMS_OUTPUT.PUT_LINE('Data Pemilik');

     DBMS_OUTPUT.PUT_LINE('===============================');

     DBMS_OUTPUT.PUT_LINE('Kode Pemilik : '||VKODE);

     DBMS_OUTPUT.PUT_LINE('Nama Pemilik : '||VNAMA);

     DBMS_OUTPUT.PUT_LINE('Alamat : '||VALAMAT);

     DBMS_OUTPUT.PUT_LINE('===============================');

END;

INSERT INTO KENDARAAN612(NOPOL, TYPE, MODEL, WARNA, BHN_BAKAR, KD_PEMILIK)

VALUES ('B 7418 VDK', 'City', 'Sedan', 'Merah', ' Bensin', '00002');

SET SERVEROUTPUT ON

DECLARE

       VKODE VARCHAR(100);

       VNAMA VARCHAR(30);

       VALAMAT VARCHAR(50);

       VNOPOL VARCHAR(15);

       VTYPE VARCHAR(10);

       VMODEL VARCHAR(15);

     

BEGIN

     SELECT KD_PEMILIK, NAMA, ALAMAT, VNOPOL, VTYPE, VMODEL

     INTO VKODE, VNAMA, VALAMAT, VNOPOL, VTYPE, VMODEL

     FROM PEMILIK612, KENDARAAN612

     WHERE KD_PEMILIK=00001;

     DBMS_OUTPUT.PUT_LINE('Data Pemilik dan Kendaraannya');

     DBMS_OUTPUT.PUT_LINE('===============================');

     DBMS_OUTPUT.PUT_LINE('Kode Pemilik : '||VKODE);

     DBMS_OUTPUT.PUT_LINE('Nama Pemilik : '||VNAMA);

     DBMS_OUTPUT.PUT_LINE('Alamat : '||VALAMAT);

     DBMS_OUTPUT.PUT_LINE('Nomor Polisi : '||VNOPOL);

     DBMS_OUTPUT.PUT_LINE('Nama Type : '||VTYPE);

     DBMS_OUTPUT.PUT_LINE('Model : '||VMODEL);

     DBMS_OUTPUT.PUT_LINE('===============================');

END;

Latihan

SET SERVEROUTPUT ON

DECLARE

       VKODE VARCHAR(100);

       VNAMA VARCHAR(30);

       VALAMAT VARCHAR(50);

       VNOPOL VARCHAR(15);

       VTYPE VARCHAR(10);

       VMODEL VARCHAR(15);

     

BEGIN

     SELECT PEMILIK612.KD_PEMILIK, PEMILIK612.NAMA, PEMILIK612.ALAMAT, KENDARAAN612.NOPOL, KENDARAAN612.TYPE, KENDARAAN612.MODEL

     INTO VKODE, VNAMA, VALAMAT, VNOPOL, VTYPE, VMODEL

     FROM PEMILIK612, KENDARAAN612

    WHERE PEMILIK612.KD_PEMILIK = KENDARAAN612.KD_PEMILIK

    AND PEMILIK612.KD_PEMILIK=00002;

     DBMS_OUTPUT.PUT_LINE('Data Pemilik dan Kendaraannya');

     DBMS_OUTPUT.PUT_LINE('===============================');

     DBMS_OUTPUT.PUT_LINE('Kode Pemilik : '||VKODE);

     DBMS_OUTPUT.PUT_LINE('Nama Pemilik : '||VNAMA);

     DBMS_OUTPUT.PUT_LINE('Alamat : '||VALAMAT);

     DBMS_OUTPUT.PUT_LINE('Nomor Polisi : '||VNOPOL);

     DBMS_OUTPUT.PUT_LINE('Nama Type : '||VTYPE);

     DBMS_OUTPUT.PUT_LINE('Model : '||VMODEL);

     DBMS_OUTPUT.PUT_LINE('===============================');

END;