/*
users & passwords
*/
CREATE TABLE  user_prv (
empno NUMBER (4) UNIQUE ,
pword VARCHAR2(100),
CONSTRAINT user_emp_fk FOREIGN KEY (empno) REFERENCES emp(empno)
);
 -----------
/*
 users' forms privileges 
*/
CREATE TABLE  form_prv (
empno NUMBER(4) ,
frm_no NUMBER(4),
frm_name VARCHAR2 (200) ,
frm_stat VARCHAR2(3),
CONSTRAINT empno_user_fk FOREIGN KEY (empno) REFERENCES user_prv (empno)
);

DECLARE
   v_frmno   NUMBER;
BEGIN
------------------------------------>>>>>>>
   SELECT DISTINCT empno
              INTO v_frmno
              FROM form_prv
             WHERE form_prv.empno = :user_prv.empno
               AND form_prv.frm_no IS NOT NULL;
------------------------------------>>>>>>>
   IF :user_prv.empno = v_frmno
   THEN
      SET_ITEM_PROPERTY ('Pb_new', enabled, property_false);
   ELSE
      SET_ITEM_PROPERTY ('Pb_new', enabled, property_true);
   END IF;
END;

table user_prv
==============
empno		pword
------  	------
1		**		
2		**	
3		**

table form_prv 
==============
empno  frm_no	frm_name     frm_stat
------	-----	--------    -----------
1	1	emp		yes
1	2	dept		yes	
1	3	bouns		no
2	1	emp		yes
2	2	dept		yes	
2	3	bouns		yes

BEGIN
------------------------------------>>>>>>>
   for r1 in (
              SELECT DISTINCT empno
              FROM form_prv
              WHERE form_prv.empno = :user_prv.empno
              AND form_prv.frm_no IS NOT NULL
             ) loop
------------------------------------>>>>>>>
      IF :user_prv.empno = r1.empno
      THEN
         SET_ITEM_PROPERTY ('Pb_new', enabled, property_false);
      ELSE
         SET_ITEM_PROPERTY ('Pb_new', enabled, property_true);
      END IF;
   end loop;
END;

DECLARE
   v_frmno   NUMBER;
BEGIN
------------------------------------>>>>>>>
   begin
      SELECT DISTINCT empno
                 INTO v_frmno
                 FROM form_prv
                WHERE form_prv.empno = :user_prv.empno
                  AND form_prv.frm_no IS NOT NULL
                  and rownum = 1
   exception
      when no_data_found then null;
   end;
------------------------------------>>>>>>>
   IF :user_prv.empno = v_frmno
   THEN
      SET_ITEM_PROPERTY ('Pb_new', enabled, property_false);
   ELSE
      SET_ITEM_PROPERTY ('Pb_new', enabled, property_true);
   END IF;
END;

SELECT count( empno)
              INTO v_frmno
              FROM form_prv
             WHERE form_prv.empno = :user_prev.empno
               AND form_prv.frm_no IS NOT NULL;
   IF  v_frmno >0
THEN
      SET_ITEM_PROPERTY ('Pb_new', enabled, property_false);
.
.

.
.
and rownum = 1
   exception
      when no_data_found then null;
   end;
.
.