Le guide Oracle Forms 9i/10g

Date de publication : Juin 2005

Forms et PL/SQL

Définition

• Menu
• Librairie PL/SQL
• Déclencheur
• Unité de programme

Concept

• Variables déclarées dans la section Declare d'un bloc PL/SQL
• Variables globales
• Items de la forme
• Paramètres de la forme
• Variables globales de package internes à la forme
• Variables globales de package stockées en librairie PL/SQL

PROCEDURE xx IS

  -- variable de type enregistrement --
  TYPE zz IS RECORD( a varchar2(10), b number(3));
  -- tableau d'enregistrements --
  TYPE t_zz IS TABLE OF zz INDEX BY BINARY_INTEGER ;
  tableau t_zz ;
  LC$Item  VARCHAR2(32767) ;
  LI$Nbr   PLS_INTEGER := 0 ;
  LD$Date  DATE ;

BEGIN

  LC$Item := Rpad( 'X', 32000, 'X' ) ;
  LD$Date := SYSDATE ;
  
  Select
     Count(*)
  Into
     LI$Nbr
  From
     EMP
  ;
  
  For i IN 1..10 Loop
    tableau(i).a := CHR(i+64) ;
    tableau(i).b := i ;
  End loop ;

END;

Begin
   :GLOBAL.NOMBRE_MAXI := To_char( 18 * 140 ) ;
   :GLOBAL.DATE_JOUR   := To_char( SYSDATE, 'DD/MM/YYYY' ) ;
   :GLOBAL.MESSAGE     := 'Bonjour système solaire' ;

   If :GLOBAL.MESSAGE LIKE 'Bon%' Then
      ...
   End if ;
End ;

Default_value( 'Bonjour', 'GLOBAL.MESSAGE' );

Erase( 'GLOBAL.NOMBRE_MAXI' ) ;

• VARCHAR2
• NUMBER
• DATE
• DATETIME
• LONG
• REF OBJET

Begin

  :EMP.ENAME := 'SCOTT' ;
  :BLOC1.DATEJOUR := SYSDATE ;

  If :EMP.DEPTNO = 10 Then
    ...
  End if ;

End ;

• CHAR
• NUMBER
• DATE

Begin

  :EMP.EMPNO := :PARAMETER.NUM_EMP ;
  Go_Block( 'EMP' ) ;
  Execute_Query ;

  :PARAMETER.NOMBRE := 2000 ;

End ;

PACKAGE BODY PKG_TEST 
IS
  -- Variable globales du package --
  GC$Texte   Varchar2(2000);
  GN$Nbre   Number ;

  -- Foncions et procédures --
  Function xx () Return ... IS ...
  Procedure yy() IS ...

Begin
  -- Initialisation des variables globales du package --  
  GC$Texte := 'Variable visible pendant toute la session' ;
  GN$Nbre := 10 ;
End PKG_TEST ;

Mise en oeuvre

• :Bloc.item := 10 ;
• :GLOBAL.truc := 'Chose' ;
• LC$Nom := :PARAMETER.NOM_UIL ;

LC$Nom := Name_In( 'PARAMETER.NOM_UTIL' ) ;

-- récupérer la valeur d'un item dont le nom est passé en paramètre --
LC$Item := :SYSTEM.TRIGGER_ITEM ;
LC$Val  := Name_In( LC$Item ) ;

Copy( source, destination ) ;

Copy( 'Scott', 'EMP.ENAME' ) ;
Copy( 'Chose', 'GLOBAL.truc' ) ;
Copy( Name_In( 'EMP.ENAME' ), 'GLOBAL.truc' ) ;

Declare
  LC$Item  Varchar2(61) ;
Begin
  For i IN 1 .. 10 Loop
    LC$Item := 'BLOC.IT_' || Ltrim( To_char( i ) ) ;
    Copy( LN$I, LC$Item ) ;
  End loop ;
End;

CREATE SYNONYM PKG_RECHERCHE FOR SCOTT.PKG_RECHERCHE;

CREATE SYNONYM LYON_PKG_RECHERCHE FOR SCOTT.PKG_RECHERCHE@LYON;

CREATE SYNONYM LYON_RECHERCHE FOR SCOTT.PKG_RECHERCHE.Fonction@LYON;

• Fonctions, procédures, packages
• Déclencheurs pour les tables et le vues
• Code PL/SQL des méthodes affectées aux types objets

Techniques avancées

• Déclencheurs de niveau forme
• Déclencheurs de niveau bloc
• Déclencheurs de niveau item
• Unités de programmes

PROCEDURE When_Validate_Item
Is
  -- nom de l'item qui a généré le déclencheur --
  LC$Item  Varchar2(61) := :SYSTEM.TRIGGER_ITEM ;
Begin
  If LC$Item = 'EMP.EMPNO' Then
     -- Traitement de validation de EMP.EMPNO
  Elsif LC$Item = 'EMP.EMPNAME' Then
     -- Traitement de validation de EMP.ENAME
  Elsif LC$Item = 'EMP.JOB' Then
     ...
     ...
  End if ;
End ;

Begin
   When_Validate_Item ;
End

• Un littéral
• Une expression ou une variable de type VARCHAR2
• Une instruction du DML
• Une instruction du DDL

FORMS_DDL
-- Annulation de la transaction en base --
Forms_ddl( 'ROLLBACK' ) ;

-- Changement de paramètre --
Forms_ddl( 'ALTER SESSION SET NLS_DATE = ''DD/MM/YYYY HH24:MI:SS'' ' ) ;

-- Manipulation dynamiques --
Declare
  LC$Sql  Varchar2(1000);
Begin
  LC$Sql := 'BEGIN CREATE TABLE X ( COL1 VARCHAR2(10), COL2 NUMBER(5) ) ;'
  LC$Sql := LC$Sql || ' INSERT INTO X VALUES(''Code1'', 10 ) ;' ;  
  LC$Sql := LC$Sql || ' INSERT INTO X VALUES(''Code2'', 15 ) ;' ;  
  LC$Sql := LC$Sql || ' INSERT INTO X VALUES(''Code3'', 20 ) ; END;' ;      
  Forms_ddl( LC$Sql ) ;
  ...
  ...
  Forms_ddl( 'DROP TABLE X' ) ;
End ;  

-- Appel d'une procédure stockée --
Forms_ddl ( 'BEGIN Control_Insertion_Employé ; END ;' ) ;

Forms_ddl ( 'BEGIN Control_Insertion_Employé( :EMP.EMPNO ) ; END ;' ) ;

Forms_ddl ( 'BEGIN Control_Insertion_Employé(' || To_char(:EMP.EMPNO) || ') ; END ;' ) ;