FJTable v2

Date de publication : Août 2005

Par SheikYerbouti (Page d'accueil)
 

FJTable - des blocs multi-lignes Forms 9i / 10g au look "Java Swing JTable"
(version persistante)

 English version

1. Présentation

• Permuter les colonnes entre elles
• Augmenter / réduire la largeur de chaque colonne
• Trier le bloc sur n'importe quelle colonne basée (ASC/DESC)
• Changer le libellé des colonnes
• Enregistrer ses réglages en base
• Restaurer ses derniers réglages
• Restaurer les réglages d'origine

• FJT_BLOCK qui stocke les informations des blocs
• FJTABLE qui stocke les informations des items

• Forms 9i et Database 9i
• Forms 10g et Database 10g

Si vous utilisez toujours une ancienne version, n'oubliez-pas que vous pouvez télécharger gratuitement (pour test uniquement) une version plus récente sur OTN.

2. Comment invoquer la palette d'options dans un bloc multi-lignes ?

• Shift+
• Caps Lock+
• Control+ (valeur par défaut)
• Alt+
• Command+
• Super+
• Hyper+

3. Quelques copies d'écran

• Enregistrer les réglages en cours
• Restaurer ses derniers réglages
• Restaurer les réglages d'origine

Les réglages sont toujours relatifs au bloc en cours

4. Les composants de l'outil

• Une librairie PL/SQL contenant un package ( fjtable_2.pll )
• Une librairie d'objets contenant un groupe d'objets ( obj_fjtable_2.olb )
• Un script SQL de création des objets en base ( fjtable_install.sql )

5. Procédure d'installation

• Téléchargez le fichier FJTable_2.zip


• Décompressez le fichier FJTable_2.zip


• Ouvrez le script SQL fjtable_install.sql


• Ajustez les ordres de création de tables selon vos propres spécifications (tablespace, extents, etc.)
• Exécutez le script


• Compilez la librairie PL/SQL fjtable_2.pll

• Crééz un schéma spécial pour stocker les tables et la package PKG_FJTABLE
• Crééz des synonymes sur les tables et le package
• Attribuez le droit SELECT sur les tables aux utilisateurs
• Attribuez le droit EXECUTE sur la package aux utilisateurs

Procédure Remove_Object
  PROCEDURE Remove_Object
  (
     PC$Module IN VARCHAR2,
     PC$Block  IN VARCHAR2 DEFAULT NULL
  ) ;

EXECUTE PKG_FJTABLE.Remove_Object( 'EMPLOYES', 'EMP' ) ;

Si vous n'implémentez pas d'identification de vos utilisteurs, ils verront et modifieront tous les mêmes réglages. (La valeur par défaut du paramètre étant 1).

6. Mise en oeuvre dans vos modules Forms

• Ouvrez votre module


• Attachez la librairie fjtable_2.pll


• Ouvrez la librairie d'objets obj_fjtable_2.olb


• Glissez le groupe d'objets GRP_FJTABLE_xxx dans votre forme (noeud : Groupes d'objets) en cliquant le bouton copie par référence
  
  Selon le système de coordonnées défini dans votre module, glissez le Groupe d'objets correspondant:


• GRP_FJTABLE_PIXEL
• GRP_FJTABLE_CM
• GRP_FJTABLE_INCH
• GRP_FJTABLE_POINT
• GRP_FJTABLE_CHAR


• Déplacez le bloc BL_JFMENU en fin de liste des blocs dans le navigateur d'objets


• Déplacez le canevas CV_JFMENU en fin de liste des canevas dans le navigateur d'objets


• Editez le trigger When-New-Form-Instance pour ajouter l'appel de la procédure d'initialisation:

When-New-Form-Instance
PKG_JTABLE.Init 
   ( 
     PC$Can_Resize_Window => :PARAMETER.PM$RESIZEWINDOW,
     PC$Can_Resize_Canvas => :PARAMETER.PM$RESIZECANVAS,
     PN$Initial_Version   => :PARAMETER.PM$INITIAL_VERSION
   ) ;

• Compilez tout et lancez la forme

7. Réglages spéciaux

• Positionnez la propriété du trigger: Ordre d'exécution à : Après


• Assurez-vous que le paramètre PM$SHIFTSTATUS Contient un accélérateur.

8. Traductions

9. Problèmes répertoriés

• Les versions actuelles de Forms ne permettent pas de manipuler à l'exécutions les objets graphiques (frames).
  Ne les utilisez pas dans vos blocs multi-lignes.
  Lorsque l'utilisateur agrandit la taille d'une colonne, la taille du canevas (et de la fenêtre) est automatiquent agrandie, mais pas le cadre graphique qui entoure le bloc !
  
  

Une solution est de remplacer le cadre par un trait horizontal en entête du bloc.

• Ordre des items dans le navigateur d'objets
  
  Les items doivent être ordonnées selon leur coordonnée X sur le canevas
  
  Exemple correct:
  
  

Item	Ordre	Position X
Item1	1	50
Item2	2	100
Item3	3	140

Exemple incorrect:

Item	Ordre	Position X
Item1	1	50
Item2	2	140 (cet item doit être glissé après l'item3 dans le navigateur d'objets)
Item3	3	100





• Lorsqu'un bloc multi-lignes n'affiche pas d'ascenceur, Forms génère une erreur FRM-99999
  
  Le problème vient de l'instruction Get_Block_Property( ..., BLOCKSCROLLBAR_X_POS ).
  
  Si votre forme contient des blocs multi-lignes pour lesquels vous n'affichez pas d'ascenceur, modifiez le trigger de niveau form ON-ERROR ou créez le:

ON-ERROR
Declare
  LN$ErrCode  Number := ERROR_CODE ;
  LC$ErrType  VArchar(3) := ERROR_TYPE; 	
  LC$ErrText  Varchar2(256) := ERROR_TEXT ;
Begin	
  If LN$ErrCode = 99999 and LC$ErrText like '%1413%' Then
  	 -- Error on Get_Block_Property( ..., BLOCKSCROLLBAR_X_POS ) --
  	 -- If Block does not have Scrollbar defined --
  	 Null ;
  Else
     Bell ;
     Message( LC$ErrType || '-' || TO_CHAR(LN$ErrCode) || ': ' || LC$ErrText);
     Raise form_trigger_failure ;
  End if ;
End ;





• Parce qu'il n'est pas possible d'obtenir, à l'exécution, la liste des boutons du Radio Group, ce type d'item ne peux pas être redimensionné dynamiquement.
  
  Lorsqu'un bloc multi-lignes contient un Radio group, la palette d'options ne peut pas être invoquée.