FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 25
→
WX - Exemplo de Login
WX - Exemplo de Login
Débuté par adrianoboller, 16 avr. 2015 04:08 - 3 réponses
Connectez-vous…
adrianoboller
#1
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 16 avril 2015 - 04:08
//Pedidos
ok is
boolean
=
False
Existe is
boolean
=
False
IF
CBOX_
Administrador01
..
Value
=
False
THEN
ok
=
HExecuteQuery
(
QRY_
Select_Cliente
,
hQueryDefault
,
EDT_
E_Mail
,
EDT_
Senha
)
IF
ok
=
True
THEN
FOR EACH
QRY_
Select_Cliente
IF
QRY_
Select_Cliente.pc002_email
=
EDT_
E_Mail
AND
QRY_
Select_Cliente.pc002_senha
=
EDT_
Senha
THEN
Existe
=
True
END
END
ELSE
Existe
=
False
END
ELSE
GloAdmin
=
False
ok
=
HExecuteQuery
(
QRY_
Select_Admin
,
hQueryDefault
,
EDT_
E_Mail
,
EDT_
Senha
)
IF
ok
=
True
THEN
FOR EACH
QRY_
Select_Admin
IF
QRY_
Select_Admin.pc001_email
=
EDT_
E_Mail
AND
QRY_
Select_Admin.pc001_senha
=
EDT_
Senha
THEN
GloAdmin
=
True
Existe
=
True
END
END
ELSE
GloAdmin
=
False
Existe
=
False
END
END
IF
GloAdmin
=
False
AND
Existe
=
True
PageDisplay
(
PAGE_
PedidosUsuario
)
ELSE IF
GloAdmin
=
True
AND
Existe
=
True
PageDisplay
(
PAGE_
PedidosAdmin
)
END
Signaler
0
0
adrianoboller
#2
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 16 avril 2015 - 04:09
SELECT
PC001_LoginsWeb
.
PC001_ID
AS
PC001_ID
,
PC001_LoginsWeb
.
pc001_nome
AS
pc001_nome
,
PC001_LoginsWeb
.
pc001_email
AS
pc001_email
,
PC001_LoginsWeb
.
pc001_senha
AS
pc001_senha
FROM
PC001_LoginsWeb
WHERE
PC001_LoginsWeb
.
pc001_email
= {
pEmail
}
AND
PC001_LoginsWeb
.
pc001_senha
= {
pSenha
}
Signaler
0
0
adrianoboller
#3
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 16 avril 2015 - 04:09
SELECT
PC002_ClientesWeb
.
pc002_email
AS
pc002_email
,
PC002_ClientesWeb
.
pc002_senha
AS
pc002_senha
FROM
PC002_ClientesWeb
WHERE
PC002_ClientesWeb
.
pc002_email
= {
pEmail
}
AND
PC002_ClientesWeb
.
pc002_senha
= {
pSenha
}
Signaler
0
0
adrianoboller
#4
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 16 avril 2015 - 04:10
Signaler
0
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte