PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX - Exemplo de Login
WX - Exemplo de Login
Iniciado por adrianoboller, abr., 16 2015 4:08 AM - 3 respostas
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em abril, 16 2015 - 4:08 AM
//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
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em abril, 16 2015 - 4:09 AM
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}
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em abril, 16 2015 - 4:09 AM
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}
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em abril, 16 2015 - 4:10 AM
:merci: