Le guide Oracle Forms 9i/10g

Date de publication : Juin 2005

Cas d'école, trucs et astuces

If EMP.SEXE = 'F' Then
   Set_Item_Property( 'EMP.Prenom', NEXT_NAVIGATION_ITEM, 'EMP.Nom_Jeune_Fille' ) ;
   Set_Item_Property( 'EMP.Adresse', PREVIOUS_NAVIGATION_ITEM, 'EMP.Nom_Jeune_Fille' ) ;   
Else
   Set_Item_Property( 'EMP.Prenom', NEXT_NAVIGATION_ITEM, 'EMP.Adresse' ) ;
   Set_Item_Property( 'EMP.Adresse', PREVIOUS_NAVIGATION_ITEM, 'EMP.Prenom' ) ;      
End if ;

If EMP.Deptno = 10 Then
   Set_Block_Property( 'EMP', NEXT_NAVIGATION_BLOCK, 'BLOC1' ) ;
Else
   Set_Block_Property( 'EMP', NEXT_NAVIGATION_BLOCK, 'BLOC2' ) ;
End if ;

• Forme
• Bloc
• Enregistrement
• Item

• DEFAULT_SCOPE (par défaut Item)
• FORM_SCOPE
• BLOCK_SCOPE
• RECORD_SCOPE
• ITEM_SCOPE

• Obligatoire
• Masque de format
• Valeur minimum
• Valeur maximum

Create_Timer()
Declare
  Timer_id TIMER ;
  LI$Duree PLS_INTEGER := 30000 ; -- 30 secondes
Begin
  Timer_id := Create_Timer( 'tempo_1', LI$Duree, REPEAT ) ;
End ;

When-Timer-Expired
Declare
  LC$Timer VARCHAR2(30) := Get_Application_Property( TIMER_NAME ) ;
  Timer_id TIMER ;
  LC$Bloc  VARCHAR2(30) := :SYSTEM.CURSOR_BLOCK ;
Begin
  If LC$Timer = 'Tempo_1' Then
     Go_Block( 'Messages' ) ;
     Execute_query ;
     Go_Block( LC$Bloc ) ;
  End if ;
End ;

Set_Timer()
-- Changement de la durée seulement --
Set_Timer( 'Tempo_1', 10000, NO_CHANGE ) ;

-- Changement répétition seulement --
Set_Timer( 'Tempo_1', NO_CHANGE, REPEAT ) ;

• FORM_SUCCESS
• FORM_FAILURE
• FORM_FATAL

FORM_SUCCESS
Begin
   -- Changer de bloc --
   Go_Block( 'EMP' ) ;
   -- Ne pas continuer si fonction Ko --
   If Not Form_Success Then
      Message( 'Impossible d''atteindre le bloc EMP', acknowledge ) ;
      -- Arrêt du traitement --
      Raise Form_Trigger_Failure ;
   Else
      -- On continue… --
      Execute_query ;
   End if ;
Exception
   When Form_Trigger_Failure Then
      -- Propagation de l'exception --
      Raise ;
End ;

Commit_Form ;
If :System.Form_Status <> 'QUERY' Then
   Message( 'La validation a échoué', acknowledge ) ;
End if ;

When-Validate-Item
Begin
   If :EMP.Sal > 10000 Then
      Message( 'Le salaire est délirant !', acknowledge ) ;
      -- Arrêt du trigger et retour dans l'item --
      Raise Form_Trigger_Failure ;
   End if ;
End ;

PACKAGE compare IS

  function COMPARAISON (val1 date, val2 date) return number ;
  function COMPARAISON (val1 varchar2, val2 varchar2) return number ;
  function COMPARAISON (val1 number, val2 number) return number ;

END;

PACKAGE BODY compare IS
  
	-- comparaison dates --
	function COMPARAISON (val1 date, val2 date)
	return number is
	answer number := 0;
	begin 
	if val1 = val2 then answer := 1; end if;
	return(answer);
	end;
	
	-- comparaison char --
	function COMPARAISON (val1 varchar2, val2 varchar2)
	return number is
	answer number := 0;
	begin 
	if val1 = val2 then answer := 1; end if;
	return(answer);
	end;
	
	-- comparaison number --
	function COMPARAISON (val1 number, val2 number)
	return number is
	answer number := 0;
	begin 
	if val1 = val2 then answer := 1; end if;
	return(answer);
	end;

END;

Déclencheur When-Validate-Item
:CTRL.CHARSAVE := :EMP.ENAME;
If :CTRL.MATCH_FOUND > 1 then
   Message('Ce code existe déjà');
   Raise form_trigger_failure ;
End if;

• Inutile d'utiliser l'instruction POST pour enregistrer et déclencher l'éventuelle DUPLICATE_KEY au niveau de la base de données
• Fonctionne sur les colonnes ne disposant pas de clé primaire ou clé unique

KEY-ENTQRY
Debut_Query ;
Enter_Query ;

KEY-EXEQRY
Execute_Query ;
If :System.Mode <> 'ENTER-QUERY' Then
	Fin_Query ;
End if ;