XAS, Xml Server, Xml Services, XML Kiosk, Administration des comptes, (Web, Web Services, PDA, WidGet, Fat Client)

Administration des comptes, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Mardi 19 Janvier 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Lundi 8 Février 2010	Par	Support France
Thème	Administration des comptes, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmCompte.PicValid_Click

Prototype

Sub PicValid_Click ()

Usage
Administration-des-comptes.PicValid_Click(...)
HTTP (GET,POST)	SOAP WSDL	SOAP REST	XML-RPC

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Sub PicValid_Click ()

Sub PicValid_Click ()
Dim Ret%
Dim s$
Dim s1$
Dim i%
LabMsg(0).Caption = ""
LabMsg(0).ForeColor = 0
Ret = 0



s = Txt(6).Text
If Trim$(s) = "" Then
    Lab(8).ForeColor = 255
    Ret = 1
Else
    If Not CheckDatabaseName(s) Then
	Lab(8).ForeColor = 255
	Ret = 1
    End If
End If

s = Txt(4).Text
If Trim$(s) = "" Then
    Lab(4).ForeColor = 255
    Ret = 1
End If
i = Val(Right$(Cb(0).Text, 6))
If i = 0 Then
    Lab(5).ForeColor = 255
    Ret = 1
End If

s = Txt(13).Text
i = checkEmail(s)
If i <> True Then
    Lab(14).ForeColor = 255
    Ret = 1
End If
s = Txt(11).Text
s1 = Trim$(Right$(Cb(4).Text, 5))
If checkPostalCode(Val(s1), s) = False Then
    Lab(13).ForeColor = 255
    Ret = 1
End If

If Ret = 1 Then
    LabMsg(0).Caption = "Problème dans la saisie" 'DomPerso(0)
    LabMsg(0).ForeColor = 255
    Exit Sub
End If
If ModeCreation = True Then
    Ret = DoInsert(0)
Else
    Ret = DoUpdate(0)
End If

If ModeEasy = True Then
    Ret = DoEasyMode(0)
End If

End Sub

Références Composants

Administration-des-comptes-CHECKMOD-CheckDatabaseName, Administration-des-comptes-CHECKMOD-CheckEmail, Administration-des-comptes-CHECKMOD-CheckPostalcode, Administration-des-comptes-FrmCompte-DoInsert, Administration-des-comptes-FrmCompte-DoUpdate, Administration-des-comptes-FrmCompte-DoEasyMode,

Références XAS.Technology

Trim , Val , Right ,

Audience

Cette documentation est destinée aux personnes s'intéressant aux systèmes d'information collaboratifs.
Les Webservices, les architectures collabortives et distribuées, les moteurs transactionnelles et les concepts de programmation orientés objet.