PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 24 → WX - Exemplo de Login
WX - Exemplo de Login
Débuté par adrianoboller, 16 avr. 2015 04:08 - 3 réponses
Membre enregistré
2 962 messages
Popularité : +89 (91 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
Membre enregistré
2 962 messages
Popularité : +89 (91 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}
ANDPC001_LoginsWeb.pc001_senha = {pSenha}
Membre enregistré
2 962 messages
Popularité : +89 (91 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}
ANDPC002_ClientesWeb.pc002_senha = {pSenha}
Membre enregistré
2 962 messages
Popularité : +89 (91 votes)
Posté le 16 avril 2015 - 04:10
:merci: