pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

ConstruitTableFichier (en anglais BuildBrowsingTable)

// Affiche le contenu du fichier "LESCLIENTS" dans TABLE1
ConstruitTableFichier (TABLE1, "LESCLIENTS", taAvecIDAuto )


Début de la page

FichierVersTableMemoire (en anglais FileToMemoryTable)

// Remplir TABLE1 avec le contenu de REQUETE1
FichierVersTableMémoire (TABLE1, "REQUETE1")


Début de la page

TableAffiche (en anglais TableDisplay)

// Rafraîchissement de la table "TableProduit"
// à partir du début de la table
TableAffiche (TableProduit, taDébut )


Début de la page

TableAjoute (en anglais TableAdd)

// Ajout de "Dubois", "Pierre" et "21/06/72"
// à la fin de la table "TableClient"
ResAjout = TableAjoute (TableClient, "Dubois" + TAB + "Pierre" + ...
                        TAB + "21/06/72")


Début de la page

TableAjouteLigne (en anglais TableAddLine)

// Ajout des éléments "Dubois" et "Pierre" dans la dernière
// ligne de la table "TableProduit"
TableAjouteLigne (TableProduit, "Dubois", "Pierre")


Début de la page

TableAjuste (en anglais TableAdjust)

// Modification des titres et de la largeur des deux
// premières colonnes de la table "TableProduit"
TableAjuste(TableProduit, "Réf" + TAB + "50" + TAB + "C" + TAB + ...
       "12" + RC + "Désignation" + TAB + "200" + TAB + "G" + TAB + "12")


Début de la page

TableCherche (en anglais TableSeek)

// Recherche l'élément "Chemise" dans la colonne "ColProduit"
// Recherche générique à partir de ligne 5
ResCherche = TableCherche (ColProduit, "Chemise", Faux , 5)


Début de la page

TableCherche (en anglais TableSeek)

// Permet de lister toutes les occurrences d'une valeur recherchée.
Résultat est un entier
Résultat = TableCherche (NomColonne, "ValeurRecherchée", Vrai )
TANTQUE Résultat <> "-1"
    Trace(Résultat)
    Résultat = TableCherche (NomColonne, "ValeurRecherchée", Vrai , Résultat + 1)
FIN


Début de la page

TableColonnesTriees (en anglais TableSortedColumn)

Résultat est une chaîne
Résultat = TableColonnesTriées (Table1)


Début de la page

TableDeplaceColonne (en anglais TableMoveColumn)

// Déplacement de la colonne "PrixProduit" tout à gauche
// dans la table "TableProduit"
TableDéplaceColonne (TableProduit, PrixProduit, 1)


Début de la page

TableEnregistre (en anglais TableSave)

// Enregistrement de la table "TableProduit"
TableEnregistre (TableProduit)


Début de la page

TableEnumereColonne (en anglais TableEnumColumn)

// Nom de la troisième colonne de la table "TableProduit"
ResNomColonne
= TableEnumèreColonne ( TableProduit , 3 )


Début de la page

TableFin (en anglais TableEnd)

// Arrêt du parcours du fichier lié à la table "TableProduit"
TableFin (TableProduit)


Début de la page

TableFixeColonne (en anglais TableFixColumn)

// Fixe/libère une colonne avec un bouton
// Clic sur le bouton
SI TableFixeColonne (COLONNE) ALORS
   // La colonne était fixée
  
TableFixeColonne (COLONNE, Faux ) // On la libère
SINON
   // La colonne était libre
  
TableFixeColonne (COLONNE, Vrai ) // On la fixe
FIN


Début de la page

TableIndiceColonne (en anglais TableColumnSubscript)

// Indice de la colonne "Réf" de la table "Produit"
// L'ordre d'affichage est pris en compte
ResIndiceColonne = TableIndiceColonne (Produit, Réf, ticAffichage )


Début de la page

TableIndiceColonne (en anglais TableColumnSubscript)

// Indice de la colonne "Réf" de la table "Produit"
// L'ordre d'affichage est pris en compte
ResIndiceColonne = TableIndiceColonne (Produit, Réf)


Début de la page

TableInfoXY (en anglais TableInfoXY)

// Code de clic sur la table TABLE1
Ligne
est un entier
Colonne est une chaîne
// sélection sur la table TABLE1
Ligne = TableInfoXY (TABLE1, tiNUMLIGNE , SourisPosX(), SourisPosY())
Colonne = TableInfoXY (TABLE1, tiNOMCOLONNE , SourisPosX(), SourisPosY())
TRACE("Vous avez sélectionné la cellule ("+Colonne+", "+Ligne+")")


Début de la page

TableInfoXY (en anglais TableInfoXY)

// Indice de la ligne au point (50, 100) de la table "TableProduit"
ResInfo = TableInfoXY (TableProduit, tiNumLigne , 50, 100)


Début de la page

TableInsere (en anglais TableInsert)

// Insertion des éléments "Paul" et "Dubois" dans la cinquième
// ligne de la table "TableClient"
ResInsertion = TableInsère (TableClient, "Paul" + TAB + "Dubois", 5)


Début de la page

TableInsereLigne (en anglais TableInsertLine)

// Insertion des éléments "Paul" et "Dubois" dans la cinquième
// ligne de la table "TableClient"
TableInsèreLigne (TableClient, 5, "Paul", "Dubois")


Début de la page

TableModifie (en anglais TableModify)

// Modification des éléments "Paul" et "Dubois" de la cinquième
// ligne de la table "TableClient"

TableModifie (TableClient, "Paul" + TAB + "Dubois", 5)


Début de la page

TableModifie (en anglais TableModify)

//Modification dans une colonne d'une table
TableModifie (NOM,"Dubois",5)


Début de la page

TableModifieLigne (en anglais TableModifyLine)

// Modification des éléments "Paul" et "Dubois" de la cinquième
// ligne de la table "TableClient"
TableModifieLigne (TableClient, 5, "Paul", "Dubois")


Début de la page

TableNumEnr (en anglais TableRecNum)

// Numéro d'enregistrement en cours dans la table "TableProduit"
ResNumEnr = TableNumEnr (TableProduit)


Début de la page

TableOccurrence (en anglais TableCount)

// Nombre de lignes présentes dans la table "TableProduit"
ResNombreLigne = TableOccurrence (TableProduit)


Début de la page

TablePosition (en anglais TablePosition)

// Indice de la première ligne affichée dans la table "Produit"
ResPosition = TablePosition (Produit)


Début de la page

TableSaisieEnCours (en anglais TableInputInProgress)

// Si l'utilisateur n'est pas en train de saisir dans la table
SI TableSaisieEnCours (TABLE1) = Faux  ALORS
   // Met à jour la table
   TableAffiche(TABLE1)
FIN


Début de la page

TableSaisieLoupe (en anglais TableInputSearch)

// Passe la colonne Colonne_Date de la table Table1 en mode saisie
TableSaisieLoupe (TABLE1.COLONNE_DATE)
// Passe la colonne Colonne_Nom en mode saisie
TableSaisieLoupe (COLONNE_NOM)


Début de la page

TableSelect (en anglais TableSelect)

// Indice de la ligne sélectionnée dans la table "Produit"
ResSelect = TableSelect (Produit)


Début de la page

TableSelect (en anglais TableSelect)

// Lignes sélectionnées dans une table
// mémoire multi-sélection
i est un entier
NbSelectionne est un entier = TableSelectOccurrence(TABLE1)
POUR i=1 A NbSelectionne
  
Trace("Elément sélectionné : "+TableSelect(TABLE1,i))
FIN


Début de la page

TableSelectMoins (en anglais TableSelectMinus)

// Dé-sélectionne la ligne 5 dans la table "TableProduit"
TableSelectMoins (TableProduit, 5)


Début de la page

TableSelectOccurrence (en anglais TableSelectCount)

// trace le contenu des lignes sélectionnées
i est un entier
NbSelectionne est un entier = TableSelectOccurrence ( Table_PRODUIT )
POUR i=1 A NbSelectionne
    Trace("Ligne sélectionnée : "+Table_PRODUIT[TableSelect(Table_PRODUIT,i)])
FIN


Début de la page

TableSelectPlus (en anglais TableSelectPlus)

// Sélection de la ligne 5 dans la table "TableProduit"
TableSelectPlus (TableProduit, 5)


Début de la page

TABleSelectVersFichier (en anglais TableSelectToFile)

i est un entier
POUR i = 1 A TableSelectOccurrence(Table_Produit)
   TableSelectVersFichier (Table_Produit,i)
   Trace(Produit.IdProduit)
FIN


Début de la page

TableSupprime (en anglais TableDelete)

// Suppression de la ligne 5 dans la table "TableProduit"
TableSupprime (TableProduit, 5)


Début de la page

TableSupprimeTout (en anglais TableDeleteAll)

// Suppression de toutes les lignes dans la table "TableProduit"
TableSupprimeTout
( TableProduit )


Début de la page

TableTrie (en anglais TableSort)

// Tri des colonnes "Désignation" et "Prix" dans la table "Produit"
// La colonne "Désignation" est triée dans l'ordre croissant
// La colonne "Prix" est triée dans l'ordre décroissant
TableTrie(Produit, "Désignation", "-Prix")


Début de la page

TableVersExcel (en anglais TableToExcel)

sFic est une chaîne
// On demande le nom du fichier
sFic = fSélecteur("", "", "Choisissez le fichier d'exportation", ...
          "Fichiers Excel (*.xls) *.xls", "xls", fSelCrée + fSelExiste )
// Si le nom n'a pas été fourni, on abandonne l'export
SI sFic = "" ALORS RETOUR
// Sinon, on exporte le contenu de la table TABLE1
TableVersExcel ("TABLE1", sFic, taSansTitre )


Début de la page

TableVersWord (en anglais TableToWord)

sFic est une chaîne
// On demande le nom du fichier
sFic = fSélecteur("", "", "Choisissez le fichier d'exportation", ...
          "Fichiers Word (*.rtf) *.rtf", "rtf", fSelCrée + fSelExiste )
// Si le nom n'a pas été fourni, on abandonne l'export
SI sFic = "" ALORS RETOUR
// Sinon, on exporte le contenu de la table TABLE1
TableVersWord ("TABLE1", sFic, taSansTitre )


Début de la page

TableVersWord (en anglais TableToWord)

sFic est une chaîne
// On demande le nom du fichier
sFic = ComplèteRep(fRepExe()) +"MonDOCS" + ConnexionOccurrence() +".doc"
// Si le nom n'a pas été fourni, on abandonne l'export
SI sFic = "" ALORS RETOUR
// Sinon, on exporte le contenu de la table TABLE1
TableVersWord (TABLE1, sFic, taSansTitre )


Début de la page

TableVersXML (en anglais TableToXML)

sFic est une chaîne
// On demande le nom du fichier
sFic = fSélecteur("", "", "Choisissez le fichier d'exportation", ...
         "Fichiers XML (*.XML) *.xml", "xml", fSelCrée + fSelExiste )
// Si le nom n'a pas été fourni, on abandonne l'export
SI sFic = "" ALORS RETOUR
// Sinon, on exporte le contenu de la table TABLE1
TableVersXML ("TABLE1", sFic, taSansTitre )


Début de la page

TableVersXML (en anglais TableToXML)

sFic est une chaîne
// On demande le nom du fichier
sFic = ComplèteRep(fRepExe()) +"MonXML" + ConnexionOccurrence() +".xml"
// Si le nom n'a pas été fourni, on abandonne l'export
SI sFic = "" ALORS RETOUR
// Sinon, on exporte le contenu de la table TABLE1
TableVersXML (TABLE1, sFic, taSansTitre )


Début de la page