Discussion :

[Moez.B]

Bonjour tout le monde ,
Voilà je suis tout nouveau en Windev et je veux créer mon annuaire d'amis il y a juste un petit probléme quand je veux faire une petite modification .
J'ai créé un fichier hyperfile amis (id auto , nom , prénom , numéro_de_téléphone) , dans la fenêtre principale j'ai créé une table qui comporte la liste des amis par programmation ( ce que j'ai compris c'est que c'est une table mémoire ) et puis 5 boutons(ajouter , supprimer ,modifier, imprimer, Quitter)

Le bouton modifier ouvre une fenetre de saisie qui comporte seulement 1 seul champs(rélié au numéro de téléphone ) et 2 boutons valider pour la mise à jour ou bien annuler pour retourner à la fenêtre principale .Mon idée est quand je clique sur une ligne de ma table puis je clique sur ce bouton de modifier je veux changer seulement la valeur du numéro de téléphone de la ligne en cours dans cette table . MAIS , le résultat est autre que ça car j'obtiens toujours la derniére ligne dans ma table qui est modifiée et pas la ligne que j'ai cliqué.Dans la base aussi , je vois que le changement se fait dans le dernier enregistrement

Voila le code associé au bouton valider dans la fenetre de modification

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
HRecherche(Amis,IDAmis,listeamis.tableamis.clé) 
SI HTrouve(Amis) ALORS
	SI numerotel ="0" OU numerotel="" ALORS
		Info("Entrez le numéro de téléphone") 
		RETOUR
	FIN
	EcranVersFichier(modif,Amis)
	HModifie(Amis)
	Info("modification effective")
	ExécuteTraitement(listeamis,trtPriseFocus)
	Ferme
SINON
	Info("Trés grave erreur")
FIN

Pouvez vous en déduire ou est la faute dans ce code ?
S'il vous aider moi car je suis tout nouveau en Windev et je ne suis que le cours d'autoformation
Merci d'avance

[hegros]

Je verrais plus quelque chose dans ce genre :


Soit une fenêtre A qui contient la table des amis avec un bouton modifier.
Soit une fenêtre B qui permet de modifier l'enregistrement(numéro de téléphone) d'un ami par un bouton valider.


Fenêtre A :

Dans le code du clic sur le bouton modifier je ferais :

Code :

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

1
2
3
4
5
6
IDTable est un entier = TableSelect(Table_Ami)
SI IDTable >0
  Ouvre("Fenetre B" , Table_Ami[IDTable].IDAmi)
SINON
 Erreur("Aucune ligne sélectionnée")
FIN

Fenêtre B :

Initialisation :

Code :

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

Procedure Fenetre_B (PIdAmi)

Code clic sur modifier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
SI CS_NumTel<>NULL
  HDesactiveFiltre(Amis)
  HLitRecherche(Amis,IDAmis,PIdAmi,HIdentique)
  Si HTrouve(Ami) 
    Amis.NumTelephone=CS_NumTel;
    HModifie(Amis)
   Info("Contact mis à jour")
  SINON
   Erreur(ErreurInfo())
  FIN
 SINON
 Erreur("Renseignez un numéro de téléphone") 
FIN

A quelques éléments prêt on va dire.

Ca nécessite que dans la description du champs numero de téléphone tu spécifies de renvoyer NULL au cas ou le champs est laissé vide.

[Jannus]

j'ai créé une table qui comporte la liste des amis par programmation ( ce que j'ai compris c'est que c'est une table mémoire )

Code :

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

EcranVersFichier(modif,Amis)

Il y a déjà ici une contradiction
La fonction EcranVersFichier() est utilisée dans les tables fichiers, pas dans les tables mémoires.

Si je puis me permettre un conseil :
Il est important de saisir les concepts de développement de WD et la philosophie de travail à adopter. Faute de quoi, vous n'utiliserez jamais toute la puissance de WD

Par ex. :
Pour faire un annuaire d'amis, il faut :
1- créer l'analyse (description du/des fichier(s))
2- créer une fenêtre principale avec le menu si nécessaire
3- créer une Table fichier (ou une fenêtre avec Table Fichier si la table n'est pas sur le fenêtre principale)
4- créer une Fenêtre fiche
5- créer un État sur Table
Il n'y a normalement pas une seule ligne de code à taper.

Bien entendu, rien n'empêche de travailler différemment, mais il me semble que cela ne devrait se faire qu'après avoir bien assimilé WD.

[Moez.B]

Salut Hegros et Guardian et meric beaucoup pour les réponse ,
Bon pour hegros , puisque je suis un peu nouveau sur Windev et déja la version que j'utilise est la version 10 dés le début , donc j'ai copié le code de hegros et ça a bon marché et quand j'ai voulu tester pourquoi mon code s'il me semblait trés cohérant et logique ça na pas fonctionné ,
Bon , d'est ce que j'ai compris , moi j'ai utilisé la fonction hrecherche qui renvoie seulement selon l'aide Windev oui ou bien non donc elle ne renvoie pas autre chose et c'est pourcela que toujours aprés une modification ça ne fonctionne qu'à la fin du fichier car il ne teste que sur l'exsitance ...
J'ai chagé seulement dans mon code au lieu de hrecherche par hlitrecherche qui est en plus du oui ou non de la fonction hrecherche raméne toutes les informations de l'enregistrement recherché et ça a bon marché aprés de divers tests ...
Ma deuxiéme faute c'était surtout par l'attention de Guardian parce en faite Ecranversfichier(amis) est contradictoire à ce que je programme comme table mémoire et donc c'est vrai Hegros je vois que bien sur on doit affecter juste le champs numerotel et on modifie dans notre fichier amis
Pour Guardian , je vous dis que seulement moi je connais que Windev est tout puissant et que son wlangage minimise presque à 90% du code mais ce que j'ai voulu vous dire Guardian c'est moi j'ai testé le RAD , RID , j'ai fait même la table fichier et ça a marché mais ce que j'ai voulu faire maintenant c'est avancer un peu plus dans le domaine de la programmation à la fois événementielle , orienté objet et des bases de données de Windev ...
J'avoue que je ne suis pas trés bien adapté à Windev car j'étais sur Oracle , Access , MySql avec Forms, Reports et Vb98 , VB.NET comme interfaceur donc le changement me semble un peu plus radicale que pour toute plateforme de développement ...
Merci d'avance pour vos réponses et vos suggestions
J'espére que ce sujet est maintenant abordé( résolu)
Cordialement