PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
WINDEV 25
→
WX - Exemplo de Login
WX - Exemplo de Login
Started by adrianoboller, Apr., 16 2015 4:08 AM - 3 replies
Connect yourself…
adrianoboller
#1
Registered member
3,659 messages
Popularité : +175 (223 votes)
Posted on April, 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
Report
0
0
adrianoboller
#2
Registered member
3,659 messages
Popularité : +175 (223 votes)
Posted on April, 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
}
Report
0
0
adrianoboller
#3
Registered member
3,659 messages
Popularité : +175 (223 votes)
Posted on April, 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
}
Report
0
0
adrianoboller
#4
Registered member
3,659 messages
Popularité : +175 (223 votes)
Posted on April, 16 2015 - 4:10 AM
Report
0
0
→ Go back to WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text