博客
关于我
强烈建议你试试无所不能的chatGPT，快点击我
Oracle数据库---PLSQL
阅读量：5264 次
发布时间：2019-06-14

本文共 6525 字，大约阅读时间需要 21 分钟。

SET SERVEROUTPUT ON

BEGIN
--打印输出
DBMS_OUTPUT.PUT_LINE('hello everyone!');
END;

DECLARE

v_name VARCHAR2(10);
v_sal NUMBER(7,2);
v_hiredate DATE;
c_tax_rate CONSTANT NUMBER(3,2) := 0.02;
v_tax_sal NUMBER(7,2);
v_valid BOOLEAN DEFAULT TRUE;
BEGIN
SELECT ename,sal,hiredate
INTO v_name,v_sal,v_hiredate
FROM emp
WHERE empno = 7369;
--计算所得税
v_tax_sal:= v_sal * c_tax_rate;
--打印输出
DBMS_OUTPUT.PUT_LINE(v_name||'的工资是：'||v_sal||' 雇员日期是：' || v_hiredate|| ' 所得税是：' || v_tax_sal);
IF v_valid THEN
DBMS_OUTPUT.PUT_LINE('已核实');
END IF;
END;

--引用型变量

DECLARE
v_name emp.ename%TYPE;
v_sal emp.sal%TYPE;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM emp
WHERE empno = 7788;
--打印输出
DBMS_OUTPUT.PUT_LINE(v_name||'的工资是：'||v_sal);
END;

--记录型变量

DECLARE
emp_record emp%ROWTYPE;
BEGIN
SELECT * INTO emp_record FROM emp WHERE empno = 7788;
--打印输出
DBMS_OUTPUT.PUT_LINE(emp_record.ename||'的工资是：'||emp_record.sal);
END;

--算术运算符

DECLARE
v_num1 NUMBER(3):=10;
v_num2 NUMBER(3):=2;
BEGIN
DBMS_OUTPUT.PUT_LINE(v_num1+v_num2);
DBMS_OUTPUT.PUT_LINE(v_num1-v_num2);
DBMS_OUTPUT.PUT_LINE(v_num1*v_num2);
DBMS_OUTPUT.PUT_LINE(v_num1/v_num2);
DBMS_OUTPUT.PUT_LINE(v_num1**v_num2);
END;

--关系运算符

DECLARE
v_num1 NUMBER(2) := &n1;
v_num2 NUMBER(2) := &n2;
BEGIN
IF (v_num1 = v_num2) THEN
DBMS_OUTPUT.PUT_LINE('num1等于num2');
ELSIF(v_num1 < v_num2) THEN
DBMS_OUTPUT.PUT_LINE('num1小于num2');
ELSIF(v_num1 > v_num2) THEN
DBMS_OUTPUT.PUT_LINE('num1大于num2');
END IF;
IF (v_num1 <> v_num2) THEN
DBMS_OUTPUT.PUT_LINE('num1不等于num2');
END IF;
END;

--比较运算符

DECLARE
--&n1是替代变量，在执行程序时会提示输入值
v_num1 NUMBER(2):= &n1;
BEGIN
IF(v_num1 BETWEEN 5 AND 10 )THEN
DBMS_OUTPUT.PUT_LINE('num1在5到10之间');
ELSE
DBMS_OUTPUT.PUT_LINE('num1不在5到10之间');
END IF;
IF(v_num1 IN(3,8,10) )THEN
DBMS_OUTPUT.PUT_LINE('num1等于3,8,10中的一个值');
ELSE
DBMS_OUTPUT.PUT_LINE('num1不等于3,8,10中的一个值');
END IF;
IF(v_num1 IS NULL)THEN
DBMS_OUTPUT.PUT_LINE('num1为空');
ELSE
DBMS_OUTPUT.PUT_LINE('num1不为空');
END IF;
END;

--逻辑运算符

DECLARE
v_b1 BOOLEAN := &n1;
v_b2 BOOLEAN := &n2;
BEGIN
IF(v_b1 AND v_b2)THEN
DBMS_OUTPUT.PUT_LINE('AND--TRUE');
END IF;
IF(v_b1 OR v_b2)THEN
DBMS_OUTPUT.PUT_LINE('OR--TRUE');
END IF;
IF(NOT v_b1)THEN
DBMS_OUTPUT.PUT_LINE('v_b1取反为TRUE');
END IF;
END;

--输入员工号，判断员工工资, 显示工资小于3000的员工姓名及工资。

--简单的IF语句
DECLARE
v_name emp.ename%TYPE;
v_sal emp.sal%TYPE;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM emp
WHERE empno = &no;
IF v_sal <3000 THEN
DBMS_OUTPUT.PUT_LINE(v_name||'的工资是：'||v_sal);
END IF;
END;

SELECT * FROM emp;

--输入员工号，判断员工工资,将工资小于3000的员工工资涨200，并显示涨工资的员工姓名，其他员工显示员工姓名及工资。

--二重分支语句
DECLARE
v_name empnew.ename%TYPE;
v_sal empnew.sal%TYPE;
v_empno empnew.empno%TYPE := &no;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM empnew
WHERE empno = v_empno;
IF v_sal <3000 THEN
UPDATE empnew set sal = sal + 200 where empno = v_empno;
COMMIT;
DBMS_OUTPUT.put_line(v_name||'涨工资了');
ELSE
DBMS_OUTPUT.put_line(v_name||'的工资是：'||v_sal);
END IF;
END;
select * from empnew;

--输入员工号，判断员工工资, 工资小于2000，显示低收入，工资小于6000，显示中等收入，其它显示高收入。
--多重分支语句
DECLARE
v_name empnew.ename%TYPE;
v_sal empnew.sal%TYPE;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM empnew
WHERE empno = &no;
IF v_sal<2000 THEN
DBMS_OUTPUT.PUT_LINE(v_name||'的工资是：'||v_sal||' 属于低收入');
ELSIF v_sal<6000 THEN
DBMS_OUTPUT.PUT_LINE(v_name||'的工资是：'||v_sal||' 属于中等收入');
ELSE
DBMS_OUTPUT.PUT_LINE(v_name||'的工资是：'||v_sal||' 属于高收入');
END IF;
END;

/*

--输入员工号，判断员工工资, 显示工资小于3000的员工姓名及工资。
--简单的IF语句
DECLARE
v_name emp.ename%TYPE;
v_sal emp.sal%TYPE;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM emp
WHERE empno = &no;
IF v_sal <3000 THEN
DBMS_OUTPUT.PUT_LINE(v_name||'的工资是：'||v_sal);
END IF;
END;

SELECT * FROM emp;

--输入员工号，判断员工工资,将工资小于3000的员工工资涨200，并显示涨工资的员工姓名，其他员工显示员工姓名及工资。

--二重分支语句
DECLARE
v_name empnew.ename%TYPE;
v_sal empnew.sal%TYPE;
v_empno empnew.empno%TYPE := &no;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM empnew
WHERE empno = v_empno;
IF v_sal <3000 THEN
UPDATE empnew set sal = sal + 200 where empno = v_empno;
COMMIT;
DBMS_OUTPUT.put_line(v_name||'涨工资了');
ELSE
DBMS_OUTPUT.put_line(v_name||'的工资是：'||v_sal);
END IF;
END;
select * from empnew;

--输入员工号，判断员工工资, 工资小于2000，显示低收入，工资小于6000，显示中等收入，其它显示高收入。
--多重分支语句
DECLARE
v_name empnew.ename%TYPE;
v_sal empnew.sal%TYPE;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM empnew
WHERE empno = &no;
IF v_sal<2000 THEN
DBMS_OUTPUT.PUT_LINE(v_name||'的工资是：'||v_sal||' 属于低收入');
ELSIF v_sal<6000 THEN
DBMS_OUTPUT.PUT_LINE(v_name||'的工资是：'||v_sal||' 属于中等收入');
ELSE
DBMS_OUTPUT.PUT_LINE(v_name||'的工资是：'||v_sal||' 属于高收入');
END IF;
END;
*/

--输入成级等级，判断属于哪个层次，并打印输出

--CASE 等值比较
DECLARE
v_grade char(1) := '&no';
BEGIN
CASE v_grade
WHEN 'A' THEN
DBMS_OUTPUT.PUT_LINE('优秀');
WHEN 'B' THEN
DBMS_OUTPUT.PUT_LINE('中等');
WHEN 'C' THEN
DBMS_OUTPUT.PUT_LINE('一般');
ELSE
DBMS_OUTPUT.PUT_LINE('输入有误');
END CASE;
END;

--输入员工号，获取员工工资，判断工资，如果工资小于1500，补助加100，如果工资小于2500，补助加80，如果工资小于5000，补助加50.

--CASE 非等值比较
DECLARE
v_sal empnew.sal%TYPE;
v_empno empnew.empno%TYPE := &no;
BEGIN
SELECT sal
INTO v_sal
FROM empnew
WHERE empno = &no;
CASE
WHEN v_sal<1500 THEN
UPDATE empnew set comm = nvl(comm,0)+100 WHERE empno = v_empno;
WHEN v_sal<2500 THEN
UPDATE empnew set comm = nvl(comm,0)+80 WHERE empno = v_empno;
WHEN v_sal<5000 THEN
UPDATE empnew set comm = nvl(comm,0)+50 WHERE empno = v_empno;
--COMMIT;
END CASE;
END;

select * from empnew;

--基本循环

DECLARE
v_cnt INT :=1;
BEGIN
LOOP
DBMS_OUTPUT.PUT_LINE(v_cnt);
EXIT WHEN v_cnt = 10;
v_cnt := v_cnt+1;
END LOOP;
END;
--while循环
DECLARE
v_cnt INT :=1;
BEGIN
WHILE v_cnt<=10 LOOP
DBMS_OUTPUT.PUT_LINE(v_cnt);
v_cnt := v_cnt+1;
END LOOP;
END;

--for循环

BEGIN
FOR i IN REVERSE 1..10 LOOP
DBMS_OUTPUT.PUT_LINE(i);
END LOOP;
END;

--嵌套循环

DECLARE
v_result INT;
BEGIN
<<outter>>
FOR i IN 1..5 LOOP
<<inter>>
FOR j IN 1..5 LOOP
v_result:=i;
EXIT outter WHEN i=4;
END LOOP inter;
DBMS_OUTPUT.PUT_LINE('内'||v_result);
END LOOP outter;
DBMS_OUTPUT.PUT_LINE('外'||v_result);
END;

--CONTINUE

DECLARE
v_cnt INT :=0;
BEGIN
LOOP
v_cnt := v_cnt+1;
CONTINUE WHEN v_cnt = 5;
DBMS_OUTPUT.PUT_LINE(v_cnt);
EXIT WHEN v_cnt = 10;
END LOOP;
END;

--GOTO语句

DECLARE
v_cnt INT := 1;
BEGIN
LOOP
DBMS_OUTPUT.PUT_LINE(v_cnt);
IF v_cnt=10 THEN
--EXIT;
GOTO end_loop;
END IF;
v_cnt := v_cnt + 1;
END LOOP;
<<end_loop>>
DBMS_OUTPUT.PUT_LINE('循环结束');
END;

--NULL语句

DECLARE
v_sal empnew.sal%TYPE;
v_name empnew.ename%TYPE;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM empnew
WHERE empno = &no;
IF v_sal<3000 THEN
UPDATE empnew set comm = nvl(comm,0)+sal*0.2 WHERE ename=v_name;
COMMIT;
DBMS_OUTPUT.PUT_LINE(v_name||'的奖金更新了');
ELSE
NULL;
END IF;
END;

select * from empnew;

 

转载于:https://www.cnblogs.com/xiaomifeng1010/p/11111978.html

你可能感兴趣的文章
数据清洗
查看>>
【读书笔记】C#高级编程 第三章 对象和类型
查看>>
针对sl的ICSharpCode.SharpZipLib，只保留zip，gzip的流压缩、解压缩功能
查看>>
【转】代码中特殊的注释技术——TODO、FIXME和XXX的用处
查看>>
【SVM】libsvm-python
查看>>
Jmeter接口压力测试，Java.net.BindException: Address already in use: connect
查看>>
Leetcode Balanced Binary Tree
查看>>
九.python面向对象(双下方法内置方法)
查看>>
go：channel（未完）
查看>>
[JS]递归对象或数组
查看>>
LeetCode(17) － Letter Combinations of a Phone Number
查看>>
Linux查找命令对比(find、locate、whereis、which、type、grep)
查看>>
路由器外接硬盘做nas可行吗？
查看>>
python：从迭代器，到生成器，再到协程的示例代码
查看>>
Java多线程系列——原子类的实现（CAS算法）
查看>>
在Ubuntu下配置Apache多域名服务器
查看>>
多线程《三》进程与线程的区别
查看>>
linux sed命令
查看>>
html标签的嵌套规则
查看>>
[Source] Machine Learning Gathering/Surveys
查看>>
喝酒易醉，品茶养心，人生如梦，品茶悟道，何以解忧？唯有杜康！-- 愿君每日到此一游！
当前时间: 2024-11-25 10:43:56   当前IP: 3.145.8.139   联系邮箱:javaeecc@qq.com     Copyright © 2020 - 2022 baihongyu.com 京ICP备2021015314号-2
强烈建议你试试无所不能的CHAT-GPT，快点击我
强烈建议你试试无所不能的CHAT-GPT，快点击我