Exemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
Dans cet exemple d'utilisation des triggers, les traitements effectués sont : - Vérification des droits de l'utilisateur à chaque ajout/suppression - A chaque modification d'une fiche client, calcul du nombre de commandes déjà passées, et demande de confirmation du changement si des commandes ont été passées. - A chaque ajout recherche des clients qui ont le même nom (pour éviter de créer 2 fois le même client) et demande de confirmation si des clients du même nom existent. //----------------------------------------------- //Création de Trigger //----------------------------------------------- //Dans le code d'initialisation du projet local CodeErreurHF est un entier //Création du Trigger pour tous les fichiers de l'analyse CodeErreurHF= HDecritTrigger ("*","HAJOUTE,HMODIFIE,HSUPPRIME,HRAYE,HECRIT","VerifDroitUtilisateur",hTriggerAvant) //Avec "VerifDroitUtilisateur" une procédure globale du projet Si CodeErreurHF<>0 Alors //Le trigger n'a pu être créé Erreur("Erreur sur un trigger : "+CodeErreurHF) Retour Fin //----------------------------------------------- //Destruction de Trigger //----------------------------------------------- //Dans le code de ferneture du projet CodeErreurHF est un entier //Destruction de tous les Triggers du fichiers CLIENT CodeErreurHF= HDecritTrigger ("CLIENT") Si CodeErreurHF<>0 Alors //Le trigger n'a pu être créé Erreur("Erreur sur un trigger : "+CodeErreurHF) Retour Fin
|
||
|