AutoIt Français

Bonjour à tous

je me trouve vers vous pour m'aider à y voir plus clair.

J'essaie de vérifier tous les champs de saisie de mes input mais je n'y arrive pas, à chaque fois, si j'entre une chose, il ne vérifie pas la suite.
J'ai essayé de simplifier mon code à une listview (j'essaie d'apprendre mysql)

Mon souci est de savoir comment faire pour :

verifier que le nom n'est pas vide puis continuer
vérifier que le champ prénom n'est pas vide si oui msgbox puis continuer
vérifier que le champ mail contient @ si oui msgbox puis continuer
vérifier que le champ mobile comporte 10 chiffres si non msgbox puis continuer

corriger les champs manquants
et enfin valider la saisie si tout est ok.

Est ce quelqu'un pourrait me corriger ?

► Afficher le texteCode

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include "MySQL.au3"
;exemple topxm
;voir udf mysql http://www.autoitscript.com/forum/topic/20814-mysql-udfs/

Dim $NameList
Dim $UserName = "root"
Dim $Password = ""
Dim $Database = "contacts"
Dim $MySQLServerName = "localhost"
Dim $TableName = "contactme"
Dim $Column = "id"

Global $nom, $prenom, $mail, $mobile

Dim $ColumnNames[5]

$ColumnNames[0] = "id"
$ColumnNames[1] = "Nom"
$ColumnNames[2] = "Prenom"
$ColumnNames[3] = "email"
$ColumnNames[4] = "Mobile"



#Region ### START Koda GUI section ### Form=C:UsersCariDesktopSQLcontacts.kxf
Global $Form1 = GUICreate("Contacts", 625, 451, 222, 113)
$nom = GUICtrlCreateInput("", 56, 24, 409, 21)
$prenom = GUICtrlCreateInput("", 56, 56, 409, 21)
$mail = GUICtrlCreateInput("", 56, 96, 409, 21)
$mobile = GUICtrlCreateInput("", 56, 136, 409, 21)
Global $Label1 = GUICtrlCreateLabel("Nom", 8, 32, 26, 17)
Global $Label2 = GUICtrlCreateLabel("Prénom", 8, 64, 40, 17)
Global $Label3 = GUICtrlCreateLabel("Mail", 16, 96, 23, 17)
Global $Label4 = GUICtrlCreateLabel("Mobile :", 8, 136, 41, 17)
;Global $Edit1 = GUICtrlCreateListView("", 8, 176, 601, 257)
$lview = GUICtrlCreateListView("", 8, 176, 601, 257);,$LVS_NOCOLUMNHEADER)
_GUICtrlListView_AddColumn($lview, "Nom", 95)
_GUICtrlListView_AddColumn($lview, "Prénom", 95)
_GUICtrlListView_AddColumn($lview, "Mail", 120)
_GUICtrlListView_AddColumn($lview, "Mobile", 100)
Global $Button1 = GUICtrlCreateButton("Enregister", 496, 72, 121, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $NewGuest[5]



While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Verified()
    EndSwitch
WEnd

Func Verified()
    $NewGuest[0] = ""
            $NewGuest[1] = GUICtrlRead($nom)
            $NewGuest[2] = GUICtrlRead($prenom)
            $NewGuest[3] = GUICtrlRead($mail)
            $NewGuest[4] = GUICtrlRead($mobile)
    If $NewGuest[1] = "" Then
        MsgBox(0, "erreur", " Nom Vide")
        If $NewGuest[2] = "" Then
            MsgBox(0, "erreur", "Prenom vide")
            StringRegExp($NewGuest[3], '(@)', 1)
            If @error == 1 Then
                MsgBox(0, "", "non présent")
                If StringLen($NewGuest[4]) = "10" Then
                    MsgBox(0, "", "pas 10")
                EndIf
            EndIf
        EndIf
    Else
        DisplayTable()
    EndIf
EndFunc   ;==>Verified
#Region Functions
Func DisplayTable()
    $Index = _GUICtrlListView_AddItem($lview, GUICtrlRead($nom))
    _GUICtrlListView_AddSubItem($lview, $Index, GUICtrlRead($prenom), 1)
    _GUICtrlListView_AddSubItem($lview, $Index, GUICtrlRead($mail), 2)
    _GUICtrlListView_AddSubItem($lview, $Index, GUICtrlRead($mobile), 3)
EndFunc   ;==>DisplayTable

Bonjour

Voici la fonction adaptée à mon sens

► Afficher le texte

A+

On pourrait aussi l'envisager comme ça

Code : Tout sélectionner

Func Verified()
 Local $warning = ""
If GUICtrlRead($nom)  = "" Then $warning &= "Veuillez remplir le champ nom" & @crlf
If GUICtrlRead($prenom)  = "" Then $warning &= "Veuillez remplir le champ prénom" & @crlf
If not StringInStr(GUICtrlRead($mail), '(@)') Then $warning &= "email non valide"
If StringLen(GUICtrlRead($mobile)) <> "10" Then $warning &= "pas 10"
If $warning = "" Then 
    Return 
Else
    MsgBox(0, "erreur", $warning)
EndIf
EndFunc   ;==>Verified

Bonjour à tous deux

Strofe > je vais tester si c'est ok

mikell > ta solution est pas mal sauf que cette ligne ne fonctionne pas
If not StringInStr(GUICtrlRead($mail), '(@)') Then $warning &= "email non valide"
que je met un @ ou sans @ il me dit que pas valide.

Bonjour,

C'est normal que ça ne soit pas bon avec la commande de StringInStr(..., '(@)'), puisqu'il s'attend à voir un arobase entourée de parenthèses. StringInStr ne réagit pas avec une regExp. La syntaxe correcte est donc :

Code : Tout sélectionner

If not StringInStr(GUICtrlRead($mail), '@') Then $warning &= "email non valide"

A bientôt !

encore un code écrit un peu vite... sorry

Pas de soucis Mikell
Merci ZDS

je testerai demain matin

Au passage j'ai une question les experts sql

dans ma table j'ai le champ mobile int(11) Null si je met des 0 dans le champ input, il n'apparaisse pas à l'affichage
je me retrouve avec des numéros de telephone tronqués.

AutoIt Français

[R] Vérifier les champs de saisie avant execution

[R] Vérifier les champs de saisie avant execution

Re: [..] Vérifier les champs de saisie avant execution

Re: [..] Vérifier les champs de saisie avant execution

Re: [..] Vérifier les champs de saisie avant execution

Re: [..] Vérifier les champs de saisie avant execution

Re: [..] Vérifier les champs de saisie avant execution

Re: [..] Vérifier les champs de saisie avant execution

Re: [R] Vérifier les champs de saisie avant execution