PC SOFT
DEPOT EN LIGNE
POUR WINDEVWEBDEV ET WINDEV MOBILE

WINDEV Mobile Exemplo de Login para as suas aplicações mobile
Publié par Boller
dans la catégorie Outils
Nouveautés



Description
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
Illustrations, copies d'écran
none
none
Avis des utilisateurs
(Pour noter la ressource, cliquez sur Ecrire un avis)
Aucun avis ou commentaire ? Soyez le premier !