Auteur: Patrick BikerExemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
L'exemple suivant permet de créer une vue et de lire le premier enregistrement de la vue. Cet enregistrement est affiché dans une fenêtre de trace.
|
||
|
Vue1 est une source de données
// Création de la vue SI PAS HCréeVue (Vue1, Categorie, "*", "", "Libelle>='B'", hVueAjoute ) ALORS Erreur(HErreurInfo()) FIN // Parcours de la vue HLitPremier(Vue1) TANTQUE PAS HEnDehors() // Lecture de la rubrique libellé de la Vue1 Trace(Vue1.Libelle) HLitSuivant(Vue1) FIN HDétruitVue(Vue1)
|
||
L'exemple suivant permet de créer une vue avec une condition sur une variable de type numérique.
|
||
|
EXTERNE MaVue
// Création de la vue SI PAS HCréeVue("MaVue", NomFichier, "*", "", ... "NomRubrique = "+Variable, hVueDéfaut ) ALORS Erreur(HErreurInfo()) FIN // Parcours de la vue HLitPremier(MaVue) TANTQUE PAS HEnDehors() // Traitement à insérer HLitSuivant(MaVue) FIN
|
||
L'exemple suivant permet de créer une vue avec une condition sur une variable de type chaîne de caractères.
|
||
|
EXTERNE MaVue
// Création de la vue SI PAS HCréeVue ("MaVue", NomFichier, "*", "", ... "NomRubrique = '"+Variable+"'", hVueDéfaut ) ALORS Erreur(HErreurInfo()) FIN // Parcours de la vue HLitPremier(MaVue) TANTQUE PAS HEnDehors() // Traitement à insérer HLitSuivant(MaVue) FIN
|
||
L'exemple suivant permet de créer une vue, puis de faire une recherche sur une clé composée contenue dans la vue.
|
||
|
// Création de la vue
MaVue est une Source de Données Sablier() HCréeVue (MaVue, Cedex, "*", "", "", hVueDéfaut ) // recherche HLitRecherchePremier(MaVue, "CodePostalVille", ... HConstruitValClé(Cedex,CodePostalVille,"26000","VALENCE")) Sablier( Faux ) SI HTrouve() ALORS Info("Enregistrement trouvé") Trace(MaVue.ville + " " + MaVue.codePostal) SINON Info("Enregistrement non trouvé") FIN
|
