GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
WX - Exemplo de Login
WX - Exemplo de Login
Iniciado por adrianoboller, abr., 16 2015 4:08 AM - 3 respostas
Conecte-se…
adrianoboller
#1
Membro registado
3.657 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
Denunciar
0
0
adrianoboller
#2
Membro registado
3.657 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
}
AND
PC001_LoginsWeb
.
pc001_senha
= {
pSenha
}
Denunciar
0
0
adrianoboller
#3
Membro registado
3.657 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
}
AND
PC002_ClientesWeb
.
pc002_senha
= {
pSenha
}
Denunciar
0
0
adrianoboller
#4
Membro registado
3.657 mensagems
Popularité : +175 (223 votes)
Publicado em abril, 16 2015 - 4:10 AM
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto