Le guide Oracle Forms 9i/10g

Date de publication : Juin 2005

Les différents statuts de la forme et variables système

• CHANGED indique que la forme contient au moins un bloc dont au moins un enregistrement a été modifié
• NEW indique que la forme ne contient que de nouveaux enregistrements
• QUERY indique qu'un query est ouvert et qu'aucun bloc ne contient d'enregistrement modifé

-- Données à enregistrer ? --
If :SYSTEM.FORM_STATUS = 'CHANGED' Then
   Commit_Form ;
End if ;

• CHANGED indique que le bloc contient au moins un enregistrement modifié
• NEW indique que le bloc ne contient que de nouveaux enregistrements
• QUERY indique que le bloc ne contient que des enregistrements valides

-- Données à enregistrer ? --
If :SYSTEM.BLOCK_STATUS = 'CHANGED' Then
   Commit_Form ;
End if ;

• CHANGED indique que l'enregistrement est modifié
• INSERT indique que la présence d'un nouvel enregistrement (non présent en base)
• NEW indique qu'un nouvel enregistrement est créé (il ne contient alors aucune valeur)
• QUERY indique que l'enregistrement est valide (non modifié)

-- Enregistrement modifié ? --
If :SYSTEM.RECORD_STATUS In ('CHANGED','INSERT') Then
   Commit_Form ;
End if ;   
Clear_Record ;

• NORMAL indique que la forme est en mode normal (saisie)
• ENTER-QUERY indique que la forme est en mode interrogation
• QUERY indique que la forme est en train d'exécuter un query

When-New-Item-Instance (niveau bloc)
If :SYSTEM.CURSOR_ITEM = 'EMP.EMPNO'
And :SYSTEM.MODE = 'ENTER-QUERY' Then
   Show_Lov( 'LOV_EMP' ) ;
End if ;

When-New-Block-Instance (niveau forme)
Declare
  LC$Bloc  Varchar2(30) := :System.trigger_Block ;
Begin
  If LC$Bloc = 'EMP' Then
     ...
  Elsif LC$Bloc = 'DEPT' Then
     ...
  End if ;
End ;

When-New-Item-Instance (niveau forme)
Declare
  LC$Item  Varchar2(61) := :System.trigger_Item ;
Begin
  If LC$Item = 'EMP.EMPNO' Then
     ...
  Elsif LC$Item = 'DEPT.DEPTNO' Then
     ...
  End if ;
End ;

Declare
   LC$Item  Varchar2(61) := :System.Cursor_Item ;
Begin
   If LC$Item = 'EMP.EMPNO' Then
      ...
   End if ;
End ;

Message( 'Modification de l''enregistrement n° : ' || :System.Cursor_Record ) ;

If :System.Cursor_Value = '50' Then
   ...
End if ;

-- Synchronisation avec la date de la base toutes les 30 secondes --
:System.Date_Threshold := '00:30' ;

-- Test de la forme à une date dans le futur --
:System.Effective_Date := '01-DEC-2010 14:00:00' ;

• WHEN-WINDOW-ACTIVATED
• WHEN-WINDOW-CLOSED
• WHEN-WINDOW-DEACTIVATED
• WHEN-WINDOW-RESIZED

• Shift+
• Caps Lock+
• Control+
• Alt+
• Command+
• Super+
• Hyper+

Declare
  LN$Btn  Varchar2(1) := :System.Mouse_Button_Pressed ;
Begin
  If LN$Btn = '1' Then
     Message('Bouton gauche' );
  ElsIf LN$Btn = '2' Then
     Message('Bouton milieu' );
  Else
     Message('Bouton droit' );  
  End if ;
End ;

• Shift+ touche Majuscule enfoncée
• Ctrl+ touche Contrôle enfoncée
• Alt+ touche alt enfoncée
• Shift+Ctrl+ touches Majuscule + Contrôle enfoncées

-- Fermeture de la forme précédente --
Declare
  LN$Id  FORMMODULE ;
Begin
  LN$Id.ID := To_Number( :System.Last_Form ) ;
  Close_Form( LN$Id ) ;
End ;

-- Boucle sur les enregistrements du bloc --
Begin
   First_Record ;
   Loop
      Exit when :System.last_Record = 'TRUE' ;
      ...
      Next_Record ;
   End loop ;
End ;

• 0 (défaut)
• 5
• 10
• 15
• 20
• 25

Declare
  LN$MsgNum Pls_Integer := :System.Message_Level ;
Begin
  :System.Message_Level := 5 ;
  Commit_Form ;
  :System.Message_Level := LN$MsgNum ;
End ;

-- Supression du message --
:System.Suppres_Working := 'TRUE' ;
Go_block( 'EMP' ) ;
Execute_Query ;
Go_block( 'DEPT' ) ;
Execute_Query ;
...
:System.Suppres_Working := 'FALSE' ;