HDécritRubrique (Exemple)

ONLINE HELP
WINDEV, WEBDEV AND WINDEV MOBILE

Version:

Home | Sign in | English

Help / WLanguage / Managing databases / HFSQL / HFSQL functions

Exemple 1 : Décrire un fichier de données par programmation
Exemple 2 : Création d'un fichier de données par programmation constitué de 3 rubriques dont une clé composée

HDécritRubrique (Exemple)

Voir la page d'aide associée

Exemple 1 : Décrire un fichier de données par programmation

L'exemple suivant permet de décrire un fichier de données par programmation avec ses liaisons, rubriques, ....

UnFichier est une Description de Fichier
UneRubrique est une Description de Rubrique

// Description du fichier "CLIENT"
UnFichier.Nom = "CLIENT"
UnFichier.Type = hFichierNormal
UnFichier.CryptageFic = hCryptageStandard

// Description de la rubrique "NOM"
UneRubrique.Nom = "NOM"
UneRubrique.Type = hRubTexte
UneRubrique.Taille = 40
UneRubrique.TypeClé = hCléUnique
HDécritRubrique(UnFichier, UneRubrique)

// Description de la rubrique "PRENOM"
UneRubrique.Nom = "PRENOM"
UneRubrique.Type = hRubTexte
UneRubrique.Taille = 40
HDécritRubrique(UnFichier, UneRubrique)

// Valide la description du fichier
HDécritFichier(UnFichier)

Exemple 2 : Création d'un fichier de données par programmation constitué de 3 rubriques dont une clé composée

Cet exemple permet de créer un fichier de données par programmation. Ce fichier de données est constitué de deux rubriques simples, et d'une clé composée. Lorsque le fichier de données est créé, il est rempli, et un recherche est effectuée sur la clé composée.

EXTERNE Fic_Temp
EXTERNE Rub1
EXTERNE Rub2
EXTERNE RubCompo

MonFic est une Description de Fichier
MaRub1 est une Description de Rubrique
MaRub2 est une Description de Rubrique
CléComposée est une Description de Rubrique

// Déclaration du fichier
MonFic.Nom = "Fic_TEMP"
MonFic.Type = hFichierNormal

// Déclaration de la rubrique 1
MaRub1.Nom = "RUB1"
MaRub1.Type = hRubTexte
MaRub1.Taille = 20
HDécritRubrique(MonFic, MaRub1)

// Déclaration de la rubrique 2
MaRub2.Nom="RUB2"
MaRub2.Type = hRubTexte
MaRub2.Taille = 20
HDécritRubrique(MonFic, MaRub2)

// Déclaration de la clé composée
CléComposée.Nom = "RubCompo"
CléComposée.FormuleClé = "RUB1+RUB2"

HDécritRubrique(MonFic, CléComposée)

HDécritFichier(MonFic)

HCréation(Fic_temp)
Fic_temp.Rub1 = "Montpellier"
Fic_temp.Rub2 = "Paris"
HAjoute(Fic_temp)

Fic_temp.Rub1 = "Marseille"
Fic_temp.Rub2 = "Lyon"
HAjoute(Fic_temp)

HLitRecherche(Fic_temp, rubCompo, ...
HConstruitValClé(Fic_temp, RubCompo, "Marseille", "Lyon"))
SI HTrouve() = Vrai ALORS
Trace(Fic_temp.Rub1, Fic_temp.Rub2)
FIN