Windev21 Aulas,Estudos e Desenvolvimento: 03/30/17

quinta-feira, 30 de março de 2017

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

// 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