quinta-feira, 30 de março de 2017

Aula 1106 - WinDev ListView - 002/... Criar Listview usuario Login e Validar









Video no Youtube Se Gostou clique aqui para dar joinha



Aula complementar Youtube - Dar um Joinha



Na dica de hoje..
Vou Criar um Listview com Usuarios
Vou Selecionar o Usuario, e digitar senha
Vou mostrar como chamar do programa principal





http://doc.windev.com/en-US/?1013186&name=ListView_control



WinDev - ListView - 001/... Listview Mostrar Usuários
Login - Listview Usuario e Validar - Listview 002/....



// Quando eu clicar no usuario, vou selecionar, e colocar o nome do usuario
// When I click on the user, I will select, and put the user's name

HReadSeekFirst(usuario_matos,usuario_matosID,LSV_Usuario_matos)
// Lendo Arquivo usuario matos
// Reading User File matos

EDT_Usuario=usuario_matos.nome
// edt usuario é igual a usuario matos nome
//Edt user is equal to username matos name

ReturnToCapture(EDT_senha)
// Va para o campo edt senha
// Goes to the edt password field









// No botao login, vou ler o usuario e verificar
// se senha e´igual a que esta no cadastro
// In the login button, I will read the user and check if the password
// is the same as the one in the register
HReadSeekFirst(usuario_matos,usuario_matosID,EDT_Usuario)
// Ler usuario // Read user
IF usuario_matos.senha=EDT_senha THEN
    // Se senha for igual a edt senha entao senha correta
    // If password is equal to edt password then correct password
    Info("senha correta")
    // vou mostrar que senha esta correta
    // I'll show you what password is correct.   
    Close(WIN_login,usuario_matos.nome)
    // Fecha Janela, e leva como parametro o nome do usuario
    // Close Window, and takes as its parameter the user name   
ELSE
    // senão senha é incorreta // Otherwise, password is incorrect
    Info("Senha Incorreta")   
    // vou mostrar que senha esta incorreta
    // I'll show you the password is incorrect.
    ReturnToCapture(EDT_senha)
    // voltar a digitar a senha
    // Re-enter password   
END





PROCEDURE escolher_usuario()


EXTERN WIN_Login_Erp_Matos
LoadWDL("cadastros.wdl")
gs_usuario_nome=Open(WIN_Login_Erp_Matos)


SBC_usuario=gs_usuario_nome
IF gs_usuario_nome="" THEN
    Info("Fechando Programa - nao foi informado login")
    EndProgram()   
END























Teste

Teste
teste