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

[Laddy]

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
 

[Strofe]

Bonjour

Voici la fonction adaptée à mon sens

► Afficher le texte

Code : Tout sélectionner

Func Verified()
    $NewGuest[0] = ""
            $NewGuest[1] = GUICtrlRead($nom)
            $NewGuest[2] = GUICtrlRead($prenom)
            $NewGuest[3] = GUICtrlRead($mail)
            $NewGuest[4] = GUICtrlRead($mobile)
    $cestbon = True     
    If $NewGuest[1] = "" Then
        MsgBox(0, "erreur", " Nom Vide")
        $cestbon = False        
    EndIf
    If $NewGuest[2] = "" Then
        MsgBox(0, "erreur", "Prenom vide")
        $cestbon = False
    EndIf
    StringRegExp($NewGuest[3], '(@)', 1)
    If @error == 1 Then
        MsgBox(0, "", "non présent")
        $cestbon = False
    EndIf       
    If StringLen($NewGuest[4]) = "10" Then
        MsgBox(0, "", "pas 10")
        $cestbon = False
    EndIf
    
    If $cestbon = True then DisplayTable()
   
EndFunc   ;==>Verified
 

A+

[mikell]

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
 

[Laddy]

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.

[ZDS]

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 !

[mikell]

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

[Laddy]

Pas de soucis Mikell
Merci ZDS

je testerai demain matin

[Laddy]

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.