Discussion :

[winvsmac]

Bonsoir,

Je me lance dans la création d'un petit outil pour mon travail, et je veux cette fois-ci me passer d'une base MySql, et utiliser à la place les fichiers HFSQL.

J'ai créé mon analyse avec tous les fichiers.

Cet outil, doit permettre dans un 1er temps à s'identifier avec un login et un mot de passe. Ces infos sont stockées dans le fichier USER dont voici la description :



Niveau fenêtres du projet, j'ai la fenêtre principale qui contient un menu de connexion et 2 autres qui sont grisés :



Et l'idée et que les 2 autres menus se dégrisent si l'utilisateur a saisi le bon login + mot de passe.

J'ai créé une requête de sélection des données avec 2 paramètres :



et son code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
SELECT 
	USER.USR_LOGIN AS USR_LOGIN,	
	USER.USR_MDP AS USR_MDP
FROM 
	USER
WHERE 
	USER.USR_LOGIN = {pUSR_LOGIN}
	AND	USER.USR_MDP = {pUSR_MDP}

Si je teste cette requête avec comme valeur pour les variables : SU et 2691 tout se passe bien :



1 enregistrement trouvé ce qui est normal :



Maintenant, c'est côté code que cela se corse. En cliquant sur le menu Connexion, j'ouvre cette fenêtre où l'on doit saisir les 2 infos : login et mdp :



Et le code suivant sur le bouton valider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
REQ_Selection_SU.pUSR_LOGIN	= SAI_Login
REQ_Selection_SU.pUSR_MDP	= SAI_MotDePasse
 
SI SAI_Login="SU" ALORS
	SI REQ_Selection_SU.ExécuteRequête()= Faux ALORS
		Erreur(HErreurInfo())
		RENVOYER ""
	SINON
		REQ_Selection_SU.ExécuteRequête()
 
		SI REQ_Selection_SU.NbEnr() <> 1 ALORS
			Info("non")
		SINON
			Info("oui")
			FEN_Main.OPT_Activité..Etat		= Actif
			FEN_Main.OPT_Paramétrage..Etat	= Actif
			Ferme(FEN_Login)
		FIN
	FIN
FIN

Pour le moment, j'ai mis info dans le SI qui regarde ce qu'il se passe en fonction du nombre d'enregistrements trouvés histoire de comprendre ce qu'il se passe.

Si je tape un login et un mot de passe différent de ceux attendus (SU et 2691) rien ne se passe en cliquant sur valider alors que je voudrai avoir au moins le message "NON"
Si je tape le bon login (SU) et quelques soit le mot de passe saisi ensuite, à chaque fois j'ai le message "OUI" qui s'affiche et la fenêtre se ferme et les menus se dégrisent. Cela ne devrait pas être le cas car volontairement j'ai mis un mauvais mot de passe.

J'ai beau regardé sur le net des exemples et l'aide en ligne de PCSoft, j'avoue ne pas comprendre. Sûrement à ma non maîtrise du sujet.

Si qqun peut m'aider pour y voir + clair et comprendre ce que je fais de mal.
Merci à tlm.

[tbc92]

Dans ton code ,tu as ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Si SAI_login = "SU alors 
   // différentes choses
Fin

Donc si SAI_Login n'est pas "SU" , il ne se passera rien, pas d'affichage de Non ni Oui, on ne passe pas par le code que tu nous as montré.

Ensuite, tu testes ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Si REQ_Selection_SU.ExécuteRequête()= Faux

Je ne vois pas le code de ExécuteRequête(), mais à coup sûr, cette fonction renvoie Vrai si la requête s'exécute correctement, et Faux si la requête ne s'exécute pas correctement. Plus clairement, ça renvoie Faux si il y a une erreur de syntaxe dans ta requête, were à la place de where par exemple.
Regarde la documentation de hexecuteRequeteSQL ou mieux ici, dans le paragraphe 'Syntaxe'
Pour récupérer la (les) ligne(s) renvoyées par la requête, il faut utiliser la fonction hLitPremier() (exemple dans le 1er lien ci-dessus).

Sinon, si tu as des connaissances en MySQL ou en SQL en général, je te conseille d'utiliser Windev, mais de garder tes fichiers en MySQL.

[Voroltinquo]

Bonjour,
Déjà, tu testes le fait que SAI_Login="SU" mais tu n'indiques rien sur la conduite à tenir SINON.
Toutefois, pourquoi faire ce test. Si la requête ne renvoie rien, (REQ_Selection_SU.NbEnr() <> 1) on a un mauvais couple c'est ce qui nous importe, que SAI_Login soit ou non égal à "SU".
Donc le test sur REQ_Selection_SU.NbEnr() <> 1 suffit (à condition toutefois de ne pas oublier le SINON ...)

Remarque 1 :
USR_Login est une clé alternative

Remarque 2 :
Il faut crypter le MDP ou le hasher. La deuxième solution évite d'avoir à décrypter le mot de passe pour le comparer avec le MDP saisi.

Le code devient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
FONCTION VérifieMDP(saLogin est chaîne,saMDP est chaîne) : booléen
 
HLitRecherchePremier(USER,AK_USR_Login,saLogin)	//Les erreurs sont centralisées
RENVOYER HashVérifieChaîne(HA_SHA3_256,saMDP,USER.USR_MDP)	//L'algo de hash sera celui utilisé lors de l'enregistrement

Utilisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
SI VérifieMDP(SAI_Login,SAi_MDP)
     Info("OK")
SINON
     Info("NOK")
FIN

[Voroltinquo]

@tbc92
Depuis la V25, ExécuteRequête() est la syntaxe préfixée de HExécuteRequête. Adieu nos HXXX.
Ainsi, HLitPremier(<Source>) devient <Source>.LitPremier

[tbc92]

Lol,
Je viens de recevoir mon numéro de clé pour passer à la dernière version ... alors que je suis resté à WD24.
J'étais passé totalement à coté de cette nouveauté.

[frenchsting]

Bonjour,

Tu as plutôt raté 300 nouveautés d'un coup. Préfixage de toutes les fonctions hXXXX pour WD, WB et WM...

[Voroltinquo]

Sans compter le préfixage pour les tables et certainement d'autres.

[tbc92]

En fait, je n'utilise plus Windev depuis quelques années. A part très occasionnellement, pour consulter du code écrit il y a 10 ou 15 ans.

[winvsmac]

Merci pour vos retours.

Utilisant une version Express, elle n'accepte qu'une seule requête dans le projet.
Je vais donc repasser par une base MySql.

[tbc92]

Dans Windev, il y a la notion de Requete (un fichier .WDR dans le répertoire de ton projet pour chaque requête). Dans WDE, tu es limité à un seul fichier WDR. Ok, possible.
Mais dans Windev ou WDE, tu peux parfaitement exécuter des requêtes sans passer par ces fichiers WDR. Donc a priori sans limitation sur le nombre de requêtes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
sch est une chaine
sch = [
select * from fichier1
order by USR_Login
]
hexecuterequeteSql ( maConnexion, sch, ... )

Et tu peux utiliser WDE avec des tables MySQL.

Mais, soyons honnête, WDE est un outil d'évaluation, on ne peut pas sérieusement l'utiliser. Et si je me souviens bien, si tu crées un projet un peu sérieux en WDE, et que finalement, tu décides de franchir le pas, et acheter Windev, je crois que c'est galère de réouvrir avec WD un projet créé sous WDE.

[popoy]

Mais, soyons honnête, WDE est un outil d'évaluation, on ne peut pas sérieusement l'utiliser. Et si je me souviens bien, si tu crées un projet un peu sérieux en WDE, et que finalement, tu décides de franchir le pas, et acheter Windev, je crois que c'est galère de réouvrir avec WD un projet créé sous WDE.

Salut non c'est l'inverse
On ne peut pas ouvrir d'exemples ou de projets windev avec la version express .
Mais une fois que l'on a ouvert un projet express avec la version avec dongles on ne peut plus réouvrir avec L'Express.

[frenchsting]

Merci pour vos retours.

Utilisant une version Express, elle n'accepte qu'une seule requête dans le projet.
Je vais donc repasser par une base MySql.

Rien ne t'empêche d'utiliser des requêtes "texte" plutôt que des requêtes avec l'assistant. Cela te permettra d'avoir plus de souplesse pour les écrire. Notamment si tu es amené à "empiler" les jointures.

[jlbrd]

Mieux que les requêtes dans des chaines ce sont les variables de type requête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
maRequete est une Requête SQL = 
[
SELECT CLIENT.ID, CLIENT.Nom
FROM CLIENT
order by CLIENT.Nom
]
 
SI HExécuteRequête(maRequete) ALORS
	HLitPremier(maRequete,hForwardOnly+hSansRafraîchir)
	TANTQUE PAS HEnDehors(maRequete)
//
		HLitSuivant(maRequete)
	FIN
SINON
	Erreur("Erreur Exécution Requête",HErreurInfo(hErrComplet))
FIN
HLibèreRequête(maRequete)

à la condition d'avoir une analyse associée, cela présente plusieurs avantages comme
- le contrôle de la syntaxe (mais limité à la compréhension du SQLdu wlangage. C'est à dire pas de syntaxe propriétaire SQL Server ou autre). Ce contrôle sera de nouveau effectué si l'analyse évolue. Par exemple mettra une erreur si la requête contient une colonne qu'on vient de supprimer dans l'analyse

[frenchsting]

Bonjour,

Dans l'idée, c'est bien mais comment fait-on si on a plusieurs connexions ? Et, l'inconvénient majeur (pour moi) est que tu dois avoir une analyse reliée à cette requête.

Par exemple, dans mon projet, j'ai une analyse (pour HFCS) et une base postgresql, sans analyse, donc. Je fais donc à l'ancienne, si je fais une modif dans la structure d'une des tables (HFCS ou pg), je fais une recherche dans dans le code avant suppression.

[tbc92]

Rien ne t'empêche de créer dans ton analyse les descriptions de fichiers pour les fichiers PostgreSQL, mais en fait, je fais comme toi.
J'ai fait il y a quelques années une application assez lourde. Pour être 'réglo', j'ai créé une analyse, et j'ai déclaré certains fichiers dans cette analyse. Mais dans les faits, la majorité de mes fichiers n'apparaissent nulle pas dans l'analyse.
Je perds certaines fonctionnalités, évidemment, mais je ne regrette absolument pas ce choix.

J'ai par exemple des requêtes qui sont construites comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
ch = " select XXXCOLONNESXXX  from XXXTABLESXXX where XXXCLAUSESXXX "
pour i = 1 a n 
   ch_colonnes = ch_colonnes+ ....
   ch_tables = ch_tables + ....
   ch_clauses = ch_clauses+ ....
fin
ch = remplace ( ch, "XXXCOLONNESXXX", ch_colonnes)
ch = remplace ( ch, "XXXTABLESXXX ", ch_tables )
ch = remplace ( ch, "XXXCLAUSESXXX ", ch_clauses)

A quoi me servirait une analyse ou une variable de type requête pour ça.

Et par ailleurs, ma base de données est sous ORACLE, et je ne veux surtout pas que Windev vérifie si ma requête est 'correcte'. Il y a plein de fonctionnalités Oracle qui sont très efficaces, et qui seraient rejetées par le vérificateur de requête Windev.

[frenchsting]

Je plussoie concernant la description de fichiers.
Personnellement, je n'ai même pas besoin de ça en fait. J'utilise soit un hdeclareexterne() si je veux faire un parcours simple, soit rien du tout si je fais une requête SQL.