ارجو انكم تساعدون بفهم هذة الاسطر التي انا كاتب تحتها وامامهاو ملونها بالاحمر
علما ان هذا الكود اصلاا مكتوب بال program units

PROCEDURE CALL_FRM(v_prg_grp varchar2,p_PRG_NAME VARCHAR) IS
   [color=red]هذا السطر [/color]-- pl_id ParamList;  
   v_prg_name reg_prg_sec.prg_name%type;
   v_prg_id reg_prg_sec.prg_id%type;
   v_h_date varchar(11);
   v_h_time varchar(11);
[color=red] هذا السطر[/color] --  v_user_id number:=to_number(name_in('parameter.user_id'));
   v_user_desc reg_user_sec.user_desc%type;
   v_user_name reg_user_sec.user_name%type;
   v_password reg_user_sec.password%type;
   v_prv_id reg_user_prg_sec.prv_id%type;
BEGIN [color=red]هذا السطر[/color]   pl_id := Get_Parameter_List('list');  
  
  select to_char(sysdate,'yyyy/mm/dd'),to_char(sysdate,'hh:mi') into v_h_date,v_h_time from dual; -------------------------------------------------------------   

begin select prg_name,prg_id into v_prg_name ,v_prg_id
from reg_prg_sec where upper(file_name)=upper(p_prg_name);                                                           
exception
when others then null;
end;
-------------------------------------------------------------                                                             
begin select user_desc,user_name,password into v_user_desc,v_user_name,v_password from reg_user_sec where user_id=v_user_id;   
exception
when others then null;
end;
-------------------------------------------------------------                                                             
begin select prv_id into v_prv_id from reg_user_prg_sec where user_id=v_user_id and prg_id=v_prg_id;
exception
when others then null;
end;

-------------------------------------------------------------      
          وبدابة من هنا        الى اخر الكود   [color=red]                                  
   IF  Id_Null(pl_id) THEN  
  pl_id:=create_parameter_list('list');
 END IF;  
 Add_Parameter(pl_id,'PRG_NAME',TEXT_PARAMETER,v_prg_name);  
    
    Add_Parameter(pl_id,'H_DATE',TEXT_PARAMETER,v_h_date);  
  Add_Parameter(pl_id,'H_TIME',TEXT_PARAMETER,v_h_time);  
    
    Add_Parameter(pl_id,'PRG_ID',TEXT_PARAMETER,v_prg_id);  
    Add_Parameter(pl_id,'PRV_ID',TEXT_PARAMETER,v_prv_id);  
    
    Add_Parameter(pl_id,'USER_ID',TEXT_PARAMETER,v_user_id);  
    Add_Parameter(pl_id,'USER_DESC',TEXT_PARAMETER,v_user_desc);  
    Add_Parameter(pl_id,'USER_NAME',TEXT_PARAMETER,v_user_name);  
    Add_Parameter(pl_id,'PASSWORD',TEXT_PARAMETER,v_password);  
  

 CALL_FORM(p_PRG_NAME,no_hide,no_replace,no_query_only,no_share_library_data,pl_id);
destroy_parameter_list('list');
END;  
 
[/color]

أخى الفاضل.....السلام عليك و رحمة الله

هذا الكود هو كود ينادى على فورم لبرنامج ديناميكيا عن طريق مجموعة من الباراميترز...........و من الواضح أن هذا الكود هو جزء من سيكيوريتى على مستوى البرنامج حيث يظهر أنه تم تخزين أسماء الفورمز فى قاعدة بيانات بالأضافة إلى الصلاحيات علها لكل مستخدم ......و عن طريق هذا الكود يتم فتح الفورم عى حسب الصلاحية المتاحة للمستخدم .

أ