|
| Iniciado por Boller, abr., 16 2015 4:08 AM - 3 respostas |
| |
| | | |
|
| |
Membro registado
4.520 mensagems |
|
| Publicado em abril, 16 2015 - 4:08 AM |
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
4.520 mensagems |
|
| 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
4.520 mensagems |
|
| 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
4.520 mensagems |
|
| Publicado em abril, 16 2015 - 4:10 AM |
| |
| |
| | | |
|
| | | | |
| | |
|