-- 语法
DECLARE
   -- 声明部分(变量的声明、游标的声明(cursor)、例外的声明(异常))
BEGIN
   -- 语句序列(DML语句)
EXCEPTION
   -- 例外处理语句
END;

DECLARE
   -- 说明变量：char、varchar2、date、number、boolean、long
   v_num number;
   -- 赋值
   v_char varchar2(24) := 'it is good';
BEGIN
   -- 赋值
   v_num := 10;
   -- 拼接结果
   dbms_output.put_line('hello, world' || '! v_num=' || v_num || ', v_char=' || v_char);
END;

DECLARE
   -- 引用变量：v_name所对应的类型与emp表中ename字段的类型相同
   v_name emp.ename%type;
BEGIN
   -- 在SQL中使用 into 来赋值
   select ename into v_name from emp where empno=7369;
   -- 拼接结果
   dbms_output.put_line('名字为：' || v_name);
END;

DECLARE
   -- 记录型变量
   v_row emp%rowtype;
BEGIN
   SELECT * INTO v_row FROM emp WHERE empno = 7369;
   dbms_output.put_line('名字为：' || v_row.ename);
END;

语法：
[1] IF 条件 THEN 
        code....;
    END IF;
[2] IF 条件 THEN
        code....;
    ELSE
        code....;
    END IF;
[3] IF 条件 THEN
        code....;
   ELSIF 条件 THEN
        code...
    ELSE
        code....;
    END IF;

DECLARE
    v_date VARCHAR2(24);
BEGIN
    SELECT trim(to_char(SYSDATE, 'dy')) INTO v_date FROM dual;  -- 当天属于周几
    IF v_date IN ('sun', 'sat') THEN 
      dbms_output.put_line('在中国今天是周末哦!');
    ELSE
      dbms_output.put_line('在中国今天是工作日哦!');
    END IF;
END;

语法：
        [1] WHILE 条件 
          LOOP
            code...;
          END LOOP;
        [2] LOOP
              EXIT WHEN 条件
                   code....
              END LOOP;
        [3] FOR i IN 1...n
                LOOP
                  code...
                END LOOP;

-- 输出1-10

-- 法一：
DECLARE
   v_tag NUMBER := 1;
BEGIN
   WHILE v_tag < 10
     LOOP
         dbms_output.put_line(v_tag);
         v_tag := v_tag + 1;
     END LOOP;
END;

-- 法二：
DECLARE
    v_tag NUMBER := 1;
BEGIN
    LOOP
      EXIT WHEN v_tag >= 10;
           dbms_output.put_line(v_tag);
           v_tag := v_tag + 1;
      END LOOP; 
END;

-- 法三：
DECLARE
      
BEGIN
      FOR i IN 1..10
        LOOP
          dbms_output.put_line(i);
        END LOOP;
END;

-- 语法：
   CURSOR 游标名 [(paramName paramType, ....)] IS SELECT 语句...;

-- 使用游标方式输出员工编号和姓名
DECLARE
   pemp emp%ROWTYPE;
   -- 定义游标
   CURSOR pc IS SELECT * FROM emp;
BEGIN
   -- 打开游标
   OPEN pc;
   -- 取数据
   LOOP
      FETCH pc INTO pemp;
      EXIT WHEN pc%NOTFOUND;
      dbms_output.put_line(pemp.empno || '-' || pemp.ename);
   END LOOP;
END;

--输出所有员工的名称与工资
DECLARE
    mycursor1 SYS_REFCURSOR;
    vrow emp%ROWTYPE;
BEGIN
    OPEN mycursor1 FOR SELECT * FROM emp;
        LOOP
        FETCH mycursor1 into vrow;
        EXIT WHEN mycursor1%NOTFOUND;--%notfound，游标中已经取到最后，没有数据了
            dbms_output.put_line(' 员工姓名:' || vrow.ename || ' 工资:' || vrow.sal);  
        END LOOP;
    CLOSE mycursor1;
END;

-- 方式一：
CREATE OR REPLACE PROCEDURE 过程名(参数名 IN/OUT 数据类型) 
AS
   code...
BEGIN
   code...
END;

-- 方式二：
CREATE OR REPLACE PROCEDURE 过程名(参数名 IN/OUT 数据类型) 
IS
   code...
BEGIN
   code...
END 过程名;

-- 方式一
CREATE OR REPLACE PROCEDURE pro_t1(tager IN NUMBER) AS
BEGIN 
   dbms_output.put_line(tager);
END;

CALL pro_t1(23);

-- 方式二
CREATE OR REPLACE PROCEDURE pro_allEmp
IS
   v_row emp%rowtype;
begin
   SELECT * INTO v_row FROM emp WHERE empno = 7369;
   dbms_output.put_line('名字为：' || v_row.ename);
END pro_allEmp; 

CALL pro_allEmp();