PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → Protection d'un fichier
Protection d'un fichier
Débuté par philippeH, 14 oct. 2004 13:59 - 2 réponses
Posté le 14 octobre 2004 - 13:59
Bonjour,

Je voudrais savoir comment modifier le mot de passe d'un fichier après l'avoir créé avec la fonction Hpasse.

Merci
Posté le 15 octobre 2004 - 00:49
Je crois que tu dois l'enlever dans l'analyse, générer ton analyse, le
remettre, régénérer de nouveau ton analyse.
A vérifier.
Antoine

philippeH wrote:
Bonjour,

Je voudrais savoir comment modifier le mot de passe d'un fichier
après l'avoir créé avec la fonction Hpasse.

Merci
Posté le 15 octobre 2004 - 01:00
"Antoine" <antoine.info.dev@free.fr> écrivait news:416edda2$1
@news.pcsoft.fr:

Je crois que tu dois l'enlever dans l'analyse, g‚n‚rer ton analyse, le
remettre, r‚g‚n‚rer de nouveau ton analyse.


Salut,

c'est une solution.

Autre solution sans modifier l'analyse :
Tu duplique ton fichier avec un alias (HAlias)

Exemple basé sur celui de l'aide en ligne de Halias :


// Déclaration de l'alias

ClientTemp est une source de données



// Création de l'alias

SI HAlias(Client,ClientTemp)= Vrai ALORS

// Si le fichier ClientTemp.FIC est dans un autre répertoire, il faut
ajouter :

HChangeNom(ClientTemp,"ClientNv")



//Création physique (ou ouverture) du fichier ClientTemp.FIC
//*****ICI NOUVEAU MOT DE PASSE
HPasse(ClientTemp,"NouveauMotDePasse") //*****ICI
//*****ICI NOUVEAU MOT DE PASSE
HCreationSiInexistant(ClientTemp)

//parcours des enregistrements du fichier ClientTemp.FIC

HLitPremier(ClientTemp, "NomClient")

TANTQUE PAS HEnDehors(ClientTemp)

//Copie en mémoire l'enregistrement du fichier ClientTemp.FIC vers
le fichier Client.FIC

//******** Ici avec hCopieIdAuto en + de l'exemple de l'aide
SI HCopieEnreg(CLIENT, ClientTemp,hCopieIdAuto) ALORS

//Ajout dans la fichier Client.FIC

//(l'identifiant automatique du fichier est systématiquement
recalculé s'il existe)

//******** ICI hFixeIdAuto en plus de l'aide en ligne
HAjoute(Client,hFixeIdAuto)

// Ajout OK ? (Vérifier intégrité et doublon)

SI HErreurDoublon() OU HErreurIntegrité() ALORS

SI PAS OuiNon("Erreur de doublon ou d'intégrité pendant "+ ...

" l'ajout de "+CLIENT.NomCLient+...

" dans le fichier Client.FIC"+RC+"Continuer ?")
ALORS

//Arrêt du traitement de copie des enregistrements

// sortie de la boucle TantQue

SORTIR

FIN

FIN

SINON

//Erreur sur la commande HCopieEnreg

//Affichage d'un message d'erreur

Erreur("Copie d'enregistrement impossible")



//interruption du traitement, sortie de la boucle TantQue

SORTIR

FIN

HLitSuivant(ClientTemp, "NomClient")

FIN

SINON

//Erreur sur la commande HAlias

//Affichage d'un message sur l'erreur

Erreur("Détail du Problème "+HErreurInfo())

FIN



--
En esperant t'avoir aidé.
ted