end;

--儲存過程
create or replace procedure p is
       cursor c is select * from t_t_student order by id;
       v_record c%rowtype;
begin
       for v_record in c loop
           if(v_record.age=24) then
                dbms_output.put_line('編號：'||v_record.id||'， 姓名：'||v_record.name||'， 年齡'||v_record.age||'，電話：'
                ||v_record.phone||'，地址：'||v_record.address);
           end if;
       end loop;
end;
             
--呼叫儲存過程
begin
  p;
end;


--帶參儲存過程
create or replace procedure p1(v_a in number,v_b number,v_c out number,v_d in out number) is    
begin
       if(v_a>v_b ) then
            v_c := v_a;
       else 
            v_c := v_b;
       end if;
       v_d := v_d + 10;
end;
--呼叫帶參儲存過程 
declare
       v_a number := 11;
       v_b number := 21;
       v_c number;
       v_d number := 4;
begin
       p1(v_a,v_b,v_c,v_d);
       dbms_output.put_line(v_d);
       dbms_output.put_line(v_c);
end;




--觸發器
create or replace trigger v_tri 
       after insert or delete or update on t_t_student for each row
begin 
       if inserting then
          dbms_output.put_line('已執行新增操作');
       elsif updating then
         dbms_output.put_line('已執行編輯操作');
       elsif deleting then
          dbms_output.put_line('已執行刪除操作');
       end if;
end;




update t_t_student set address = '邯鄲'  where id = 39




--修改表搜尋條件的值可以使用觸發器，不建議使用


drop trigger v_tri;


create or replace trigger v_tri 
      after update on t_t_student for each row
begin 
      update t_t_student set name = :NEW.name where name = :OLD.name;
end;


update t_t_student set name = '姬只'  where name = '姬喜';


--函式


create or replace function v_fun
       (age t_t_student.age%type)
       return t_t_student.name%type
       is
begin
       if(age<30) then
          return '青年';
       elsif(30<age and age<55) then
          return '中年';
       else
          return '老年';
       end if;
end;




select name ,v_fun(age) from t_t_student order by id