--建表FAMILYINF
CREATE TABLE FAMILYINFO(
FNO NUMBER CONSTRAINT FC001 PRIMARY KEY,--把字段fno约束为主键
FNAME VARCHAR2(20) CONSTRAINT FC002 NOT NULL,--把字段FNAME的约束条件设为“不能为空”
SEX VARCHAR2(20) DEFAULT 'MALE'CONSTRAINT FC003 CHECK(SEX IN('MALE','FEMALE')),--把字段’SEX‘的约束条件设为’性别默认条件下为’MALE‘，如果自己填写只能填写’MALE‘或’FEMALE‘
FAGE NUMBER,
REL VARCHAR2(20),--家庭成员关系字段
HOBITNO NUMBER CONSTRAINT FC004 REFERENCES HOBITINFO(HNO) ON DELETE SET NULL --约束条件设为，表’HOBITINFO‘中字段’HNo‘的外键，删除引用表中字段时，设为空值
);
--建兴趣表HOBITINF
CREATE TABLE HOBITINFO(
HNO NUMBER CONSTRAINT HC001 PRIMARY KEY, --将‘ HNO’设为主键
HNAME VARCHAR2(20) CONSTRAINT HC002 NOT NULL--将‘HNAME’约束条件设为‘不能为空’
);
--删除表HOBITINFO
DROP TABLE HOBITINFO;--删除表结构，永久删除。释放空间。数据不可恢复。
TRUNCATE TABLE FAMILYINFO; ---删除表，无法回滚，空间被收回。但是不删除表结构。
DELETE FROM HOBITINFO WHERE HNO=3;--而DELETE表被删除后，可以回滚恢复数据。
--添加信息
INSERT INTO HOBITINFO VALUES(1,'MOVIE');
INSERT INTO HOBITINFO VALUES(2,'CG');
INSERT INTO HOBITINFO VALUES(3,'TW');
SELECT * FROM HOBITINFO;
SELECT * FROM FAMILYINFO;
DROP TABLE FAMILYINFO;
INSERT INTO FAMILYINFO VALUES(1,'PHL','NAN',27,'FATHER');
INSERT INTO FAMILYINFO VALUES(2,'HYQ','NAN',48,'MATHER');
INSERT INTO FAMILYINFO VALUES(3,'PQ','NAN',27,'BROTHER');
INSERT INTO FAMILYINFO VALUES(4,'PC','NAN',20,'MIN');
--DDL ALTER TABLE (修改表)
ALTER TABLE FAMILYINFO RENAME TO PCFAMILY;--将FAMILYINFO的表名重命名为PCFAMILY
ALTER TABLE PCFAMILY ADD(--添加列即字段及其属性
HEIGH VARCHAR2(5)，
SX VARCHAR2(10) CONSTRAINT PC002 NOT NULL--字段SX创建“不能为空”的约束条件
);
ALTER TABLE PCFAMILY MODIFY(--修改字段的属性
HEIGH CHAR(20)
);
ALTER TABLE PCFAMILY DROP COLUMN HEIGH;--删除字段HEIGH
ALTER TABLE PCFAMILY RENAME COLUMN SX TO SX1;--修改约束字段名
ALTER TABLE PCFAMILY DROP COLUMN SX1;--删除约束字段
--DDL 之 DROP TABLE(删除表)
DROP TABLE HOBITINFO CASCADE CONSTRAINTS;
--DDL 之 TRUNCATE TABLE 清空表记录
TRUNCATE TABLE PCFAMILY;
--DML 之 INSERT(插入，添加记录）
INSERT INTO PCFAMILY(FNO,SEX,FNAME,FAGE) VALUES(4,'NANE','LIU'||'DAYE',45+20);--如果指定插入字段顺序，则values里的信息就要对照前面指定的字段填写
INSERT INTO PCFAMILY VALUES();
--学生表
CREATE TABLE STUDENT(
SNO NUMBER CONSTRAINT SC001 PRIMARY KEY,
SNAME VARCHAR2(10) CONSTRAINT SC002 NOT NULL,
SSEX VARCHAR(10) CONSTRAINT S003 CHECK(SSEX IN ('M','F'))
);
--老师表
CREATE TABLE TEACHER(
TNO NUMBER CONSTRAINT TC001 PRIMARY KEY,
TNAME VARCHAR2(10) CONSTRAINT TC002 NOT NULL
);
--课程表
CREATE TABLE COURSE(
CNO NUMBER CONSTRAINT CC001 PRIMARY KEY,
CNAME VARCHAR2(20) CONSTRAINT CC002 NOT NULL,
TNO NUMBER CONSTRAINT CC003 REFERENCES TEACHER(TNO)
);
--成绩表
CREATE TABLE SCORE(
SNO NUMBER CONSTRAINT SSC001 REFERENCES STUDENT(SNO),
CNO NUMBER CONSTRAINT SSC002 REFERENCES COURSE(CNO),
GRADE VARCHAR2(20),
CONSTRAINT SSC003 PRIMARY KEY(SNO,CNO)
);
--查询表是否建立成功已经存在
SELECT * FROM STUDENT;
SELECT * FROM TEACHER;
SELECT * FROM COURSE;
SELECT * FROM SCORE;
--删除表
DROP TABLE STUDENT;
DROP TABLE TEACHER;
DROP TABLE COURSE;
DROP TABLE SCORE;
--向表里添加信息
INSERT INTO STUDENT VALUES(1,'aaaa','M');
INSERT INTO STUDENT VALUES(2,'bbbb','M');
INSERT INTO STUDENT VALUES(3,'cccc','F');
INSERT INTO TEACHER VALUES(1,'AAAA');
INSERT INTO TEACHER VALUES(2,'BBBB');
INSERT INTO TEACHER VALUES(3,'CCCC');
INSERT INTO COURSE VALUES(1,'yw',2);
INSERT INTO COURSE VALUES(2,'sx',3);
INSERT INTO COURSE VALUES(3,'yy',2);
INSERT INTO SCORE VALUES(1,2,89);
INSERT INTO SCORE VALUES(2,3,120);
INSERT INTO SCORE VALUES(3,1,110);
--DML 之UPDATE ---修改表中的数据，ALTER是修改表结构的sql。
UPDATE SCORE SET GRADE=GRADE-1;
UPDATE SCORE SET GRADE=GRADE+1 WHERE SNO=2;
UPDATE SCORE SET GRADE=GRADE+1 WHERE SNO=2 AND CNO=3;
--------------------------------------------------------------------------------------------
-- DQL 之 SELECT
SELECT CHR(107) HAHA FROM DUAL;
SELECT CURRENT_DATE FROM DUAL;
SELECT TRUNC(ABS(MONTHS_BETWEEN(DATE'1998-08-08',CURRENT_DATE)/12)) AGE FROM DUAL;
SELECT SNO AS 学号, SNAME 学生姓名 FROM STUDENT;
SELECT ALL SSEX FROM STUDENT;
SELECT DISTINCT SSEX FROM STUDENT;
SELECT UNIQUE SSEX FROM STUDENT;
SELECT * FROM SCORE WHERE GRADE < 60;
SELECT ROWID,ROWNUM,STUDENT.* FROM STUDENT;
SELECT * FROM STUDENT WHERE ROWNUM = 1;
SELECT * FROM STUDENT WHERE ROWNUM <= 2;
SELECT * FROM (SELECT ROWNUM AS RN,STUDENT.* FROM STUDENT) WHERE RN = 2;
SELECT CNO,AVG(GRADE) FROM SCORE GROUP BY CNO;
SELECT CNO,AVG(GRADE) FROM SCORE GROUP BY CNO HAVING AVG(GRADE) > 80;
SELECT SSEX,COUNT(SNO) FROM STUDENT GROUP BY SSEX;
SELECT SNO FROM SCORE WHERE CNO = 'C001' AND GRADE = (SELECT MAX(GRADE) FROM SCORE WHERE CNO = 'C001');
SELECT SNO FROM SCORE WHERE CNO = 'C001' AND GRADE >= ALL(SELECT GRADE FROM SCORE WHERE CNO = 'C001');
SELECT * FROM SCORE ORDER BY CNO ASC,GRADE DESC;
SELECT * FROM STUDENT,SCORE WHERE STUDENT.SNO = SCORE.SNO;
SELECT SNAME FROM STUDENT,SCORE
WHERE STUDENT.SNO = SCORE.SNO AND CNO = 'C001' AND GRADE = (SELECT MAX(GRADE) FROM SCORE WHERE CNO = 'C001');
SELECT * FROM STUDENT INNER JOIN SCORE ON STUDENT.SNO = SCORE.SNO;
SELECT * FROM STUDENT INNER JOIN SCORE USING(SNO);
SELECT * FROM STUDENT CROSS JOIN SCORE WHERE STUDENT.SNO = SCORE.SNO;
SELECT * FROM STUDENT NATURAL INNER JOIN SCORE;
SELECT * FROM STUDENT LEFT OUTER JOIN SCORE ON STUDENT.SNO = SCORE.SNO;
SELECT * FROM STUDENT RIGHT OUTER JOIN SCORE USING(SNO);
SELECT * FROM STUDENT FULL OUTER JOIN SCORE USING(SNO);
-- 查询考试不及格的学生姓名和挂科的科目名称
SELECT SNAME,CNAME
FROM (SCORE LEFT JOIN STUDENT USING(SNO))
LEFT JOIN COURSE USING(CNO)
WHERE GRADE < 60;
-- 查询所有java考试成绩高于平均分的学生的姓名和成绩
SELECT SNAME,GRADE
FROM (SCORE LEFT JOIN STUDENT USING(SNO))
LEFT JOIN COURSE USING(CNO)
WHERE CNAME = 'JAVA'
AND GRADE > (
SELECT AVG(GRADE) FROM SCORE LEFT JOIN COURSE USING(CNO)
WHERE CNAME = 'JAVA'
);
select * from (SELECT * from test RIGHT JOIN t_grade using(ID) ) a where `数学` > 90
-- 查询同时参加了C001和C002科目考试的学生编号
SELECT SNO FROM
(SELECT SNO,CNO FROM SCORE WHERE CNO = 'C001')
INNER JOIN
(SELECT SNO,CNO FROM SCORE WHERE CNO = 'C002')
USING(SNO);
-- 查询lili同学参加的所有科目考试中成绩最高的那门科目的授课老师名字
SELECT TNAME,CNAME FROM
TEACHER LEFT JOIN COURSE USING(TNO)
WHERE CNO IN (
SELECT CNO FROM
SCORE LEFT JOIN STUDENT USING(SNO)
WHERE SNAME = 'LILI'
AND GRADE = ( SELECT MAX(GRADE) FROM
SCORE LEFT JOIN STUDENT USING(SNO)
WHERE SNAME = 'LILI'
)
);
-- 查询库存目前还有多少
CREATE TABLE CLOTHER_STORE(
CTYPE VARCHAR2(10),
STORENUM NUMBER
);
CREATE TABLE CLOTHER_SALE(
CTYPE VARCHAR2(10),
SALENUM NUMBER
);
INSERT INTO CLOTHER_STORE VALUES('T-SHIRT',600);
INSERT INTO CLOTHER_STORE VALUES('COAT',700);
INSERT INTO CLOTHER_SALE VALUES('T-SHIRT',140);
INSERT INTO CLOTHER_SALE VALUES('T-SHIRT',165);
INSERT INTO CLOTHER_SALE VALUES('COAT',90);
INSERT INTO CLOTHER_SALE VALUES('COAT',78);
SELECT CTYPE,STORENUM-SNUM AS KCSY FROM
CLOTHER_STORE LEFT JOIN
(SELECT CTYPE,SUM(SALENUM) SNUM FROM CLOTHER_SALE GROUP BY CTYPE)
USING(CTYPE);
-- 切换到scott用户
SELECT * FROM EMP;
SELECT * FROM DEPT;
--1． 列出至少有一个员工的所有部门。
SELECT DISTINCT DEPTNO,DNAME FROM
EMP LEFT JOIN DEPT USING(DEPTNO);
--2． 列出薪金比"SMITH"多的所有员工。
SELECT * FROM EMP WHERE SAL > (SELECT SAL FROM EMP WHERE ENAME = 'SMITH');
--3． 列出所有员工的姓名及其直接上级的姓名。
SELECT E.ENAME 员工姓名,B.ENAME 上级姓名 FROM
EMP E LEFT JOIN EMP B ON E.MGR = B.EMPNO;
--4． 列出受雇日期早于其直接上级的所有员工。
SELECT E.ENAME 员工姓名,E.HIREDATE 员工受雇日期,B.ENAME 上级姓名,B.HIREDATE 上级受雇日期
FROM EMP E LEFT JOIN EMP B ON E.MGR = B.EMPNO
WHERE E.HIREDATE < B.HIREDATE;
--5． 列出部门名称和这些部门的员工信息，同时列出那些没有员工的部门。
SELECT DNAME,EMP.* FROM EMP RIGHT JOIN DEPT ON EMP.DEPTNO = DEPT.DEPTNO;
--6． 列出所有"CLERK"（办事员）的姓名及其部门名称。
SELECT ENAME,DNAME FROM EMP LEFT JOIN DEPT USING(DEPTNO) WHERE JOB = 'CLERK';
--7． 列出最低薪金大于1500的各种工作。
SELECT JOB FROM EMP GROUP BY JOB HAVING MIN(SAL) > 1500;
--8． 列出在部门"SALES"（销售部）工作的员工的姓名，假定不知道销售部的部门编号。
SELECT ENAME FROM EMP LEFT JOIN DEPT USING(DEPTNO) WHERE DNAME = 'SALES';
--9． 列出薪金高于公司平均薪金的所有员工。
SELECT * FROM EMP WHERE SAL > (SELECT AVG(SAL) FROM EMP);
--10．列出与"SCOTT"从事相同工作的所有员工。
SELECT * FROM EMP WHERE JOB = (SELECT JOB FROM EMP WHERE ENAME = 'SCOTT') AND ENAME <> 'SCOTT';
--11．列出薪金等于部门30中员工的薪金的所有员工的姓名和薪金。
SELECT ENAME,SAL FROM EMP WHERE SAL = ANY(SELECT SAL FROM EMP WHERE DEPTNO = 30) AND DEPTNO <> 30;
--12．列出薪金高于在部门30工作的所有员工的薪金的员工姓名和薪金。
SELECT ENAME,SAL FROM EMP WHERE SAL > ALL(SELECT SAL FROM EMP WHERE DEPTNO = 30) AND DEPTNO <> 30;
--13．列出在每个部门工作的员工数量、平均工资和平均服务期限。
SELECT DEPTNO,COUNT(EMPNO) 员工数量,ROUND(AVG(SAL),2) 平均工资,
ROUND(AVG(MONTHS_BETWEEN(CURRENT_DATE,HIREDATE))/12,2) 平均服务年限
FROM EMP RIGHT JOIN DEPT USING(DEPTNO)
GROUP BY DEPTNO;
--14．列出所有员工的姓名、部门名称和工资。
SELECT ENAME,DNAME,SAL FROM EMP LEFT JOIN DEPT USING(DEPTNO);
--15．列出所有部门的详细信息和部门人数。
SELECT DEPT.DEPTNO,DNAME,LOC,COUNT(EMPNO) FROM
DEPT LEFT JOIN EMP ON EMP.DEPTNO = DEPT.DEPTNO
GROUP BY DEPT.DEPTNO,DNAME,LOC;
--16．列出各种工作的最低工资。
SELECT JOB,MIN(SAL) FROM EMP GROUP BY JOB;
--17．列出各个部门的MANAGER（经理）的最低薪金。
SELECT MIN(SAL) FROM EMP WHERE JOB = 'MANAGER';
--18．列出所有员工的年工资,按年薪从低到高排序。
SELECT ENAME,SAL*12+NVL(COMM,0) 年薪 FROM EMP ORDER BY 年薪;
--19．列出经理人的名字。
SELECT ENAME FROM EMP WHERE JOB = 'MANAGER' OR JOB = 'PRESIDENT';
--20．不用组函数，求出薪水的最大值。
SELECT SAL FROM (SELECT SAL FROM EMP ORDER BY SAL DESC) WHERE ROWNUM = 1;
--21．列出薪资第2高到第8高的员工。
SELECT SAL FROM(
SELECT ROWNUM RN,SAL FROM
(SELECT SAL FROM EMP ORDER BY SAL DESC))
WHERE RN >= 2 AND RN <= 8;
-- 切换回普通用户
-- union, INTERSECT,MINUS
CREATE TABLE A1 (
V1 NUMBER,
V2 VARCHAR2(10)
);
CREATE TABLE A2 (
V3 NUMBER,
V4 VARCHAR2(10),
V5 VARCHAR2(10)
);
INSERT INTO A1 VALUES(10,'A001');
INSERT INTO A1 VALUES(11,'A002');
INSERT INTO A2 VALUES(10,'A001','HAHA');
INSERT INTO A2 VALUES(12,'A003','HEIHEI');
INSERT INTO A2 VALUES(13,'A004','HOHO');
SELECT * FROM A1 UNION (SELECT V3，V4 FROM A2);
SELECT * FROM A1 UNION ALL (SELECT V3，V4 FROM A2);
SELECT * FROM A1 INTERSECT (SELECT V3，V4 FROM A2);
SELECT * FROM A1 MINUS (SELECT V3，V4 FROM A2);
-- 带锁查询
UPDATE CLOTHER_STORE SET STORENUM = 600 WHERE CTYPE = 'T-SHIRT';
SELECT * FROM CLOTHER_STORE FOR UPDATE WAIT 5;
UPDATE CLOTHER_STORE SET STORENUM = STORENUM - 400 WHERE CTYPE = 'T-SHIRT';
-- DCL 之 COMMIT
SELECT * FROM STUDENT;
DELETE FROM STUDENT WHERE SNO = 'S011';
COMMIT;
-- DCL 之 ROLLBACK 和 SAVEPOINT
SELECT * FROM CLOTHER_SALE;
UPDATE CLOTHER_SALE SET SALENUM = SALENUM + 10;
ROLLBACK;
UPDATE CLOTHER_SALE SET SALENUM = SALENUM + 10;
SAVEPOINT CPD;
UPDATE CLOTHER_SALE SET SALENUM = SALENUM + 10;
ROLLBACK TO SAVEPOINT CPD;
-- DCL 之 GRANT
GRANT CREATE VIEW TO LUYY124;
GRANT UPDATE ANY TABLE TO LUYY124;
-- DDL 之 REVOKE
REVOKE CREATE VIEW FROM LUYY124;
-- CREATE VIEW
CREATE OR REPLACE VIEW STUDENT_VIEW AS
SELECT * FROM (STUDENT LEFT JOIN SCORE USING(SNO)) LEFT JOIN COURSE USING(CNO);
SELECT * FROM STUDENT_VIEW;
SELECT SNAME,CNAME FROM STUDENT_VIEW WHERE GRADE < 60;
SELECT * FROM SCORE;
UPDATE SCORE SET GRADE = GRADE + 1 WHERE SNO = 'S001' AND CNO = 'C001';
CREATE OR REPLACE VIEW STUDENT_VIEW AS SELECT * FROM SCORE;
UPDATE STUDENT_VIEW SET GRADE = GRADE - 1 WHERE SNO = 'S001' AND CNO = 'C001';
-- CREATE INDEX
CREATE INDEX SNAME_INDEX ON STUDENT(SNAME ASC) ;
SELECT * FROM STUDENT WHERE SNAME = 'LILI';
DROP INDEX SNAME_INDEX;
-- PLSQL
-- 匿名块
SELECT * FROM STUDENT;
DECLARE
V_SNO VARCHAR2(4) := 'S011';
V_SNAME VARCHAR(20) := 'FANGYUQIN';
V_SSEX VARCHAR2(1) := 'F';
BEGIN
INSERT INTO STUDENT VALUES(V_SNO, V_SNAME, V_SSEX);
DBMS_OUTPUT.put_line('插入成功');
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.put_line(SQLERRM);
END;
DECLARE
V_SNO VARCHAR2(4) := 'S012';
V_SNAME VARCHAR2(20);
BEGIN
SELECT SNAME INTO V_SNAME FROM STUDENT WHERE SNO = V_SNO;
DBMS_OUTPUT.put_line(V_SNAME);
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.put_line(SQLERRM);
END;
-- 练习：
CREATE TABLE FAKEDATA(
SNO VARCHAR2(4),
SNAME VARCHAR2(10)
);
SELECT * FROM FAKEDATA;
DECLARE
SNO_PREFIX VARCHAR2(1) := 'S';
SNAME_PREFIX VARCHAR2(4) := 'LUYY';
SUFIX VARCHAR2(3);
I NUMBER;
BEGIN
FOR I IN 1..100
LOOP
IF I < 10 THEN
SUFIX := '00' || I;
ELSIF I < 100 THEN
SUFIX := '0' || I;
ELSE
SUFIX := '' || I;
END IF;
INSERT INTO FAKEDATA VALUES(SNO_PREFIX || SUFIX, SNAME_PREFIX || SUFIX);
END LOOP;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.put_line(SQLERRM);
END;
-- 记录类型 RECORD
DECLARE
TYPE STUDENTRECORD IS RECORD(
V_SNO STUDENT.SNO%TYPE,
V_SNAME STUDENT.SNAME%TYPE,
V_SSEX STUDENT.SSEX%TYPE
);
SR STUDENTRECORD;
BEGIN
SELECT * INTO SR FROM STUDENT WHERE SNO = 'S010';
DBMS_OUTPUT.put_line(SR.V_SNO||': '||SR.V_SNAME);
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.put_line(SQLERRM);
END;
DECLARE
SR STUDENT%ROWTYPE;
BEGIN
SELECT * INTO SR FROM STUDENT WHERE SNO = 'S010';
DBMS_OUTPUT.put_line(SR.SNO||': '||SR.SNAME);
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.put_line(SQLERRM);
END;
-- 带名块
-- PROCEDURE
CREATE OR REPLACE PROCEDURE P1(
V_SNO IN VARCHAR2,
V_SNAME OUT VARCHAR2
)
IS
BEGIN
SELECT SNAME INTO V_SNAME FROM STUDENT WHERE SNO = V_SNO;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.put_line(SQLERRM);
END P1;
DECLARE
V1 VARCHAR2(4) := 'S003';
V2 VARCHAR2(20);
BEGIN
P1(V1,V2);
DBMS_OUTPUT.put_line(V2);
END;
DROP PROCEDURE P1;
-- FUNCTION
CREATE OR REPLACE FUNCTION F1(
V_CNAME IN VARCHAR2
)
RETURN VARCHAR2
IS
V_TNAME VARCHAR2(20);
BEGIN
SELECT TNAME INTO V_TNAME FROM COURSE LEFT JOIN TEACHER USING(TNO) WHERE CNAME = V_CNAME;
RETURN V_TNAME;
END F1;
DECLARE
V1 VARCHAR2(10) := 'JAVA';
V2 VARCHAR2(20);
BEGIN
V2 := F1(V1);
DBMS_OUTPUT.put_line(V2);
END;
SELECT F1('RJZL') FROM DUAL;
DROP FUNCTION F1;
-- 游标 CURSOR
DECLARE
CURSOR MYCURSOR(V_SNO VARCHAR2) IS
SELECT * FROM SCORE WHERE SNO = V_SNO;
SR SCORE%ROWTYPE;
BEGIN
IF MYCURSOR%ISOPEN = FALSE THEN
OPEN MYCURSOR('S002');
END IF;
LOOP
FETCH MYCURSOR INTO SR;
EXIT WHEN MYCURSOR%NOTFOUND;
DBMS_OUTPUT.put_line(SR.CNO||': '||SR.GRADE);
END LOOP;
DBMS_OUTPUT.put_line('共计'||MYCURSOR%ROWCOUNT||'条记录');
CLOSE MYCURSOR;
END;
-- 触发器 TRIGGER
CREATE TABLE MEMBERINFO(
MID VARCHAR2(4) CONSTRAINT MC001 PRIMARY KEY,
QCOIN NUMBER(10)
);
CREATE TABLE RECHARGE(
RNO VARCHAR2(4) CONSTRAINT RC001 PRIMARY KEY,
MID VARCHAR2(4) CONSTRAINT RC002 REFERENCES MEMBERINFO(MID),
REQCOIN NUMBER(10)
);
CREATE TABLE CONSUME(
CNO VARCHAR2(4) CONSTRAINT CC001 PRIMARY KEY,
MID VARCHAR2(4) CONSTRAINT CC002 REFERENCES MEMBERINFO(MID),
CQCOIN NUMBER(10)
);
INSERT INTO MEMBERINFO VALUES('M001',400);
INSERT INTO MEMBERINFO VALUES('M002',700);
INSERT INTO MEMBERINFO VALUES('M003',1400);
SELECT * FROM MEMBERINFO;
SELECT * FROM RECHARGE;
SELECT * FROM CONSUME;
CREATE OR REPLACE TRIGGER RECHARGE_INSERT
AFTER INSERT
ON RECHARGE
FOR EACH ROW
BEGIN
UPDATE MEMBERINFO SET QCOIN = QCOIN + :NEW.REQCOIN WHERE MID = :NEW.MID;
END RECHARGE_INSERT;
CREATE OR REPLACE TRIGGER CONSUME_INSERT
BEFORE INSERT
ON CONSUME
FOR EACH ROW
DECLARE
V_QCOIN NUMBER(10);
BEGIN
SELECT QCOIN INTO V_QCOIN FROM MEMBERINFO WHERE MID = :NEW.MID;
IF V_QCOIN >= :NEW.CQCOIN THEN
UPDATE MEMBERINFO SET QCOIN = QCOIN - :NEW.CQCOIN WHERE MID = :NEW.MID;
ELSE
RAISE_APPLICATION_ERROR(-20001,'余额不足');
END IF;
END CONSUME_INSERT;
INSERT INTO RECHARGE VALUES('R001','M002',500);
INSERT INTO CONSUME VALUES('C002','M002',200);
INSERT INTO CONSUME VALUES('C003','M003',2000);