WINDEV Mobile Exemplo de Login para as suas aplicações mobile, pronto para usar:
Login com usuario e senha
Esqueci minha senha
Pergunta secreta e resposta secreta
Nova senha e confirma senha
Novo Usuario
Menu do sistema
Projeto pronto pra começar um sistema login.
Melhorias mandem para o meu e-mail: adrianoboller@gmail.com
//--------------------------------------------------------------------------------------
-- Script generated by WINDEV Mobile on 17/01/2023 20:39:24
-- Tables of WM_Clientes.wda analysis
-- for PostgreSQL
-- Creating the t000_config table
CREATE TABLE "t000_config" (
"t000_config_id" SERIAL8 PRIMARY KEY NOT NULL ,
"t000_descricao" VARCHAR(50) NOT NULL UNIQUE ,
"t000_valor" TEXT );
-- Creating the t001_clientes table
CREATE TABLE "t001_clientes" (
"t001_cliente_id" SERIAL8 PRIMARY KEY NOT NULL ,
"t001_nome" VARCHAR(50) NOT NULL UNIQUE ,
"t001_cpf" VARCHAR(20) NOT NULL UNIQUE ,
"t001_cep" VARCHAR(10) ,
"t001_endereco" VARCHAR(50) ,
"t001_complemento" VARCHAR(50) ,
"t001_bairro" VARCHAR(50) ,
"t001_cidade" VARCHAR(50) ,
"t001_uf" VARCHAR(2) ,
"t001_nascimento" DATE ,
"t001_email" VARCHAR(50) ,
"t001_fone" VARCHAR(20) ,
"t001_usuario" VARCHAR(50) ,
"t001_senha" VARCHAR(50) ,
"t001_pergunta" VARCHAR(50) ,
"t001_resposta" VARCHAR(50) );
CREATE INDEX "WDIDX_t001_clientes_t001_cep" ON "t001_clientes" ("t001_cep");
CREATE INDEX "WDIDX_t001_clientes_t001_nascimento" ON "t001_clientes" ("t001_nascimento");
CREATE INDEX "WDIDX_t001_clientes_t001_email" ON "t001_clientes" ("t001_email");
CREATE INDEX "WDIDX_t001_clientes_t001_fone" ON "t001_clientes" ("t001_fone");
CREATE INDEX "WDIDX_t001_clientes_t001_usuario" ON "t001_clientes" ("t001_usuario");
CREATE INDEX "WDIDX_t001_clientes_t001_senha" ON "t001_clientes" ("t001_senha");
-- Creating the t002_agenda table
CREATE TABLE "t002_agenda" (
"t002_agenda_id" SERIAL8 PRIMARY KEY NOT NULL ,
"t002_datahora" TIMESTAMP UNIQUE ,
"t002_atividade" SMALLINT DEFAULT 0,
"t002_descricao" VARCHAR(512) ,
"t002_status" BOOL DEFAULT false,
"T001_cpf" VARCHAR(20) );
CREATE INDEX "WDIDX_t002_agenda_t002_atividade" ON "t002_agenda" ("t002_atividade");
CREATE INDEX "WDIDX_t002_agenda_t002_descricao" ON "t002_agenda" ("t002_descricao");
CREATE INDEX "WDIDX_t002_agenda_t002_status" ON "t002_agenda" ("t002_status");
CREATE INDEX "WDIDX_t002_agenda_T001_cpf" ON "t002_agenda" ("T001_cpf");
-- Integrity constraints
ALTER TABLE "t002_agenda" ADD FOREIGN KEY ("T001_cpf") REFERENCES "t001_clientes" ("t001_cpf");
//-----------------------------------------------------------------------------------------------------------------------------------------------------------
// Summary: <specify the procedure action>
// Syntax:
//Evento_Alterar_Senha (<pergunta>, <resposta>)
//
// Parameters:
// pergunta:
// resposta: <specify the role of resposta>
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Alterar_Senha(pergunta,resposta)
HReset(t001_clientes)
IF HReadSeek(t001_clientes,t001_usuario,EDT_Usuario,hIdentical) = True THEN
IF t001_clientes.t001_pergunta = pergunta AND t001_clientes.t001_resposta = resposta THEN
MyWindow..Plane = 3
END
END
//---------------------------------------------------------------------------------------------------------------------------------------
// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] Evento_Conectar (<Usuario>, <Senha>)
//
// Parameters:
// Usuario:
// Senha: <specify the role of Senha>
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Conectar(Usuario,Senha)
IF Usuario <> "" AND Senha <> ""
HReset(t001_clientes)
IF HReadSeek(t001_clientes,t001_usuario,Usuario,hIdentical) = True
IF t001_clientes.t001_senha = Senha
RESULT True
ELSE
RESULT False
END
ELSE
RESULT False
END
ELSE
RESULT False
END
//----------------------------------------------------------------------------------------------------------------------
// Summary: <specify the procedure action>
// Syntax:
//Evento_Esqueci_Minha_Senha (<usuario>)
//
// Parameters:
// usuario:
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Esqueci_Minha_Senha(usuario)
IF usuario <> "" THEN
HReset(t001_clientes)
IF HReadSeek(t001_clientes,t001_usuario,usuario,hIdentical) = True THEN
EDT_Pergunta_Secreta = t001_clientes.t001_pergunta
MyWindow..Plane = 2
END
ELSE
Info("Informe um usuario")
END
//---------------------------------------------------------------------------------------------------------------
// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] Evento_Nova_Senha (<novasenha>, <confirmasenha>)
//
// Parameters:
// novasenha:
// confirmasenha: <specify the role of confirmasenha>
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Nova_Senha(novasenha,confirmasenha)
IF novasenha = confirmasenha THEN
RESULT True
ELSE
RESULT False
END
//---------------------------------------------------------------------------------------------------------------------
// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] Evento_Nova_Senha (<novasenha>, <confirmasenha>)
//
// Parameters:
// novasenha:
// confirmasenha: <specify the role of confirmasenha>
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Nova_Senha(novasenha,confirmasenha)
IF novasenha = confirmasenha THEN
RESULT True
ELSE
RESULT False
END
//------------------------------------------------------------------------------------------------
// Summary: <specify the procedure action>
// Syntax:
// Evento_Gravar_Usuario ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Gravar_Usuario()
ScreenToFile() //get set
IF HAdd(t001_clientes) = True THEN
Info("Gravou com sucesso")
ELSE
Info("Erro"+ErrorInfo()+HErrorInfo())
END
MyWindow..Plane = 1
//--------------------------------------------------------------------------------------------------------------------------------------------------------------------
PODE USAR NOS 3 PRODUTOS AS PROCEDURES SAO AS MESMAS ASSIM ECONIZA O SEU TEMPO