实验5—PLSL语言基础.docVIP

实验5 PL/SQL语言基础 一、实验环境 （1）Oracle 10g、Oracle SQL Developer （2）测试数据 表1 测试数据生成脚本 --增加XJGL用户 CREATE USER XJGL IDENTIFIED BY VALUES C8807D281B0CDE66 DEFAULT TABLESPACE USERS TEMPORARY TABLESPACE TEMP PROFILE DEFAULT ACCOUNT UNLOCK; -- 1 Role for XJGL GRANT DBA TO XJGL; ALTER USER XJGL DEFAULT ROLE NONE; -- 1 System Privilege for XJGL GRANT UNLIMITED TABLESPACE TO XJGL; --建学生表 CREATE TABLE XJGL.T_STUDENT ( STID CHAR(10 BYTE) NOT NULL, NAME VARCHAR2(100 BYTE) NOT NULL, SEX CHAR(2 BYTE) NOT NULL, BIRTHDAY DATE ) TABLESPACE USERS PCTUSED 0 PCTFREE 10 INITRANS 1 MAXTRANS 255 STORAGE ( INITIAL 64K MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 BUFFER_POOL DEFAULT ) LOGGING NOCOMPRESS NOCACHE NOPARALLEL MONITORING; COMMENT ON COLUMN XJGL.T_STUDENT.STID IS 学号; COMMENT ON COLUMN XJGL.T_STUDENT.NAME IS 姓名; CREATE UNIQUE INDEX XJGL.PK_T_STUDENT ON XJGL.T_STUDENT (STID) LOGGING TABLESPACE USERS PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE ( INITIAL 64K MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 BUFFER_POOL DEFAULT ) NOPARALLEL; ALTER TABLE XJGL.T_STUDENT ADD ( CONSTRAINT PK_T_STUDENT PRIMARY KEY (STID) USING INDEX TABLESPACE USERS PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE ( INITIAL 64K MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 )); --建课程表 CREATE TABLE XJGL.T_COURSE ( COURSEID CHAR(10 BYTE) NOT NULL, CHNTITLE VARCHAR2(100 BYTE) NOT NULL, DESCRIPTION VARCHAR2(2000 BYTE), TYPE VARCHAR2(20 BYTE), PROPERTY VARCHAR2(30 BYTE),