Oracle PL/SQL Create Package

CREATE OR REPLACE PACKAGE   package_name IS

-- Khai báo các kiểu,  biến công khai (Public)

-- Khai báo các hàm, thủ tục

-- Khai báo Kiểu type - Public  : 

  type <TypeName> is <Datatype>;

-- Khai báo Hằng constant - Public   

  <ConstantName> constant <Datatype> := <Value>;  

-- Khai báo Biến variable - Public

  <VariableName> <Datatype>;  

  -- Khai báo hàm function hoặc thủ tục procedure - Public

  function <FunctionName>(<Parameter> <Datatype>) return <Datatype>;

END  package_name;

CREATE OR REPLACE PACKAGE BODY  package_name IS

-- Khai báo các kiểu,  biến kiểu sử dụng riêng (Private)

-- Triển khai xây dựng các hàm, thủ tục đã khai báo trong phần Package Spec.

 -- Khai báo Kiểu type - Private

  type <TypeName> is <Datatype>;

  -- Khai báo Hằng constant - Private

  <ConstantName> constant <Datatype> := <Value>;

  -- Khai báo Biến variable - Private

  <VariableName> <Datatype>;

  -- Thực hiện hàm Function và thủ tục procedure 

  function <FunctionName>(<Parameter> <Datatype>) return <Datatype> is

    <LocalVariable> <Datatype>;

  begin

    <Statement>;

    return(<Result>);

  end;

BEGIN

  -- Initialization

  <Statement>;

END  package_name;

create or replace package PKG_NHANVIEN is

  PROCEDURE p_Nhanvien_GetAllData(
  p_Cursor_Nhanvien out sys_refcursor);

  PROCEDURE p_Nhanvien_Insert(
    pv_NhanvienName in varchar2,
    pv_NhanvienAge in number,
    pv_NhanvienSalary in number,
    pv_NhanvienBirht in Date,
    pv_NhanvienPhone in varchar2,
    pv_NhanvienEmail in varchar2,
    pv_NhanvienDept in int,
    pv_Restult out varchar2
  );
  
   FUNCTION F_Nhanvien_GetName
  (pv_NhanvienID in HR.Nhanvien.Nhanvien_Id%type) 
  RETURN varchar2 ;
  
end PKG_NHANVIEN;

create or replace package body PKG_NHANVIEN is

-- Thủ tục lấy tất cả danh sách nhân viên
procedure p_Nhanvien_GetAllData(
p_Cursor_Nhanvien out sys_refcursor) is

begin
  
  Open  p_Cursor_Nhanvien for
  Select * from HR.nhanvien;
  
Exception
  when No_Data_Found then
    DBMS_OUTPUT.put_line('No Data');
    
end p_Nhanvien_GetAllData;

-------------------------------------------
--Thủ tục Insert thông tin Nhân Viên
procedure p_Nhanvien_Insert(
  pv_NhanvienName in varchar2,
  pv_NhanvienAge in number,
  pv_NhanvienSalary in number,
  pv_NhanvienBirht in Date,
  pv_NhanvienPhone in varchar2,
  pv_NhanvienEmail in varchar2,
  pv_NhanvienDept in int,
  pv_Restult out varchar2
) is

--Khai báo biến pv_Count đếm số lượng Nhân Viên.
pv_Count integer := 0;
begin
  pv_Restult := '';
  
  --Check kiểm tra số điện thoại của Nhân Viên
  select count(*) into pv_Count from HR.nhanvien n where n.nhanvien_phone = pv_NhanvienPhone ;
  if pv_Count > 0 then
    pv_Restult := 'The Phone number was exited';
    return;
  end if;
  
  -- Insert dữ liệu vào bảng nhaniven
  Insert into HR.nhanvien(nhanvien_id,nhanvien_name, nhanvien_age, nhanvien_salary, nhanvien_birthday, nhanvien_phone, nhanvien_email, nhanvien_deptid)
  VALUES(HR.SEQ_NHANVIEN.NEXTVAL, pv_NhanvienName, pv_NhanvienAge, pv_NhanvienSalary, pv_NhanvienBirht, pv_NhanvienPhone, pv_NhanvienEmail, pv_NhanvienDept) ;
  pv_Restult := 'OK';
    
exception
  when no_data_found then
    pv_Restult := 'Error Exception';
  
end p_Nhanvien_Insert;

---------------------------------------------------
--Hàm Function lấy tên nhân viên theo Mã.
FUNCTION F_Nhanvien_GetName
(pv_NhanvienID in HR.Nhanvien.Nhanvien_Id%type) 

RETURN varchar2 
IS
 pv_NhanvienName HR.nhanvien.nhanvien_name%type;
 
BEGIN 
  
  SELECT n.nhanvien_name INTO pv_NhanvienName 
  FROM HR.nhanvien n 
  WHERE n.nhanvien_id = pv_NhanvienID;
  
  return pv_NhanvienName;

EXCEPTION
  when no_data_found then
    dbms_output.put_line('Error: No Data');
  when Too_Many_Rows then
    dbms_output.put_line('Error: Many rows data');
  when others then
    dbms_output.put_line('Error Exception');
END F_Nhanvien_GetName;

end PKG_NHANVIEN;